diff options
| author | Mike Kupfer <kupfer@rawbw.com> | 2023-12-31 09:11:23 -0800 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2024-01-01 10:32:48 -0800 |
| commit | 3204825f56040df0a783de4fc99052eabb62b84b (patch) | |
| tree | d92d0555fb747dad25eafad35a575e29034eb6bb /lisp/mh-e | |
| parent | 7591acfe38e3f5f3fb9b89e2b1ed08723b0298e6 (diff) | |
| download | emacs-3204825f56040df0a783de4fc99052eabb62b84b.tar.gz emacs-3204825f56040df0a783de4fc99052eabb62b84b.tar.bz2 emacs-3204825f56040df0a783de4fc99052eabb62b84b.zip | |
Fix mangled Subject header field when forwarding (Bug#67360)
* lisp/mh-e/mh-comp.el (mh-forward): Overwrite subject when
forwarding.
Diffstat (limited to 'lisp/mh-e')
| -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', (setq orig-subject (mh-get-header-field "Subject:"))) (let ((forw-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)) ;; Set the local value of mh-mail-header-separator according to what is ;; present in the buffer... |