[Mew-dist 06199] Re: Return value of mew-make-directory

[若宮賢二]

若宮＠富士通研です。

// "白井" = Shirai at example.com (Hideyuki SHIRAI (白井秀行)) 氏談:

白井> mew-summary-goto-folder() 内部の
白井>      ((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-make-directory() の戻り値が nil 以外になること
白井> を期待しているようですが、
白井> (mew-make-directory "/home/shirai/ZZZ") C-xC-e → nil
白井> となり、上記の if 文の判定を満たしません。

  そうですね。nil 以外を期待したわけではなかったのですが、コードの整理
  の途中でこうなったようです。確か以前は、cache directory を作らないと
  答えた場合でもサマリ表示は行なうことにしていましたので、以下のように
  すれば元通りではないでしょうか。(ご指摘ありがとうございます(_ _)

--- mew-summary-.el	Thu Aug 27 13:35:14 1998
+++ mew-summary.el	Fri Aug 28 16:09:38 1998
@@ -527,13 +527,13 @@
         (message "No such virtual folder: %s" folder)
 	(mew-folder-delete folder)))
      ((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)))
+      (if (and (not (file-directory-p dir))
+	       (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
       (if (null dir)
 	  (message "Folder is wrong")

// Kenji    | mailto:wkenji at example.com (office)
// Wakamiya | mailto:wkenji at example.com (private)