changeset 52963:c4870e121489

(rmail-summary-goto-msg): Don't call itself recursively if the last message is deleted, thus avoiding an infinite loop.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 01 Nov 2003 16:37:35 +0000
parents 19c95cdf2c4a
children 083db6e9fab5
files lisp/mail/rmailsum.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Fri Oct 31 22:04:05 2003 +0000
+++ b/lisp/mail/rmailsum.el	Sat Nov 01 16:37:35 2003 +0000
@@ -1074,7 +1074,8 @@
       (if (< n 1)
 	  (progn (message "No preceding message")
 		 (setq n 1)))
-      (if (> n total)
+      (if (and (> n total)
+	       (> total 0))
 	  (progn (message "No following message")
 		 (goto-char (point-max))
 		 (rmail-summary-goto-msg nil nowarn skip-rmail)))