Mercurial > emacs
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)