Changeset ae47efb

Timestamp:

Feb 1, 2007, 11:52:28 PM (18 years ago)

Author:

Alex Vandiver <alexmv@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:

467aa16

Parents:

e78397d

git-author:

Alex Vandiver <alexmv@mit.edu> (02/01/07 23:52:23)

git-committer:

Alex Vandiver <alexmv@mit.edu> (02/01/07 23:52:28)

Message:

Pretty recipients are useful, too

File:

• perlwrap.pm (modified) (2 diffs)

perlwrap.pm

@@ -134 +134 @@
 sub login_tty   { return undef; }
 
-sub pretty_sender { return shift->sender; }
+sub pretty_sender    { return shift->sender; }
+sub pretty_recipient { return shift->recipient; }
 
 sub delete {
@@ -269 +270 @@
 }
 
+sub pretty_recipient {
+    my ($m) = @_;
+    my $recip = $m->recipient;
+    my $realm = BarnOwl::zephyr_getrealm();
+    $recip =~ s/\@$realm$//;
+    return $recip;
+}
+
 # These are arguably zephyr-specific
 sub class       { return shift->{"class"}; }