diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-09-25 10:35:47 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-09-25 10:35:47 +0000 |
| commit | 5f9f981bc10dd6b90395ee66e2ff8f364859bdf8 (patch) | |
| tree | ae6c3b8311b95535ec69d01c44ab10d4d6d41d16 /lisp/mail | |
| parent | 8ff16b4e3a50ead206eb8e5fd820022593d718cf (diff) | |
| download | emacs-5f9f981bc10dd6b90395ee66e2ff8f364859bdf8.tar.gz | |
(rmail-dont-reply-to): Avoid infinite loop if
rmail-dont-reply-to-names matches the empty string.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mail-utils.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index a5d7a6b248c..67e658600d8 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -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. |