Changeset 216c734 for perlwrap.pm

Timestamp:

Oct 24, 2006, 12:40:02 PM (19 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

0138478

Parents:

4211f50b

Message:

Adding my getstyle patch, which I rely on from perl right now for a
number of my "modules".

File:

• perlwrap.pm (modified) (3 diffs)

perlwrap.pm

@@ -45 +45 @@
 sub recipient   { return shift->{"recipient"}; }
 sub login       { return shift->{"login"}; }
+sub is_private  { return shift->{"private"}; }
 
 sub is_login    { return shift->login eq "login"; }
@@ -63 +64 @@
 sub is_mail     { return 0; }
 sub is_personal { return undef; }
-sub is_private  { return undef; }
 sub class       { return undef; }
 sub instance    { return undef; }
@@ -191 +191 @@
 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) = @_;