diff options
| author | Miles Bader <miles@gnu.org> | 2005-10-04 22:51:06 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-10-04 22:51:06 +0000 |
| commit | 8753ddeed0c759c971e74b586cedd0b6ed6d738c (patch) | |
| tree | 82ea61612a85050a6ceda6cabbbcfba5d5a18415 /lisp/gnus/message.el | |
| parent | f88febbb69a15284d79ba460050aa10310676a74 (diff) | |
| download | emacs-8753ddeed0c759c971e74b586cedd0b6ed6d738c.tar.gz emacs-8753ddeed0c759c971e74b586cedd0b6ed6d738c.tar.bz2 emacs-8753ddeed0c759c971e74b586cedd0b6ed6d738c.zip | |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-574
Merge from gnus--rel--5.10
2005-10-04 Reiner Steib <Reiner.Steib@gmx.de>
* lisp/gnus/mm-url.el (mm-url-predefined-programs): Add switches for curl.
* lisp/gnus/gnus-util.el (gnus-remove-duplicates): Remove.
* lisp/gnus/nnmail.el (nnmail-article-group): Use mm-delete-duplicates
instead of gnus-remove-duplicates.
* lisp/gnus/message.el (message-remove-duplicates): Remove.
(message-idna-to-ascii-rhs-1): Use mm-delete-duplicates instead of
message-remove-duplicates.
* lisp/gnus/mm-util.el (mm-delete-duplicates): Use `delete-dups' if
available, else use implementation from `delete-dups'.
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 95a6dbc3b6d..d64d8dbd2bf 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -2027,14 +2027,6 @@ With prefix-argument just set Follow-Up, don't cross-post." ;;; End of functions adopted from `message-utils.el'. -(defun message-remove-duplicates (list) - (let (new) - (while list - (or (member (car list) new) - (setq new (cons (car list) new))) - (setq list (cdr list))) - (nreverse new))) - (defun message-remove-header (header &optional is-regexp first reverse) "Remove HEADER in the narrowed buffer. If IS-REGEXP, HEADER is a regular expression. @@ -4963,7 +4955,7 @@ subscribed address (and not the additional To and Cc header contents)." rhs ace address) (when field (dolist (rhs - (message-remove-duplicates + (mm-delete-duplicates (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) "")) (mapcar 'downcase (mapcar |