[Perlwebmail-devel] showheader problem

[ZUKERAN, shin]

Hello, Jason.

I have tryed Webmail version 2.4.1 using Japanese.
I found the problem.

When the header of an mail is as follows (like this mail :),

	From: <someone@example.org>

It looks as follows when a header is seen by 'show headers'.

	From: 

I think CLEANHTML is the cause.
I created the easy patch. 
Although this fills my demand, it does not know whether to be the right method. 

thank you.

----
ZUKERAN, shin


diff -uNr webmail-2.4.1.orig/webmail.pl webmail-2.4.1/webmail.pl
--- webmail-2.4.1.orig/webmail.pl       Wed Jul 10 15:34:13 2002
+++ webmail-2.4.1/webmail.pl    Fri Jul 12 20:20:07 2002
@@ -739,7 +739,15 @@
        ### print the top tool bar (from, to, date, subject, etc)
        &print_toptoolbar();
 
-       print CLEANHTML($global{full_headers}),"<br>\n" if ($global{showheader});
+        if ($global{showheader}) {
+                $_ = $global{full_headers};
+                s/&/&amp;/g;
+                s/\"/&quot;/g;
+                s/</&lt;/g;
+                s/>/&gt;/g;
+                print $_,"<br>\n";
+        }
+
 
        my ($boundry_reached,$skip,$filename,$charset) = (0,0,'',undef);
        my %al = $USE_COOKIES ? () : ( username => $global{username}, password => $global{encrypted_pass} );