andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-10-08 02:12:56 +00:00
parent 863b61d662
commit f7aa0b8f65
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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>

4
lisp/gnus/gnus-art.el
View file

@ -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)