diff options
| author | Eli Zaretskii | 2006-03-11 16:18:20 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2006-03-11 16:18:20 +0000 |
| commit | 710cb0d0553152ab4236b4f5c449b14d47d03fa5 (patch) | |
| tree | 19bfe266dc55ac82fb023126a9b6ec559a606538 | |
| parent | db3c0e9c358cbea65121d8aef50060537a8c6844 (diff) | |
| download | emacs-710cb0d0553152ab4236b4f5c449b14d47d03fa5.tar.gz emacs-710cb0d0553152ab4236b4f5c449b14d47d03fa5.zip | |
(rmail-summary-next-msg): Skip deleted messages, where "D" is the
6th character.
| -rw-r--r-- | lisp/mail/rmailsum.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 539a1769386..c029e6e2268 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -535,7 +535,7 @@ messages, or backward if NUMBER is negative." | |||
| 535 | (search (if (> number 0) 're-search-forward 're-search-backward)) | 535 | (search (if (> number 0) 're-search-forward 're-search-backward)) |
| 536 | (non-del-msg-found nil)) | 536 | (non-del-msg-found nil)) |
| 537 | (while (and (> count 0) (setq non-del-msg-found | 537 | (while (and (> count 0) (setq non-del-msg-found |
| 538 | (or (funcall search "^....[^D]" nil t) | 538 | (or (funcall search "^.....[^D]" nil t) |
| 539 | non-del-msg-found))) | 539 | non-del-msg-found))) |
| 540 | (setq count (1- count)))) | 540 | (setq count (1- count)))) |
| 541 | (beginning-of-line) | 541 | (beginning-of-line) |