Changeset a8a3433 for perl/modules/jabber.pl

Timestamp:

Jan 26, 2007, 5:42:07 PM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@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:

30678ae

Parents:

ac1bbe2

Message:

Properly register keybindings. Testing? What? :p

File:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -217 +217 @@
     if ( *BarnOwl::queue_message{CODE} ) {
         register_owl_commands();
-        register_keys unless $BarnOwl::reload;
+        register_keybindings() unless $BarnOwl::reload;
         push @::onMainLoop,     sub { BarnOwl::Jabber::onMainLoop(@_) };
         push @::onGetBuddyList, sub { BarnOwl::Jabber::onGetBuddyList(@_) };
@@ -421 +421 @@
 
 sub register_keybindings {
-    BarnOwl::bindkey("recv j command jwrite");
+    BarnOwl::bindkey("recv j command start-command jwrite ");
 }