mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-widen-to-current-msgbeg): Use rmail-msgbeg

Browse Source 
and rmail-msgend to compute the restriction at the end, instead of
computing it.
This commit is contained in:
Gerd Moellmann 2000-05-30 18:45:08 +00:00
parent cb6560a1d1
commit 07ae0d6685
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/mail/rmail.el
View File

@ -2038,19 +2038,17 @@ again afterward.
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))))
(unwind-protect
(progn
(narrow-to-region (rmail-msgbeg rmail-current-message)
(point-max))
(goto-char (point-min))
(funcall function))
(unwind-protect
(progn
(narrow-to-region (rmail-msgbeg rmail-current-message)
(point-max))
(goto-char (point-min))
(funcall function))
;; Note: we don't use save-restriction because that does not work right
;; if changes are made outside the saved restriction
;; 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 (rmail-msgbeg rmail-current-message)
(rmail-msgend rmail-current-message)))))
(defun rmail-forget-messages ()
(unwind-protect