Changeset ae47efb for perlwrap.pm


Ignore:
Timestamp:
Feb 1, 2007, 11:52:28 PM (14 years ago)
Author:
Alex Vandiver <alexmv@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlwrap.pm

    r65581e9 rae47efb  
    134134sub login_tty   { return undef; }
    135135
    136 sub pretty_sender { return shift->sender; }
     136sub pretty_sender    { return shift->sender; }
     137sub pretty_recipient { return shift->recipient; }
    137138
    138139sub delete {
     
    269270}
    270271
     272sub pretty_recipient {
     273    my ($m) = @_;
     274    my $recip = $m->recipient;
     275    my $realm = BarnOwl::zephyr_getrealm();
     276    $recip =~ s/\@$realm$//;
     277    return $recip;
     278}
     279
    271280# These are arguably zephyr-specific
    272281sub class       { return shift->{"class"}; }
Note: See TracChangeset for help on using the changeset viewer.