From: yoichi <yoichi>
Date: Sun, 20 Aug 2006 14:51:00 +0000 (+0000)
Subject: * elmo-archive.el (elmo-archive-folder-append-buffer): Remove
X-Git-Tag: wl-2_15_4~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c79686f318fac9113068a63a9fe2a4b985503e4e;p=elisp%2Fwanderlust.git

* elmo-archive.el (elmo-archive-folder-append-buffer): Remove
meaningless unwind-protect.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b8349a4..4d4b96f 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2006-08-20  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+	* elmo-archive.el (elmo-archive-folder-append-buffer): Remove
+	meaningless unwind-protect.
+
 	* elmo-maildir.el (elmo-folder-message-make-temp-files): Respect
 	start-number correctly.
 	* elmo-search.el (elmo-folder-message-make-temp-files): Ditto.
diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index a9d22e3..c9387dd 100644
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -604,25 +604,24 @@ TYPE specifies the archiver's symbol."
       (setq newfile (elmo-concat-path
 		     prefix
 		     (int-to-string next-num)))
-      (unwind-protect
-	  (elmo-bind-directory
-	   tmp-dir
-	   (if (and (or (functionp method) (car method))
-		    (file-writable-p newfile))
-	       (progn
-		 (setq dst-buffer (current-buffer))
-		 (with-current-buffer src-buffer
-		   (copy-to-buffer dst-buffer (point-min) (point-max)))
-		 (as-binary-output-file
+      (elmo-bind-directory
+       tmp-dir
+       (if (and (or (functionp method) (car method))
+		(file-writable-p newfile))
+	   (progn
+	     (setq dst-buffer (current-buffer))
+	     (with-current-buffer src-buffer
+	       (copy-to-buffer dst-buffer (point-min) (point-max)))
+	     (as-binary-output-file
 		  (write-region (point-min) (point-max) newfile nil 'no-msg))
-		 (when (elmo-archive-call-method method (list arc newfile))
-		   (elmo-folder-preserve-flags
-		    folder
-		    (with-current-buffer src-buffer
-		      (elmo-msgdb-get-message-id-from-buffer))
-		    flags)
-		   t))
-	     nil))))))
+	     (when (elmo-archive-call-method method (list arc newfile))
+	       (elmo-folder-preserve-flags
+		folder
+		(with-current-buffer src-buffer
+		  (elmo-msgdb-get-message-id-from-buffer))
+		flags)
+	       t))
+	 nil)))))
 
 (luna-define-method elmo-folder-append-messages :around
   ((folder elmo-archive-folder) src-folder numbers &optional same-number)