diff options
| author | Richard M. Stallman | 1993-05-25 21:20:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-25 21:20:08 +0000 |
| commit | fedc33f7a838ed2e2ad7f47f4600753ac3e58ca9 (patch) | |
| tree | f17fe2b4753f46dc4628d9b298baa975d8ef7a3a | |
| parent | b827c6c13d7e866cba0940c023bba0e13d6b45ec (diff) | |
| download | emacs-fedc33f7a838ed2e2ad7f47f4600753ac3e58ca9.tar.gz emacs-fedc33f7a838ed2e2ad7f47f4600753ac3e58ca9.zip | |
(rmail-summary-mark-deleted): Check for end of buffer.
Pass t as NOWARN when calling rmail-summary-goto-msg.
| -rw-r--r-- | lisp/mail/rmailsum.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index bccfc9eb8f4..d4b629d0a89 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -392,15 +392,16 @@ Deleted messages stay in the file until the \\[rmail-expunge] command is given." | |||
| 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) |