(rmail-dont-reply-to): Fix last change.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 67e658600d830836a51d0875d2df84b188b9fd6e..5526dc10404900367eba301fbb434a4a8e45ea38 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -224,7 +224,7 @@ Usenet paths ending in an element that matches are removed also."
        (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.