Re: reducing headers in gnus-summary-mail-forward ARG 4

[Ted Stern <stern+gnus@cray.com>]

On 10 Nov 2004 at 00:02 PST, Kai Grossjohann wrote:
> Ted Stern <stern+gnus@cray.com> writes:
>
>> On 9 Nov 2004 at 03:06 PST, Kai Grossjohann wrote:
>>> Ted Stern <stern+gnus@cray.com> writes:
>>>
>>>> If I use M-4 C-c C-f, I get the correct wrapper, but it includes nearly 40
>>>> lines of irrelevant headers.
>>>
>>> What does message-forward-ignored-headers do?
>>
>> It changes the headers in *all* forms of message forwarding.  I want to reduce
>> the number of headers only the non-attachment form.
>
> Ah, I see.  Well, then a small function that let-binds
> message-forward-ignored-headers around the invocation of
> gnus-summary-mail-forward seems to be the way to go.
>
> Kai

Here's my attempt.  I used the defadvice opportunity to turn off
message-signature as well, since I don't like that in forwards.  Oddly enough,
turning off the sig does work, but modifying the ignored headers does not.

Any suggestions?  I have this in my .gnus if it makes any difference.  Should
I byte-compile it and then load it before loading gnus?

-- Ted

;; Add a defadvice around gnus-summary-mail-forward to reset
;; message-forward-ignored-headers from
;; "^Content-Transfer-Encoding:\\|^X-Gnus" when the argument is
;; non-nil
;;
(defadvice gnus-summary-mail-forward
  (around gnus-summary-mail-forward-around
          (&optional prefix post)
          activate)
  "Reset message-forward-ignored-headers when ARG of `gnus-summary-mail-forward' is non-nil.
Turn off signature also."
  (interactive "P")
  (let ((message-signature nil)         ; also turn off signature for fwds
        (message-forward-ignored-headers
         (if prefix
             (concat "^"
                     (regexp-opt '(
                                   "Content-"
                                   "X"
                                   "User"
                                   "Received"
                                   "Return"
                                   "Message"
                                   "MIME"
                                   "References-"
                                   "In-"
                                   "Status"
                                   "Lines"
                                   "List")
                                 t))
           message-forward-ignored-headers)))
    (message "message-forward-ignored-headers = `%s'" message-forward-ignored-headers)
    ad-do-it)
  )



-- 
 Ted Stern                                 Applications Group
 Cray Inc.                               office: 206-701-2182
 411 First Avenue South, Suite 600         cell: 206-383-1049
 Seattle, WA 98104-2860                     FAX: 206-701-2500

 Frango ut patefaciam -- I break that I may reveal
 (The Paleontological Society motto, equally apropos for debugging)