Mercurial > emacs
comparison lisp/mail/rmail.el @ 997:894201c58bb8
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Aug 1992 21:18:19 +0000 |
| parents | 0f082d63bfd6 |
| children | ceb4469d3cd7 |
comparison
equal
deleted
inserted
replaced
| 996:0e8ace07a231 | 997:894201c58bb8 |
|---|---|
| 1071 (if (not (rmail-message-deleted-p current)) | 1071 (if (not (rmail-message-deleted-p current)) |
| 1072 (setq lastwin current n (1+ n)))) | 1072 (setq lastwin current n (1+ n)))) |
| 1073 (if (/= lastwin rmail-current-message) | 1073 (if (/= lastwin rmail-current-message) |
| 1074 (rmail-show-message lastwin)) | 1074 (rmail-show-message lastwin)) |
| 1075 (if (< n 0) | 1075 (if (< n 0) |
| 1076 (error "No previous nondeleted message")) | 1076 (message "No previous nondeleted message")) |
| 1077 (if (> n 0) | 1077 (if (> n 0) |
| 1078 (error "No following nondeleted message")))) | 1078 (message "No following nondeleted message")))) |
| 1079 | 1079 |
| 1080 (defun rmail-previous-undeleted-message (n) | 1080 (defun rmail-previous-undeleted-message (n) |
| 1081 "Show previous non-deleted message. | 1081 "Show previous non-deleted message. |
| 1082 With prefix argument N, moves backward N non-deleted messages, | 1082 With prefix argument N, moves backward N non-deleted messages, |
| 1083 or forward if N is negative." | 1083 or forward if N is negative." |