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

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.

110778:5a595f515d1c

  (unless mime-type
    (setq mime-type
	  (let ((default (gnus-mime-view-part-as-type-internal)))
	    (gnus-completing-read
	     "View as MIME type"
	     (remove-if-not pred (mailcap-mime-types))
	     nil nil nil
	     (car default)))))
  (gnus-article-check-buffer)
  (let ((handle (get-text-property (point) 'gnus-data)))
    (when handle

110779:9d935b7bf464

  (unless mime-type
    (setq mime-type
	  (let ((default (gnus-mime-view-part-as-type-internal)))
	    (gnus-completing-read
	     "View as MIME type"
	     (gnus-remove-if-not pred (mailcap-mime-types))
	     nil nil nil
	     (car default)))))
  (gnus-article-check-buffer)
  (let ((handle (get-text-property (point) 'gnus-data)))
    (when handle