From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/9559 Path: news.gmane.org!not-for-mail From: Hadron Newsgroups: gmane.emacs.gnus.user Subject: Re: User agent highlighting in gnus Date: Mon, 20 Aug 2007 16:43:17 +0200 Organization: http://en.wikipedia.org/wiki/Quark Message-ID: References: <1gvebbzdgh.fsf@homelinux.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1187624421 17571 80.91.229.12 (20 Aug 2007 15:40:21 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 20 Aug 2007 15:40:21 +0000 (UTC) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Mon Aug 20 17:40:19 2007 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IN9MW-0001pI-Mq for gegu-info-gnus-english@m.gmane.org; Mon, 20 Aug 2007 17:40:16 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IN9MX-0002Ib-13 for gegu-info-gnus-english@m.gmane.org; Mon, 20 Aug 2007 11:40:17 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!news1.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!storethat.news.telefonica.de!telefonica.de!chloor.box.nl!130.133.1.3.MISMATCH!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail Original-Newsgroups: gnu.emacs.gnus Original-Lines: 74 Original-X-Trace: individual.net yjtVjV6uoApwdoqmRiUDuQhj76Ox/D1Juk/mRbGYRvSQPviF3c X-Orig-Path: news.individual.net!news Cancel-Lock: sha1:/M+WhzW0JqzHdbpqgQaQ7mU841g= sha1:bo8EYBbNz8u4qHXbpHjy06DqHng= Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAGFBMVEUPDQ1bVEeWcSHosxDD ojimpJ76+vnczqjhNce/AAAACXBIWXMAAABIAAAASABGyWs+AAAB6UlEQVQ4y22UvW4TQRDHf7P2 paG4vSTuDwMlQgJRUfiIEC22gqnT2G/AcySU4AJTX4EfgMI8AMISdRTTEpRdu/MHWYq9r/g8zWr3 d/+Z2ZnZU8PCBv1+uRkqcnOjNB3ZYlsAGQEu1TWwBhB3UQOhXzY1MAZwOL0LcpvXQAQSwbQGhl15 PyiVBQg+CX8+d7E1hUPbv3sUL5Jf7cXBtA6mzZDl4z2K5CeAxu2/h2VbD251dEQQ6t0Yz5wT3dvY i7vALQ5Pj56GzaKMOdgcMMcgGmerQMZvXBQBZzCpghU6T4u1roCxeCAt4EMJNjBHQG5/a1iVwNDS OHASdr2/IqskW6WFD+/BJMhbzVLA5cAhZWVC2OZgSyGApKIwnO0WGQXIpOg0EJe1Wlc95YPls1pQ MwXQ1vruaexBI7r/pTj7MQMBFBJdIasiuo6hMQPF5TcLcf5iBAtPLCi5Ami6cw9urWo/QED5VF28 8c4OtWjNVhfV1dn838wR4Dsqe0KNoAtA6i++nSnJbnoCwD2bpZeof1k61xbk+jyrjlRGNE3Tj1+z xjRPrJIw+8gZA7g50OxYlDx/6YwFS9SLelHkENOxoDDLR6cuNOZdv9Vv9bvW3DzMp8QtXmnz2jsM EoK47AfHg+yXwfHbDgD/AWsIohF8qgD0AAAAGnpUWHRKUEVHLUNvbG9yc3BhY2UAAHjaMwIAADMA MxEWfmMAAAAqelRYdEpQRUctU2FtcGxpbmctZmFjdG9ycwAAeNozqjDSMaww1DGsMAQAEYMC6QbE yigAAAAASUVORK5CYII= User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/23.0.0 (gnu/linux) Original-Xref: shelby.stanford.edu gnu.emacs.gnus:79748 X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:9559 Archived-At: Reiner Steib writes: > On Sun, Aug 19 2007, Hadron wrote: > >> Could you explain this block. Not being a lisp programmer I can't really >> see how to set a nice "loud" face for all User-Agent or X-Newsreader with >> "Mutt" in and another font for either with "Gnus" in and another for >> either with any other face again. > > (add-to-list > 'gnus-header-face-alist > (list (concat > "^" > (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t) > ":.*Mutt") > nil your-mutt-face)) > > (add-to-list > 'gnus-header-face-alist > (list (concat > "^" > (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t) > ":.*Gnus") > nil your-gnus-face)) > > (add-to-list > 'gnus-header-face-alist > (list (concat > "^" > (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t) > ":.*") ;; other > nil your-other-reader-face)) > > You need to defface your-*-face. I'm not sure if the order works in > this way. You may have to change it or add the APPEND argument of > `add-to-list'. > > Bye, Reiner. Just for google completion: Other way around - here I hilite gnus and Outlook type and used quoting for the face names available from list-faces-display from the facemenu+ library from drew adams. ,---- | (add-to-list | 'gnus-header-face-alist | (list (concat | "^" | (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t) | ":.*") ;; other | nil font-lock-comment-face)) | | (add-to-list | 'gnus-header-face-alist | (list (concat | "^" | (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t) | ":.*Outlook.*") | nil 'gnus-emphasis-highlight-words)) | | (add-to-list | 'gnus-header-face-alist | (list (concat | "^" | (regexp-opt '("User-Agent" "X-Mailer" "Newsreader" "X-Newsreader") t) | ":.*Gnus.*") | nil 'gnus-server-opened)) | `----