Mercurial > emacs

changeset 31868:a388bd44da52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-dont-reply-to): Avoid infinite loop if rmail-dont-reply-to-names matches the empty string.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 25 Sep 2000 10:35:23 +0000
parents 874cd45d36c9
children 5dd0f3ffac6f
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	Mon Sep 25 09:25:29 2000 +0000
+++ b/lisp/mail/mail-utils.el	Mon Sep 25 10:35:23 2000 +0000
@@ -223,7 +223,8 @@
 		       "\\)[^,]*"))
 	(case-fold-search t)
 	pos epos)
-    (while (setq pos (string-match match userids pos))
+    (while (and (setq pos (string-match match userids pos))
+		(> (length userids 0)))
       ;; If there's a match, it starts at the beginning of the string,
       ;; or with `,'.  We must delete from that position to the
       ;; end of the user-id which starts at match-beginning 2.