diff options
| author | Miles Bader <miles@gnu.org> | 2009-03-03 02:32:23 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2009-03-03 02:32:23 +0000 |
| commit | 9cdff61311b9407d724c5923c1e2d15ac2c781fc (patch) | |
| tree | 836ea5fc455660267530b59fd3d038e9e5271660 /lisp/gnus/mml.el | |
| parent | 86c507f71d7bf49796f8b83715d1a0a854c91038 (diff) | |
| download | emacs-9cdff61311b9407d724c5923c1e2d15ac2c781fc.tar.gz | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1561
Diffstat (limited to 'lisp/gnus/mml.el')
| -rw-r--r-- | lisp/gnus/mml.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index e682b1b069b..6028ce8b205 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -898,10 +898,17 @@ If HANDLES is non-nil, use it instead reparsing the buffer." (unless (setq textp (equal (mm-handle-media-supertype handle) "text")) (save-excursion (set-buffer (setq buffer (mml-generate-new-buffer " *mml*"))) - (mm-insert-part handle 'no-cache) - (if (setq mmlp (equal (mm-handle-media-type handle) - "message/rfc822")) - (mime-to-mml))))) + (if (eq (mail-content-type-get (mm-handle-type handle) 'charset) + 'gnus-decoded) + ;; A part that mm-uu dissected from a non-MIME message + ;; because of `gnus-article-emulate-mime'. + (progn + (mm-enable-multibyte) + (insert-buffer-substring (mm-handle-buffer handle))) + (mm-insert-part handle 'no-cache) + (if (setq mmlp (equal (mm-handle-media-type handle) + "message/rfc822")) + (mime-to-mml)))))) (if mmlp (mml-insert-mml-markup handle nil t t) (unless (and no-markup |