Fix mangled Subject header field when forwarding (Bug#67360)

* lisp/mh-e/mh-comp.el (mh-forward): Overwrite subject when
forwarding.
This commit is contained in:
Mike Kupfer 2023-12-31 09:11:23 -08:00 committed by Bill Wohler
parent 7591acfe38
commit 3204825f56

View file

@ -574,7 +574,7 @@ See also `mh-compose-forward-as-mime-flag',
(setq orig-subject (mh-get-header-field "Subject:"))) (setq orig-subject (mh-get-header-field "Subject:")))
(let ((forw-subject (let ((forw-subject
(mh-forwarded-letter-subject orig-from orig-subject))) (mh-forwarded-letter-subject orig-from orig-subject)))
(mh-insert-fields "Subject:" forw-subject) (mh-modify-header-field "Subject" forw-subject t)
(goto-char (point-min)) (goto-char (point-min))
;; Set the local value of mh-mail-header-separator according to what is ;; Set the local value of mh-mail-header-separator according to what is
;; present in the buffer... ;; present in the buffer...