From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/35236
Path: main.gmane.org!not-for-mail
From: Harry Putnam <reader@newsguy.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Summary format - the `u' spec
Date: 05 Mar 2001 15:59:47 -0800
Sender: owner-ding@hpc.uh.edu
Message-ID: <m3snkr6a6k.fsf@gnus.cvs.983032537>
References: <m3hf19ld2y.fsf@gnus.cvs.983032537>
	<vafd7bxh12e.fsf@lucy.cs.uni-dortmund.de>
	<m3k865jmf8.fsf@gnus.cvs.983032537> <m2ofvhkq0h.fsf@snail.nowhere.ch>
	<m366hpaurx.fsf@gnus.cvs.983032537> <m2g0gsq6pp.fsf@snail.nowhere.ch>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035171013 1922 80.91.224.250 (21 Oct 2002 03:30:13 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:30:13 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 4713 invoked from network); 6 Mar 2001 00:00:55 -0000
Original-Received: from lisa.math.uh.edu (129.7.128.49)
  by mastaler.com with SMTP; 6 Mar 2001 00:00:55 -0000
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id SAB04491;
	Mon, 5 Mar 2001 18:00:21 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 05 Mar 2001 17:59:35 -0600 (CST)
Original-Received: from sclp3.sclp.com (qmailr@66-209.196.61.interliant.com [209.196.61.66] (may be forged))
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id RAA04157
	for <ding@hpc.uh.edu>; Mon, 5 Mar 2001 17:59:23 -0600 (CST)
Original-Received: (qmail 4702 invoked by alias); 5 Mar 2001 23:59:54 -0000
Original-Received: (qmail 4697 invoked from network); 5 Mar 2001 23:59:53 -0000
Original-Received: from mail.networkone.net (209.144.112.246)
  by gnus.org with SMTP; 5 Mar 2001 23:59:53 -0000
Original-Received: (qmail 13717 invoked from network); 5 Mar 2001 23:59:50 -0000
Original-Received: from unknown (HELO reader.local.lan) (209.144.117.151)
  by mail.networkone.net with SMTP; 5 Mar 2001 23:59:50 -0000
Original-Received: (from reader@localhost)
	by reader.local.lan (8.11.0/8.11.0) id f25NxlT09966;
	Mon, 5 Mar 2001 15:59:47 -0800
X-Authentication-Warning: reader.local.lan: reader set sender to reader@newsguy.com using -f
Original-To: ding@gnus.org
In-Reply-To: <m2g0gsq6pp.fsf@snail.nowhere.ch> (Alex Schroeder's message of "05 Mar 2001 21:52:18 +0100")
User-Agent: Gnus/5.090001 (Oort Gnus v0.01) Emacs/20.7
Precedence: list
X-Majordomo: 1.94.jlt7
Original-Lines: 18
Xref: main.gmane.org gmane.emacs.gnus.general:35236
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:35236

Alex Schroeder <alex@gnu.org> writes:

> How about this (untested):
> 
> (defun gnus-user-format-function-H (header)
>   (let* ((xtra (mail-header-extra header))
> 	 (kw (cdr (assq 'Keywords xtra))))
>     (if (and (stringp kw)
> 	     (string-match "\\[\\([A-Z]\\)\\]" kw))
> 	(match-string 1 kw)
>       " ")))
> 
> This assumes kw gets set correctly, I have never done this
> mail-header-extra stuff, so you're on your own.  :)

Haa... right out of the box this baby works.

Thanks Alex