From: Lars Ingebrigtsen Date: Fri, 12 Feb 2016 05:35:23 +0000 (+1100) Subject: * lisp/gnus/mailcap.el: Remove usage of mailcap-delete-duplicates. X-Git-Tag: emacs-26.0.90~2617 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6da254012c2563e83d7f43ab1e33193bc2e4626f;p=emacs.git * lisp/gnus/mailcap.el: Remove usage of mailcap-delete-duplicates. --- diff --git a/lisp/gnus/mailcap.el b/lisp/gnus/mailcap.el index de8e83800f9..a82768fed04 100644 --- a/lisp/gnus/mailcap.el +++ b/lisp/gnus/mailcap.el @@ -995,14 +995,14 @@ If FORCE, re-parse even if already parsed." (mailcap-parse-mimetypes) (let* ((all-mime-type ;; All unique MIME types from file extensions - (mailcap-delete-duplicates + (delete-dups (mapcar (lambda (file) (mailcap-extension-to-mime (file-name-extension file t))) files))) (all-mime-info ;; All MIME info lists - (mailcap-delete-duplicates + (delete-dups (mapcar (lambda (mime-type) (mailcap-mime-info mime-type 'all)) all-mime-type))) @@ -1020,7 +1020,7 @@ If FORCE, re-parse even if already parsed." (car all-mime-info))) (commands ;; Command strings from `viewer' field of the MIME info - (mailcap-delete-duplicates + (delete-dups (delq nil (mapcar (lambda (mime-info) (let ((command (cdr (assoc 'viewer mime-info))))