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

2 files changed, 6 insertions, 1 deletions

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