From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/35233
Path: main.gmane.org!not-for-mail
From: Alex Schroeder <alex@gnu.org>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Summary format - the `u' spec
Date: 05 Mar 2001 21:52:18 +0100
Sender: owner-ding@hpc.uh.edu
Message-ID: <m2g0gsq6pp.fsf@snail.nowhere.ch>
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>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035171010 1900 80.91.224.250 (21 Oct 2002 03:30:10 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:30:10 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 2358 invoked from network); 5 Mar 2001 20:57:27 -0000
Original-Received: from lisa.math.uh.edu (129.7.128.49)
  by mastaler.com with SMTP; 5 Mar 2001 20:57:27 -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 OAB31836;
	Mon, 5 Mar 2001 14:57:07 -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 14:56:06 -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 OAA03132
	for <ding@hpc.uh.edu>; Mon, 5 Mar 2001 14:55:54 -0600 (CST)
Original-Received: (qmail 2337 invoked by alias); 5 Mar 2001 20:56:20 -0000
Original-Received: (qmail 2332 invoked from network); 5 Mar 2001 20:56:20 -0000
Original-Received: from smtp.datacomm.ch (HELO flu-smtp-01.datacomm.ch) (212.40.5.52)
  by gnus.org with SMTP; 5 Mar 2001 20:56:20 -0000
Original-Received: from snail.nowhere.ch (line51.datacomm.ch [212.254.0.100])
	by flu-smtp-01.datacomm.ch (8.11.2/8.11.2) with ESMTP id f25KuHC19071
	for <ding@gnus.org>; Mon, 5 Mar 2001 21:56:17 +0100
Original-Received: (from alex@localhost)
	by snail.nowhere.ch (8.10.2/8.10.2/SuSE Linux 8.10.0-0.3) id f25KqIm00940;
	Mon, 5 Mar 2001 21:52:18 +0100
X-Authentication-Warning: snail.nowhere.ch: alex set sender to alex@gnu.org using -f
Original-To: ding@gnus.org
In-Reply-To: <m366hpaurx.fsf@gnus.cvs.983032537> (Harry Putnam's message of "04 Mar 2001 17:07:18 -0800")
User-Agent: Gnus/5.090001 (Oort Gnus v0.01) Emacs/20.7
Precedence: list
X-Majordomo: 1.94.jlt7
Original-Lines: 27
Xref: main.gmane.org gmane.emacs.gnus.general:35233
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:35233

Harry Putnam <reader@newsguy.com> writes:

> (defun gnus-user-format-function-H (header)
>       (let* ((xtra (mail-header-extra header))
>              (kw (cdr (assq 'Keywords xtra))))
>         (if (and kw (stringp kw)
>                 (if (string-match "\\[\\([A-Z]\\)\\]" some-string)
>         		(match-string 0)
>         	      " ")))))

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.  :)

Alex.
-- 
http://www.geocities.com/kensanata/
"Emacs 21 will be out when it comes out.  No beta available."