Commits

Anonymous committed f282ad1

Fix of CC header case

Comments (0)

Files changed (1)

gmail_extract_emails.pl

     $text =~ s/[ \r\n]*\Z//;   # strip trailing newlines
     $text =~ s/[ \r\n]+/ /;    # normalize separators to one space
     my @addresses;
-    if($text =~ /\A(?:From|To|Cc): *(.*)\Z/s) {
+    if($text =~ /\A(?:From|To|Cc|CC): *(.*)\Z/s) {
         @addresses = Email::Address->parse($1);
     }
     if($text && ! @addresses) {