diff options
| author | Karl Heuer | 1998-09-06 14:09:31 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-09-06 14:09:31 +0000 |
| commit | 3ec353b132aa6c89545acdc0d9ce32349b72e71d (patch) | |
| tree | 7ddecfbad94e3d2973ce3baede7e191009cf20e1 | |
| parent | 5e24a1f76c0aba5b5a650e1837f650fc75dc9ea3 (diff) | |
| download | emacs-3ec353b132aa6c89545acdc0d9ce32349b72e71d.tar.gz emacs-3ec353b132aa6c89545acdc0d9ce32349b72e71d.zip | |
(mail-hist-current-header-contents):
Fix previous change: use mail-header-end.
| -rw-r--r-- | lisp/mail/mail-hist.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el index 4aceff7f408..8fc4be741c4 100644 --- a/lisp/mail/mail-hist.el +++ b/lisp/mail/mail-hist.el | |||
| @@ -172,7 +172,7 @@ colon, or just after the colon if it is not followed by whitespace." | |||
| 172 | (mail-hist-beginning-of-header) | 172 | (mail-hist-beginning-of-header) |
| 173 | (let ((start (point))) | 173 | (let ((start (point))) |
| 174 | (or (mail-hist-forward-header 1) | 174 | (or (mail-hist-forward-header 1) |
| 175 | (goto-char (mail-text-start))) | 175 | (goto-char (mail-header-end))) |
| 176 | (beginning-of-line) | 176 | (beginning-of-line) |
| 177 | (buffer-substring start (1- (point)))))) | 177 | (buffer-substring start (1- (point)))))) |
| 178 | 178 | ||