# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 813445553 0
# Node ID c7174381d5d98bcb9d27b8e810368758805cd61f
# Parent  cb145d50f910758e05889ea77beac08d12cf562f
(mail-strip-quoted-names): Preserve white space
after comma when stripping text outside of <> delims.

diff -r cb145d50f910 -r c7174381d5d9 lisp/mail/mail-utils.el
--- a/lisp/mail/mail-utils.el	Wed Oct 11 17:24:37 1995 +0000
+++ b/lisp/mail/mail-utils.el	Wed Oct 11 21:05:53 1995 +0000
@@ -116,7 +116,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 "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)"
+       (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,]*>\\)"
 				      address))
 	 (let ((junk-beg (match-end 1))
 	       (junk-end (match-beginning 2))