diff options
Diffstat (limited to 'lisp/gnus/message.el')
-rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index ef6455ac5c9..ef9f8429d40 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -8061,7 +8061,10 @@ regexp VARSTR." (message-goto-body) (save-restriction (narrow-to-region (point) (point-max)) - (let ((new (mml-generate-mime))) + (let ((new (mml-generate-mime nil + (save-restriction + (message-narrow-to-headers) + (mail-fetch-field "content-type"))))) (when new (delete-region (point-min) (point-max)) (insert new) |