Function: mail-comma-list-regexp

mail-comma-list-regexp is a byte-compiled function defined in mail-utils.el.gz.

Signature

(mail-comma-list-regexp LABELS)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/mail-utils.el.gz
(defun mail-comma-list-regexp (labels)
  (let (pos)
    (setq pos (or (string-match "[^ \t]" labels) 0))
    ;; Remove leading and trailing whitespace.
    (setq labels (substring labels pos (string-match "[ \t]*$" labels pos)))
    ;; Change each comma to \|, and flush surrounding whitespace.
    (while (setq pos (string-match "[ \t]*,[ \t]*" labels))
      (setq labels
	    (concat (substring labels 0 pos)
		    "\\|"
		    (substring labels (match-end 0))))))
  labels)