Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 3100:eb6ae6faff24
(rmail-summary-mark-deleted): Check for end of buffer.
Pass t as NOWARN when calling rmail-summary-goto-msg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 25 May 1993 21:20:08 +0000 |
| parents | fb0ed5a1d0f3 |
| children | 18612999f80c |
comparison
equal
deleted
inserted
replaced
| 3099:c45c28ce483c | 3100:eb6ae6faff24 |
|---|---|
| 390 Deleted messages stay in the file until the \\[rmail-expunge] command is given." | 390 Deleted messages stay in the file until the \\[rmail-expunge] command is given." |
| 391 (interactive) | 391 (interactive) |
| 392 (rmail-summary-delete-forward t)) | 392 (rmail-summary-delete-forward t)) |
| 393 | 393 |
| 394 (defun rmail-summary-mark-deleted (&optional n undel) | 394 (defun rmail-summary-mark-deleted (&optional n undel) |
| 395 (and n (rmail-summary-goto-msg n nil t)) | 395 (and n (rmail-summary-goto-msg n t t)) |
| 396 (let ((buffer-read-only nil)) | 396 (or (eobp) |
| 397 (skip-chars-forward " ") | 397 (let ((buffer-read-only nil)) |
| 398 (skip-chars-forward "[0-9]") | 398 (skip-chars-forward " ") |
| 399 (if undel | 399 (skip-chars-forward "[0-9]") |
| 400 (if (looking-at "D") | 400 (if undel |
| 401 (progn (delete-char 1) (insert " "))) | 401 (if (looking-at "D") |
| 402 (delete-char 1) | 402 (progn (delete-char 1) (insert " "))) |
| 403 (insert "D"))) | 403 (delete-char 1) |
| 404 (insert "D")))) | |
| 404 (beginning-of-line)) | 405 (beginning-of-line)) |
| 405 | 406 |
| 406 (defun rmail-summary-mark-undeleted (n) | 407 (defun rmail-summary-mark-undeleted (n) |
| 407 (rmail-summary-mark-deleted n t)) | 408 (rmail-summary-mark-deleted n t)) |
| 408 | 409 |