[Mew-dist 10932] Re: [mew1.95b2] send message

[Tomoya Ida]

 |From: Koga Youichirou <y-koga at example.com>
 |Date: Fri, 15 Oct 1999 15:54:13 +0900
 |>   mew-folder-check("inbox" force-to-create)
 |
 |mew-fcc (あるいは Fcc: フィールド) のフォルダの指定で、"+" を頭につけ
 |ましょう。

私も同じ現象にハマって info を見て "+" をつけることを知りました。

1.95b1 まではつけなくても使えていたので，imput のように
なければつけるという添付のような修正をしてみました。
如何でしょう。
# mew-expand-folder でやった方がいいのかもしれません。

ida
-------------- next part --------------
--- mew-draft.el.orig	Thu Oct 14 17:09:34 1999
+++ mew-draft.el	Fri Oct 15 15:46:41 1999
@@ -681,12 +681,19 @@
 	  (mapcar (function mew-addrbook-alias-add)
 		  (mew-header-parse-address-list (list mew-to: mew-cc:))))
       ;; Fcc: vs folders
-      (let ((folders (mew-header-get-value mew-fcc:)))
+      (let ((folders (mew-header-get-value mew-fcc:)) folder)
 	(if (null folders)
 	    ()
 	  (setq folders (mew-addrstr-parse-value-list2 folders))
 	  (while folders
-	    (mew-folder-check (car folders) 'force-to-create)
+	    (setq folder (car folders))
+	    (if (or (mew-folder-mailp folder)
+		    (mew-folder-local-newsp folder)
+		    (mew-folder-imapp folder)
+		    (file-name-absolute-p folder))
+		()
+	      (setq folder (concat "+" folder)))
+	    (mew-folder-check folder 'force-to-create)
 	    (setq folders (cdr folders)))))
       ;;
       (if preserve