diff options
| author | Lars Ingebrigtsen | 2016-02-12 16:35:23 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-12 16:35:23 +1100 |
| commit | 6da254012c2563e83d7f43ab1e33193bc2e4626f (patch) | |
| tree | 68fffc3d9d7f60108d10bb9a1b06c8cf8f374212 | |
| parent | 7c162e73d471242c5cb649db3e50d1a5787127ab (diff) | |
| download | emacs-6da254012c2563e83d7f43ab1e33193bc2e4626f.tar.gz emacs-6da254012c2563e83d7f43ab1e33193bc2e4626f.zip | |
* lisp/gnus/mailcap.el: Remove usage of mailcap-delete-duplicates.
| -rw-r--r-- | lisp/gnus/mailcap.el | 6 |
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)))) |