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 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 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"))
(vip ,(if vip "true" "false"))
. ,(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)
|
| | |
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)
|