From 10f118f0ef3b0a5071002ac4ddfdb914d4b07c9c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 26 Aug 1998 20:26:12 +0000 Subject: [PATCH] (mail-hist-current-header-name): Fix test. (mail-hist-current-header-contents): Use mail-text-start. --- lisp/mail/mail-hist.el | 4 ++-- 1 file 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)))))) -- 2.39.2