From: Kai Grossjohann <kgrossjo@eu.uu.net>
Date: Fri, 9 Nov 2001 14:34:16 +0000 (+0000)
Subject: message-point-in-header-p: bug fix.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=f5d77eeee482d16686f6874cf24fa85cd21fbc39;p=gnus

message-point-in-header-p: bug fix.
---

diff --git a/lisp/message.el b/lisp/message.el
index 6dc1071f7..9a435079d 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2014,10 +2014,9 @@ Prefix arg means justify as well."
   (save-excursion
     (let ((p (point)))
       (goto-char (point-min))
-      (or (re-search-forward
-	   (concat "^" (regexp-quote mail-header-separator) "\n")
-	   p t)
-	  (re-search-forward "[^:]+:\\([^\n]\\|\n[ \t]\\)+\n\n" p t)))))
+      (not (re-search-forward
+	    (concat "^" (regexp-quote mail-header-separator) "\n")
+	    p t)))))
 
 (defun message-do-auto-fill ()
   "Like `do-auto-fill', but don't fill in message header."