diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-27 02:33:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-27 02:33:40 +0000 |
| commit | 3a295f7b0d200b6d9c54684d031a63532fc05451 (patch) | |
| tree | 2867db04a4e3279258ab97c1d4bd1f6048952a69 /lisp/mail/mail-utils.el | |
| parent | d30e754bc5eac07e2c74412a4f0e373c7af3e44b (diff) | |
| download | emacs-3a295f7b0d200b6d9c54684d031a63532fc05451.tar.gz | |
(mail-strip-quoted-names): Retain one whitespace
character between addresses.
Diffstat (limited to 'lisp/mail/mail-utils.el')
| -rw-r--r-- | lisp/mail/mail-utils.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 69701cc196f..a970f866dc9 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -150,7 +150,7 @@ Return a modified address list." ;; strip `quoted' names (This is supposed to hack `"Foo Bar" <bar@host>') (setq pos 0) (while (setq pos (string-match - "[ \t]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ \t\n]*" + "\\([ \t]?\\)[ \t]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ \t\n]*" address pos)) ;; If the next thing is "@", we have "foo bar"@host. Leave it. (if (and (> (length address) (match-end 0)) @@ -158,7 +158,7 @@ Return a modified address list." (setq pos (match-end 0)) (setq address (mail-string-delete address - pos (match-end 0))))) + (match-end 1) (match-end 0))))) ;; Retain only part of address in <> delims, if there is such a thing. (while (setq pos (string-match "\\(,\\s-*\\|\\`\\)[^,]*<\\([^>,:]*>\\)" address)) |