diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-08-26 20:26:12 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-08-26 20:26:12 +0000 |
| commit | 10f118f0ef3b0a5071002ac4ddfdb914d4b07c9c (patch) | |
| tree | e2597586a8c6730235925052dd7d2c9e7f1bbd18 /lisp/mail/mail-hist.el | |
| parent | e418be2696d56c17e0d51ce938f5dd25574ac92f (diff) | |
| download | emacs-10f118f0ef3b0a5071002ac4ddfdb914d4b07c9c.tar.gz | |
(mail-hist-current-header-name): Fix test.
(mail-hist-current-header-contents): Use mail-text-start.
Diffstat (limited to 'lisp/mail/mail-hist.el')
| -rw-r--r-- | lisp/mail/mail-hist.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el index a3465341158..4aceff7f408 100644 --- a/lisp/mail/mail-hist.el +++ b/lisp/mail/mail-hist.el @@ -105,7 +105,7 @@ Oldest elements are dumped first." "Get name of mail header point is currently in, without the colon. Returns nil if not in a header, implying that point is in the body of the message." - (if (< (point) (mail-text-start)) + (if (> (point) (mail-text-start)) nil ; then we are in the body of the message (save-excursion (let* ((body-start @@ -172,7 +172,7 @@ colon, or just after the colon if it is not followed by whitespace." (mail-hist-beginning-of-header) (let ((start (point))) (or (mail-hist-forward-header 1) - (goto-char (mail-header-start))) + (goto-char (mail-text-start))) (beginning-of-line) (buffer-substring start (1- (point)))))) |