procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called interactively.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-10-06 02:41:59 +00:00
parent 4583e7960f
commit 568f71a811
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View file

@ -1,5 +1,8 @@
2010-10-06 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-mime-view-part-as-type): Make it work when being
called interactively.
* gnus-util.el (gnus-remove-if): Allow hash table.
(gnus-remove-if-not): New function.

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

@ -5139,7 +5139,9 @@ available media-types."
(let ((default (gnus-mime-view-part-as-type-internal)))
(gnus-completing-read
"View as MIME type"
(gnus-remove-if-not pred (mailcap-mime-types))
(if pred
(gnus-remove-if-not pred (mailcap-mime-types))
(mailcap-mime-types))
nil nil nil
(car default)))))
(gnus-article-check-buffer)