From 867bae0b00ac9aa22648a9d82d49bc40e2ecc83b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 1 Nov 2003 16:38:55 +0000 Subject: [PATCH] (rmail-summary-goto-msg): Don't call itself recursively if the last message is deleted, thus avoiding an infinite loop. --- lisp/ChangeLog | 6 ++++++ lisp/mail/rmailsum.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 (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 * 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))) -- 2.39.2