Differences From Artifact [bf2e481917]:
- File sbbs.el — part of check-in [268b829751] at 2023-09-09 09:13:34 on branch master — fix the VIP/sage function (user: anon, size: 31430) [annotate] [blame] [check-ins using]
To Artifact [fca4400146]:
- File sbbs.el — part of check-in [c19493c97a] at 2023-09-09 09:54:41 on branch ben-hotfixes — make vip prefix argument in sbbs-compose-create work in /mona/ (user: anon, size: 31475) [annotate] [blame] [check-ins using]
| ︙ | |||
708 709 710 711 712 713 714 715 716 717 718 719 720 721 | 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 | + |
'(("Content-Type" . "application/x-www-form-urlencoded")))
(url-request-data
(url-build-query-string
`((epistula ,(buffer-string))
(ornamentum "") (name "") (message "")
(frontpage ,(if sbbs--thread-id "true" "false"))
,(if vip `(vip "on") nil)
(inscriptio ,(if vip "sage" ""))
. ,(and (not sbbs--thread-id)
`((titulus ,(read-string "Headline: ")))))))
(url (if sbbs--thread-id
(sbbs--board-url (format "%d/post" sbbs--thread-id))
(sbbs--board-url "/post"))))
(url-retrieve url (lambda (status buf)
(if (plist-get status :error)
|
| ︙ |