From 3109b27e8091b182b3a524ecfa9e9cec7bcda6b7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 11 Oct 1995 21:05:53 +0000 Subject: [PATCH] (mail-strip-quoted-names): Preserve white space after comma when stripping text outside of <> delims. --- lisp/mail/mail-utils.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.2