emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e-draft.el: hopefully fix the references issue

This commit is contained in:
djcb 2012-12-28 14:48:20 +02:00
parent 70356a62f5
commit d38fbccd47
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mu4e/mu4e-draft.el
View File

@ -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