Changeset 0adbce1 for perl/lib/BarnOwl

Timestamp:

May 27, 2013, 2:09:44 PM (11 years ago)

Author:

Jason Gross <jgross@mit.edu>

Branches:

master, release-1.10

Children:

6383920

Parents:

1ced34f

git-author:

Jason Gross <jgross@mit.edu> (02/16/13 14:11:16)

git-committer:

Jason Gross <jgross@mit.edu> (05/27/13 14:09:44)

Message:

Make is_personal like owl_message_is_personal

Before we were hard-coding zephyr messages to be personal if they were
on class message, and were private.  All non-zephyr messages were
personal if and only if they were private.  This disagreed with
owl_message_is_personal, which checked the "personal" filter.  Now,
is_personal also checks the "personal" filter.

Location:

perl/lib/BarnOwl

Files:

• Message.pm (modified) (1 diff)
• Message/Zephyr.pm (modified) (1 diff)

perl/lib/BarnOwl/Message.pm

@@ -51 +51 @@
 sub is_ping     { return 0; }
 sub is_mail     { return 0; }
-sub is_personal { return shift->is_private; }
+sub is_personal { return BarnOwl::message_matches_filter(shift, "personal"); }
 sub class       { return undef; }
 sub instance    { return undef; }

perl/lib/BarnOwl/Message/Zephyr.pm

@@ -65 +65 @@
 
 sub is_ping     { return (lc(shift->opcode) eq "ping"); }
-
-sub is_personal {
-    my ($m) = @_;
-    return ((lc($m->class) eq "message")
-            && $m->is_private);
-}
 
 sub is_mail {