From: cjwatson <>
Date: Thu, 17 Mar 2005 04:42:13 +0000 (-0800)
Subject: [project @ 2005-03-16 20:42:13 by cjwatson]
X-Git-Tag: release/2.6.0~732
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5800c7acd8283b7a5fe7e14692ebc06d792f4cf8;p=debbugs.git

[project @ 2005-03-16 20:42:13 by cjwatson]
Rename de_rfc1522 to decode_rfc1522 to allow for a sensibly-named encode
partner.
---

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index fac17f5..7613e19 100644
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -8,13 +8,13 @@ use vars qw($VERSION @EXPORT_OK);
 BEGIN {
     $VERSION = 1.00;
 
-    @EXPORT_OK = qw(parse de_rfc1522);
+    @EXPORT_OK = qw(parse decode_rfc1522);
 }
 
 use File::Path;
 use MIME::Parser;
 
-# for de_rfc1522
+# for decode_rfc1522
 use MIME::WordDecoder qw();
 use Unicode::MapUTF8 qw(to_utf8 utf8_supported_charset);
 
@@ -102,9 +102,9 @@ sub parse ($)
 
 # Bug #61342 et al.
 
-=head2 de_rfc1522
+=head2 decode_rfc1522
 
-    de_rfc1522('=?iso-8859-1?Q?D=F6n_Armstr=F3ng?= <don@donarmstrong.com>')
+    decode_rfc1522('=?iso-8859-1?Q?D=F6n_Armstr=F3ng?= <don@donarmstrong.com>')
 
 Turn RFC-1522 names into the UTF-8 equivalent.
 
@@ -125,7 +125,7 @@ BEGIN {
 	}]));
 }
 
-sub de_rfc1522 ($)
+sub decode_rfc1522 ($)
 {
     my ($string) = @_;