From 568f71a811098a9daf27bb440de0c470223ca054 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 6 Oct 2010 02:41:59 +0000 Subject: [PATCH] gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called interactively. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-art.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.5