# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969894270 0
# Node ID 36481aee6585459828e0b347b974e38e3e0a820e
# Parent  9ef5b0909865c8bc9416242a1538e7f2941a3cf1
(rmail-dont-reply-to): Fix last change.

diff -r 9ef5b0909865 -r 36481aee6585 lisp/mail/mail-utils.el
--- a/lisp/mail/mail-utils.el	Mon Sep 25 14:43:35 2000 +0000
+++ b/lisp/mail/mail-utils.el	Mon Sep 25 15:04:30 2000 +0000
@@ -224,7 +224,7 @@
 	(case-fold-search t)
 	pos epos)
     (while (and (setq pos (string-match match userids pos))
-		(> (length userids 0)))
+		(> (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.