gnus-art.el (gnus-mime-view-part-externally, gnus-mime-view-part-internally): Make predicate function passed to gnus-mime-view-part-as-type assume argument is a mime type, not a list of a mime type.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 3a3c72572ac..9556827554b 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,10 @@
 2010-10-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+        * gnus-art.el (gnus-mime-view-part-externally)
+        (gnus-mime-view-part-internally): Make predicate function passed to
+        gnus-mime-view-part-as-type assume argument is a mime type, not a list
+        of a mime type.
+
         * shr.el (shr-table-widths): Don't use cl function `reduce'.
 
 2010-10-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 426a248bc63..01cbda85fd3 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -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)