From: okada <okada>
Date: Wed, 22 Nov 2000 09:49:06 +0000 (+0000)
Subject: sync up
X-Git-Tag: wl-2_6-root~169
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2f17e4a821e2c6e2fbd4ac5c391713512bc33ef1;p=elisp%2Fwanderlust.git

sync up
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 56fc0ae..ca1db75 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2000-11-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-save-view-cache):
+	Delete duplicated `write-region';
+	Use `write-region-as-binary' instead of `as-binary-output-file' and
+	`write-region'.
+
 2000-11-20  Katsumi Yamaoka    <yamaoka@jpl.org>
 
 	* wl-e21.el (wl-make-date-string): Bind `system-time-locale' to "C".
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index c41276e..8087742 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4590,8 +4590,6 @@ If ARG, exit virtual folder."
     (let* ((dir (elmo-msgdb-expand-path wl-summary-buffer-folder-name))
 	   (cache (expand-file-name wl-summary-cache-file dir))
 	   (view (expand-file-name wl-summary-view-file dir))
-;;;	   (coding-system-for-write wl-cs-cache)
-;;;	   (output-coding-system wl-cs-cache)
 	   (save-view wl-summary-buffer-view)
 	   (tmp-buffer (get-buffer-create " *wl-summary-save-view-cache*"))
 	   (charset wl-summary-buffer-mime-charset))
@@ -4610,11 +4608,8 @@ If ARG, exit virtual folder."
 		(widen)
 		(encode-mime-charset-region
 		 (point-min) (point-max) charset)
-		(as-binary-output-file
-		 (write-region (point-min)
-			       (point-max) cache nil 'no-msg))
-		(write-region (point-min) (point-max) cache nil
-			      'no-msg)))
+		(write-region-as-binary (point-min)(point-max)
+					cache nil 'no-msg)))
 	    (when (file-writable-p view) ; 'thread or 'sequence
 	      (save-excursion
 		(set-buffer tmp-buffer)