diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/gnus-art.el | 4 |
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) |