Mercurial > emacs

changeset 14660:071940e2a563

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-dont-reply-to): Allow parsing lists of addresses with comment fields.
author Richard M. Stallman <rms@gnu.org>
date Sat, 24 Feb 1996 10:15:08 +0000
parents 7669c19beda8
children 46ba65e7976c
files lisp/mail/mail-utils.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mail-utils.el	Sat Feb 24 04:43:05 1996 +0000
+++ b/lisp/mail/mail-utils.el	Sat Feb 24 10:15:08 1996 +0000
@@ -150,7 +150,8 @@
     (while (setq pos (string-match match userids))
       (if (> pos 0) (setq pos (match-beginning 2)))
       (setq epos
-	    (if (string-match "[ \t\n,]+" userids (match-end 0))
+	    ;; Delete thru the next comma, plus whitespace after.
+	    (if (string-match ",[ \t\n]+" userids (match-end 0))
 		(match-end 0)
 	      (length userids)))
       (setq userids