mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-summary-mark-deleted): Check for end of buffer.

Browse source 
Pass t as NOWARN when calling rmail-summary-goto-msg.
This commit is contained in:
Richard M. Stallman 1993-05-25 21:20:08 +00:00
parent b827c6c13d
commit fedc33f7a8
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/mail/rmailsum.el
View file

@ -392,15 +392,16 @@ Deleted messages stay in the file until the \\[rmail-expunge] command is given."
(rmail-summary-delete-forward t))
(defun rmail-summary-mark-deleted (&optional n undel)
(and n (rmail-summary-goto-msg n nil t))
(let ((buffer-read-only nil))
(skip-chars-forward " ")
(skip-chars-forward "[0-9]")
(if undel
(if (looking-at "D")
(progn (delete-char 1) (insert " ")))
(delete-char 1)
(insert "D")))
(and n (rmail-summary-goto-msg n t t))
(or (eobp)
(let ((buffer-read-only nil))
(skip-chars-forward " ")
(skip-chars-forward "[0-9]")
(if undel
(if (looking-at "D")
(progn (delete-char 1) (insert " ")))
(delete-char 1)
(insert "D"))))
(beginning-of-line))
(defun rmail-summary-mark-undeleted (n)