Changeset 0adbce1 for perl/lib


Ignore:
Timestamp:
May 27, 2013, 2:09:44 PM (8 years ago)
Author:
Jason Gross <jgross@mit.edu>
Branches:
master
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:
2 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Message.pm

    ra130fc5 r0adbce1  
    5151sub is_ping     { return 0; }
    5252sub is_mail     { return 0; }
    53 sub is_personal { return shift->is_private; }
     53sub is_personal { return BarnOwl::message_matches_filter(shift, "personal"); }
    5454sub class       { return undef; }
    5555sub instance    { return undef; }
  • perl/lib/BarnOwl/Message/Zephyr.pm

    r6401db3 r0adbce1  
    6565
    6666sub is_ping     { return (lc(shift->opcode) eq "ping"); }
    67 
    68 sub is_personal {
    69     my ($m) = @_;
    70     return ((lc($m->class) eq "message")
    71             && $m->is_private);
    72 }
    7367
    7468sub is_mail {
Note: See TracChangeset for help on using the changeset viewer.