From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 11 Oct 1995 21:05:53 +0000 (+0000)
Subject: (mail-strip-quoted-names): Preserve white space
X-Git-Tag: emacs-19.34~2668
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3109b27e8091b182b3a524ecfa9e9cec7bcda6b7;p=emacs.git

(mail-strip-quoted-names): Preserve white space
after comma when stripping text outside of <> delims.
---

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 26ad072293e..80a1fbbc9ce 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -116,7 +116,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 "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)"
+       (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,]*>\\)"
 				      address))
 	 (let ((junk-beg (match-end 1))
 	       (junk-end (match-beginning 2))