/[emacs]/emacs/lisp/mail/rmailsum.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmailsum.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.130 by rms, Tue Sep 30 12:43:49 2003 UTC revision 1.131 by eliz, Sat Nov 1 16:37:35 2003 UTC
# Line 1074  If SKIP-RMAIL, don't do anything to the Line 1074  If SKIP-RMAIL, don't do anything to the
1074        (if (< n 1)        (if (< n 1)
1075            (progn (message "No preceding message")            (progn (message "No preceding message")
1076                   (setq n 1)))                   (setq n 1)))
1077        (if (> n total)        (if (and (> n total)
1078                   (> total 0))
1079            (progn (message "No following message")            (progn (message "No following message")
1080                   (goto-char (point-max))                   (goto-char (point-max))
1081                   (rmail-summary-goto-msg nil nowarn skip-rmail)))                   (rmail-summary-goto-msg nil nowarn skip-rmail)))

Legend:
Removed from v.1.130  
changed lines
  Added in v.1.131

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26