diff options
Diffstat (limited to 'lisp/gnus/mml.el')
| -rw-r--r-- | lisp/gnus/mml.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index bac8a5aaaf0..f397ef2b479 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -585,7 +585,9 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." (unless raw (setq charset (mm-encode-body charset)))) (insert contents))))) - (setq encoding (mm-encode-buffer type) + (if (setq encoding (cdr (assq 'encoding cont))) + (setq encoding (intern (downcase encoding)))) + (setq encoding (mm-encode-buffer type encoding) coded (mm-string-as-multibyte (buffer-string)))) (mml-insert-mime-headers cont type charset encoding nil) (insert "\n" coded)))) |