Re: Adulterate summary lines

[Jonas Steverud <tvrud@bredband.net>]

Harry Putnam <reader@newsguy.com> writes:

> Maybe something as simple as setting group summary line there.

I think that is the way to go, with the %u specifier.

> Where I loose it is where it says the function would be passed the
> current header.  Does that mean all headers in rotation or what.
> Could it be parts of the body too?

I wrote some test code:

(defun gnus-user-format-function-x (STR)
    (message (prin1-to-string STR))
  "test")

(setq gnus-summary-line-format "%U%R%z%I%(%[%4L: %ux%]%) %s\n") ;;
slight modification of my summary-line-format. Observe the %ux part.

The Message buffer:

[1841 "Adulterate summary lines" "Harry Putnam <reader@newsguy.com>"
"Mon, 16 Aug 2004 06:12:31 -0500" "<m3pt5rl4kg.fsf@newsguy.com>" ""
4863 59 "c-ed5372d5.036-4-67626721.cust.bredbandsbolaget.se Ding:1841"
((To . "ding@gnus.org") (User-Agent . "Gnus/5.110003 (No Gnus v0.3)
Emacs/21.3.50 (gnu/linux)"))]

I leave to others to interpret if that makes any sense or not. :-)

> Using this option how would one make the Keywords line appear in
> summary buffer or maybe the Date: line?

Let the gnus-user-format-function-x above return what you want to add
as a string.

> I see a specifier `o' that already comes close... with:
>
>   `o'
>      The `Date' in YYYYMMDD`T'HHMMSS format.
>
> But I'm finding that format too hard to read quickly.  I'd like to have
> my own function that produces MM/DD/YY HH:MM:SS and displays it in
> summary buffer.

Try to find the code for that and see if you wan write a
gnus-user-format-function-x which uses format-time-string to produce
what you want.

I did some search in gnus-sum.el and found
gnus-summary-line-format-alist. The line for 'd' was interesting:
    (?d (gnus-dd-mmm (mail-header-date gnus-tmp-header)) ?s)

In gnus-util.el:
(defun gnus-dd-mmm (messy-date)
  "Return a string like DD-MMM from a big messy string."
  (condition-case ()
      (format-time-string "%d-%b" (safe-date-to-time messy-date))
    (error "  -   ")))

I then did:

(defun gnus-user-format-function-x (STR)
    (condition-case ()
      (format-time-string "%d/%m/%y %H:%M:%S"
                 (safe-date-to-time (mail-header-date STR)))
    (error "  -   ")))


I when I enter the Ding group, your message looks like this:
   [  59: 16/08/04 13:12:31] Adulterate summary lines

How to change to an 12-hour clock with AM/PM is left as an exercise to
the reader but C-h f format-time-string is a big step in the right direction.

> I'm thinking it would then be possible to close group call `G p'
>
> Change the letter following %u and call a different function.  So one
> could close and reopen with a series of homemade functions if need be.

Sorry, but I don't understand those two paragraphs... :-(


This, I think, should get you going. HTH.

-- 
(        http://hem.bredband.net/steverud/        !     Wei Wu Wei     )
(        Meaning of U2 Lyrics, Roleplaying        !  To Do Without Do  )