[Mew-Win32 00259] Re: [Mew-dist 03860] 1.93b17 -- mush faster, worth trying...

[Hideyuki SHIRAI]

白井です。
# このメールは mew-win32 MLに出してますよ。^^;

From: Kazu Yamamoto (山本和彦) <Kazu at example.com> さん曰く
Subject: [Mew-dist 03860] 1.93b17 -- mush faster, worth trying...
Message-ID: <19980220130731T.kazu at example.com>
Date: Fri, 20 Feb 1998 13:07:50 +0900

Kazu> mew-1.93b17.tar.gz と im-86.tar.gz を ftp.mew.org:/pub/Mew/beta に置き
Kazu> ました。"w" と "x" が劇的に速くなっています。試す価値はあります。
Kazu> 
Kazu> --かず＠もう戻れない

確かに戻れなくなるぐらい速くなりました。\(^^)/

しかし、00changeの
* Touch-folder fix.
	Shuichi Kitaguchi <shuuic-k at example.com>

が気になって調べてみたら、あらぁ、utime.exeをmewからも呼ぶように
なったのですね。

# 私はWin95ユーザなのですよ。;_;

今まで、後藤さんの作られたupdate-fileを作る方法で逃げて
いたのにぃ。([mew-dist 1436]参照)

とりあえず、Win95ユーザのためのupdate対応です。

mew本体にpatchをあてるというのはやらないことにしたので
mew-init-hookの中で評価して下さい。

## 北口さんが書かれたとおもわれる関数を横取りしてごめんなさい。
## m(__)m 

あと、後藤さんのパッチを知らない方も多いと思われるので再度提示さ
せていただきます。よろしかったでしょうか？ > 後藤さん

#### しかし、何とかならないものかなぁ。Win95とMewの相性



(setq mew-summary-update-file ".mew-update")
(defalias 'mew-summary-folder-dir-newp 'mew-summary-folder-dir-newp-win95)
(defalias 'mew-touch-folder 'mew-touch-folder-win95)))

(defun mew-touch-folder-win95 (fld)
  "touch-folder for win95."
  (let ((upfile (expand-file-name mew-summary-update-file
				  (mew-expand-folder fld)))
	(tmpbuf (get-buffer-create mew-buffer-tmp)))
    (save-excursion
      (set-buffer tmpbuf)
      (write-file upfile)
      (kill-buffer tmpbuf))))

;; こちらは後藤さんの作品です。
(defun mew-summary-folder-dir-newp-win95 ()
  "dir-newp for win95."
  (let* ((dir (file-chase-links (mew-expand-folder (buffer-name))))
	 (tdir (nth 5 (file-attributes dir)))
	 (da (car tdir))
	 (db (car (cdr tdir)))
	 (cache (expand-file-name mew-summary-cache-file dir))
	 (tcache (nth 5 (file-attributes cache)))
	 (fa (car tcache))
	 (fb (car (cdr tcache)))
	 (update (expand-file-name mew-summary-update-file dir))
	 (tupdate (nth 5 (file-attributes update)))
	 (ua (car tupdate))
	 (ub (car (cdr tupdate))))
    (if tupdate
	;; force to use time stamp of mew-summary-update-file
	(setq da ua db ub))
    (cond
     ((null tdir) nil)
     ((null tcache) t) ;; no cache, do update!
     ((> da fa) t)
     ((= da fa) (if (> db fb) t nil)) ;; nil if same 
     (t nil)
     )
    ))

;; こちらも後藤さんの作品です。IM.in/Folders.pm.inの該当箇所に
;; おつかいください。

;; sub touch_folder ($) {
;;     if (&wntp){
;; 	my ($dir) = shift;
;; 	$dir =~ s/\/\d+$//;
;; 	$dir = &expand_path($dir);
;; 	system "utime $dir";
;;     } elsif (&os2p) {
;; 	my ($dir) = shift;
;; 	$dir =~ s/\/\d+$//;
;; 	$dir = &expand_path($dir);
;; 	my $now = time;	# XXX
;; 	utime ($now, $now, $dir);
;;     } elsif (&win95p) {
;; 	my ($dir) = shift;
;; 	$dir =~ s/\/\d+$//;
;; 	$dir = &expand_path($dir);
;; 	my ($nowuptime) = time;	# XXX
;; 	my($file) = ($dir . "/.mew-update");
;; 	if ( ! -f $file ) {
;; 	    open(OF,">$file");
;; 	    close(OF);
;; 	} else {
;; 	    utime ($nowuptime, $nowuptime, $file);
;; 	}
;;     }
;; }