(message-font-lock-keywords): Put colon in header

name match.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5bae4f4..65bc8b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-24  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * message.el (message-font-lock-keywords): Put colon in header
+       name match.
+
 2002-06-22  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * message.el (message-font-lock-keywords): Don't use header faces

diff --git a/lisp/message.el b/lisp/message.el
index c0dbf43..2019bb6 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -980,7 +980,7 @@ candidates:
       (,(concat "^\\([A-Z][^: \n\t]+:\\)" content)
        (1 (when (message-point-in-header-p) 'message-header-name-face))
        (2 (when (message-point-in-header-p) 'message-header-other-face) nil t))
-      (,(concat "^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):" content)
+      (,(concat "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)" content)
        (1 (when (message-point-in-header-p) 'message-header-name-face))
        (2 (when (message-point-in-header-p) 'message-header-name-face)))
       ,@(if (and mail-header-separator