[Mew-dist 10708] Re: directory not empty

[Kazu Yamamoto ( 山本和彦 )]

From: Tsuyoshi AKIHO <akiho at example.com>
Subject: [Mew-dist 10706] Re: directory not empty

> という問題があって、Mew 1.94 & IM 130 でも同じでした。
> そこで、mew-func.el の 559 行目を
>     (setq files (cdr files))))
> から
>     (setq files (directory-files dir t "^[^.]\\|^.[^.]"))))
> に変更したところ、エラーは出なくなりました。

タイミング問題のようですね。これで直るかもしれません。

--かず
-------------- next part --------------
*** mew-func.el.orig	Mon Sep 20 18:17:52 1999
--- mew-func.el	Mon Sep 20 18:23:23 1999
***************
*** 557,563 ****
  	 (t
  	  (delete-file (car files))))
  	(setq files (cdr files))))
!     (delete-directory dir)))
  
  ;;
  ;; File existence
--- 557,564 ----
  	 (t
  	  (delete-file (car files))))
  	(setq files (cdr files))))
!     (if (null (directory-files dir t "^[^.]\\|^.[^.]"))
! 	(delete-directory dir))))
  
  ;;
  ;; File existence