diff options
| author | Richard M. Stallman | 1998-06-09 06:04:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-06-09 06:04:20 +0000 |
| commit | 66191b7ecb59a4007a433ae9bebfdc0af2862e2a (patch) | |
| tree | d54d13c758cbd33917d1c04d21bf0833672a6e45 | |
| parent | b7ec9e590e96d3906bfab6580b4e15ee3ead1005 (diff) | |
| download | emacs-66191b7ecb59a4007a433ae9bebfdc0af2862e2a.tar.gz emacs-66191b7ecb59a4007a433ae9bebfdc0af2862e2a.zip | |
(mail-header-end): Widen.
(mail-text-start): Widen.
| -rw-r--r-- | lisp/mail/sendmail.el | 18 |
1 files changed, 11 insertions, 7 deletions
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): | |||
| 434 | 434 | ||
| 435 | (defun mail-header-end () | 435 | (defun mail-header-end () |
| 436 | "Return the buffer location of the end of headers, as a number." | 436 | "Return the buffer location of the end of headers, as a number." |
| 437 | (save-excursion | 437 | (save-restriction |
| 438 | (rfc822-goto-eoh) | 438 | (widen) |
| 439 | (point))) | 439 | (save-excursion |
| 440 | (rfc822-goto-eoh) | ||
| 441 | (point)))) | ||
| 440 | 442 | ||
| 441 | (defun mail-text-start () | 443 | (defun mail-text-start () |
| 442 | "Return the buffer location of the start of text, as a number." | 444 | "Return the buffer location of the start of text, as a number." |
| 443 | (save-excursion | 445 | (save-restriction |
| 444 | (rfc822-goto-eoh) | 446 | (widen) |
| 445 | (forward-line 1) | 447 | (save-excursion |
| 446 | (point))) | 448 | (rfc822-goto-eoh) |
| 449 | (forward-line 1) | ||
| 450 | (point)))) | ||
| 447 | 451 | ||
| 448 | (defun mail-sendmail-delimit-header () | 452 | (defun mail-sendmail-delimit-header () |
| 449 | "Set up whatever header delimiter convention sendmail will use. | 453 | "Set up whatever header delimiter convention sendmail will use. |