changeset 110813:794e89c10dc1

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.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 08 Oct 2010 02:12:56 +0000
parents 3d3d15223058
children 6d7d60c4257a
files lisp/gnus/ChangeLog lisp/gnus/gnus-art.el
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Fri Oct 08 01:51:08 2010 +0000
+++ b/lisp/gnus/ChangeLog	Fri Oct 08 02:12:56 2010 +0000
@@ -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>
--- a/lisp/gnus/gnus-art.el	Fri Oct 08 01:51:08 2010 +0000
+++ b/lisp/gnus/gnus-art.el	Fri Oct 08 02:12:56 2010 +0000
@@ -5381,7 +5381,7 @@
          (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 @@
 	 (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)