[Mew-dist 06195] Return value of mew-make-directory

[Hideyuki SHIRAI ( 白井秀行 )]

## IMAP は実際には使っていないので良くわからないのですが、コード
## を引用させてもらって遊んでいて気付きました。^^;

mew-summary-goto-folder() 内部の

    (cond
      << snip >>
     ((mew-folder-imapp folder)
      (if (or (file-directory-p dir)
	      (and (y-or-n-p
		    (format
		     "Cache directory for %s does not exist. Create it? "
		     folder))
		   (mew-make-directory dir)))
	  (mew-summary-goto-folder-subr folder arg)))
     (t   ;; mail or local news

という部分で、mew-make-directory() の戻り値が nil 以外になること
を期待しているようですが、

(mew-make-directory "/home/shirai/ZZZ") C-xC-e → nil

となり、上記の if 文の判定を満たしません。上記の判定の仕方は便利
なので、

--- mew-func.el.orig	Fri Aug 28 14:10:20 1998
+++ mew-func.el	Fri Aug 28 14:15:06 1998
@@ -440,7 +440,8 @@
 	(delete-file path))
     (make-directory path)
     (set-file-modes path mew-folder-mode)
-    ))
+    )
+  t)
 
 (defun mew-delete-directory-recursively (dir)
   (let ((files (directory-files dir t "^[^.]\\|^.[^.]")))

がとりあえず一番手っ取り早い解決策だとは思います。

# IMAP のときはこのままでいいのだよ、ということならごかんべんを。

-- 
白井秀行 (Hideyuki SHIRAI)