Changeset 0adbce1
- Timestamp:
- May 27, 2013, 2:09:44 PM (12 years ago)
- 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)
- Location:
- perl/lib/BarnOwl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl/Message.pm
ra130fc5 r0adbce1 51 51 sub is_ping { return 0; } 52 52 sub is_mail { return 0; } 53 sub is_personal { return shift->is_private; }53 sub is_personal { return BarnOwl::message_matches_filter(shift, "personal"); } 54 54 sub class { return undef; } 55 55 sub instance { return undef; } -
perl/lib/BarnOwl/Message/Zephyr.pm
r6401db3 r0adbce1 65 65 66 66 sub 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 }73 67 74 68 sub is_mail {
Note: See TracChangeset
for help on using the changeset viewer.