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

Reply via email to