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

* mu4e-send: don't repeat Re:, Fwd:

This commit is contained in:
djcb 2012-02-09 21:20:36 +02:00
parent c809e7a301
commit 3745413637
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
emacs/mu4e-send.el
View File

@ -216,20 +216,26 @@ Then follows `mail-header-separator' (for `message-mode' to separate
body from headers)
And finally, the cited body of MSG, as per `mu4e-send-cite-original'."
(let ((subject (or (plist-get msg :subject) "")))
(concat
(mu4e-send-header "From" (or (mu4e-send-from-create) ""))
(when (boundp 'mail-reply-to)
(mu4e-send-header "Reply-To" mail-reply-to))
(when (boundp 'mail-reply-to)
(mu4e-send-header "Reply-To" mail-reply-to))
(mu4e-send-header "To" "")
(mu4e-send-header "User-agent" (mu4e-send-user-agent))
(mu4e-send-header "References" (mu4e-send-references-create msg))
(mu4e-send-header"Subject"
(concat mu4e-send-forward-prefix (plist-get msg :subject)))
(mu4e-send-header "Subject"
(concat
;; if there's no Re: yet, prepend it
(if (string-match (concat "^" mu4e-send-forward-prefix) subject)
"" mu4e-send-forward-prefix)
subject))
(propertize mail-header-separator 'read-only t 'intangible t) "\n"
"\n\n"
(mu4e-send-cite-original msg)))
(mu4e-send-cite-original msg))))
(defun mu4e-send-create-new ()
"Create a new message.