mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 16:30:46 -08:00
Code Issues Projects Releases Wiki Activity

(mail-header-end): Widen.

Browse source 
(mail-text-start): Widen.
This commit is contained in:
Richard M. Stallman 1998-06-09 06:04:20 +00:00
parent b7ec9e590e
commit 66191b7ecb
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/mail/sendmail.el
View file

@ -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.