diff -urP MHonArc2.5.13.orig/lib/mhamain.pl MHonArc2.5.13/lib/mhamain.pl --- MHonArc2.5.13.orig/lib/mhamain.pl Mon Oct 21 19:02:06 2002 +++ MHonArc2.5.13/lib/mhamain.pl Mon Dec 16 21:11:01 2002 @@ -719,7 +719,7 @@ sub read_mail_header { my $handle = shift; my($index, $date, $tmp, $i, $field, $value); - my($from, $sub, $msgid, $ctype); + my($from, $sub, $msgid, $ctype, $to); local($_); my @refs = (); @@ -842,6 +842,17 @@ } $from = 'Unknown' unless $from; + ##----------## + ## Get To ## + ##----------## + $to = ""; + foreach ('to') { + next unless defined $fields->{$_}; + $to = $fields->{$_}[0]; + last; + } + $from = 'Unknown' unless $from; + ##----------------## ## Get References ## ##----------------## @@ -888,6 +899,7 @@ } $From{$index} = $from; + $To{$index} = $to; $Date{$index} = $date; $Subject{$index} = $sub; $MsgHead{$index} = htmlize_header($fields); @@ -1330,6 +1342,7 @@ delete $ContentType{$key}; delete $Date{$key}; delete $From{$key}; + delete $To{$key}; delete $IndexNum{$key}; delete $Refs{$key}; delete $Subject{$key}; diff -urP MHonArc2.5.13.orig/lib/mhrcvars.pl MHonArc2.5.13/lib/mhrcvars.pl --- MHonArc2.5.13.orig/lib/mhrcvars.pl Sat Jul 27 07:13:13 2002 +++ MHonArc2.5.13/lib/mhrcvars.pl Mon Dec 16 21:11:01 2002 @@ -143,6 +143,13 @@ $tmp = defined($key) ? &$esub($From{$key}) : "(nil)"; last REPLACESW; } + if ($var eq 'TO') { ## Message "To:" + my $esub = sub { $_[0]; }; + $canclip = 1; $raw = 1; + ($lref, $key, $pos) = compute_msg_pos($index, $var, $arg); + $tmp = defined($key) ? &$esub($To{$key}) : "(nil)"; + last REPLACESW; + } if ( ($cnd1 = ($var eq 'FROMADDRNAME')) || ($cnd2 = ($var eq 'FROMADDRDOMAIN')) ) { ($lref, $key, $pos) = compute_msg_pos($index, $var, $arg);