From 2f17e4a821e2c6e2fbd4ac5c391713512bc33ef1 Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 22 Nov 2000 09:49:06 +0000 Subject: [PATCH] sync up --- wl/ChangeLog | 7 +++++++ wl/wl-summary.el | 9 ++------- 2 files changed, 9 insertions(+), 7 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4