[Mew-Win32 01313] Re: namazu.el for mew

[Kyotaro HORIGUCHI]

堀口です. 例によって(?)いまさらですが..

 namazu をやっとこさいれてみました. 確かに笑っちゃうほど早いで
す. すごくいいですね.

もっとも mknmz を一部書き換えないとちゃんと動かなかったのですが^^;

At Thu, 01 Apr 1999 21:30:53 +0900, Hideyuki SHIRAI (白井秀行) <shirai at example.com> wrote in <19990401213053X.shirai at example.com>
> だから、日本語はダメだよなぁと勝手に決めつけて、mew-namazu はと
> りあえず日本語 folder は無視しているのでした。
> 
> # ごめんなさい m(__)m > 堀口さん

 とりあえずいいんじゃないですか? わたしも namazu つかわなきゃいか
んほどでかいフォルダはナゼかみな日本語入ってないし^^;

> ## Meadow で (make-temp-name "abc") ってやると何回やってもおんな
> ## じのが出て来るよぉ〜〜 uniq な file が作れないよぉ〜〜 ;_;

 うーん, 1.01 では確かにそうですねぇ. でも Meadow1.03 ではなおっ
ています. 1.01 ではダメなことには違いはないのですが..


で, 話はWin32とは無関係なことに変わりますが..

 ところでうまく動かせなくてちょっと中を見ていたときに気になったの
ですが, mew-namazu.el の中でたとえば mew-namazu-pick で

! (mapcar '(lambda (x)
!     (setq msgs (cons (int-to-string x) msgs)))
!  msgs-int)

と言うのがありますが, これはなにか故あってのことでしょうか? なん
となく

| (setq msgs (mapcar 'int-to-string (nreverse msgs-int)))

の方がいいような気がするのですが.. 同様に mew-namazu-multi-pick 
の後ろの方の

!(mapcar '(lambda (dir-ints)
!	   (let (strs sorts)
!...				 retmsgs))))
!	intmsgs)

のあたりは

|(setq retmsgs
|      (mapcar
|       (lambda (dir-ints)
|	 (cons (mew-namazu-path-to-folder (car dir-ints))
|	       (list
|		(mapcar 'int-to-string
|			(sort (car (cdr dir-ints)) '<)))))
|       intmsgs))


# あれ? なかみがない..
--
堀口恭太郎