diff -ru3 ./perlglue.xs ../owl-2.1.11.mine/perlglue.xs
--- ./perlglue.xs	2005-01-30 12:38:56.000000000 -0500
+++ ../owl-2.1.11.mine/perlglue.xs	2005-10-16 12:18:57.000000000 -0400
@@ -50,13 +50,6 @@
 	OUTPUT:
 		RETVAL
 
-char *
-zephyr_getsender()
-	CODE:
-		RETVAL = owl_zephyr_get_sender();
-	OUTPUT:
-		RETVAL
-
 void
 zephyr_zwrite(cmd,msg)
 	char *cmd
diff -ru3 ./perlwrap.pm ../owl-2.1.11.mine/perlwrap.pm
--- ./perlwrap.pm	2005-01-30 12:38:56.000000000 -0500
+++ ../owl-2.1.11.mine/perlwrap.pm	2005-10-16 12:32:34.000000000 -0400
@@ -44,6 +44,7 @@
 sub sender      { return shift->{"sender"}; }
 sub recipient   { return shift->{"recipient"}; }
 sub login       { return shift->{"login"}; }
+sub is_private  { return shift->{"isprivate"}; }
 
 sub is_login    { return shift->login eq "login"; }
 sub is_logout   { return shift->login eq "logout"; }
@@ -62,7 +63,6 @@
 sub is_ping     { return 0; }
 sub is_mail     { return 0; }
 sub is_personal { return undef; }
-sub is_private  { return undef; }
 sub class       { return undef; }
 sub instance    { return undef; }
 sub realm       { return undef; }
@@ -190,11 +190,6 @@
 
 sub is_ping     { return (lc(shift->opcode) eq "ping"); }
 
-sub is_private {
-    my ($m) = @_;
-    return (lc($m->recipient) eq lc(owl::zephyr_getsender()));
-}
-
 sub is_personal { 
     my ($m) = @_;
     return ((lc($m->class) eq "message")