Piping article + header

[Vin Shelton <acs@xemacs.org>]

I need to be able to save an article as a file with a name based on
its message-id.  In order to do this, I wrote a simple filter (in
*gasp* perl - I know, I should probably turn in my XEmacs decoder ring
for not using elisp, but I thought it would be cool to have something
that worked from the shell command line).  The filter extracts the
message-id from the header and saves the message to a file name based
on the message-id.  This works fine standalone, but when I try to use
gnus-summary-pipe-output, the Message-id: header has been elided from
the article.  If I add 'Message-id' to gnus-visible-headers, my filter
works fine, but that's a pretty yucky solution, 'cause most of the
time I don't want to see the message-id.

Basically what I need is a way to make all headers visible before
calling gnus-summary-pipe-output.  I tried using advice to do this:

  (defadvice gnus-summary-pipe-output
    (around acs::show-all-headers-visible activate)
    "Make all headers visible before piping the message to a program"
    (let ((gnus-show-all-headers t))
          ad-do-it))

but it appears that gnus-show-all-headers must be non-nil _at the time
the article is displayed_.  Essentially, my advice had no effect.

Is there any way to make the entire article (header + body) available
to my filter?  Does anyone have any thoughts, comments or suggestions?

TIA,
  Vin

-- 
In a minute there is time
For decisions and revisions which a minute will reverse.         T.S. Eliot
[URL: http://www.cs.amherst.edu/~ccm/prufrock.html]