[Mew-dist 09610] Re: 1.94b38

[Kazu Yamamoto ( 山本和彦 )]

From: Tomio Sato (佐藤 富雄) <sato at example.com>
Subject: [Mew-dist 09607] Re: 1.94b38
Date: Tue, 13 Jul 1999 16:45:43 +0900

> 早速、b38をいれました。
> C-uZでフォルダリストの更新すると.foldersが空になってしまい、
> フォルダの補間ができなくなってしまいます。

すいません。これを当てて下さい。

--かず
-------------- next part --------------
Index: mew-func.el
===================================================================
RCS file: /home/kazu/cvsroot/Mew/mew/mew-func.el,v
retrieving revision 1.65
diff -c -r1.65 mew-func.el
*** mew-func.el	1999/07/12 12:05:50	1.65
--- mew-func.el	1999/07/13 09:26:28
***************
*** 461,472 ****
  		    (not (nth 0 attr))) ;; this is a file
  		() 
  	      (setq subfolder (concat subprefix relpath))
! 	      (nconc folders (list subfolder))
  	      (if (or (and mew-folder-list-skip-pattern
  			   (not (string-match mew-folder-list-skip-pattern
  					      relpath)))
  		      (/= (nth 1 attr) 2)) ;; # of links
! 		  (nconc folders (mew-folder-list subfolder)))))
  	  folders) ;; return value
        (file-error folders))))
  
--- 461,472 ----
  		    (not (nth 0 attr))) ;; this is a file
  		() 
  	      (setq subfolder (concat subprefix relpath))
! 	      (setq folders (nconc folders (list subfolder)))
  	      (if (or (and mew-folder-list-skip-pattern
  			   (not (string-match mew-folder-list-skip-pattern
  					      relpath)))
  		      (/= (nth 1 attr) 2)) ;; # of links
! 		  (setq folders (nconc folders (mew-folder-list subfolder))))))
  	  folders) ;; return value
        (file-error folders))))