From 66191b7ecb59a4007a433ae9bebfdc0af2862e2a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Jun 1998 06:04:20 +0000 Subject: [PATCH] (mail-header-end): Widen. (mail-text-start): Widen. --- lisp/mail/sendmail.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 950c9b50aff..84a2c5a7925 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -434,16 +434,20 @@ Here are commands that move to a header field (and create it if there isn't): (defun mail-header-end () "Return the buffer location of the end of headers, as a number." - (save-excursion - (rfc822-goto-eoh) - (point))) + (save-restriction + (widen) + (save-excursion + (rfc822-goto-eoh) + (point)))) (defun mail-text-start () "Return the buffer location of the start of text, as a number." - (save-excursion - (rfc822-goto-eoh) - (forward-line 1) - (point))) + (save-restriction + (widen) + (save-excursion + (rfc822-goto-eoh) + (forward-line 1) + (point)))) (defun mail-sendmail-delimit-header () "Set up whatever header delimiter convention sendmail will use. -- 2.39.2