From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 4 Dec 1997 05:26:28 +0000 (+0000)
Subject: (mail-parse-comma-list):
X-Git-Tag: emacs-20.3~2664
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=869fc1d970eb624fb6967a2b67cd2a044c03d96a;p=emacs.git

(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 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)