diff options
Diffstat (limited to 'lisp/mail/mail-utils.el')
| -rw-r--r-- | lisp/mail/mail-utils.el | 2 |
1 files changed, 1 insertions, 1 deletions
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. |