Changeset 693c8f2 for perl/modules
- Timestamp:
- May 24, 2007, 6:16:20 PM (17 years ago)
- 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
- Location:
- perl/modules/Jabber/lib/BarnOwl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
r2cedb7a r693c8f2 20 20 sub to { shift->{to} }; 21 21 sub room { shift->{room} }; 22 sub subject { shift->{subject} }; 22 23 sub status { shift->{status} } 23 24 … … 39 40 sub context { 40 41 return shift->room; 42 } 43 44 sub subcontext { 45 return shift->subject || ""; 41 46 } 42 47 -
perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
rafd0fd5 r693c8f2 503 503 my $cmd = "jwrite $jwrite_to -a $jwrite_from"; 504 504 $cmd .= " -t $jwrite_thread" if $jwrite_thread; 505 $cmd .= " - t$jwrite_subject" if $jwrite_subject;505 $cmd .= " -s $jwrite_subject" if $jwrite_subject; 506 506 BarnOwl::start_edit_win( $cmd, \&process_owl_jwrite ); 507 507 } … … 1097 1097 $props{replycmd} .= 1098 1098 " -a " . ( ( $dir eq 'out' ) ? $props{from} : $props{to} ); 1099 if ($props{subject}) { 1100 $props{replycmd} .= " -s " . $props{subject} 1101 } 1099 1102 1100 1103 if ($dir eq 'out') {
Note: See TracChangeset
for help on using the changeset viewer.