Re: Summary format - the `u' spec

[Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann)]

On 04 Mar 2001, Harry Putnam wrote:

> Hopefully I'm, correct in thinking the line that says:
> "...The function will be passed the current header as argument."
> Means that all header lines get scanned.

Hm, no, not really.  `Mail header' in this context (oh, how I love the
inconsistent terminology in Gnus!) is a structure which contains the
information from the NOV (or overview) file/data in a Lisp-predigested
form.  For example, if X is such a header, then (mail-header-subject
X) returns a string, the subject of the message.

Such a header contains only those bits of information that are present
in the overview file.  For nnml, you can put more information into the
overview file using the variables gnus-extra-headers and
nnmail-extra-headers.  Not sure if this works with NNTP (news) servers.

> I want to use this option to cause gnus to scan the headers for this
> pattern `^Keywords: \\[A\\] '.  And if found, to insert the capital
> letter found inside the [] into th summary display.

Ah.  Yes.  Hm.  What you want is to

    (add-to-list 'nnmail-extra-headers 'Keywords)
    (add-to-list 'gnus-extra-headers 'Keywords)

And then you can do:

    (defun gnus-user-format-function-H (header)
      (let* ((xtra (mail-header-extra header))
             (kw (cdr (assq 'Keywords xtra))))
        (if (and kw (stringp kw))
            (substring kw 0 5)
          "    ")))

This is untested.  Not sure if it works.  It tries to print the first
5 or 6 characters of the Keywords header, or spaces (if there is no
Keywords header).

Does this work, and can you take it from here?

kai
-- 
Be indiscrete.  Do it continuously.