Hello, I am sending this from emacs. Here's a second ``diff'' to enable posting:
diff --git a/iPpP.el b/iPpP.el
index 2f72121..c943800 100644
--- a/iPpP.el
+++ b/iPpP.el
@@ -18,6 +18,10 @@
(sbbs-make-board "textboard.org" "sol"))
"List of SchemeBBS boards.")
+(defcustom sbbs-ornamentum
+ "3b3738ae1c9295d272cec84ecf7af5c8"
+ "Form hash.")
+
(defvar-local sbbs--board nil)
(defvar-local sbbs--thread-id nil)
@@ -202,11 +206,15 @@
(url-request-extra-headers
'(("Content-Type" . "application/x-www-form-urlencoded")))
(url-request-data
- (url-build-query-string
- (if sbbs--thread-id
- `((epistula ,(buffer-string)))
- `((titulus ,(read-string "Headline: "))
- (epistula ,(buffer-string))))))
+ (url-build-query-string
+ `((epistula ,(buffer-string))
+ (ornamentum ,sbbs-ornamentum)
+ (name "")
+ (message "")
+ (frontpage ,(if sbbs--thread-id "true" "false")) .
+ ,(if sbbs--thread-id
+ nil
+ `((titulus ,(read-string "Headline: ")))))))
(url (if sbbs--thread-id
(format "http://%s/%s/%d/post"
(sbbs--board-domain sbbs--board)
@@ -220,7 +228,7 @@
(defun sbbs-read-reply (arg)
(interactive "P")
- (let ((id (get-text-property (point) 'sbbs-thread-nr))
+ (let ((id (or sbbs--thread-id (get-text-property (point) 'sbbs-thread-nr)))
(board sbbs--board))
(with-current-buffer (generate-new-buffer "*new response*")
(sbbs-compose-mode)
If you are reading this, it worked.