[Mew-dist 09816] Re: .folders について

[Kazu Yamamoto ( 山本和彦 )]

From: nara at example.com
Subject: [Mew-dist 09813] Re: .folders について
Date: Thu, 22 Jul 1999 01:21:07 +0900

> もう一度やってみましたが、再現します。

ようやく理解しました。.folders の中で重複するのですね。以下のパッチで
直ると思います。C-u Z して正常に戻してから、試して下さい。

--かず
-------------- next part --------------
Index: mew-func.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-func.el,v
retrieving revision 1.67
diff -c -r1.67 mew-func.el
*** mew-func.el	1999/07/21 14:27:34	1.67
--- mew-func.el	1999/07/22 06:31:37
***************
*** 376,382 ****
        nil ;; wrong
      (let ((absdir (mew-expand-folder folder))  ;; /home/Mail/foo
  	  (folders-file (expand-file-name mew-folders-file mew-mail-path))
! 	  create-it)
        (if (file-exists-p absdir)
  	  (if (file-directory-p absdir)
  	      t ;; exists
--- 376,382 ----
        nil ;; wrong
      (let ((absdir (mew-expand-folder folder))  ;; /home/Mail/foo
  	  (folders-file (expand-file-name mew-folders-file mew-mail-path))
! 	  create-it append-it)
        (if (file-exists-p absdir)
  	  (if (file-directory-p absdir)
  	      t ;; exists
***************
*** 391,398 ****
  	(if (not create-it)
  	    nil ;; not created
  	  (mew-make-directory absdir)
! 	  (mew-folder-setup folder)
! 	  (if (file-readable-p folders-file)
  	      (save-excursion
  		(mew-set-buffer-tmp)
  		(insert folder)
--- 391,398 ----
  	(if (not create-it)
  	    nil ;; not created
  	  (mew-make-directory absdir)
! 	  (setq append-it (mew-folder-setup folder))
! 	  (if (and append-it (file-writable-p folders-file))
  	      (save-excursion
  		(mew-set-buffer-tmp)
  		(insert folder)