Changeset dfaa47d for perl/modules

Timestamp:

May 14, 2009, 11:41:34 PM (16 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

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

Children:

cdaf294

Parents:

e1b136bf

git-author:

Geoffrey Thomas <geofft@mit.edu> (05/14/09 23:39:12)

git-committer:

Geoffrey Thomas <geofft@mit.edu> (05/14/09 23:41:34)

Message:

Display context for personals, so as to make <message,*,%me> usable.

Signed-off-by: Geoffrey Thomas <geofft@mit.edu>

Location:

perl/modules

Files:

• IRC/lib/BarnOwl/Message/IRC.pm (modified) (1 diff)
• Jabber/lib/BarnOwl/Message/Jabber.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

@@ -70 +70 @@
 sub context {shift->{network};}
 sub subcontext {shift->{recipient};}
+sub personal_context {"on " . shift->{network};}
 
 sub long_sender {shift->{from} || ""};

perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm

@@ -50 +50 @@
 sub subcontext {
     return shift->subject || "";
+}
+
+sub personal_context {
+    return "to " . shift->to;
 }