Mercurial > emacs

diff lisp/gnus/gnus-art.el @ 110779:9d935b7bf464

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminate `remove-if-not' that is a cl function. gnus-util.el (gnus-remove-if): Allow hash table. gnus-util.el (gnus-remove-if-not): New function. gnus-art.el (gnus-mime-view-part-as-type): Replace remove-if-not with gnus-remove-if-not. gnus-score.el (gnus-summary-score-effect): Replace remove-if-not with gnus-remove-if-not. gnus-sum.el (gnus-read-move-group-name): Replace remove-if-not with gnus-remove-if-not. gnus-group.el (gnus-group-completing-read): Regard collection as a hash table if it is not a list.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 06 Oct 2010 01:09:32 +0000
parents 895607aec71e
children 74a0e8ad7447
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Tue Oct 05 23:42:01 2010 +0000
+++ b/lisp/gnus/gnus-art.el	Wed Oct 06 01:09:32 2010 +0000
@@ -5139,7 +5139,7 @@
 	  (let ((default (gnus-mime-view-part-as-type-internal)))
 	    (gnus-completing-read
 	     "View as MIME type"
-	     (remove-if-not pred (mailcap-mime-types))
+	     (gnus-remove-if-not pred (mailcap-mime-types))
 	     nil nil nil
 	     (car default)))))
   (gnus-article-check-buffer)