diff --git a/mu4e/mu4e-draft.el b/mu4e/mu4e-draft.el index d340d6fa..3b7679c1 100644 --- a/mu4e/mu4e-draft.el +++ b/mu4e/mu4e-draft.el @@ -413,15 +413,15 @@ You can append flags." Replying-to-self is special; in that case, the To and Cc fields will be the same as in the original." (let* ((reply-to-self (mu4e-message-contact-field-matches-me origmsg :from)) - (recipnum - (+ (length (mu4e~draft-create-to-lst origmsg)) - (length (mu4e~draft-create-cc-lst origmsg t)))) - ;; reply-to-self implies reply-all - (reply-all (or reply-to-self (mu4e~draft-reply-all-p origmsg))) - (old-msgid (plist-get origmsg :message-id)) - (subject - (concat mu4e~draft-reply-prefix - (message-strip-subject-re (or (plist-get origmsg :subject) ""))))) + (recipnum + (+ (length (mu4e~draft-create-to-lst origmsg)) + (length (mu4e~draft-create-cc-lst origmsg t)))) + ;; reply-to-self implies reply-all + (reply-all (or reply-to-self (mu4e~draft-reply-all-p origmsg))) + (old-msgid (plist-get origmsg :message-id)) + (subject (concat mu4e~draft-reply-prefix + (message-strip-subject-re + (or (plist-get origmsg :subject) ""))))) (concat (mu4e~draft-header "From" (or (mu4e~draft-from-construct) "")) (mu4e~draft-header "Reply-To" mu4e-compose-reply-to-address) diff --git a/mu4e/mu4e-vars.el b/mu4e/mu4e-vars.el index 8704ae86..afae182d 100644 --- a/mu4e/mu4e-vars.el +++ b/mu4e/mu4e-vars.el @@ -941,9 +941,9 @@ This before new headers are displayed, to clear the current headers buffer. See `mu4e~proc-filter' for the format.") (defvar mu4e-compose-func 'mu4e~compose-handler - "Function called for each comoose message received. -Ie. the original message that is used as basis for composing a -new message (ie., either a reply or a forward); the function is + "Function called for each compose message received. +I.e., the original message that is used as basis for composing a +new message (i.e., either a reply or a forward); the function is passed msg and a symbol (either reply or forward). See `mu4e~proc-filter' for the format of .")