# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897372260 0
# Node ID 6c20dbaac61e1dff0e8370095cd37e0d84282bf3
# Parent  382becc612e186e957e57c75ab3258392359e076
(mail-header-end): Widen.
(mail-text-start): Widen.

diff -r 382becc612e1 -r 6c20dbaac61e lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Tue Jun 09 04:03:45 1998 +0000
+++ b/lisp/mail/sendmail.el	Tue Jun 09 06:04:20 1998 +0000
@@ -434,16 +434,20 @@
 
 (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.