Changeset 693c8f2 for perl/modules/Jabber/lib/BarnOwl/Module

Timestamp:

May 24, 2007, 6:16:20 PM (17 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:

3c455b4

Parents:

987ff51

Message:

Jabber tweaks:

BarnOwl::Message::Jabber now defines subcontext as subject, much as
BarnOwl::Message::Zephyr maps instance to it.

BarnOwl::Module::Jabber now preserves subjects through replies to
MUCs. Also, fixed a typo in which ``jwrite ... -s foo'' showed up as
``jwrite ... -t foo'' when echoed back to the terminal.

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (2 diffs)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

@@ -503 +503 @@
     my $cmd = "jwrite $jwrite_to -a $jwrite_from";
     $cmd .= " -t $jwrite_thread" if $jwrite_thread;
-    $cmd .= " -t $jwrite_subject" if $jwrite_subject;
+    $cmd .= " -s $jwrite_subject" if $jwrite_subject;
     BarnOwl::start_edit_win( $cmd, \&process_owl_jwrite );
 }
@@ -1097 +1097 @@
         $props{replycmd} .=
           " -a " . ( ( $dir eq 'out' ) ? $props{from} : $props{to} );
+        if ($props{subject}) {
+          $props{replycmd} .= " -s " . $props{subject}
+        }
 
         if ($dir eq 'out') {