mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

(rmail-dont-reply-to): Avoid infinite loop if

Browse Source 
rmail-dont-reply-to-names matches the empty string.
This commit is contained in:
Gerd Moellmann 2000-09-25 10:35:47 +00:00
parent 8ff16b4e3a
commit 5f9f981bc1
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2000-09-25 Markus Rost <rost@math.ohio-state.edu>
* mail/mail-utils.el (rmail-dont-reply-to): Avoid infinite loop if
rmail-dont-reply-to-names matches the empty string.
2000-09-25 Gerd Moellmann <gerd@gnu.org>
* startup.el (command-line-1, fancy-splash-text): Change the

3
lisp/mail/mail-utils.el
View File

@ -223,7 +223,8 @@ Usenet paths ending in an element that matches are removed also."
"\\)[^,]*"))
(case-fold-search t)
pos epos)
(while (setq pos (string-match match userids pos))
(while (and (setq pos (string-match match userids pos))
(> (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.