From 9553bab5c66b5e5547578236bc7a24ced8e835c4 Mon Sep 17 00:00:00 2001
From: "Difrex(Denis Zheleztsov)" <dz@etegro.com>
Date: Tue, 17 Jun 2014 16:27:15 +0400
Subject: [PATCH] Small fix

---
 II/Get.pm | 8 --------
 II/T.pm   | 4 ++--
 2 files changed, 2 insertions(+), 10 deletions(-)

diff --git a/II/Get.pm b/II/Get.pm
index a2ffd96..a7cddd4 100644
--- a/II/Get.pm
+++ b/II/Get.pm
@@ -72,14 +72,6 @@ sub get_echo {
         }
         $db->commit();
 
-        # Make new messages url
-        # my $new_messages_url = "$host$msg_url";
-        # my $count = 0;
-        # while ( $count < @new ) {
-        #     $new_messages_url .= $new[$count]->{hash} . "/";
-        #     $count++;
-        # }
-
         # Get messages
         my @msg_con;
         my $count = 0;
diff --git a/II/T.pm b/II/T.pm
index 1ce9d2a..6780343 100644
--- a/II/T.pm
+++ b/II/T.pm
@@ -95,7 +95,7 @@ sub post {
     my $post = II::T->pre( $data->{post} );
 
     my $cut;
-    if ( $data->{subg} =~ /Re:\s(.+)/ ) {
+    if ( $data->{subg} =~ /Re:\s+(.+)/ ) {
         $cut = $1;
     }
     else {
@@ -132,7 +132,7 @@ sub send {
 
     my $post = II::T->pre( $data->{post} );
 
-    $data->{subg} =~ s/Re:(.+)/$1/g;
+    $data->{subg} =~ s/Re:\s+(.+)/$1/g;
 
     $p->param( SUBG => $data->{subg} );
     $p->param( TIME => "$time" );