[Emacs-diffs] /srv/bzr/emacs/trunk r101811: gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called interactively.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101811
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-10-06 02:41:59 +0000
message:
  gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called 
interactively.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-06 01:09:32 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-06 02:41:59 +0000
@@ -1,5 +1,8 @@
 2010-10-06  Katsumi Yamaoka  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2010-10-06 01:09:32 +0000
+++ b/lisp/gnus/gnus-art.el     2010-10-06 02:41:59 +0000
@@ -5139,7 +5139,9 @@
          (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)