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







|


>







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