sbbs.el

Check-in [268b829751]
Login
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: 268b82975169e4ddbbbce8e5ce90081339a026b9886856ad5c446afe7306bffd
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
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)
  (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"))
            (vip ,(if vip "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)