mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(mail-strip-quoted-names):

Browse Source 
Delete comments, then delete leading/trailing whitespace.
This commit is contained in:
Richard M. Stallman 1998-05-09 06:40:53 +00:00
parent fd88fe732d
commit ee019c842f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/mail/mail-utils.el
View File

@ -112,12 +112,6 @@ Return a modified address list."
(progn (require 'rfc822)
(mapconcat 'identity (rfc822-addresses address) ", "))
(let (pos)
(string-match "\\`[ \t\n]*" address)
;; strip surrounding whitespace
(setq address (substring address
(match-end 0)
(string-match "[ \t\n]*\\'" address
(match-end 0))))
;; Detect nested comments.
(if (string-match "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*(" address)
@ -149,6 +143,13 @@ Return a modified address list."
(mail-string-delete address
pos (match-end 0)))))
;; strip surrounding whitespace
(string-match "\\`[ \t\n]*" address)
(setq address (substring address
(match-end 0)
(string-match "[ \t\n]*\\'" address
(match-end 0))))
;; strip `quoted' names (This is supposed to hack `"Foo Bar" <bar@host>')
(setq pos 0)
(while (setq pos (string-match