From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 31 May 1997 21:14:57 +0000 (+0000)
Subject: (mail-strip-quoted-names): Don't delete angle brackets
X-Git-Tag: emacs-20.1~1864
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab6f89780a01ad996693c42c2cf9ad3d5c3665e9;p=emacs.git

(mail-strip-quoted-names): Don't delete angle brackets
when there's a colon inside them.
---

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