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. |
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 |