Open fcc folder before appending the message

* wl-draft.el (wl-draft-do-fcc): Open fcc folder before appending the
  message.

wl/ChangeLog

@@ -1,3 +1,8 @@
+2014-06-09  David Maus  <dmaus@ictsoc.de>
+
+	* wl-draft.el (wl-draft-do-fcc): Open fcc folder before appending
+	the message.
+
 2014-05-30  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
 
 	* wl-refile.el (wl-refile-guess-by-msgid): Add the comment for old

wl/wl-draft.el

@@ -1591,18 +1591,18 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
       (let ((id (std11-field-body "Message-ID"))
 	    (elmo-enable-disconnected-operation t))
 	(while fcc-list
-	  (if (elmo-folder-append-buffer
-	       (wl-folder-get-elmo-folder
-		(eword-decode-string (car fcc-list)))
-	       (and wl-fcc-force-as-read '(read)))
-	      (wl-draft-write-sendlog 'ok 'fcc nil (car fcc-list) id)
-	    (wl-draft-write-sendlog 'failed 'fcc nil (car fcc-list) id))
-	  (if (and wl-draft-fcc-append-read-folder-history
-		   (boundp 'wl-read-folder-history))
-	      (or (equal (car fcc-list) (car wl-read-folder-history))
-		  (setq wl-read-folder-history
-			(append (list (car fcc-list)) wl-read-folder-history))))
-	  (setq fcc-list (cdr fcc-list)))))))
+          (let ((folder (wl-folder-get-elmo-folder
+                         (eword-decode-string (car fcc-list)))))
+            (elmo-folder-open folder)
+            (if (elmo-folder-append-buffer folder (and wl-fcc-force-as-read '(read)))
+                (wl-draft-write-sendlog 'ok 'fcc nil (car fcc-list) id)
+              (wl-draft-write-sendlog 'failed 'fcc nil (car fcc-list) id))
+            (if (and wl-draft-fcc-append-read-folder-history
+                     (boundp 'wl-read-folder-history))
+                (or (equal (car fcc-list) (car wl-read-folder-history))
+                    (setq wl-read-folder-history
+                          (append (list (car fcc-list)) wl-read-folder-history))))
+            (setq fcc-list (cdr fcc-list))))))))
 
 (defun wl-draft-on-field-p ()
   (if (< (point)