# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1228226599 0
# Node ID bc5e659c237c68ed6a0576115756c23596d0f824
# Parent  33cb8843115c80891c65e7adca284af872e14551
(pmail-only-expunge): Pass correct arg to pmail-show-message-maybe.

diff -r 33cb8843115c -r bc5e659c237c lisp/mail/pmail.el
--- a/lisp/mail/pmail.el	Tue Dec 02 14:03:10 2008 +0000
+++ b/lisp/mail/pmail.el	Tue Dec 02 14:03:19 2008 +0000
@@ -3552,7 +3552,7 @@
       (if (not win)
 	  (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax)))
       (if (not dont-show)
-	  (pmail-show-message-maybe (< pmail-current-message pmail-total-messages)))
+	  (pmail-show-message-maybe (min pmail-current-message pmail-total-messages)))
       (pmail-swap-buffers-maybe)
       (if pmail-enable-mime
 	  (goto-char (+ (point-min) opoint))