diff options
| author | Richard M. Stallman | 1995-10-11 21:05:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-10-11 21:05:53 +0000 |
| commit | 3109b27e8091b182b3a524ecfa9e9cec7bcda6b7 (patch) | |
| tree | 2f41018c9897eeeaf0675ed955cd5027707f634e /lisp | |
| parent | 2ee250ec15c0be2830942923c5c97a5d9264b4e7 (diff) | |
| download | emacs-3109b27e8091b182b3a524ecfa9e9cec7bcda6b7.tar.gz emacs-3109b27e8091b182b3a524ecfa9e9cec7bcda6b7.zip | |
(mail-strip-quoted-names): Preserve white space
after comma when stripping text outside of <> delims.
Diffstat (limited to 'lisp')
| -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." | |||
| 116 | (mail-string-delete address | 116 | (mail-string-delete address |
| 117 | pos (match-end 0))))) | 117 | pos (match-end 0))))) |
| 118 | ;; Retain only part of address in <> delims, if there is such a thing. | 118 | ;; Retain only part of address in <> delims, if there is such a thing. |
| 119 | (while (setq pos (string-match "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)" | 119 | (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,]*>\\)" |
| 120 | address)) | 120 | address)) |
| 121 | (let ((junk-beg (match-end 1)) | 121 | (let ((junk-beg (match-end 1)) |
| 122 | (junk-end (match-beginning 2)) | 122 | (junk-end (match-beginning 2)) |