sbbs.el

Changes On Branch 93422a4832c133e7
Login

Changes In Branch ben-hotfixes Excluding Merge-Ins

This is equivalent to a diff from 268b829751 to 93422a4832

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
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
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

Modified sbbs.el from [bf2e481917] to [8483c098a2].

705
706
707
708
709
710
711
712

713
714

715
716
717
718
719
720
721
705
706
707
708
709
710
711

712
713
714
715
716
717
718
719
720
721
722







-
+


+







  (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 "")
            (ornamentum "3b3738ae1c9295d272cec84ecf7af5c8") (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)