From: Henrik Enberg <henrik.enberg@telia.com>
Date: Mon, 30 Jan 2006 21:25:07 +0000 (+0000)
Subject: (rmail-next-message): Don't Call
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d45133f15a7d9ead866881b49f4b47430ab559f;p=emacs.git

(rmail-next-message): Don't Call
rmail-maybe-set-message-counters. Use with-current-buffer.
---

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index 4767387341d..69d6c37e0f9 100644
--- a/lisp/mail/ChangeLog
+++ b/lisp/mail/ChangeLog
@@ -1,5 +1,8 @@
 2006-01-30  Henrik Enberg  <enberg@printf.se>
 
+	* rmail.el (rmail-next-message): Don't Call
+	rmail-maybe-set-message-counters. Use with-current-buffer.
+
 	* rmailkwd.el (rmail-next-labeled-message): Don't call
 	rmail-maybe-set-message-counters.  Use with-current-buffer.
 
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 7af14d3d79f..2448d323fad 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2280,9 +2280,8 @@ Called when a new message is displayed."
 With prefix arg N, moves forward N messages, or backward if N is
 negative."
   (interactive "p")
-  (set-buffer rmail-buffer)
-  (rmail-maybe-set-message-counters)
-  (rmail-show-message (+ rmail-current-message n)))
+  (with-current-buffer rmail-buffer
+    (rmail-show-message (+ rmail-current-message n))))
 
 (defun rmail-previous-message (n)
   "Show previous message whether deleted or not.