Mercurial > emacs
changeset 29301:aec01f0c6729
(rmail-widen-to-current-msgbeg): Use rmail-msgbeg
and rmail-msgend to compute the restriction at the end, instead of
computing it.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 30 May 2000 18:45:08 +0000 |
| parents | 505deeadeb1f |
| children | b1d66cb97075 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 8 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Tue May 30 18:43:56 2000 +0000 +++ b/lisp/mail/rmail.el Tue May 30 18:45:08 2000 +0000 @@ -2038,19 +2038,17 @@ 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