[Mew-Win32 00259] Re: [Mew-dist 03860] 1.93b17 -- mush faster, worth trying...
Hideyuki SHIRAI
Shirai at example.com
1998年 2月 20日 (金) 17:33:23 JST
白井です。
# このメールは 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);
;; }
;; }
;; }
Mew-win32 メーリングリストの案内