summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2003-11-01 16:38:55 +0000
committerEli Zaretskii <eliz@gnu.org>2003-11-01 16:38:55 +0000
commit867bae0b00ac9aa22648a9d82d49bc40e2ecc83b (patch)
treeb3472f692439b1497fe0be8a9de24d1eba362fab
parent6cc8bc072cd444af7a8652db2df4944cee295e52 (diff)
downloademacs-867bae0b00ac9aa22648a9d82d49bc40e2ecc83b.tar.gz
(rmail-summary-goto-msg): Don't call itself
recursively if the last message is deleted, thus avoiding an infinite loop.
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/mail/rmailsum.el3
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)))