alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

16
emacs/mu4e-send.el
View File

@ -216,20 +216,26 @@ Then follows `mail-header-separator' (for `message-mode' to separate
body from headers) body from headers)
And finally, the cited body of MSG, as per `mu4e-send-cite-original'." And finally, the cited body of MSG, as per `mu4e-send-cite-original'."
(let ((subject (or (plist-get msg :subject) "")))
(concat (concat
(mu4e-send-header "From" (or (mu4e-send-from-create) "")) (mu4e-send-header "From" (or (mu4e-send-from-create) ""))
(when (boundp 'mail-reply-to) (when (boundp 'mail-reply-to)
(mu4e-send-header "Reply-To" mail-reply-to)) (mu4e-send-header "Reply-To" mail-reply-to))
(mu4e-send-header "To" "") (mu4e-send-header "To" "")
(mu4e-send-header "User-agent" (mu4e-send-user-agent)) (mu4e-send-header "User-agent" (mu4e-send-user-agent))
(mu4e-send-header "References" (mu4e-send-references-create msg)) (mu4e-send-header "References" (mu4e-send-references-create msg))
(mu4e-send-header"Subject" (mu4e-send-header "Subject"
(concat mu4e-send-forward-prefix (plist-get msg :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" (propertize mail-header-separator 'read-only t 'intangible t) "\n"
"\n\n" "\n\n"
(mu4e-send-cite-original msg))) (mu4e-send-cite-original msg))))
(defun mu4e-send-create-new () (defun mu4e-send-create-new ()
"Create a new message. "Create a new message.