""

mb.conf

@@ -4,14 +4,14 @@ Goodbye sorry, gotta, go
 Modules Tk-PluginsConf, Net-OSCAR, Tk-GUI, Tk-Logon, Tk-BList, Tk-Profile, Tk-File, Tk-About, Tk-Convo, Tk-Conf, Tk-AddBuddy
 Plugins XAMP, Monitor, Counterstrike, Win32X, Win32-Tray
 Port 5190
-HeavyLogging 1
+HeavyLogging 0
 SoundsWhileAway 0
 AwayTimeout 60
 TrayIcon 1
 HideBListLogo 0
 # ThemeColor lightblue
 # MonitorServer mail.batkins.com
-# MonitorRecipient savannah@batkins.com
+# MonitorRecipient youraddress@yourdomain.com
 
 # these are only relevant if your mail server requires authentication
 # MonitorUser user_here

plugins/Net-OSCAR/Net-OSCAR.pl

@@ -138,7 +138,7 @@ sub signon
                     hook("error", 
                          -short => "You've exceeded one of AOL's rate limits.  You will be alerted when the rate limit ends.");
                     hook("rate_alert");
-                    hook("tk_getmain")->after($_[2], sub { 
+                    hook("tk_getmain")->after($_[2] * 2, sub { 
                         hook("error", -short => "Rate limit has expired.");
                     });
                 }

plugins/Tk-GUI/Tk/BrowseEdit.pm

@@ -34,6 +34,7 @@ $self]);
                 }, $self]
                 )->pack(-pady => 0, -side => 'left', -fill => 'both');
         $self->bind('<Control-I>', [sub { shift->{'<b>'}->invoke; }, $self]);
+
         $self->{'<u>'} = $self->{panel}->Button(-text => 'U', -relief => 'flat',
                 -font => $self->Font(-family => 'times', -underline => 1, -size => '8'),
                 -command => [sub {
@@ -42,6 +43,16 @@ $self]);
                 }, $self]
                 )->pack(-pady => 0, -side => 'left', -fill => 'both');
         $self->bind('<Control-U>', [sub { shift->{'<b>'}->invoke; }, $self]);
+
+        $self->{'<back>'} = $self->{panel}->Button(-text => 'U', -relief => 'flat', -background => 'green',
+                -font => $self->Font(-family => 'times', -size => '8'),
+                -command => [sub {
+                        my ($self) = @_;
+                        $self->toggleTag('<u>');
+                }, $self]
+                )->pack(-pady => 0, -side => 'left', -fill => 'both');
+        $self->bind('<Control-U>', [sub { shift->{'<b>'}->invoke; }, $self]);
+
         $self->{text}->tagConfigure('elide', -elide => 1);
         $self->ConfigSpecs(
                 'DEFAULT' => [$self->{text}],