mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(mail-parse-comma-list):

Browse Source 
Treat newlines and tabs as whitespace.
This commit is contained in:
Karl Heuer 1997-12-04 05:26:28 +00:00
parent cd47bdccbe
commit 869fc1d970
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/mail-utils.el
View File

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