diff options
| -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) |