diff options
| author | Karl Heuer | 1997-12-04 05:26:28 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-12-04 05:26:28 +0000 |
| commit | 869fc1d970eb624fb6967a2b67cd2a044c03d96a (patch) | |
| tree | c3182c4938a7e21ca9e339400c0f42d0898d4b31 | |
| parent | cd47bdccbe5c5240aedf691c6763a5eee3804db7 (diff) | |
| download | emacs-869fc1d970eb624fb6967a2b67cd2a044c03d96a.tar.gz emacs-869fc1d970eb624fb6967a2b67cd2a044c03d96a.zip | |
(mail-parse-comma-list):
Treat newlines and tabs as whitespace.
| -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." | |||
| 258 | (defun mail-parse-comma-list () | 258 | (defun mail-parse-comma-list () |
| 259 | (let (accumulated | 259 | (let (accumulated |
| 260 | beg) | 260 | beg) |
| 261 | (skip-chars-forward " ") | 261 | (skip-chars-forward " \t\n") |
| 262 | (while (not (eobp)) | 262 | (while (not (eobp)) |
| 263 | (setq beg (point)) | 263 | (setq beg (point)) |
| 264 | (skip-chars-forward "^,") | 264 | (skip-chars-forward "^,") |
| 265 | (skip-chars-backward " ") | 265 | (skip-chars-backward " \t\n") |
| 266 | (setq accumulated | 266 | (setq accumulated |
| 267 | (cons (buffer-substring-no-properties beg (point)) | 267 | (cons (buffer-substring-no-properties beg (point)) |
| 268 | accumulated)) | 268 | accumulated)) |
| 269 | (skip-chars-forward "^,") | 269 | (skip-chars-forward "^,") |
| 270 | (skip-chars-forward ", ")) | 270 | (skip-chars-forward ", \t\n")) |
| 271 | accumulated)) | 271 | accumulated)) |
| 272 | 272 | ||
| 273 | (defun mail-comma-list-regexp (labels) | 273 | (defun mail-comma-list-regexp (labels) |