X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=552709ddd29680a922e2783e34c1376419a2837a;hb=148f4d43135748ba5aff985c50720b370ca1e336;hp=8db35b9df78c29c1721d549084ac77f8e5b2a458;hpb=e18c9b8b9a003bfb56416ab1d2aee0f232146d25;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 8db35b9d..552709dd 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -435,7 +435,7 @@ sub notify
 {
 	my $ref = shift;
 	my $to = $ref->{to};
-	my $uref = DXUser->get($to);
+	my $uref = DXUser->get_current($to);
 	my $dxchan = DXChannel->get($to);
 	if (((*Net::SMTP && $email_server) || $email_prog) && $uref && $uref->wantemail) {
 		my $email = $uref->email;
@@ -518,7 +518,7 @@ sub store
 			my $line;
 			$ref->{size} = 0;
 			foreach $line (@{$lines}) {
-				$line =~ s/[\x00-\x08\x0a-\x1f\xf0-\xff]/./g;
+				$line =~ s/[\x00-\x08\x0a-\x1f\x80-\x9f]/./g;
 				$ref->{size} += (length $line) + 1;
 				print $fh "$line\n";
 			}