Mercurial > emacs
changeset 18082:4a796f28f98e
(mail-strip-quoted-names): Don't delete angle brackets
when there's a colon inside them.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 31 May 1997 21:14:57 +0000 |
| parents | 300068b4fcef |
| children | c361afa561c5 |
| files | lisp/mail/mail-utils.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-utils.el Sat May 31 19:20:26 1997 +0000 +++ b/lisp/mail/mail-utils.el Sat May 31 21:14:57 1997 +0000 @@ -160,7 +160,7 @@ (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))