[mew-dist 21833] Re: とっても危険!! make directory mode of Mew

[Kazu Yamamoto ( 山本和彦 )]

From: SAITO Takuya <tabmore at example.com>
Subject: [mew-dist 21823] Re: とっても危険!! make directory mode of Mew

> "g" でリモートフォルダに移動しようとした場合、
> mew-summary-visit-folderの引数folderは "case:folder"
> になっていますので、
> (mew-folder-remotep folder)
> は non-nil にならないです。
> 
> あと、mew-summary-visit-folderの引数folderはoptionalでは無い
> のではないでしょうか。

こんな感じでいかがでしょうか？

--かず

Index: mew-summary4.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-summary4.el,v
retrieving revision 1.50
diff -c -r1.50 mew-summary4.el
*** mew-summary4.el	2002/09/30 03:06:48	1.50
--- mew-summary4.el	2002/10/01 03:01:17
***************
*** 78,84 ****
  	(select-frame (make-frame))))
      (mew-summary-visit-folder folder goend)))
  
! (defun mew-summary-visit-folder (&optional folder goend no-ls)
    (let ((dir (mew-expand-folder folder))
  	new-folder scanp)
      (cond
--- 78,84 ----
  	(select-frame (make-frame))))
      (mew-summary-visit-folder folder goend)))
  
! (defun mew-summary-visit-folder (folder &optional goend no-ls)
    (let ((dir (mew-expand-folder folder))
  	new-folder scanp)
      (cond
***************
*** 94,100 ****
        (if (null dir)
  	  (message "Folder is wrong")
  	(cond
! 	 ((mew-folder-remotep folder)
  	  (unless (file-directory-p dir)
  	    (mew-make-directory dir))
  	  (setq scanp t))
--- 94,100 ----
        (if (null dir)
  	  (message "Folder is wrong")
  	(cond
! 	 ((mew-folder-remotep (mew-folder-folder folder))
  	  (unless (file-directory-p dir)
  	    (mew-make-directory dir))
  	  (setq scanp t))