diff options
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 3f8e172c1a8..22d48c3eff0 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -4354,7 +4354,16 @@ are decompressed." (setq charset (or (cdr (assq arg gnus-summary-show-article-charset-alist)) - (mm-read-coding-system "Charset: "))))) + (mm-read-coding-system "Charset: ")))) + (t + (if (mm-handle-undisplayer handle) + (mm-remove-part handle)) + (setq contents + (if (fboundp 'string-to-multibyte) + (string-to-multibyte contents) + (mapconcat + (lambda (ch) (mm-string-as-multibyte (char-to-string ch))) + contents ""))))) (forward-line 2) (mm-insert-inline handle (if (and charset |