Re^4: Mail::Pop3Client messing up PGP email messages

I'm not sure what I'm doing wrong here. I'm about to pitch the e-mail attempt and use flock instead I'm getting so frustrated.

Here's the code I'm trying:

use strict;
use MIME::Decoder;

open FH, "audit1.gpg";

my $decoder = new MIME::Decoder "7Bit";
$decoder->decode(\*FH, \*STDOUT);

close FH;
[download]

Very basic, but I'm still getting the encoded 3D which shouldn't be there at the end of the message.

I know that the encryption is correct, because when I physically remove the 3D towards the end of the file, it decodes properly.

Can you please point me to what I might be missing?

Useless trivia: In the 2004 Las Vegas phone book there are approximately 28 pages of ads for massage, but almost 200 for lawyers.

Comment on Re^4: Mail::Pop3Client messing up PGP email messages Download Code

Replies are listed 'Best First'.
Re^5: Mail::Pop3Client messing up PGP email messages by sgifford (Prior) on May 30, 2006 at 06:36 UTC
The MIME encoding that would replace `=` with `=3D` is "quoted-printable". Try using: `my $decoder = new MIME::Decoder "quoted-printable";` [download] You should be able to detect the right encoding from the MIME headers; it would surprise me if MIME::Decoder wouldn't do that automatically for you somehow. -- sgifford's Web page	[reply] [d/l] [select]