(mail-parse-comma-list):

Treat newlines and tabs as whitespace.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index a970f866dc9ec66934a9fcbdf19b879e2284bd13..002c37d8125a2a9f9b10d626250c7ede3b83eb92 100644 (file)
--- 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)