mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases 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
Show Stats 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)