Mercurial > emacs

changeset 344:057b6b26930e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Tue, 23 Jul 1991 19:23:23 +0000
parents 5d45fc2b81e9
children 8633e6928acc
files lisp/mail/rmail.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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