# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 680297003 0
# Node ID 057b6b26930e2f02ee732a13ac639645190b25a4
# Parent  5d45fc2b81e9cad364e59990f742e4a123ee620f
*** empty log message ***

diff -r 5d45fc2b81e9 -r 057b6b26930e lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Jul 21 12:39:34 1991 +0000
+++ b/lisp/mail/rmail.el	Tue Jul 23 19:23:23 1991 +0000
@@ -869,7 +869,7 @@
 FUNCTION may not change the visible text of the message, but it may
 change the invisible header text."
   (save-excursion
-    (let ((obeg (- (point-max) (point-min)))
+    (let ((obeg (- (point-max) (point-min))))
       (unwind-protect
 	  (progn
 	    (narrow-to-region (rmail-msgbeg rmail-current-message)
@@ -881,7 +881,7 @@
 	;; before that restriction is restored.
 	;; Here we assume that changes made by FUNCTION
 	;; occur before the visible region of the message.
-	(narrow-to-region (- (point-max) obeg) (point-max)))))))
+	(narrow-to-region (- (point-max) obeg) (point-max))))))
 
 (defun rmail-forget-messages ()
   (unwind-protect