- } elsif (/^subject: .*/i) {
- $subject = substr ($_, 9);
- } elsif (/^reply-to: .*/i) {
- $_ = substr ($_, 10);
- if (/<(\S*)@(\S*)>/) {
- $reply_to = lc ("$1\@$2");
- } elsif (/(\S*)@(\S*)\ /) {
- $reply_to = lc ("$1\@$2");
- } elsif (/(\S*)@(\S*)/) {
- $reply_to = lc ("$1\@$2");
+ } elsif (/^subject: (.*)/i) {
+ $msgInfo{subject} = $1;
+ } elsif (/^reply-to: (.*)/i) {
+ $msgInfo{reply_to} = $1;
+
+ if ($msgInfo{reply_to} =~ /<(\S*)@(\S*)>/) {
+ $msgInfo{reply_to} = lc ("$1\@$2");
+ } elsif ($msgInfo{reply_to} =~ /(\S*)@(\S*)\ /) {
+ $msgInfo{reply_to} = lc ("$1\@$2");
+ } elsif ($msgInfo{reply_to} =~ /(\S*)@(\S*)/) {
+ $msgInfo{reply_to} = lc ("$1\@$2");
+ } # if
+ } elsif (/^to: (.*)/i) {
+ $msgInfo{to} = $1;
+
+ if ($msgInfo{to} =~ /<(\S*)@(\S*)>/) {
+ $msgInfo{to} = lc ("$1\@$2");
+ } elsif ($msgInfo{to} =~ /(\S*)@(\S*)\ /) {
+ $msgInfo{to} = lc ("$1\@$2");
+ } elsif ($msgInfo{to} =~ /(\S*)@(\S*)/) {
+ $msgInfo{to} = lc ("$1\@$2");