[mew-dist 25658] goto-folder 二題

[Hideyuki SHIRAI ( 白井秀行 )]

# mew-nmz の remote 対応を考えていて、気になった点。

(1) summary で "g" したときに存在しない NetNews の folder を指定
    しても動いてしまい、なおかつ、キャッシュのディレクトリも掘っ
    ちゃうのでちょっとイヤ。

    => 付属のパッチ

(2) summary で "g" したときに存在しない pop folder ($hoge とか)
    を指定すると、(mew-input-folder case1 inbox) の戻り値が nil
    なので、mew-case:folder-case(nil) でエラーになる。

    => こちらはどこでガードするべきかの判断に迷ったのでおまかせ

-- 
白井秀行 (mailto:shirai.hideyuki at example.com)

--- mew-summary4.el	25 Oct 2004 11:56:39 +0900	1.88
+++ mew-summary4.el	12 Nov 2004 13:21:36 +0900	
@@ -64,21 +64,25 @@
   (interactive "P")
   (let* ((proto (mew-proto-to-go (mew-summary-folder-name 'ext)))
 	 (case1 (if (mew-folder-remotep proto)
-		   (mew-sinfo-get-case) ;; a remote folder
-		 mew-case-input)) ;; a local/virtual folder
+		    (mew-sinfo-get-case) ;; a remote folder
+		  mew-case-input))	 ;; a local/virtual folder
 	 (inbox (mew-proto-inbox-folder	proto case1))
-
 	 (case:folder (mew-input-folder case1 inbox))
 	 (case (mew-case:folder-case case:folder))
 	 (folder (mew-case:folder-folder case:folder))
 	 buf win frame goend folder-alist sep)
-    (when (mew-folder-imapp folder)
+    (cond
+     ((mew-folder-imapp folder)
       (setq folder-alist (mew-imap-folder-alist case))
       (setq sep (mew-imap-separator case))
       (unless (or (assoc folder folder-alist)
 		  (assoc (concat folder sep) folder-alist))
 	(message "%s does not exist" case:folder)
 	(setq case:folder nil)))
+     ((mew-folder-nntpp folder)
+      (unless (assoc folder (mew-nntp-folder-alist case))
+	(message "%s does not exist" case:folder)
+	(setq case:folder nil))))
     (when case:folder
       (when mew-use-other-frame-for-summary
 	(if (setq buf (get-buffer case:folder))