From d38fbccd4717632efd59ac6500f61f1f53aba35b Mon Sep 17 00:00:00 2001 From: djcb Date: Fri, 28 Dec 2012 14:48:20 +0200 Subject: [PATCH] * mu4e-draft.el: hopefully fix the references issue --- mu4e/mu4e-draft.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/mu4e/mu4e-draft.el b/mu4e/mu4e-draft.el index 78ad1899..81966d61 100644 --- a/mu4e/mu4e-draft.el +++ b/mu4e/mu4e-draft.el @@ -67,20 +67,16 @@ If VAL is nil, return nil." (defun mu4e~draft-references-construct (msg) "Construct the value of the References: header based on MSG as a -comma-separated string. Normally, this the concatenation of the -existing References (which may be empty) and the message-id. If the -message-id is empty, returns the old References. If both are empty, -return nil." - (message "REF %S"(mu4e-message-field msg :references)) - (message "IRT %S"(mu4e-message-field msg :in-reply-to)) - (message "MID %S"(mu4e-message-field msg :message-id)) +comma-separated string. Normally, this the concatenation of thedmesg +q +existing References + In-Reply-To (which may be empty, an note +that :references includes the old in-reply-to as well) and the +message-id. If the message-id is empty, returns the old +References. If both are empty, return nil." (let* ( ;; these are the ones from the message being replied to / forwarded (refs (mu4e-message-field msg :references)) - (in-reply-to (mu4e-message-field msg :in-reply-to)) (msgid (mu4e-message-field msg :message-id)) ;; now, append in - (refs (if (and in-reply-to (not (string= in-reply-to ""))) - (append refs (list in-reply-to)) refs)) (refs (if (and msgid (not (string= msgid ""))) (append refs (list msgid)) refs)) ;; no doubles