diff options
| author | Mike Kupfer | 2023-12-31 09:11:23 -0800 |
|---|---|---|
| committer | Bill Wohler | 2024-01-01 10:32:48 -0800 |
| commit | 3204825f56040df0a783de4fc99052eabb62b84b (patch) | |
| tree | d92d0555fb747dad25eafad35a575e29034eb6bb | |
| parent | 7591acfe38e3f5f3fb9b89e2b1ed08723b0298e6 (diff) | |
| download | emacs-3204825f56040df0a783de4fc99052eabb62b84b.tar.gz emacs-3204825f56040df0a783de4fc99052eabb62b84b.zip | |
Fix mangled Subject header field when forwarding (Bug#67360)
* lisp/mh-e/mh-comp.el (mh-forward): Overwrite subject when
forwarding.
| -rw-r--r-- | lisp/mh-e/mh-comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index 92d31bf1826..0d1dcdf626a 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el | |||
| @@ -574,7 +574,7 @@ See also `mh-compose-forward-as-mime-flag', | |||
| 574 | (setq orig-subject (mh-get-header-field "Subject:"))) | 574 | (setq orig-subject (mh-get-header-field "Subject:"))) |
| 575 | (let ((forw-subject | 575 | (let ((forw-subject |
| 576 | (mh-forwarded-letter-subject orig-from orig-subject))) | 576 | (mh-forwarded-letter-subject orig-from orig-subject))) |
| 577 | (mh-insert-fields "Subject:" forw-subject) | 577 | (mh-modify-header-field "Subject" forw-subject t) |
| 578 | (goto-char (point-min)) | 578 | (goto-char (point-min)) |
| 579 | ;; Set the local value of mh-mail-header-separator according to what is | 579 | ;; Set the local value of mh-mail-header-separator according to what is |
| 580 | ;; present in the buffer... | 580 | ;; present in the buffer... |