[Mew-Win32 00341] Re: mew-folder-list (Re: C-uZ)

[Hideyuki SHIRAI]

白井です。

# 10分時間が空いた！！

From: "YAMAGUCHI, Shuhei" <yamagus at example.com> さん曰く
Subject: [Mew-Win32 00340] Re: mew-folder-list (Re: C-uZ)
Message-ID: <19980303144846B.yamagus at example.com>
Date: Tue, 3 Mar 1998 14:47:34 +0900

山口>   Shirai> 私の環境はすべて、"t"です。
山口>   Shirai> 起動時に、~/Mail/.foldersを読めていないというか、ファイルの内容
山口>   Shirai> が設定されませんでした。mew-folder-listが最初かな？
山口> 
山口> あの部分、昼休み中の3分間クッキングだったので、mew-folder-listを埋め込
山口> む以外には、ロクにコード追ってなかったです。
山口> やっぱり心配的中でしたね。 ^^;
山口> どうもです。 :-)

とりあえず、動くようにしたつもりです。確かめてみて下さい。

-------------- next part --------------
*** mew-parasite.el.orig	Tue Mar  3 13:26:23 1998
--- mew-parasite.el	Tue Mar  3 15:32:09 1998
***************
*** 3,9 ****
  ;;
  ;;                       "YAMAGUCHI, Shuhei" <yamagus at example.com>
  ;;                                            Created: <03/03/1998>
! ;;                                Revised: Time-stamp: <03/03/1998 12:47>
  ;;
  ;; To use mew-parasite.el, put the following codes in your .emacs.
  ;; (eval-after-load "mew" '(load "mew-parasite"))
--- 3,9 ----
  ;;
  ;;                       "YAMAGUCHI, Shuhei" <yamagus at example.com>
  ;;                                            Created: <03/03/1998>
! ;;                                Revised: Time-stamp: <03/03/1998 15:32>
  ;;
  ;; To use mew-parasite.el, put the following codes in your .emacs.
  ;; (eval-after-load "mew" '(load "mew-parasite"))
***************
*** 64,109 ****
  	  (start nil)
  	  (file (expand-file-name mew-folders-file mew-mail-path)))
        (mew-set-buffer-tmp)
!       (if (and (not updatep)
! 	       mew-use-folders-file-p
! 	       (file-readable-p file))
! 	  (insert-file-contents file)
! 	(if mew-use-folder-list-function
! 	    (progn
! 	      (setq folders (nconc (mew-folder-list "+")
! 				   (mew-folder-list "=")))
! 	      (if mew-use-folders-file-p
! 		  (progn
! 		    (mapcar
! 		     (lambda (folder)
! 		       (insert folder "\n"))
! 		     folders)
! 		    (write-region (point-min) (point-max) file nil 'no-msg))))
  	  (mew-im-call-process nil mew-prog-impath "--list=yes" "--src=+")
  	  (mew-im-call-process nil mew-prog-impath "--list=yes" "--src==")
  	  (if mew-use-folders-file-p
! 	      (write-region (point-min) (point-max) file nil 'no-msg))
! 	  ))
!       (if (not mew-use-folder-list-function)
! 	  (progn
! 	    (goto-char (point-min))
! 	    (while (not (eobp))
! 	      (setq start (point))
! 	      (if (not (looking-at "[+=]"))
! 		  (forward-line)
! 		(forward-line)
! 		(setq folder (mew-buffer-substring start (1- (point))))
! 		(if (and (car folders)
! 			 (string-match (concat "^" (regexp-quote 
! 						    (file-name-as-directory
! 						     (car folders))))
! 				       folder))
! 		    ;; regexp-quote is not necessary since not "+".
! 		    (setq folders 
! 			  (cons folder 
! 				(cons (file-name-as-directory (car folders))
! 				      (cdr folders))))
! 		  (setq folders (cons folder folders))))
! 	      )))
        folders ;; return value
        )))
--- 64,109 ----
  	  (start nil)
  	  (file (expand-file-name mew-folders-file mew-mail-path)))
        (mew-set-buffer-tmp)
!       (cond
!        ((and (not updatep)
! 	     mew-use-folders-file-p
! 	     (file-readable-p file))
! 	(insert-file-contents file))
!        (mew-use-folder-list-function
! 	(progn
! 	  (setq folders (nconc (mew-folder-list "+")
! 			       (mew-folder-list "=")))
! 	  (if mew-use-folders-file-p
! 	      (progn
! 		(mapcar
! 		 (lambda (folder)
! 		   (insert folder "\n"))
! 		 folders)
! 		(write-region (point-min) (point-max) file nil 'no-msg)))))
!        (t
! 	(progn
  	  (mew-im-call-process nil mew-prog-impath "--list=yes" "--src=+")
  	  (mew-im-call-process nil mew-prog-impath "--list=yes" "--src==")
  	  (if mew-use-folders-file-p
! 	      (write-region (point-min) (point-max) file nil 'no-msg)))))
!       (goto-char (point-min))
!       (while (not (eobp))
! 	(setq start (point))
! 	(if (not (looking-at "[+=]"))
! 	    (forward-line)
! 	  (forward-line)
! 	  (setq folder (mew-buffer-substring start (1- (point))))
! 	  (if (and (car folders)
! 		   (string-match (concat "^" (regexp-quote 
! 					      (file-name-as-directory
! 					       (car folders))))
! 				 folder))
! 	      ;; regexp-quote is not necessary since not "+".
! 	      (setq folders 
! 		    (cons folder 
! 			  (cons (file-name-as-directory (car folders))
! 				(cdr folders))))
! 	    (setq folders (cons folder folders))))
! 	)
        folders ;; return value
        )))