Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 3509:a1ef317ceb18
(rmail-summary-next-msg): Fix number of dots in regexp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jun 1993 21:18:11 +0000 |
| parents | c8f52c44d9a4 |
| children | d65e83bd1120 |
comparison
equal
deleted
inserted
replaced
| 3508:dea00c8a47a6 | 3509:a1ef317ceb18 |
|---|---|
| 365 (and (> number 0) (end-of-line)) | 365 (and (> number 0) (end-of-line)) |
| 366 (let ((count (if (< number 0) (- number) number)) | 366 (let ((count (if (< number 0) (- number) number)) |
| 367 (search (if (> number 0) 're-search-forward 're-search-backward)) | 367 (search (if (> number 0) 're-search-forward 're-search-backward)) |
| 368 (non-del-msg-found nil)) | 368 (non-del-msg-found nil)) |
| 369 (while (and (> count 0) (setq non-del-msg-found | 369 (while (and (> count 0) (setq non-del-msg-found |
| 370 (or (funcall search "^.....[^D]" nil t) | 370 (or (funcall search "^....[^D]" nil t) |
| 371 non-del-msg-found))) | 371 non-del-msg-found))) |
| 372 (setq count (1- count)))) | 372 (setq count (1- count)))) |
| 373 (beginning-of-line) | 373 (beginning-of-line) |
| 374 (display-buffer rmail-buffer)) | 374 (display-buffer rmail-buffer)) |
| 375 | 375 |