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

* mu4e-send.el: don't repeat "Re:" etc. when replying

Browse Source
This commit is contained in:
djcb
2012-02-08 22:17:00 +02:00
parent 7465282e85
commit d922808ff8
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
emacs/mu4e-send.el
View File

@ -173,7 +173,7 @@ And finally, the cited body of MSG, as per `mu4e-send-cite-original'."
(format "Reply to all ~%d recipients? " (format "Reply to all ~%d recipients? "
(+ recipnum))))) (+ recipnum)))))
(old-msgid (plist-get msg :message-id)) (old-msgid (plist-get msg :message-id))
(subject (plist-get msg :subject))) (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)
@ -188,14 +188,17 @@ And finally, the cited body of MSG, as per `mu4e-send-cite-original'."
(when old-msgid (when old-msgid
(mu4e-send-header "In-reply-to" (format "<%s>" old-msgid))) (mu4e-send-header "In-reply-to" (format "<%s>" old-msgid)))
(mu4e-send-header "Subject" (mu4e-send-header "Subject"
(concat mu4e-send-reply-prefix (if subject subject ""))) (concat
;; if there's no Re: yet, prepend it
(if (string-match (concat "^" mu4e-send-reply-prefix) subject)
"" mu4e-send-reply-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))))
;; TODO: attachments
(defun mu4e-send-create-forward (msg) (defun mu4e-send-create-forward (msg)
"Create a draft forward message for MSG. "Create a draft forward message for MSG.