sbbs.el

Diff
Login

Differences From Artifact [bf2e481917]:

To Artifact [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)