# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1120861892 0
# Node ID d1baae4e247f819282824ee3e5c0bb6372ab2fdb
# Parent  f0087630a3a5b07782e2cdb8c166becdf3ef8b54
(rmail-only-expunge): Fix paren error.
Unconditionally try to leave point at the same old place.

diff -r f0087630a3a5 -r d1baae4e247f lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Jul 08 22:30:17 2005 +0000
+++ b/lisp/mail/rmail.el	Fri Jul 08 22:31:32 2005 +0000
@@ -3316,10 +3316,10 @@
 	  (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax)))
       (if (not dont-show)
 	  (rmail-show-message
-	   (if (zerop rmail-current-message) 1 nil)
-	(if rmail-enable-mime
-	    (goto-char (+ (point-min) opoint))
-	  (goto-char (+ (point) opoint))))))))
+	   (if (zerop rmail-current-message) 1 nil)))
+      (if rmail-enable-mime
+	  (goto-char (+ (point-min) opoint))
+	(goto-char (+ (point) opoint))))))
 
 (defun rmail-expunge ()
   "Erase deleted messages from Rmail file and summary buffer."