Mercurial > emacs
comparison lisp/mail/mail-utils.el @ 31868:a388bd44da52
(rmail-dont-reply-to): Avoid infinite loop if
rmail-dont-reply-to-names matches the empty string.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 25 Sep 2000 10:35:23 +0000 |
| parents | 6c60ac6cf8b6 |
| children | 36481aee6585 |
comparison
equal
deleted
inserted
replaced
| 31867:874cd45d36c9 | 31868:a388bd44da52 |
|---|---|
| 221 "\\([^\,.<\"]\\|\"[^\"]*\"\\)*" | 221 "\\([^\,.<\"]\\|\"[^\"]*\"\\)*" |
| 222 "<\\(" rmail-dont-reply-to-names "\\)" | 222 "<\\(" rmail-dont-reply-to-names "\\)" |
| 223 "\\)[^,]*")) | 223 "\\)[^,]*")) |
| 224 (case-fold-search t) | 224 (case-fold-search t) |
| 225 pos epos) | 225 pos epos) |
| 226 (while (setq pos (string-match match userids pos)) | 226 (while (and (setq pos (string-match match userids pos)) |
| 227 (> (length userids 0))) | |
| 227 ;; If there's a match, it starts at the beginning of the string, | 228 ;; If there's a match, it starts at the beginning of the string, |
| 228 ;; or with `,'. We must delete from that position to the | 229 ;; or with `,'. We must delete from that position to the |
| 229 ;; end of the user-id which starts at match-beginning 2. | 230 ;; end of the user-id which starts at match-beginning 2. |
| 230 (let (inside-quotes quote-pos last-quote-pos) | 231 (let (inside-quotes quote-pos last-quote-pos) |
| 231 (save-match-data | 232 (save-match-data |