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

* mu4e-send: handle replying to messages with message id or subject

Browse Source
This commit is contained in:
djcb
2011-12-17 11:31:36 +02:00
parent a32622c6be
commit ec35849fb5
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
emacs/mu4e-send.el
View File

@ -191,7 +191,9 @@ And finally, the cited body of MSG, as per `mu4e-msg-cite-original'."
(reply-all (when (> recipnum 1) (reply-all (when (> recipnum 1)
(yes-or-no-p (yes-or-no-p
(format "Reply to all ~%d recipients? " (format "Reply to all ~%d recipients? "
(+ recipnum)))))) (+ recipnum)))))
(old-msgid (plist-get msg :message-id))
(subject (plist-get msg :subject)))
(concat (concat
(mu4e-msg-header "From" (or (mu4e-msg-from-create) "")) (mu4e-msg-header "From" (or (mu4e-msg-from-create) ""))
(when (boundp 'mail-reply-to) (when (boundp 'mail-reply-to)
@ -203,10 +205,10 @@ And finally, the cited body of MSG, as per `mu4e-msg-cite-original'."
(mu4e-msg-header "User-agent" (mu4e-msg-user-agent)) (mu4e-msg-header "User-agent" (mu4e-msg-user-agent))
(mu4e-msg-header "References" (mu4e-msg-references-create msg)) (mu4e-msg-header "References" (mu4e-msg-references-create msg))
(mu4e-msg-header "In-reply-to" (format "<%s>" (plist-get msg :message-id))) (when old-msgid
(mu4e-msg-header "In-reply-to" (format "<%s>" old-msgid)))
(mu4e-msg-header "Subject" (mu4e-msg-header "Subject"
(concat mu4e-msg-reply-prefix (plist-get msg :subject))) (concat mu4e-msg-reply-prefix (if subject subject "")))
(propertize mail-header-separator 'read-only t 'intangible t) '"\n" (propertize mail-header-separator 'read-only t 'intangible t) '"\n"