From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/29492
Path: main.gmane.org!not-for-mail
From: Christoph Rohland <hans-christoph.rohland@sap.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Forwarding as mime conditionally?
Date: 13 Mar 2000 18:24:40 +0100
Sender: owner-ding@hpc.uh.edu
Message-ID: <qwwvh2q7pgn.fsf@sap.com>
References: <qwwhfeelv1e.fsf@sap.com> <vafbt4m4qis.fsf@lucy.cs.uni-dortmund.de>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: main.gmane.org 1035166152 3024 80.91.224.250 (21 Oct 2002 02:09:12 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 02:09:12 +0000 (UTC)
Cc: Christoph Rohland <hans-christoph.rohland@sap.com>, ding@gnus.org
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48])
	by mailhost.sclp.com (Postfix) with ESMTP id A202BD051E
	for <jason@mailhost.sclp.com>; Mon, 13 Mar 2000 12:27:56 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id LAB01061;
	Mon, 13 Mar 2000 11:26:27 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 13 Mar 2000 11:26:03 -0600 (CST)
Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id LAA14915
	for <ding@hpc.uh.edu>; Mon, 13 Mar 2000 11:25:52 -0600 (CST)
Original-Received: from smtpde02.sap-ag.de (smtpde02.sap-ag.de [194.39.131.53])
	by mailhost.sclp.com (Postfix) with ESMTP id B1903D051E
	for <ding@gnus.org>; Mon, 13 Mar 2000 12:25:57 -0500 (EST)
Original-Received: from sap-ag.de ([194.39.131.3])
  by smtpde02.sap-ag.de (out) with ESMTP id SAA01442;
  Mon, 13 Mar 2000 18:23:23 +0100 (MEZ)
Original-Received: from ls3010.wdf.sap-ag.de (ls3010.wdf.sap-ag.de [10.18.104.24])
	by sap-ag.de (8.8.8/8.8.8) with ESMTP id SAA18117;
	Mon, 13 Mar 2000 18:24:37 +0100 (MET)
Original-Received: (from d020782@localhost)
	by ls3010.wdf.sap-ag.de (8.9.3/8.9.3) id SAA13363;
	Mon, 13 Mar 2000 18:24:40 +0100
X-Authentication-Warning: ls3010.wdf.sap-ag.de: d020782 set sender to hans-christoph.rohland@sap.com using -f
Original-To: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai=?iso-8859-1?q?_Gro=DFjohann?=)
Original-Lines: 30
User-Agent: Gnus/5.0803 (Gnus v5.8.3) XEmacs/21.1 (Bryce Canyon)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:29492
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:29492

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Gro=DFjohann) writes:

> > Is there a possibility to forward mails sometimes as mime, sometimes
> > as text.
>=20
> Hm.
>=20
> (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)))
>=20
> 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=20
  (around toggle-mime (&optional prefix post) activate)
  "Forward normally, with prefix arg, toggle message-forward-as-mime."
  (interactive "P")
  (let ((message-forward-as-mime=20
         (if prefix (not message-forward-as-mime) message-forward-as-mi=
me)))
    ; while using mime do not ignore headers
    (setq current-prefix-arg message-forward-as-mime)
    ad-do-it))

Greetings
		Christoph