[Mew-dist 04151] Re: b24

[YAMAGUCHI, Shuhei]

やまぐち＠ねっとらぴゅたの住人、です。

>>> In article <19980311010835D.yamagus at example.com>,
>>>    "YAMAGUCHI, Shuhei" <yamagus at example.com> writes:

  ishizuka> ただ、~/News/ という directory を作っておかないと起動しない
  ishizuka> のが、少し気になりました。（今までもじらが ~/nsmail/ を要求し
  ishizuka> たので、nsmail なんか使わないのに仕方なく空のディレクトリを作
  ishizuka> っていたのですが、今度は空の ~/News/ も作っておく必要ができち
  ishizuka> ゃった。この調子で、空の hogehoge がどんどん増えるのはできれ
  ishizuka> ば避けたいなぁ。）
  yamagus> 
  yamagus> あれ? 起動しないですか?
  yamagus> 私のところ(Win95 + Meadow)で試すと起動できるのですが…。
  yamagus> 後でFreeBSD上でも試してみます。

FreeBSD-2.2.5 + Emacs-20.2で確認しました。
確かに(directory-files ...)がエラーになって起動しないですね。 ^^;
ごめんなさい。
#Meadowで試したときに操作ミスしたのかなぁ?

とりあえずパッチです。
本来なら(mew-folder-list ...)でやるべきでしょうが、ファイルアクセスを
減らすために(mew-folder-make-list ...)に対処しました。

でわでわ
-- 
yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
  yamagus at example.com / 山口 修平
PGP-Fingerprint: 25 0F 6F E1 57 AD 56 08  3A BC D0 9B 48 AF 31 7A
-------------- next part --------------
--- mew.el.orig	Tue Mar 11 06:39:00 1997
+++ mew.el	Wed Mar 11 01:46:00 1998
@@ -429,8 +429,10 @@
 	(insert-file-contents file))
        (t
 	(mapcar (lambda (x) (insert x "\n"))
-		(nconc (mew-folder-list "+")
-		       (mew-folder-list "=")))
+		(nconc (and (file-directory-p (mew-expand-folder "+"))
+			    (mew-folder-list "+"))
+		       (and (file-directory-p (mew-expand-folder "="))
+			    (mew-folder-list "="))))
 	(if mew-use-folders-file-p
 	    (write-region (point-min) (point-max) file nil 'no-msg)))
        )