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
_______________________________________________
notmuch mailing list
notmuch@notmuchmail.org
http://notmuchmail.org/mailman/listinfo/notmuch
