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 cb9924415b90bb5d4aceef91d412828f7fb353d6..b6c47cf342031c3e92fcc755b188a66d276a2bc9 100644 (file)
--- 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 40f80f14bb1eb05f716c025c66f3c794bde151e0..426a248bc639e27bc5eafdf9db3d4a991f0b4a6f 100644 (file)
--- 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)