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. |