[PATCH v2] emacs: Use the message cite variable
Todd
todd at electricoding.com
Fri Jan 9 15:37:07 PST 2015
I checked in the Emacs 22.1 source code, and there it was a defaulted
to message-cite-original as well. This patch falls back to
message-cite-original in the unlikely case that someone has customized
message-cite-function to nil.
- Todd
---
emacs/notmuch-mua.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index 2c58886..2a01455 100644
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -220,8 +220,8 @@ list."
(date (plist-get original-headers :Date))
(start (point)))
- ;; message-cite-original constructs a citation line based on the From and Date
- ;; headers of the original message, which are assumed to be in the buffer.
+ ;; message-cite-function should construct a citation line based on the From and
+ ;; Date headers of the original message, which are assumed to be in the buffer.
(insert "From: " from "\n")
(insert "Date: " date "\n\n")
@@ -233,7 +233,7 @@ list."
(set-mark (point))
(goto-char start)
;; Quote the original message according to the user's configured style.
- (message-cite-original)))
+ (funcall (or message-cite-function #'message-cite-original))))
;; Crypto processing based crypto content of the original message
(when process-crypto
--
1.9.1
More information about the notmuch
mailing list