Mercurial > emacs

changeset 22410:6c20dbaac61e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-header-end): Widen. (mail-text-start): Widen.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Jun 1998 06:04:20 +0000
parents 382becc612e1
children 6e7a11ac850d
files lisp/mail/sendmail.el
diffstat 1 files changed, 11 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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.