changeset 31880:36481aee6585

(rmail-dont-reply-to): Fix last change.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 25 Sep 2000 15:04:30 +0000
parents 9ef5b0909865
children c9d93e8e8cbd
files lisp/mail/mail-utils.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.