Forward message with all headers in lisp

Forward message with all headers in lisp

[Kalle Valo]

Our postmasters have requested that all received spam should be
forwarded to our local spam list. Currently I do it manually, but
it's getting cumbersome with the amount of daily spam I receive.

I forward spam with C-c C-f in article buffer, add the list address to
TO header and send it with C-c C-c. What I would like to have is a
function which would just send the message with all headers intact as
quickly as possible.

I tried to write this function by myself, but couldn't do it. (I know
only the basics of lisp.) gnus-summary-mail-forward doesn't have an
argument for address and gnus-summary-resend-message doesn't send the
message unaltered (at least I understood it that way).

I would need help with this. I have GNU Emacs 21.1.1 with Gnus 5.9.0
and Debian GNU/Linux sid.

-- 
Kalle Valo

Re: Forward message with all headers in lisp

[Kalle Valo]

lawrence mitchell <wence@gmx.li> writes:

> > What I would like to have is a function which would just send the
> > message with all headers intact as quickly as possible.
>
> Would something like this work?
> 
> (defun kv-forward-spam ()
>   "Forward the selected mail to a specific address."
>   (interactive)
>   (gnus-summary-mail-forward)
>   (message-goto-to) ; goto the To: header
>   (insert "forwardaddress") ; insert the correct address here.
>   (message-send-and-exit)) ; send the mail and exit.

Yes, it worked perfectly. Just what I needed. Thank you!

> If you want to make sure you don't do this accidently, you could wrap
> everything except the call to (interactive) in an if statement:
> (interactive)
> (if (yes-or-no-p "Really forward this mail as spam? ")
>     (progn
>       ...)
>   (message "Mail not sent"))

The confirmation is a needed feature. I will use this.

-- 
Kalle Valo