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

(rmail-summary-previous-all)

Browse source 
(rmail-summary-next-all): Don't move forward to the end of the buffer.
This commit is contained in:
Richard M. Stallman 1994-10-15 10:18:02 +00:00
parent d0d74413b7
commit cc101382e8
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/rmailsum.el
View file

@ -379,11 +379,17 @@ nil for FUNCTION means all messages."
(defun rmail-summary-next-all (&optional number)
(interactive "p")
(forward-line (if number number 1))
;; It doesn't look nice to move forward past the last message line.
(and (eobp) (> number 0)
(forward-line -1))
(display-buffer rmail-buffer))
(defun rmail-summary-previous-all (&optional number)
(interactive "p")
(forward-line (- (if number number 1)))
;; It doesn't look nice to move forward past the last message line.
(and (eobp) (< number 0)
(forward-line -1))
(display-buffer rmail-buffer))
(defun rmail-summary-next-msg (&optional number)