Re: Summary format - the `u' spec

[Pavel@Janik.cz (Pavel Janík ml.)]

   From: Harry Putnam <reader@newsguy.com>
   Date: 04 Mar 2001 08:21:59 -0800

Hi Harry,

   > 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. 
   > 
   > I think this is fairly simple, maybe but don't really have a clue how
   > to proceed.
   > 
   > Does someone have an example of using this function in the way I
   > described?

yes. I use something similar. This is workaround for tags which rmail can
do and gnus can not (it is already in the wish list). If the mail has
X-Annotations: header, the rest of the line is displayed in the summary:

(setq gnus-extra-headers '(To Cc X-Annotations))
(setq nnmail-extra-headers gnus-extra-headers)

(defun gnus-user-format-function-X (header)
  "My user-defined function for annotations."
  (let ((my-extra-headers (mail-header-extra gnus-tmp-header)))
    ; Search for X-Annotations
    (while (and my-extra-headers (not (eq (car (car my-extra-headers)) 'X-Annotations)))
      (setq my-extra-headers (cdr my-extra-headers)))
    (setq my-extra-headers (cdr (car my-extra-headers)))
    (if my-extra-headers
        (concat "{" (rfc2047-decode-string my-extra-headers) "} ")
      "")))

Tested, I use it almost everyday.

Hmm, isn't this the time where we should implement this? There are at least
three people who want it :-)
-- 
Pavel Janík ml.
Pavel@Janik.cz
http://www.janik.cz