From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Jul 2005 22:31:32 +0000 (+0000)
Subject: (rmail-only-expunge): Fix paren error.
X-Git-Tag: emacs-pretest-22.0.90~8279
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c32e5fb00d2866866dea360be788f4b7c4c0b0bf;p=emacs.git

(rmail-only-expunge): Fix paren error.
Unconditionally try to leave point at the same old place.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4b10c937492..7176376f12a 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3316,10 +3316,10 @@ See also user-option `rmail-confirm-expunge'."
 	  (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."