(mail-header-end): Widen.

(mail-text-start): Widen.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 950c9b50affe601bfc8f1a23d80bcc0bb4b1a687..84a2c5a792506683800ce78d9f704b6a0b520eba 100644 (file)
--- 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.