diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-11 21:05:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-11 21:05:53 +0000 |
| commit | 7c561f0aed25ec08d6602373b676940dce49dd92 (patch) | |
| tree | 91ff05192697cd3207d01fac6950786fbffc1acd | |
| parent | c2b865cc11cab35165e473737f4af2319fe18290 (diff) | |
| download | emacs-7c561f0aed25ec08d6602373b676940dce49dd92.tar.gz | |
(mail-strip-quoted-names): Preserve white space
after comma when stripping text outside of <> delims.
| -rw-r--r-- | lisp/mail/mail-utils.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |