From: Katsumi Yamaoka Date: Wed, 6 Oct 2010 02:41:59 +0000 (+0000) Subject: gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called interactively. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~46^2~163 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=568f71a811098a9daf27bb440de0c470223ca054;p=emacs.git gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called interactively. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index cb9924415b9..b6c47cf3420 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-10-06 Katsumi Yamaoka + * 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. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 40f80f14bb1..426a248bc63 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -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)