[Mew-dist 04170] Re: b24

[YAMAGUCHI, Shuhei]

>>> In article <19980311015635H.yamagus at example.com>,
>>>    "YAMAGUCHI, Shuhei" <yamagus at example.com> writes:

  ishizuka> ただ、~/News/ という directory を作っておかないと起動しない
  ishizuka> のが、少し気になりました。（今までもじらが ~/nsmail/ を要求し
(snip)
  yamagus> とりあえずパッチです。
  yamagus> 本来なら(mew-folder-list ...)でやるべきでしょうが、ファイルアクセスを
  yamagus> 減らすために(mew-folder-make-list ...)に対処しました。

よくよく考えればcondition-caseを使えばいいということに気づいたので、
再度パッチです。
[Mew-dist 04151]のパッチは忘れてください。 ^^;
なお、これを充てる前に[Mew-dist 04147]を充ててください。

でわでわ
-- 
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-func.el.old	Wed Mar 11 01:33:40 1998
+++ mew-func.el	Thu Mar 12 00:08:09 1998
@@ -360,26 +360,29 @@
   (let ((case-fold-search t)
 	folders curdir dirent relpath abspath attr
 	subprefix subfolder)
-    (setq curdir (mew-expand-folder folder))
-    (if (string-match "^[+=]$" folder)
-	(setq subprefix folder)
-      (setq subprefix (concat folder "/")))
-    (setq dirent (directory-files curdir))
-    (while dirent
-      (setq relpath (car dirent))
-      (setq dirent (cdr dirent))
-      (setq abspath (expand-file-name relpath curdir))
-      (and
-       (not (string-match mew-folder-list-skip-pattern relpath))
-       (eq (nth 0 (setq attr (mew-file-attributes abspath))) t)
-       (setq subfolder (concat subprefix relpath))
-       (setq folders (nconc folders (list subfolder)))
-       (or
-	(and
-	 mew-folder-list-use-file-attributes
-	 (>= 2 (nth 1 attr)))
-	(setq folders (nconc folders (mew-folder-list subfolder))))))
-    folders))
+    (condition-case nil
+	(progn
+	  (setq curdir (mew-expand-folder folder))
+	  (if (string-match "^[+=]$" folder)
+	      (setq subprefix folder)
+	    (setq subprefix (concat folder "/")))
+	  (setq dirent (directory-files curdir))
+	  (while dirent
+	    (setq relpath (car dirent))
+	    (setq dirent (cdr dirent))
+	    (setq abspath (expand-file-name relpath curdir))
+	    (and
+	     (not (string-match mew-folder-list-skip-pattern relpath))
+	     (eq (nth 0 (setq attr (mew-file-attributes abspath))) t)
+	     (setq subfolder (concat subprefix relpath))
+	     (setq folders (nconc folders (list subfolder)))
+	     (or
+	      (and
+	       mew-folder-list-use-file-attributes
+	       (>= 2 (nth 1 attr)))
+	      (setq folders (nconc folders (mew-folder-list subfolder))))))
+	  folders)
+      (file-error folders))))
 
 ;;
 ;; Directory