From af672618ed64ab0f75f632a70f36cfa59d8c86f7 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 22 Nov 2000 01:15:44 +0000 Subject: [PATCH] * 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'. --- wl/ChangeLog | 7 +++++++ wl/wl-summary.el | 9 ++------- 2 files changed, 9 insertions(+), 7 deletions(-) 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 + + * 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