[Mew-dist 10571] directory not empty

[Tsuyoshi AKIHO]

大阪市立大学の秋保と申します。

NeXTSTEP 3.3J で Mule 2.3(based on GNU Emacs 19.28) で、
Mew 1.94pre4, IM 127, perl 5.00502 の組合せです。

home が NFS で共有されています。この環境で、M-x mew-send 
とかで Mew を使ってメールを送信しようとすると添付したエラー
が出現します。エラーが出ても送信できるのですが、directory が
掘られたまま、残ってしまいます。

~/Mail/draft/mime/2 directory の中に
.nfsA1E2
というファイルができます。これが曲者で、 backtrace の内容ど
おり ~/Mail/draft/mime/2 directory が空でない。
nfs と書いてあることから NFS のファイルだと思います。

時間がたてば、 .nfsA1E2 というファイルは削除されます。NFS の
パフォーマンスが、普通の環境より悪いのでしょうか？どうも NFS
のファイルが速く削除されれば問題なく動作し、削除が遅ければ、
error が出て directory は削除されないようです。

-------------- next part --------------
Signalling: (file-error "Removing directory" "directory not empty" "/home-e/sci/m98/m98s201/Mail/draft/mime/2")
  delete-directory("/home-e/sci/m98/m98s201/Mail/draft/mime/2")
  (if (not (file-directory-p dir)) nil (let (...) (while files ... ...)) (delete-directory dir))
  mew-delete-directory-recursively("/home-e/sci/m98/m98s201/Mail/draft/mime/2")
  (or preserve (mew-delete-directory-recursively attachdir))
  (if (and unknown (not ...)) (message (substitute-command-keys "To send this message, edit Config: then type '\\<mew-draft-mode-map>\\[mew-draft-send-letter]'")) (if mew-addrbook-append-domain-p (mapcar ... ...)) (if preserve (setq keep "--preserve=on") (setq keep "--preserve=off") (mew-overlay-delete-buffer) (kill-buffer ...) (if ... ...)) (set-buffer (generate-new-buffer mew-buffer-watch)) (setq mew-watch-buffer-process (mew-im-start-process mew-prog-imput "Send" "-draftfolder" mew-draft-folder "-draftmessage" msg keep "-watch" "-verbose")) (mew-set-process-cs mew-watch-buffer-process mew-cs-autoconv mew-cs-mime-trans) (set-process-sentinel mew-watch-buffer-process (quote mew-watch-sentinel)) (message "Sending a message in background") (or preserve (mew-delete-directory-recursively attachdir)))
  (let ((attachdir ...) (msg ...) (process-connection-type mew-connection-type1) keep config unknown) (run-hooks (quote mew-real-send-hook)) (set-buffer-modified-p t) (mew-frwlet mew-cs-dummy mew-cs-mime-trans (save-buffer)) (setq config (mew-header-get-value mew-config:)) (and config (setq config ...)) (while config (if ... ...) (setq config ...)) (if (and unknown ...) (message ...) (if mew-addrbook-append-domain-p ...) (if preserve ... ... ... ... ...) (set-buffer ...) (setq mew-watch-buffer-process ...) (mew-set-process-cs mew-watch-buffer-process mew-cs-autoconv mew-cs-mime-trans) (set-process-sentinel mew-watch-buffer-process ...) (message "Sending a message in background") (or preserve ...)))
  mew-draft-real-send-letter(nil)
  (if (or (not mew-ask-send) (y-or-n-p ...)) (mew-draft-real-send-letter preserve) (mew-draft-undo))
  (progn (mew-draft-make-message) (if (or ... ...) (mew-draft-real-send-letter preserve) (mew-draft-undo)))
  (condition-case nil (progn (mew-draft-make-message) (if ... ... ...)) (quit (mew-draft-undo)))
  (if (mew-header-p) (condition-case nil (progn ... ...) (quit ...)) (mew-draft-real-send-letter preserve))
  mew-draft-send-letter(nil)
* call-interactively(mew-draft-send-letter)