X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=f84b134163c1c1a36a7d00ff943f0afbd1040e00;hb=ff79efac756f360c9a48b292b4619699fe19d057;hp=426a248bc639e27bc5eafdf9db3d4a991f0b4a6f;hpb=ec5f4e48dc25db3bbe015cbced65a67ccd4ad5ff;p=gnus

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 426a248bc..f84b13416 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -25,7 +25,7 @@
 
 ;;; Code:
 
-;; For Emacs < 22.2.
+;; For Emacs <22.2 and XEmacs.
 (eval-and-compile
   (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
 (eval-when-compile
@@ -5381,7 +5381,7 @@ specified charset."
          (mm-enable-external t))
     (if (not (stringp method))
 	(gnus-mime-view-part-as-type
-	 nil (lambda (types) (stringp (mailcap-mime-info (car types)))))
+	 nil (lambda (type) (stringp (mailcap-mime-info type))))
       (when handle
 	(if (mm-handle-undisplayer handle)
 	    (mm-remove-part handle)
@@ -5402,7 +5402,7 @@ If no internal viewer is available, use an external viewer."
 	 (inhibit-read-only t))
     (if (not (mm-inlinable-p handle))
         (gnus-mime-view-part-as-type
-         nil (lambda (types) (mm-inlinable-p handle (car types))))
+         nil (lambda (type) (mm-inlinable-p handle type)))
       (when handle
 	(if (mm-handle-undisplayer handle)
 	    (mm-remove-part handle)