sbbs.el: Diff

Differences From Artifact [d00835b8b8]:

File sbbs.el — part of check-in [1db3d1b5c3] at 2022-01-24 09:35:26 on branch master — Replace formatting when using a prefix argument (user: zge, size: 31429) [annotate] [blame] [check-ins using]

To Artifact [bf2e481917]:

File sbbs.el — part of check-in [268b829751] at 2023-09-09 09:13:34 on branch master — fix the VIP/sage function (user: anon, size: 31430) [annotate] [blame] [check-ins using]

   696    696       (replace-match "" nil nil nil 1)))
   697    697   
   698    698   (defun sbbs-compose-create (vip)
   699    699     "Upload response or thread to board.
   700    700   If VIP is non-nil (or when invoked with a prefix argument), mark
   701    701   the post as \"VIP\", ie. don't bump the thread."
   702    702     (interactive "P")
   703         -  (when (and vip sbbs--thread-id)
          703  +  (when (and vip (not sbbs--thread-id))
   704    704       (user-error "A new thread cannot be VIP"))
   705    705     (let ((board sbbs--board)
   706    706           (url-request-method "POST")
   707    707           (url-request-extra-headers
   708    708            '(("Content-Type" . "application/x-www-form-urlencoded")))
   709    709           (url-request-data
   710    710            (url-build-query-string
   711    711             `((epistula ,(buffer-string))
   712    712               (ornamentum "") (name "") (message "")
   713    713               (frontpage ,(if sbbs--thread-id "true" "false"))
   714         -            (vip ,(if vip "true" "false"))
          714  +            ,(if vip `(vip "on") nil)
   715    715               . ,(and (not sbbs--thread-id)
   716    716                       `((titulus ,(read-string "Headline: ")))))))
   717    717           (url (if sbbs--thread-id
   718    718                    (sbbs--board-url (format "%d/post" sbbs--thread-id))
   719    719                  (sbbs--board-url "/post"))))
   720    720       (url-retrieve url (lambda (status buf)
   721    721                           (if (plist-get status :error)