[Mew-dist 03632] Re: time zone を summary モードで表示できるようにしませんか

[IMAZU Hideyo]

> time zone を summary モードで表示できるように %z という指定を
> .im/Config の Form= で使えるようにしてはどうでしょうか。

$hour, $min, $sec, $tz を取り出すための正規表現をほんのちょっと変更しま
した。このほうが望ましいでしょう。

--
今津　英世（いまづ　ひでよ）
モルガン・スタンレー証券　東京

*** Scan.pm~	Mon Feb  2 10:38:36 1998
--- Scan.pm	Mon Feb  2 11:12:17 1998
***************
*** 101,106 ****
--- 101,107 ----
        %h    hour
        %E    min
        %G    sec
+       %z    time zone
  
    {width} is a integer with/without '-' sign. if a '-' sign exists, content
    of a header-type will be displaied with left adjustment. If the integer
***************
*** 185,190 ****
--- 186,192 ----
  		     'h' => 'hour:',
  		     'E' => 'min:',
  		     'G' => 'sec:',
+ 		     'z' => 'tz:',
  		     );
  
      %multipart_mark = (
***************
*** 448,457 ****
      my ($mday, $monthstr, $year) = ($1, "\u\L$2", $3);
      my $mon = $MSTR2NUM->{$monthstr};
  
!     $href->{'date:'} =~ /\s(\d\d?):(\d\d?)/;
!     my ($hour, $min, $sec) = ($1, $2, 0);
!     if ($href->{'date:'} =~ /\s\d\d?:\d\d?:(\d\d?)\s/) {
! 	$sec = $1;
      }
  
      if ($year < 70) {
--- 450,459 ----
      my ($mday, $monthstr, $year) = ($1, "\u\L$2", $3);
      my $mon = $MSTR2NUM->{$monthstr};
  
!     my ($hour, $min, $sec);
!     if ( $href->{'date:'} =~ /\s(\d\d?):(\d\d?)(:\d\d?)?(\s+(\S+))?/ ) {
! 	($hour, $min, $sec, $tz) = ($1, $2, $3, $5);
! 	$sec += 0;
      }
  
      if ($year < 70) {
***************
*** 466,471 ****
--- 468,474 ----
      $href->{'hour:'} = $hour;
      $href->{'min:'} = $min;
      $href->{'sec:'} = $sec;
+     $href->{'tz:'} = $tz;
      $href->{'date:'} = sprintf "%02d/%02d", $href->{'month:'},
$href->{'mday:'};
  
      ##