From 2a292da98e0fa7fe82324b5c4d999b4fb18e8527 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Tue, 5 Mar 2019 23:28:07 -0500 Subject: [PATCH] [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. --- init.org | 10 ++++++++++ 1 file changed, 10 insertions(+) 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) -- 2.20.1