From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/64654 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.emacs.gnus.general Subject: message-header-xheader unused, maybe Date: Fri, 18 May 2007 11:25:11 +1000 Organization: Bah Humbug Message-ID: <87r6perki0.fsf@zip.com.au> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1179451569 5355 80.91.229.12 (18 May 2007 01:26:09 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 18 May 2007 01:26:09 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M13165@lists.math.uh.edu Fri May 18 03:26:08 2007 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1HorEN-0002kv-Ee for ding-account@gmane.org; Fri, 18 May 2007 03:26:07 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1HorDP-0006bt-S4; Thu, 17 May 2007 20:25:07 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1HorDM-0006bc-W7 for ding@lists.math.uh.edu; Thu, 17 May 2007 20:25:05 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.67) (envelope-from ) id 1HorDL-0004Sn-Ll for ding@lists.math.uh.edu; Thu, 17 May 2007 20:25:04 -0500 Original-Received: from mailout2-6.pacific.net.au ([61.8.2.229] helo=mailout2.pacific.net.au) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1HorDJ-0007mG-00 for ; Fri, 18 May 2007 03:25:01 +0200 Original-Received: from mailproxy2.pacific.net.au (mailproxy2.pacific.net.au [61.8.2.163]) by mailout2.pacific.net.au (Postfix) with ESMTP id DEFD9509103 for ; Fri, 18 May 2007 11:24:48 +1000 (EST) Original-Received: from localhost (ppp2D69.dyn.pacific.net.au [61.8.45.105]) by mailproxy2.pacific.net.au (Postfix) with ESMTP id B47A927438 for ; Fri, 18 May 2007 11:24:52 +1000 (EST) Original-Received: from gg by localhost with local (Exim 4.67) (envelope-from ) id 1HorDW-0006ED-2F for ding@gnus.org; Fri, 18 May 2007 11:25:14 +1000 User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/22.0.99 (gnu/linux) X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:64654 Archived-At: --=-=-= In message.el, the message-header-xheader face seems to be unused. Is that accidental, or deliberate? Incidentally, some of the colours in message mode with "dark background" seem a bit dark to me, like DarkGreen for message-header-name. Do dark users find them ok? I use dark, but only on the console, where in fact "blue3" in message-separator comes out pretty much unreadable -- but perhaps that's the fault of "tty-color"s mapping. 2007-05-17 Kevin Ryde * message.el (message-font-lock-keywords): Use message-header-xheader face for "X-Foo", its apparent intended purpose. Move "X-" pattern ahead of the anything pattern, to get it recognised. (Note the diff is a bit zany, it's actually a swap of the two forms, not changes to the patterns.) --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=message.el.xheader-face.diff --- message.el 14 May 2007 08:08:50 +1000 7.212 +++ message.el 17 May 2007 15:18:13 +1000 @@ -1444,13 +1444,13 @@ (1 'message-header-name) (2 'message-header-newsgroups nil t)) (,(message-font-lock-make-header-matcher - (concat "^\\([A-Z][^: \n\t]+:\\)" content)) + (concat "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)" content)) (1 'message-header-name) - (2 'message-header-other nil t)) + (2 'message-header-xheader)) (,(message-font-lock-make-header-matcher - (concat "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)" content)) + (concat "^\\([A-Z][^: \n\t]+:\\)" content)) (1 'message-header-name) - (2 'message-header-name)) + (2 'message-header-other nil t)) ,@(if (and mail-header-separator (not (equal mail-header-separator ""))) `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$") --=-=-=--