sync up

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 56fc0ae..ca1db75 100644 (file)
--- 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 (file)
--- 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)