[#2656] Respect message-cite-reply-position customization

This commit is contained in:
Roman Rudakov
2024-03-04 15:15:50 +01:00
parent 1e5a807b69
commit f779e30dda

View File

@ -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))