*** lib/mime.tcl.orig	Thu Jan  8 22:43:28 1998
--- lib/mime.tcl	Wed May 27 18:35:02 1998
***************
*** 1068,1077 ****
--- 1068,1100 ----
  		}
  	    }
  	}
      }
  }
+ 
+ # Show local time if message from another tz
+ # e.g.
+ #      Mon, 18 May 1998 11:58:39 GMT
+ # is shown as
+ #      Mon, 18 May 1998 11:58:39 GMT (13:58 MET DST)
+ #
+ 
+ proc MimeShowTime { tkw time } {
+    set msgtime   [clock scan $time]
+    set localtime [clock format $msgtime -format " %T"]
+    if { [string first $localtime $time] == -1 } {
+       set format "%H:%M %Z"
+       set day [clock format $msgtime -format %a]
+       if { [string first $day $time] == -1 } {
+          set format "%a $format"
+       }
+       set msgtime [clock format $msgtime -format $format]
+       $tkw insert insert " ($msgtime)"
+    }
+ }
+ 
+ 
  proc MimeShowMinHeaders {tkw part inlin} {
      global mimeHdr mhProfile msg mime tk_version
      
      if ![info exists mimeHdr($part,hdrs)] {
  	return
***************
*** 1110,1119 ****
--- 1133,1145 ----
  	$tkw insert insert [string toupper [string index $truehdr 0]]
  	$tkw insert insert "[string range $truehdr 1 end]: "
  	set tag [Mime_PrintEncodedHeader $tkw [MimeLabel $part headers] \
  				$mimeHdr($part,hdr,$hdr) \
  				medium r plain $mime(fontSize)]
+ 	if [regexp -nocase date $truehdr] {
+ 	   MimeShowTime $tkw $mimeHdr($part,hdr,$hdr)
+ 	}
  	$tkw insert insert \n
  	foreach key [list $truehdr [expr {$show ? "default" : "hidden"}]] {
  	    if [info exists msg(tag,$key)] {
  		$tkw tag add hdrlook=$key $start "insert -1 char"
  		if {[string length $tag] != 0} {
