Hello,
Message.el has a user option called message-cite-reply-position that
determines where a signature is placed in an email compositino buffer
when replying. Its docstring reads:
Where the reply should be positioned.
If ‘traditional’, reply inline.
If ‘above’, reply above quoted text.
If ‘below’, reply below quoted text.
Note: Many newsgroups frown upon nontraditional reply styles.
You probably want to set this variable only for specific groups,
e.g. using ‘gnus-posting-styles’:
(eval (setq-local message-cite-reply-position 'above))
The current behavior of notmuch accords with the user values of below
and traditional but not above.
The notmuch function responsible for the position of the signature (or,
rather, the position of the citations) is notmuch-mua-reply. I have
attached a patch that adds a brief snippet which obeys
message-cite-reply-position when its value is above.
--
Best,
Kristoffer
emacs/notmuch-mua.el | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index bf62b656..1d1a1591 100644
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -295,6 +295,20 @@ Typically this is added to `notmuch-mua-send-hook'."
(when message-signature-insert-empty-line
(forward-line -1))
(goto-char (point-max))))
+ ;; If `message-cite-reply-position' is `above', e.g., for Gmail-like
+ ;; email replies, then before inserting the citation, put the point
+ ;; after the signature and insert a newline for spacing. Also respects
+ ;; if `message-cite-reply-position' is set via `message-cite-style'.
+ (when (or (equal message-cite-reply-position 'above)
+ (and message-cite-style
+ (eq (eval (cadr
+ (assoc 'message-cite-reply-position
+ (if (symbolp message-cite-style)
+ (eval message-cite-style)
+ message-cite-style))))
+ 'above)))
+ (goto-char (point-max))
+ (insert "\n"))
(let ((from (plist-get original-headers :From))
(date (plist-get original-headers :Date))
(start (point)))
_______________________________________________
notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-le...@notmuchmail.org
