diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-08 02:12:56 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-08 02:12:56 +0000 |
| commit | f7aa0b8f65e8481309f43a9f71a273c05596956e (patch) | |
| tree | 29084519be15bb144978ee4be29e5fb9b26906c7 /lisp | |
| parent | 863b61d662deede3e01d1b0cba8c110064a7407b (diff) | |
| download | emacs-f7aa0b8f65e8481309f43a9f71a273c05596956e.tar.gz emacs-f7aa0b8f65e8481309f43a9f71a273c05596956e.tar.bz2 emacs-f7aa0b8f65e8481309f43a9f71a273c05596956e.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/gnus-art.el | 4 |
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) |