/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.90 by miles, Fri Sep 30 03:03:51 2005 UTC revision 1.91 by miles, Tue Oct 4 22:51:05 2005 UTC
# Line 2027  With prefix-argument just set Follow-Up, Line 2027  With prefix-argument just set Follow-Up,
2027    
2028  ;;; End of functions adopted from `message-utils.el'.  ;;; End of functions adopted from `message-utils.el'.
2029    
 (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)))  
   
2030  (defun message-remove-header (header &optional is-regexp first reverse)  (defun message-remove-header (header &optional is-regexp first reverse)
2031    "Remove HEADER in the narrowed buffer.    "Remove HEADER in the narrowed buffer.
2032  If IS-REGEXP, HEADER is a regular expression.  If IS-REGEXP, HEADER is a regular expression.
# Line 4963  subscribed address (and not the addition Line 4955  subscribed address (and not the addition
4955          rhs ace  address)          rhs ace  address)
4956      (when field      (when field
4957        (dolist (rhs        (dolist (rhs
4958                 (message-remove-duplicates                 (mm-delete-duplicates
4959                  (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))                  (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))
4960                          (mapcar 'downcase                          (mapcar 'downcase
4961                                  (mapcar                                  (mapcar

Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26