[Emacs-diffs] Changes to emacs/lisp/gnus/message.el

[Miles Bader]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.90 emacs/lisp/gnus/message.el:1.91
*** emacs/lisp/gnus/message.el:1.90     Fri Sep 30 03:03:51 2005
--- emacs/lisp/gnus/message.el  Tue Oct  4 22:51:05 2005
***************
*** 2027,2040 ****
  
  ;;; 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.
--- 2027,2032 ----
***************
*** 4963,4969 ****
        rhs ace  address)
      (when field
        (dolist (rhs
!              (message-remove-duplicates
                (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))
                        (mapcar 'downcase
                                (mapcar
--- 4955,4961 ----
        rhs ace  address)
      (when field
        (dolist (rhs
!              (mm-delete-duplicates
                (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))
                        (mapcar 'downcase
                                (mapcar