[emacs/message] create simplified In-Reply-To headers
authorAmin Bandali <bandali@gnu.org>
Wed, 6 Mar 2019 04:28:07 +0000 (23:28 -0500)
committerAmin Bandali <bandali@gnu.org>
Wed, 6 Mar 2019 04:28:07 +0000 (23:28 -0500)
Using the legacy format that message-make-in-reply-to generates by
default may be problematic, as is the case for lists.sr.ht.

init.org

index 83ae614..fd734b1 100644 (file)
--- a/init.org
+++ b/init.org
@@ -2424,6 +2424,16 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 #+begin_src emacs-lisp
 (use-feature message
   :config
 #+begin_src emacs-lisp
 (use-feature message
   :config
+  ;; redefine for a simplified In-Reply-To header
+  ;; (see https://todo.sr.ht/~sircmpwn/lists.sr.ht/67)
+  (defun message-make-in-reply-to ()
+    "Return the In-Reply-To header for this message."
+    (when message-reply-headers
+      (let ((from (mail-header-from message-reply-headers))
+               (msg-id (mail-header-id message-reply-headers)))
+        (when from
+          msg-id))))
+
   (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
   (defconst message-cite-style-bandali
     '((message-cite-function  'message-cite-original)
   (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
   (defconst message-cite-style-bandali
     '((message-cite-function  'message-cite-original)