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

* mu4e-compose: s/refererences/references/

This commit is contained in:
djcb 2012-06-21 21:19:29 +03:00
parent 8fe5201e8e
commit 5c0f82af38
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
emacs/mu4e-compose.el
View File

@ -134,7 +134,7 @@ return nil."
(when val (format "%s: %s\n" hdr val)))
(defun mu4e~compose-refererences-construct (msg)
(defun mu4e~compose-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
@ -330,7 +330,7 @@ You can append flags."
reply-all))
(mu4e~compose-header "Subject" subject)
(mu4e~compose-header "References"
(mu4e~compose-refererences-construct origmsg))
(mu4e~compose-references-construct origmsg))
(mu4e~compose-common-construct)
(when old-msgid
(mu4e~compose-header "In-reply-to" (format "<%s>" old-msgid)))
@ -350,7 +350,7 @@ You can append flags."
(mu4e~compose-header "To" "")
(mu4e~compose-common-construct)
(mu4e~compose-header "References"
(mu4e~compose-refererences-construct origmsg))
(mu4e~compose-references-construct origmsg))
(mu4e~compose-header "Subject"
(concat
;; if there's no Fwd: yet, prepend it
@ -785,6 +785,6 @@ message."
(if (not subject)
(message-goto-subject)
(message-goto-body)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'mu4e-compose)