Overview
Comment: | fix the VIP/sage function |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
268b82975169e4ddbbbce8e5ce900813 |
User & Date: | anon on 2023-09-09 09:13:34 |
Other Links: | branch diff | manifest | tags |
Context
2024-02-29
| ||
20:07 | Fix detection of references in 'sbbs-show-replies' The 'sbbs-ref' property was not stored in the overlay, but as a text-property inside the buffer. For that reason, it would always find no references, even if there were references in the same thread. check-in: 830ca8047f user: zge tags: master, trunk | |
2023-09-09
| ||
09:17 | fix VIP/sage function check-in: d9a94adf9b user: anon tags: ben-hotfixes | |
09:13 | fix the VIP/sage function check-in: 268b829751 user: anon tags: master, trunk | |
2022-01-24
| ||
09:35 | Replace formatting when using a prefix argument check-in: 1db3d1b5c3 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [d00835b8b8] to [bf2e481917].
︙ | ︙ | |||
696 697 698 699 700 701 702 | (replace-match "" nil nil nil 1))) (defun sbbs-compose-create (vip) "Upload response or thread to board. If VIP is non-nil (or when invoked with a prefix argument), mark the post as \"VIP\", ie. don't bump the thread." (interactive "P") | | | | 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 | (replace-match "" nil nil nil 1))) (defun sbbs-compose-create (vip) "Upload response or thread to board. If VIP is non-nil (or when invoked with a prefix argument), mark the post as \"VIP\", ie. don't bump the thread." (interactive "P") (when (and vip (not sbbs--thread-id)) (user-error "A new thread cannot be VIP")) (let ((board sbbs--board) (url-request-method "POST") (url-request-extra-headers '(("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) . ,(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) |
︙ | ︙ |