Changeset 8278543 for perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm

Timestamp:

May 19, 2010, 6:55:46 PM (14 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

3aa0522

Parents:

ebfcc87

git-author:

Anders Kaseorg <andersk@mit.edu> (05/19/10 15:16:52)

git-committer:

Anders Kaseorg <andersk@mit.edu> (05/19/10 18:55:46)

Message:

Jabber: Make smartnarrow -i filter on subject.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>
Reviewed-by: Nelson Elhage <nelhage@mit.edu>

File:

• perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm (modified) (1 diff)

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

@@ -77 +77 @@
     } elsif ($self->jtype eq 'groupchat') {
         my $room = $self->room;
-        $filter = "jabber-room-$room";
-        BarnOwl::command(qw[filter], $filter,
-                         qw[type ^jabber$ and room], "^\Q$room\E\$");
+        if ($inst) {
+            my $subject = $self->subject;
+            $filter = "jabber-room-$room-subject-$subject";
+            BarnOwl::command(qw[filter], $filter,
+                             qw[type ^jabber$ and room], "^\Q$room\E\$",
+                             qw[and subject], "^\Q$subject\E\$");
+        } else {
+            $filter = "jabber-room-$room";
+            BarnOwl::command(qw[filter], $filter,
+                             qw[type ^jabber$ and room], "^\Q$room\E\$");
+        }
         return $filter;
     } elsif ($self->login ne 'none') {