rmailsum.el tiny simplification

* lisp/mail/rmailsum.el (rmail-summary-previous-all)
(rmail-summary-previous-msg): Simplify.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76f9eb401946c61309bb8c44af7d82f8f7c54249..5fa7ef757b3d05792b2f224772608107511c75ba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-24  Glenn Morris  <rgm@gnu.org>
+
+       * mail/rmailsum.el (rmail-summary-previous-all)
+       (rmail-summary-previous-msg): Simplify.
+
 2015-02-25  Artur Malabarba  <bruce.connor.am@gmail.com>
 
        * simple.el (region-active-p): Fix doc to say non-nil.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index bfcd81cedb8b94cd23d01462e3bf59dc10a68b0b..7144e43d301bf53e0b64f2f3ed04cfa7c16f8660 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1,7 +1,6 @@
 ;;; rmailsum.el --- make summary buffers for the mail reader
 
-;; Copyright (C) 1985, 1993-1996, 2000-2015 Free Software Foundation,
-;; Inc.
+;; Copyright (C) 1985, 1993-1996, 2000-2015 Free Software Foundation, Inc.
 
 ;; Maintainer: emacs-devel@gnu.org
 ;; Keywords: mail
@@ -813,12 +812,7 @@ the message being processed."
 
 (defun rmail-summary-previous-all (&optional number)
   (interactive "p")
-  (or number (setq number 1))
-  (forward-line (- number))
-  ;; It doesn't look nice to move forward past the last message line.
-  (and (eobp) (< number 0)
-       (forward-line -1))
-  (display-buffer rmail-buffer))
+  (rmail-summary-next-all (- (or number 1))))
 
 (defun rmail-summary-next-msg (&optional number)
   "Display next non-deleted msg from rmail file.
@@ -843,7 +837,7 @@ messages, or backward if NUMBER is negative."
 With optional prefix argument NUMBER, moves backward this number of
 non-deleted messages."
   (interactive "p")
-  (rmail-summary-next-msg (- (if number number 1))))
+  (rmail-summary-next-msg (- (or number 1))))
 
 (defun rmail-summary-next-labeled-message (n labels)
   "Show next message with LABELS.  Defaults to last labels used.