aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2016-02-12 16:35:23 +1100
committerLars Ingebrigtsen2016-02-12 16:35:23 +1100
commit6da254012c2563e83d7f43ab1e33193bc2e4626f (patch)
tree68fffc3d9d7f60108d10bb9a1b06c8cf8f374212
parent7c162e73d471242c5cb649db3e50d1a5787127ab (diff)
downloademacs-6da254012c2563e83d7f43ab1e33193bc2e4626f.tar.gz
emacs-6da254012c2563e83d7f43ab1e33193bc2e4626f.zip
* lisp/gnus/mailcap.el: Remove usage of mailcap-delete-duplicates.
-rw-r--r--lisp/gnus/mailcap.el6
1 files changed, 3 insertions, 3 deletions
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."
995 (mailcap-parse-mimetypes) 995 (mailcap-parse-mimetypes)
996 (let* ((all-mime-type 996 (let* ((all-mime-type
997 ;; All unique MIME types from file extensions 997 ;; All unique MIME types from file extensions
998 (mailcap-delete-duplicates 998 (delete-dups
999 (mapcar (lambda (file) 999 (mapcar (lambda (file)
1000 (mailcap-extension-to-mime 1000 (mailcap-extension-to-mime
1001 (file-name-extension file t))) 1001 (file-name-extension file t)))
1002 files))) 1002 files)))
1003 (all-mime-info 1003 (all-mime-info
1004 ;; All MIME info lists 1004 ;; All MIME info lists
1005 (mailcap-delete-duplicates 1005 (delete-dups
1006 (mapcar (lambda (mime-type) 1006 (mapcar (lambda (mime-type)
1007 (mailcap-mime-info mime-type 'all)) 1007 (mailcap-mime-info mime-type 'all))
1008 all-mime-type))) 1008 all-mime-type)))
@@ -1020,7 +1020,7 @@ If FORCE, re-parse even if already parsed."
1020 (car all-mime-info))) 1020 (car all-mime-info)))
1021 (commands 1021 (commands
1022 ;; Command strings from `viewer' field of the MIME info 1022 ;; Command strings from `viewer' field of the MIME info
1023 (mailcap-delete-duplicates 1023 (delete-dups
1024 (delq nil (mapcar 1024 (delq nil (mapcar
1025 (lambda (mime-info) 1025 (lambda (mime-info)
1026 (let ((command (cdr (assoc 'viewer mime-info)))) 1026 (let ((command (cdr (assoc 'viewer mime-info))))