X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/blobdiff_plain/77ff80bc4cf6b780b63a41a7ce261546c571d00a..3dabfbdfe64eae04d7872d1b4cbbc317401ea989:/twirssi.pl?ds=inline

diff --git a/twirssi.pl b/twirssi.pl
index 444aac6..acb469c 100644
--- a/twirssi.pl
+++ b/twirssi.pl
@@ -734,14 +734,11 @@ sub monitor_child {
             }
 
             if ( $meta{type} eq 'tweet' ) {
-                $window->printformat(MSGLEVEL_PUBLIC, 'twirssi_tweet',
-                  $account, $meta{nick}, $marker, $_);
+                push @lines, [$meta{type}, $account, $meta{nick}, $marker, $_];
             } elsif ( $meta{type} eq 'reply' ) {
-                $window->printformat(MSGLEVEL_PUBLIC, 'twirssi_reply',
-                  $account, $meta{nick}, $marker, $_);
+                push @lines, [$meta{type}, $account, $meta{nick}, $marker, $_];
             } elsif ( $meta{type} eq 'dm' ) {
-                $window->printformat(MSGLEVEL_PUBLIC, 'twirssi_dm',
-                  $account, $meta{nick}, $_);
+                push @lines, [$meta{type}, $account, $meta{nick}, $_];
             } elsif ( $meta{type} eq 'error' ) {
                 $window->print("ERROR: $_", MSGLEVEL_PUBLIC);
             } elsif ( $meta{type} eq 'debug' ) {
@@ -763,6 +760,10 @@ sub monitor_child {
 
         if ($new_last_poll) {
             print "new last_poll = $new_last_poll" if &debug;
+            for my $line ( @lines ) {
+                $window->printformat(MSGLEVEL_PUBLIC, "twirssi_".@$line[0],
+                  @$line[1,2,3,4]);
+            }
 
             close FILE;
             unlink $filename