Mercurial > emacs
diff lisp/mail/mail-hist.el @ 23106:a0082bd79e91
(mail-hist-current-header-name): Fix test.
(mail-hist-current-header-contents): Use mail-text-start.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 26 Aug 1998 20:26:12 +0000 |
parents | 14f3c9f7e356 |
children | d9b783c53049 |
line wrap: on
line diff
--- a/lisp/mail/mail-hist.el Wed Aug 26 20:08:30 1998 +0000 +++ b/lisp/mail/mail-hist.el Wed Aug 26 20:26:12 1998 +0000 @@ -105,7 +105,7 @@ "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 @@ (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))))))