From a463f5b1e6648fdfcceb2736bc252408e6524e2b Mon Sep 17 00:00:00 2001 From: keiichi Date: Sat, 25 Dec 1999 05:38:31 +0000 Subject: [PATCH] (gnus-article-decode-hook): Do not decode message body. (gnus-mime-view-all-parts): If single part message and only remove part in `mm-display-part', then retry display this part. (gnus-display-mime): Even if single part message, display message body by handle. --- lisp/gnus-art.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 935d3e3..fbdfbef 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -555,8 +555,7 @@ displayed by the first non-nil matching CONTENT face." (item :tag "skip" nil) (face :value default))))) -(defcustom gnus-article-decode-hook - '(article-decode-charset article-decode-encoded-words) +(defcustom gnus-article-decode-hook '(article-decode-encoded-words) "*Hook run to decode charsets in articles." :group 'gnus-article-headers :type 'hook) @@ -2805,9 +2804,15 @@ If ALL-HEADERS is non-nil, no headers are hidden." (mail-parse-ignored-charsets (save-excursion (set-buffer gnus-summary-buffer) gnus-newsgroup-ignored-charsets))) - (if (listp handles) - (mapcar 'mm-display-part handles) - (gnus-mime-view-all-parts (mm-handle-child handles)))))) + (when handles + (if (listp handles) + (mapcar 'mm-display-part handles) + (unless (or (mm-display-part handles) + (mm-handle-child handles)) + (goto-char (point-max)) + (mm-display-part handles)) + (when (mm-handle-child handles) + (gnus-mime-view-all-parts (mm-handle-child handles)))))))) (defun gnus-mime-save-part () "Save the MIME part under point." @@ -3112,8 +3117,7 @@ In no internal viewer is available, use an external viewer." ;; We allow users to glean info from the handles. (when gnus-article-mime-part-function (gnus-mime-part-function handles))) - (if (and handles - (mm-handle-child handles)) + (if handles (progn (when (and (not ihandles) (not gnus-displaying-mime)) -- 1.7.10.4