From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/1882
Path: news.gmane.org!not-for-mail
From: Dan Jacobson <jidanni@dman.ddts.net>
Newsgroups: gmane.emacs.gnus.user
Subject: mime QP and B headers in body
Date: 15 Jan 2003 16:18:52 +0800
Message-ID: <871y3i7pluspcj.fsf@jidanni.org>
References: <871y3i7pcj.fsf@jidanni.org>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138668513 13052 80.91.229.2 (31 Jan 2006 00:48:33 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:48:33 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:29:50 2006
Original-Path: quimby.gnus.org!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!newsfeed01.sul.t-online.de!t-online.de!fu-berlin.de!uni-berlin.de!tc210-203-44-27.3-16.pl.ebtnet.NET!not-for-mail
Original-Newsgroups: gnu.emacs.gnus,gmane.linux.debian.user.chinese.big5,comp.mail.mime
Original-NNTP-Posting-Host: tc210-203-44-27.3-16.pl.ebtnet.net (210.203.44.27)
Original-X-Trace: fu-berlin.de 1042703319 23087081 210.203.44.27 (16 [99749])
X-Orig-Path: jidanni.org!news
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:2022
Original-Lines: 30
X-Gnus-Article-Number: 2022   Tue Jan 17 17:29:50 2006
Xref: news.gmane.org gmane.emacs.gnus.user:1882
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/1882>

>I make a daily spam report and send it to myself in the body of a mail message:

> Subject: =?BIG5?B?ttmhS...
> Subject:=?big5?Q?=A7A=B...
> Subject: Want a BIG Pen...
> Subject: =?GB2312?B?1tC...
> Subject: =?ISO-8859-1?B...
the reply posted didn't work because my perl doesn't have concat() or
something.  Here's another approach

my $bdy='----=_NextPart_'.rand();
print '
This is a multi-part message in MIME format.

'.$bdy.'
Content-Type: multipart/alternative;
	boundary="'.$bdy.'"'

s/=\?([-a-z0-9]*)\?([BQ])\?([^?]*)\?=/$bdy . '\
Content-Type: text\/plain;\
	charset="'.$1.'"\
Content-Transfer-Encoding: '.if($2=='Q'){'"quoted-printable"'}elif\
    ($2=='B'){'"base64"'}.'\
'.$3.'\
\
    '.$bdy/e;

Unfortunately my perl is bad so someone help me maybe.
The idea is to simple turn the =? seperator sequence into the larger
style seperator sequence.