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

* mu4e-compose.el: reuse `message-strip-subject-re' to construct the reply

Browse Source 
subject lines; add a space 'Re: ' and 'Fwd: '
This commit is contained in:
djcb
2012-06-08 22:14:03 +03:00
parent 0b443c04d4
commit f89a885c19
1 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
emacs/mu4e-compose.el
View File

@ -286,37 +286,40 @@ You can append flags."
"Construct the common headers for each message." "Construct the common headers for each message."
(mu4e~compose-header "User-agent" (mu4e~compose-user-agent-construct))) (mu4e~compose-header "User-agent" (mu4e~compose-user-agent-construct)))
(defconst mu4e~compose-reply-prefix "Re: "
"String to prefix replies with.")
(defun mu4e~compose-reply-construct (origmsg) (defun mu4e~compose-reply-construct (origmsg)
"Create a draft message as a reply to original message ORIGMSG." "Create a draft message as a reply to original message ORIGMSG."
(message "%S %S" (or (plist-get origmsg :subject) "")
(string-match message-subject-re-regexp
(or (plist-get origmsg :subject) "")))
(let* ((recipnum (let* ((recipnum
(+ (length (mu4e~compose-create-to-lst origmsg)) (+ (length (mu4e~compose-create-to-lst origmsg))
(length (mu4e~compose-create-cc-lst origmsg t)))) (length (mu4e~compose-create-cc-lst origmsg t))))
(reply-all (mu4e~compose-user-wants-reply-all origmsg)) (reply-all (mu4e~compose-user-wants-reply-all origmsg))
(old-msgid (plist-get origmsg :message-id)) (old-msgid (plist-get origmsg :message-id))
(subject (or (plist-get origmsg :subject) ""))) (subject
(concat mu4e~compose-reply-prefix
(message-strip-subject-re (or (plist-get origmsg :subject) "")))))
(message "S:%s" subject)
(concat (concat
(mu4e~compose-header "From" (or (mu4e~compose-from-construct) "")) (mu4e~compose-header "From" (or (mu4e~compose-from-construct) ""))
(mu4e~compose-header "Reply-To" mu4e-reply-to-address) (mu4e~compose-header "Reply-To" mu4e-reply-to-address)
(mu4e~compose-header "To" (mu4e~compose-recipients-construct :to origmsg)) (mu4e~compose-header "To" (mu4e~compose-recipients-construct :to origmsg))
(mu4e~compose-header "Cc" (mu4e~compose-recipients-construct :cc origmsg (mu4e~compose-header "Cc" (mu4e~compose-recipients-construct :cc origmsg
reply-all)) reply-all))
(mu4e~compose-header "Subject" subject)
(mu4e~compose-header "References" (mu4e~compose-header "References"
(mu4e~compose-refererences-construct origmsg)) (mu4e~compose-refererences-construct origmsg))
(mu4e~compose-common-construct) (mu4e~compose-common-construct)
(when old-msgid (when old-msgid
(mu4e~compose-header "In-reply-to" (format "<%s>" old-msgid))) (mu4e~compose-header "In-reply-to" (format "<%s>" old-msgid)))
(mu4e~compose-header "Subject"
(concat
;; if there's no Re: yet, prepend it
(if (string-match "^Re:" subject) "" "Re:")
subject))
"\n\n" "\n\n"
(mu4e~compose-cite-original origmsg)))) (mu4e~compose-cite-original origmsg))))
(defconst mu4e~compose-forward-prefix "Fwd: "
"String to prefix replies with.")
(defun mu4e~compose-forward-construct (origmsg) (defun mu4e~compose-forward-construct (origmsg)
"Create a draft forward message for original message ORIGMSG." "Create a draft forward message for original message ORIGMSG."
@ -332,7 +335,9 @@ You can append flags."
(mu4e~compose-header "Subject" (mu4e~compose-header "Subject"
(concat (concat
;; if there's no Fwd: yet, prepend it ;; if there's no Fwd: yet, prepend it
(if (string-match "^Fwd:" subject) "" "Fwd:") (if (string-match "^Fwd:" subject)
""
mu4e~compose-forward-prefix)
subject)) subject))
"\n\n" "\n\n"
(mu4e~compose-cite-original origmsg)))) (mu4e~compose-cite-original origmsg))))
@ -540,7 +545,7 @@ Gnus' `message-mode'."
;; existing message. ;; existing message.
(unless (eq compose-type 'edit) (unless (eq compose-type 'edit)
(message-insert-signature)) (message-insert-signature))
;; set compose mode -- so now hooks can run ;; set compose mode -- so now hooks can run
(mu4e-compose-mode) (mu4e-compose-mode)