Mercurial > emacs
comparison lisp/gnus/message.el @ 90237:aa89c814f853
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-88
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 569-579)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 129-132)
- Update from CVS
- Merge from emacs--cvs-trunk--0
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 07 Oct 2005 07:15:40 +0000 |
parents | b1c1fc853d2f a4e8d78ae3fb |
children | 0ca0d9181b5e |
comparison
equal
deleted
inserted
replaced
90236:7871ecd1281b | 90237:aa89c814f853 |
---|---|
2024 (message-remove-header (if bcc | 2024 (message-remove-header (if bcc |
2025 "bcc" | 2025 "bcc" |
2026 "cc")))))))) | 2026 "cc")))))))) |
2027 | 2027 |
2028 ;;; End of functions adopted from `message-utils.el'. | 2028 ;;; End of functions adopted from `message-utils.el'. |
2029 | |
2030 (defun message-remove-duplicates (list) | |
2031 (let (new) | |
2032 (while list | |
2033 (or (member (car list) new) | |
2034 (setq new (cons (car list) new))) | |
2035 (setq list (cdr list))) | |
2036 (nreverse new))) | |
2037 | 2029 |
2038 (defun message-remove-header (header &optional is-regexp first reverse) | 2030 (defun message-remove-header (header &optional is-regexp first reverse) |
2039 "Remove HEADER in the narrowed buffer. | 2031 "Remove HEADER in the narrowed buffer. |
2040 If IS-REGEXP, HEADER is a regular expression. | 2032 If IS-REGEXP, HEADER is a regular expression. |
2041 If FIRST, only remove the first instance of the header. | 2033 If FIRST, only remove the first instance of the header. |
4961 "Interactively potentially IDNA encode domain names in HEADER." | 4953 "Interactively potentially IDNA encode domain names in HEADER." |
4962 (let ((field (message-fetch-field header)) | 4954 (let ((field (message-fetch-field header)) |
4963 rhs ace address) | 4955 rhs ace address) |
4964 (when field | 4956 (when field |
4965 (dolist (rhs | 4957 (dolist (rhs |
4966 (message-remove-duplicates | 4958 (mm-delete-duplicates |
4967 (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) "")) | 4959 (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) "")) |
4968 (mapcar 'downcase | 4960 (mapcar 'downcase |
4969 (mapcar | 4961 (mapcar |
4970 'car (mail-header-parse-addresses field)))))) | 4962 'car (mail-header-parse-addresses field)))))) |
4971 (setq ace (downcase (idna-to-ascii rhs))) | 4963 (setq ace (downcase (idna-to-ascii rhs))) |