debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 04:18:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: make citation function customizable.

Browse source 
Make a new customizable variable instead of relying on
message-cite-function because the default for the latter changed
between emacs releases.

The defcustom is borrowed from the message.el source, with minor
modifications.
This commit is contained in:
David Bremner 2015-01-14 20:57:49 +01:00
parent 9060a1f617
commit 2bbe5e034d
1 changed files with 20 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
emacs/notmuch-mua.el
View file

@ -75,6 +75,22 @@ list."
:type '(repeat string) :type '(repeat string)
:group 'notmuch-send) :group 'notmuch-send)
(defgroup notmuch-reply nil
"Replying to messages in notmuch"
:group 'notmuch)
(defcustom notmuch-mua-cite-function 'message-cite-original
"*Function for citing an original message.
Predefined functions include `message-cite-original' and
`message-cite-original-without-signature'.
Note that these functions use `mail-citation-hook' if that is non-nil."
:type '(radio (function-item message-cite-original)
(function-item message-cite-original-without-signature)
(function-item sc-cite-original)
(function :tag "Other"))
:link '(custom-manual "(message)Insertion Variables")
:group 'notmuch-reply)
;; ;;
(defun notmuch-mua-get-switch-function () (defun notmuch-mua-get-switch-function ()
@ -220,8 +236,9 @@ list."
(date (plist-get original-headers :Date)) (date (plist-get original-headers :Date))
(start (point))) (start (point)))
;; message-cite-original constructs a citation line based on the From and Date ;; notmuch-mua-cite-function constructs a citation line based
;; headers of the original message, which are assumed to be in the buffer. ;; on the From and Date headers of the original message, which
;; are assumed to be in the buffer.
(insert "From: " from "\n") (insert "From: " from "\n")
(insert "Date: " date "\n\n") (insert "Date: " date "\n\n")
@ -233,7 +250,7 @@ list."
(set-mark (point)) (set-mark (point))
(goto-char start) (goto-char start)
;; Quote the original message according to the user's configured style. ;; Quote the original message according to the user's configured style.
(message-cite-original))) (funcall notmuch-mua-cite-function)))
;; Crypto processing based crypto content of the original message ;; Crypto processing based crypto content of the original message
(when process-crypto (when process-crypto