Re: Forwarding as mime conditionally?

[Christoph Rohland <hans-christoph.rohland@sap.com>]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> > Is there a possibility to forward mails sometimes as mime, sometimes
> > as text.
> 
> Hm.
> 
> (defun cr-gnus-summary-mail-forward (mime)
>   "Forward normally, with prefix arg, forward as MIME."
>   (interactive "P")
>   (let ((message-forward-as-mime mime))
>     (gnus-summary-mail-forward)))
> 
> You could replace mime with (not mime) in the fourth line to reverse
> the meaning of the prefix arg.

I modified your code to the following:

(defadvice gnus-summary-mail-forward 
  (around toggle-mime (&optional prefix post) activate)
  "Forward normally, with prefix arg, toggle message-forward-as-mime."
  (interactive "P")
  (let ((message-forward-as-mime 
         (if prefix (not message-forward-as-mime) message-forward-as-mime)))
    ; while using mime do not ignore headers
    (setq current-prefix-arg message-forward-as-mime)
    ad-do-it))

Greetings
		Christoph