Changeset 19aeff4 for perlwrap.pm

Timestamp:

Mar 9, 2009, 5:01:46 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

e0fba58

Parents:

f200413

git-author:

Geoffrey Thomas <geofft@mit.edu> (03/09/09 16:56:55)

git-committer:

Nelson Elhage <nelhage@mit.edu> (03/09/09 17:01:46)

Message:

Don't display "@color[default]" after zsigs if color is disabled.

Reported-By: Joshua Pollack <jp@mit.edu>

File:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -1048 +1048 @@
     my $sender = $m->long_sender;
     $sender =~ s/\n.*$//s;
-    return "  (" . $sender . '@color[default]' . ")";
+    if (BarnOwl::getvar('colorztext') eq 'on') {
+      return "  (" . $sender . '@color[default]' . ")";
+    } else {
+      return "  ($sender)";
+    }
 }