(rmail-summary-goto-msg): Don't call itself

recursively if the last message is deleted, thus avoiding an
infinite loop.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3388bee1427..051b572931e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-11-01  Alexander Pohoyda  <alexander.pohoyda@gmx.net>  (tiny change)
+
+        * mail/rmailsum.el (rmail-summary-goto-msg): Don't call itself
+        recursively if the last message is deleted, thus avoiding an
+        infinite loop.
+
 2003-10-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * textmodes/tex-mode.el (tex-compile-commands): Add `yap' and `ps2pdf'.
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index cd8d7d67aa4..a49b47453d8 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1074,7 +1074,8 @@ If SKIP-RMAIL, don't do anything to the Rmail buffer."
       (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)))