Parent Directory | Revision Log | 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))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |