Commit cc101382 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-summary-previous-all)

(rmail-summary-next-all): Don't move forward to the end of the buffer.
parent d0d74413
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment