From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Jun 1998 06:04:20 +0000 (+0000)
Subject: (mail-header-end): Widen.
X-Git-Tag: emacs-20.3~669
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66191b7ecb59a4007a433ae9bebfdc0af2862e2a;p=emacs.git

(mail-header-end): Widen.
(mail-text-start): Widen.
---

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.