Merge pull request #2657 from rrudakov/fix/2656-cite-reply-position
Respect `message-cite-reply-position` customization
This commit is contained in:
@ -731,7 +731,9 @@ Is this address yours?"
|
|||||||
(message-goto-to)
|
(message-goto-to)
|
||||||
(if (not (message-field-value "Subject"))
|
(if (not (message-field-value "Subject"))
|
||||||
(message-goto-subject)
|
(message-goto-subject)
|
||||||
(message-goto-body)))
|
(pcase message-cite-reply-position
|
||||||
|
((or 'above 'traditional) (message-goto-body))
|
||||||
|
(_ (when (message-goto-signature) (forward-line -2))))))
|
||||||
;; buffer is not user-modified yet
|
;; buffer is not user-modified yet
|
||||||
(set-buffer-modified-p nil)
|
(set-buffer-modified-p nil)
|
||||||
(undo-boundary))
|
(undo-boundary))
|
||||||
|
|||||||
Reference in New Issue
Block a user