mirror of https://github.com/djcb/mu.git
* mu4e-draft.el: hopefully fix the references issue
This commit is contained in:
parent
70356a62f5
commit
d38fbccd47
|
@ -67,20 +67,16 @@ If VAL is nil, return nil."
|
||||||
|
|
||||||
(defun mu4e~draft-references-construct (msg)
|
(defun mu4e~draft-references-construct (msg)
|
||||||
"Construct the value of the References: header based on MSG as a
|
"Construct the value of the References: header based on MSG as a
|
||||||
comma-separated string. Normally, this the concatenation of the
|
comma-separated string. Normally, this the concatenation of thedmesg
|
||||||
existing References (which may be empty) and the message-id. If the
|
q
|
||||||
message-id is empty, returns the old References. If both are empty,
|
existing References + In-Reply-To (which may be empty, an note
|
||||||
return nil."
|
that :references includes the old in-reply-to as well) and the
|
||||||
(message "REF %S"(mu4e-message-field msg :references))
|
message-id. If the message-id is empty, returns the old
|
||||||
(message "IRT %S"(mu4e-message-field msg :in-reply-to))
|
References. If both are empty, return nil."
|
||||||
(message "MID %S"(mu4e-message-field msg :message-id))
|
|
||||||
(let* ( ;; these are the ones from the message being replied to / forwarded
|
(let* ( ;; these are the ones from the message being replied to / forwarded
|
||||||
(refs (mu4e-message-field msg :references))
|
(refs (mu4e-message-field msg :references))
|
||||||
(in-reply-to (mu4e-message-field msg :in-reply-to))
|
|
||||||
(msgid (mu4e-message-field msg :message-id))
|
(msgid (mu4e-message-field msg :message-id))
|
||||||
;; now, append in
|
;; 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 "")))
|
(refs (if (and msgid (not (string= msgid "")))
|
||||||
(append refs (list msgid)) refs))
|
(append refs (list msgid)) refs))
|
||||||
;; no doubles
|
;; no doubles
|
||||||
|
|
Loading…
Reference in New Issue