summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAmin Bandali <bandali@gnu.org>2019-03-05 23:28:07 -0500
committerAmin Bandali <bandali@gnu.org>2019-03-05 23:28:07 -0500
commit2a292da98e0fa7fe82324b5c4d999b4fb18e8527 (patch)
tree5a9f9defc5702e73f78602e2e152bbc6b89e9bc4
parent8fcb69651f2b916af19d5039c9a3dbbd3c1e668e (diff)
downloadconfigs-2a292da98e0fa7fe82324b5c4d999b4fb18e8527.tar.gz
configs-2a292da98e0fa7fe82324b5c4d999b4fb18e8527.tar.xz
configs-2a292da98e0fa7fe82324b5c4d999b4fb18e8527.zip
[emacs/message] create simplified In-Reply-To headers
Using the legacy format that message-make-in-reply-to generates by default may be problematic, as is the case for lists.sr.ht.
-rw-r--r--init.org10
1 files changed, 10 insertions, 0 deletions
diff --git a/init.org b/init.org
index 83ae614..fd734b1 100644
--- 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
+ ;; 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)