Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 5514:8112b5b2651b
(rmail-summary-delete-forward): Fix regexp
used for recognizing deleted message.
(rmail-summary-output, rmail-summary-output-to-rmail-file):
Use rmail-summary-delete-forward.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 08 Jan 1994 13:57:29 +0000 |
| parents | 0a6c0e720ece |
| children | 3824222fed2e |
comparison
equal
deleted
inserted
replaced
| 5513:d7770758acfd | 5514:8112b5b2651b |
|---|---|
| 407 (rmail-delete-message) | 407 (rmail-delete-message) |
| 408 (let ((del-msg rmail-current-message)) | 408 (let ((del-msg rmail-current-message)) |
| 409 (pop-to-buffer rmail-summary-buffer) | 409 (pop-to-buffer rmail-summary-buffer) |
| 410 (rmail-summary-mark-deleted del-msg) | 410 (rmail-summary-mark-deleted del-msg) |
| 411 (while (and (not (if backward (bobp) (eobp))) | 411 (while (and (not (if backward (bobp) (eobp))) |
| 412 (save-excursion (beginning-of-line) (looking-at " [0-9]+D"))) | 412 (save-excursion (beginning-of-line) |
| 413 (looking-at " +[0-9]+D"))) | |
| 413 (forward-line (if backward -1 1)))))) | 414 (forward-line (if backward -1 1)))))) |
| 414 | 415 |
| 415 (defun rmail-summary-delete-backward () | 416 (defun rmail-summary-delete-backward () |
| 416 "Delete this message and move to previous nondeleted one. | 417 "Delete this message and move to previous nondeleted one. |
| 417 Deleted messages stay in the file until the \\[rmail-expunge] command is given." | 418 Deleted messages stay in the file until the \\[rmail-expunge] command is given." |
| 1040 (save-excursion | 1041 (save-excursion |
| 1041 (set-buffer rmail-buffer) | 1042 (set-buffer rmail-buffer) |
| 1042 (let ((rmail-delete-after-output nil)) | 1043 (let ((rmail-delete-after-output nil)) |
| 1043 (call-interactively 'rmail-output-to-rmail-file))) | 1044 (call-interactively 'rmail-output-to-rmail-file))) |
| 1044 (if rmail-delete-after-output | 1045 (if rmail-delete-after-output |
| 1045 (rmail-summary-delete-message nil))) | 1046 (rmail-summary-delete-forward nil))) |
| 1046 | 1047 |
| 1047 (defun rmail-summary-output () | 1048 (defun rmail-summary-output () |
| 1048 "Append this message to Unix mail file named FILE-NAME." | 1049 "Append this message to Unix mail file named FILE-NAME." |
| 1049 (interactive) | 1050 (interactive) |
| 1050 (save-excursion | 1051 (save-excursion |
| 1051 (set-buffer rmail-buffer) | 1052 (set-buffer rmail-buffer) |
| 1052 (let ((rmail-delete-after-output nil)) | 1053 (let ((rmail-delete-after-output nil)) |
| 1053 (call-interactively 'rmail-output))) | 1054 (call-interactively 'rmail-output))) |
| 1054 (if rmail-delete-after-output | 1055 (if rmail-delete-after-output |
| 1055 (rmail-summary-delete-message nil))) | 1056 (rmail-summary-delete-forward nil))) |
| 1056 | 1057 |
| 1057 ;; Sorting messages in Rmail Summary buffer. | 1058 ;; Sorting messages in Rmail Summary buffer. |
| 1058 | 1059 |
| 1059 (defun rmail-summary-sort-by-date (reverse) | 1060 (defun rmail-summary-sort-by-date (reverse) |
| 1060 "Sort messages of current Rmail summary by date. | 1061 "Sort messages of current Rmail summary by date. |