Permalink
Browse files

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

  • Loading branch information...
1 parent 70356a6 commit d38fbccd4717632efd59ac6500f61f1f53aba35b @djcb committed Dec 28, 2012
Showing with 6 additions and 10 deletions.
  1. +6 −10 mu4e/mu4e-draft.el
View
@@ -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

0 comments on commit d38fbcc

Please sign in to comment.