From: keiichi <keiichi>
Date: Fri, 24 Dec 1999 07:30:03 +0000 (+0000)
Subject: (gnus-mime-view-all-parts): Correspondence with FLIM.
X-Git-Tag: nana-gnus-7_1_0_16~69
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=30ac9cb6c6f83e08b96535bf83ae338dc8d902e9;p=elisp%2Fgnus.git-

(gnus-mime-view-all-parts): Correspondence with FLIM.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7bd78d5..935d3e3 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2805,9 +2805,9 @@ 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 (stringp (car handles))
-	  (gnus-mime-view-all-parts (cdr handles))
-	(mapcar 'mm-display-part handles)))))
+      (if (listp handles)
+	  (mapcar 'mm-display-part handles)
+	(gnus-mime-view-all-parts (mm-handle-child handles))))))
 
 (defun gnus-mime-save-part ()
   "Save the MIME part under point."