Changeset 3206 for trunk/gsdl/perllib/plugins/EMAILPlug.pm

Timestamp:

2002-07-02T17:15:34+12:00 (22 years ago)

Author:

jrm21

Message:

Oops! Bad things were happening when the headers said utf-8 encoding,
and our convert2unicode functions got confused. We now do nothing if
the message already claims utf-8 encoding.

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -793 +793 @@
   $charset=~s/ks_c_5601_1987/korean/;
 
+  if ($charset eq "utf_8") {
+      # nothing to do!
+      return;
+  }
+
   # It appears that we can't always trust ascii text so we'll treat it
   # as iso-8859-1 (letting characters above 0x80 through without