diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-31 21:14:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-31 21:14:57 +0000 |
| commit | ab6f89780a01ad996693c42c2cf9ad3d5c3665e9 (patch) | |
| tree | f66e207b7e6ae92372b3533c50930a917996283a /lisp/mail | |
| parent | 3e18eecf3548e5f2c0e6a011027e9f815e79f600 (diff) | |
| download | emacs-ab6f89780a01ad996693c42c2cf9ad3d5c3665e9.tar.gz | |
(mail-strip-quoted-names): Don't delete angle brackets
when there's a colon inside them.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mail-utils.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 286c86ea4dd..c234411ac87 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -160,7 +160,7 @@ Return a modified address list." (mail-string-delete address pos (match-end 0))))) ;; Retain only part of address in <> delims, if there is such a thing. - (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,]*>\\)" + (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,:]*>\\)" address)) (let ((junk-beg (match-end 1)) (junk-end (match-beginning 2)) |