diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-12-04 05:26:28 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-12-04 05:26:28 +0000 |
| commit | 869fc1d970eb624fb6967a2b67cd2a044c03d96a (patch) | |
| tree | c3182c4938a7e21ca9e339400c0f42d0898d4b31 /lisp/mail/mail-utils.el | |
| parent | cd47bdccbe5c5240aedf691c6763a5eee3804db7 (diff) | |
| download | emacs-869fc1d970eb624fb6967a2b67cd2a044c03d96a.tar.gz | |
(mail-parse-comma-list):
Treat newlines and tabs as whitespace.
Diffstat (limited to 'lisp/mail/mail-utils.el')
| -rw-r--r-- | lisp/mail/mail-utils.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index a970f866dc9..002c37d8125 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -258,16 +258,16 @@ If 4th arg LIST is non-nil, return a list of all such fields." (defun mail-parse-comma-list () (let (accumulated beg) - (skip-chars-forward " ") + (skip-chars-forward " \t\n") (while (not (eobp)) (setq beg (point)) (skip-chars-forward "^,") - (skip-chars-backward " ") + (skip-chars-backward " \t\n") (setq accumulated (cons (buffer-substring-no-properties beg (point)) accumulated)) (skip-chars-forward "^,") - (skip-chars-forward ", ")) + (skip-chars-forward ", \t\n")) accumulated)) (defun mail-comma-list-regexp (labels) |