[Mew-dist 08311] Re: namazu.el for mew

[Kazumi HARA]

お世話になります、はらです。

# ちょっとだけ...

Sat, 27 Mar 1999 20:26:43 +0900 頃
koie at example.com さんが書かれた
<< [Mew-dist 08307] RE: namazu.el for mew >> に関して...

鯉江> (1) +inboxには500程度のメイルがころがっている状態では
鯉江>     mew-namazu-search-mark (z?) するよりは
鯉江>     mew-summary-search-mark (?) の方がいい。

えーと、「〜の方がいい」という表現が、私の感覚と異なっているかも知れな
いのですが、例えば処理時間で見た場合に、各条件で...

・mew-namazu-search: +inbox (845 files), "+To:mew-dist@"
  --> "0.834 sec"
・mew-namazu-search-mark-region: +inbox (845 files), "+To:mew-dist@"
  --> "1.73513 sec"
・mew-summary-search: +inbox (845 files), "To=mew-dist@"
  --> "28.116628 sec"
・mew-summary-search-mark-region: +inbox (845 files), "To=mew-dist@"
  --> "27.705788 sec"
### SS-2, SunOS 4.1.4

となって、時間だけで言ってしまえば、mew-namazu.el を使う価値は十分にあ
ると思うのですが... ?_?
# 「500程度」と言うところがポイントなのでしょうか ???

# folder と pattern を直接記入して、以下のもので時間を測定しました
## 昔、mew-win32 に流れた後藤さんのものをベースにしてます m(__)m

(progn
  (let (start stop sec msec)
    (setq start (current-time))
    (switch-to-buffer "+inbox")
;
;    (h-mew-namazu-search)
;    (h-mew-namazu-search-mark-region (point-min)(point-max))
;    (h-mew-summary-search)
     (h-mew-summary-search-mark-region (point-min)(point-max))
;
    (switch-to-buffer "*scratch*")
    (setq stop (current-time))
    (setq sec (- (nth 1 stop) (nth 1 start)))
    (setq msec (- (nth 2 stop)(nth 2 start)))
    (if (< 0 msec)
	()
      (setq sec (1- sec))
      (setq msec (/ (+ 1000000 msec) 1000)))
    (format "%d.%d sec" sec msec)
    ))

--
はら <hara at example.com>