changeset 187:89e2bb1eb828

Fixed 'subject:' to work properly
author Steve Kemp <steve@steve.org.uk>
date Wed, 02 Apr 2008 13:32:59 +0100
parents c078b940bf3b
children ed2e41d35534
files bin/chronicle
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Wed Apr 02 13:32:46 2008 +0100
+++ b/bin/chronicle	Wed Apr 02 13:32:59 2008 +0100
@@ -1486,13 +1486,13 @@
         {
             $tags = $1;
         }
-        elsif ( ( $line =~ /^(title|subject):(.*)/i ) && !length($title) )
+        elsif ( ( $line =~ /^(Subject|Title):(.*)/i ) && !length($title) )
         {
 
             #
             # Get the title, strip leading and trailing space.
             #
-            $title = $1;
+            $title = $2;
             $title =~ s/^\s+// if ( length $title );
             $title =~ s/\s+$// if ( length $title );
         }