From 81c5edd7e6b2ddcfe8032436f61f77093d0e392e Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 25 Sep 2000 15:04:30 +0000 Subject: [PATCH] (rmail-dont-reply-to): Fix last change. --- lisp/mail/mail-utils.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 67e658600d8..5526dc10404 100644 --- 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. -- 2.39.2