diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-06 02:41:59 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-06 02:41:59 +0000 |
| commit | 568f71a811098a9daf27bb440de0c470223ca054 (patch) | |
| tree | 5edbd78f4e4d51b900c40a5b9d27b51fb0da5474 | |
| parent | 4583e7960f033172a4b1ca7360bdf26045c83615 (diff) | |
| download | emacs-568f71a811098a9daf27bb440de0c470223ca054.tar.gz emacs-568f71a811098a9daf27bb440de0c470223ca054.tar.bz2 emacs-568f71a811098a9daf27bb440de0c470223ca054.zip | |
gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called interactively.
| -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) |