[Mew-dist 1433] Re: Range (update): (Mule for Win32)

[OKUNISHI Fujikazu]

>>>>> "Mon, 04 Aug 1997 10:41:38 +0900" に発信されたメッセージ
>>>>> <19970804104138B.kazu at example.com> にて
>>>>> "かずさん" == Kazu Yamamoto (山本和彦) <Kazu at example.com> が仰るには..

かずさん> 私は Win95 や OS/2 のファイルシステムをよく知らないので、ど
かずさん> うすればいいのか分かりません。だれか教えて下さい。

Lisp で Perl や C での utime() に相当する関数がないかどうかざっと調べ
てみたのですが，見当たりません。本当のところ，相当する関数がないのかど
うか，詳しい方，お教えください。_o_

かずさん> OS/2 使いの奥西さんは、utime というコマンドを呼び出す方法を
かずさん> 提案していたような気がします。

IM では utime() されるのに burst ではできない（Lisp で見つからなかった）
ので，しかたなく逃げを考えた次第です。(^_^; 後ろにつけます。

で，5.003_93 付属の Perl.inf では以下↓のように書かれてるのですが，

> Note that utime() currently doesn't work correctly with Win95/NT
> ports.  A bug has been reported.  Check it carefully before using it
> on those platforms. 

もし 5.004_01+ for Win32 とかではまともに動くのでしたら，Folder.pm の
touch_folder で os2p と同じ処理をすることでご希望が叶いますね。最新版 
でバグが取れてるかどうか調べてみられてはいかがでしょう?
--
(ふ)
-------------- next part --------------
--- mew-summary.el.orig	Mon Jul 28 19:40:40 1997
+++ mew-summary.el	Fri Aug 01 20:41:30 1997
@@ -21,6 +21,8 @@
 
 (defvar mew-summary-mode-map    nil)
 
+(defvar mew-prog-utime "utime") ;; fuji
+
 (defvar mew-summary-mode-menu-spec
   '("Mew"
     ["Show" mew-summary-show t]
@@ -1932,6 +1934,9 @@
 	       (message "Bursting ... done")
 	       (message "Messages %s from %d to were extracted in %s"
 			mstr (1- m) folder)
+			(if (memq system-type '(OS/2 emx))		;; fuji
+				(call-process			;; fuji
+				 mew-prog-utime nil t nil (mew-expand-folder folder)))	;; fuji
 	       ))
 	   ))
        ))
-------------- next part --------------
extproc @PERL@ -Sx
#! @PERL@

  if (@ARGV < 1) {
      die "usage: utime file1 .. \n";
  }

  $now = time();
  utime $now, $now, @ARGV;