[mew-dist 29400] ~/Mail/inbox

mew-inbox-folder  +inbox 
~/Mail/inbox 

~/Mail/inbox 

k/  1 
V  1 



folder  mewl 
mewl  +inbox  chdir 
+inbox 



mkdir ~/Mail/inbox

 ~/Mail/inbox 
 2 




mewl 

mewl  -i 
 folder 
 +inbox  chdir 

-i  Input_file  folder 
+inbox  chdir 

 +inbox  chdir 
Input_file  folder 


----------------------------------------------------
--- mewl.c.org	2011-06-29 14:35:01.000000000 +0900
+++ mewl.c	2011-07-09 12:53:29.248609200 +0900
@@ -111,6 +111,9 @@
 private int PrintNumOfMsg = NO;
 private int Suffix_len = 0;
 
+private int no_fld_flag = 0;
+private int default_fld_error_flag = 0;
+
 /****************************************************************
  *
  * prototype
@@ -261,8 +264,12 @@
 		ch_mail_home(Mail_home);
 		if (p == NUL)
 			break;
-		if (chdir(p) != 0)
-			warn_exit("can't change folder to %s.", folder);
+		if (chdir(p) != 0) {
+			if( no_fld_flag != 0 )
+				default_fld_error_flag = 1;
+			else
+				warn_exit("can't change folder to %s.", folder);
+		}
 		break;
 	case '~':
 		ch_home();
@@ -886,6 +893,8 @@
 			while ((c = getchar()) != LF && c != EOF) ;
 		}
 		if (STRCMP(p, CHDIR) == 0) {
+			no_fld_flag = 0;
+			default_fld_error_flag = 0;
 			p = p + strlen(CHDIR);
 			while (*p == SP || *p == TAB) p++;
 			if (strlen(p) >= sizeof(Current_folder))
@@ -895,6 +904,8 @@
 			*foldername = Current_folder;
 			continue;
 		}
+		if(default_fld_error_flag != 0)
+			warn_exit("default folder is not exist.");
 		while (*p == SP || *p == TAB) p++;
 		if (isdigit((unsigned char)*p) == 0) continue;
 		*filename = p;
@@ -1075,6 +1086,7 @@
 		switch (rest) { /* lim == 0 */
 		case 0:
 			set_fld_rng(&Folders[lim++], NULL, NULL);
+			no_fld_flag = 1;
 			break;
 		case 1:
 			set_fld_rng(&Folders[lim++], argv[Optind], NULL);
----------------------------------------------------

lisp 

mewl  -i  folder 
 mew-inbox-folder 
 case IMAP 
 folder mew-mail-path 

 Input_file  folder 
 folder 
 mew-mail-path 


----------------------------------------------------
--- mew-search.el.org	2011-06-29 14:35:01.000000000 +0900
+++ mew-search.el	2011-07-09 10:55:37.859009200 +0900
@@ -160,7 +160,7 @@
 		(setq file-rttl (funcall func pattern flds filter)))))
 	  (mew-set '(file rttl) file-rttl)
 	  (setq dfunc `(lambda () (mew-delete-file ,file)))
-	  (setq opts (list "-i" file))
+	  (setq opts (list "-i" file "-s" mew-mail-path))
 	  (mew-local-retrieve 'vir opts dfunc nil nil rttl))))))
 
 (defun mew-summary-make-index-folder ()
@@ -703,7 +703,7 @@
 	    (mew-frwlet mew-cs-text-for-read mew-cs-text-for-write
 	      (write-region (point-min) (point-max) file nil 'no-msg))))
 	(setq dfunc `(lambda () (mew-delete-file ,file)))
-	(setq opts (list "-i" file))
+	(setq opts (list "-i" file "-s" mew-mail-path))
 	(mew-local-retrieve 'vir opts dfunc nil nil rttl))))))
 
 (defun mew-summary-get-subject ()
--- mew-summary4.el.org	2011-06-29 14:35:01.000000000 +0900
+++ mew-summary4.el	2011-07-09 10:56:35.084609200 +0900
@@ -630,7 +630,8 @@
 	 (call-process mew-prog-mewl nil t nil
 		       "-b" mew-mail-path "-l" "0"
 		       "-x" mew-suffix
-		       "-i" tfile "-d" "content-type")
+		       "-i" tfile "-d" "content-type"
+		       "-s" mew-mail-path)
 	 (mew-delete-file tfile)
 	 (goto-char (point-min))
 	 (while (not (eobp))
--- mew-virtual.el.org	2011-06-29 14:35:01.000000000 +0900
+++ mew-virtual.el	2011-07-09 10:57:04.674209200 +0900
@@ -118,7 +118,7 @@
 	file rttl func args)
     (mew-set '(file rttl) file-rttl)
     (setq func `(lambda () (mew-delete-file ,file)))
-    (setq args (list "-i" file))
+    (setq args (list "-i" file "-s" mew-mail-path))
     (mew-local-retrieve 'vir args func lra nil rttl)))
 
 (defun mew-summary-selection-by-pick-with-grep1 (prog opts pattern folder msgs)
--- mew-virtual.el.org	2011-06-29 14:35:01.000000000 +0900
+++ mew-virtual.el	2011-07-09 10:57:04.674209200 +0900
@@ -118,7 +118,7 @@
 	file rttl func args)
     (mew-set '(file rttl) file-rttl)
     (setq func `(lambda () (mew-delete-file ,file)))
-    (setq args (list "-i" file))
+    (setq args (list "-i" file "-s" mew-mail-path))
     (mew-local-retrieve 'vir args func lra nil rttl)))
 
 (defun mew-summary-selection-by-pick-with-grep1 (prog opts pattern folder msgs)
----------------------------------------------------

mew-inbox-folder 
IMAP  ~/Mail/inbox 




    <[email protected]>