- if (/^from: .*/i) {
- $_ = substr ($_, 6);
-
- $sender_long = $_;
-
- if (/<(\S*)@(\S*)>/) {
- $sender = lc ("$1\@$2");
- } elsif (/(\S*)@(\S*)\ /) {
- $sender = lc ("$1\@$2");
- } elsif (/(\S*)@(\S*)/) {
- $sender = lc ("$1\@$2");
+ if (/^from: (.*)/i) {
+ $msgInfo{sender_long} = $msgInfo{sender} = $1;
+
+ if ($msgInfo{sender} =~ /<(\S*)@(\S*)>/) {
+ $msgInfo{sender} = lc ("$1\@$2");
+ } elsif ($msgInfo{sender} =~ /(\S*)@(\S*)\ /) {
+ $msgInfo{sender} = lc ("$1\@$2");
+ } elsif ($msgInfo{sender} =~ /(\S*)@(\S*)/) {
+ $msgInfo{sender} = lc ("$1\@$2");
+ } # if
+ } 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");