Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(rmail-summary-delete-forward): Move to next or prev msg

Browse source 
among those included in the summary.
This commit is contained in:
Richard M. Stallman 1993-12-30 07:38:11 +00:00
parent 2cbaf88681
commit 92a3826784
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/rmailsum.el
View file

@ -403,8 +403,13 @@ With prefix argument, delete and move backward."
(let (end)
(rmail-summary-goto-msg)
(pop-to-buffer rmail-buffer)
(rmail-delete-forward backward)
(pop-to-buffer rmail-summary-buffer)))
(rmail-delete-message)
(let ((del-msg rmail-current-message))
(pop-to-buffer rmail-summary-buffer)
(rmail-summary-mark-deleted del-msg)
(while (and (not (if backward (bobp) (eobp)))
(save-excursion (beginning-of-line) (looking-at " [0-9]+D")))
(forward-line (if backward -1 1))))))
(defun rmail-summary-delete-backward ()
"Delete this message and move to previous nondeleted one.