sbbs.el: Check-in [c19493c97a]

Overview

Comment:	make vip prefix argument in sbbs-compose-create work in /mona/
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| ben-hotfixes
Files:	files \| file ages \| folders
SHA3-256:	c19493c97a88c56190d1e974b78f71c07097a4b67ee08366d92a0deb03765b08
User & Date:	anon on 2023-09-09 09:54:41
Other Links:	branch diff \| manifest \| tags

Context

2023-09-09
10:02		add the "ornamentum" hash to allow posting out of the box (should be in a variable instead) Leaf check-in: 93422a4832 user: anon tags: ben-hotfixes
09:54		make vip prefix argument in sbbs-compose-create work in /mona/ check-in: c19493c97a user: anon tags: ben-hotfixes
09:17		fix VIP/sage function check-in: d9a94adf9b user: anon tags: ben-hotfixes

Changes

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sbbs.el from [bf2e481917] to [fca4400146].

   708    708            '(("Content-Type" . "application/x-www-form-urlencoded")))
   709    709           (url-request-data
   710    710            (url-build-query-string
   711    711             `((epistula ,(buffer-string))
   712    712               (ornamentum "") (name "") (message "")
   713    713               (frontpage ,(if sbbs--thread-id "true" "false"))
   714    714               ,(if vip `(vip "on") nil)
          715  +            (inscriptio ,(if vip "sage" ""))
   715    716               . ,(and (not sbbs--thread-id)
   716    717                       `((titulus ,(read-string "Headline: ")))))))
   717    718           (url (if sbbs--thread-id
   718    719                    (sbbs--board-url (format "%d/post" sbbs--thread-id))
   719    720                  (sbbs--board-url "/post"))))
   720    721       (url-retrieve url (lambda (status buf)
   721    722                           (if (plist-get status :error)