From: teranisi <teranisi>
Date: Wed, 22 Nov 2000 01:15:44 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-save-view-cache): Delete duplicated `write-region';
X-Git-Tag: wl-2_4_0pre3~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=af672618ed64ab0f75f632a70f36cfa59d8c86f7;p=elisp%2Fwanderlust.git

* 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'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a1d5093..295b642 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)