lisp/gnus-util.el: Undo change.\n lisp/gnus-cache.el: Write cache file and .overview...

diff --git a/ChangeLog b/ChangeLog
index df50f7e..cf1073d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+1998-08-25  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+       * lisp/gnus-cache.el (gnus-cache-possibly-enter-article):
+                            (gnus-cache-save-buffers): Write file in raw-text 
+       coding system.
+       * lisp/gnus-cache.el (gnus-cache-write-file-coding-system): New variable.
+       * lisp/gnus-util.el (gnus-write-buffer): Undo change.
+
+       * lisp/gnus-util.el (gnus-write-file-coding-system): Delete variable.
+
 1998-08-24  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
        * lisp/gnus-offline.el (gnus-offline-setup): Bug fix and version 

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index a772c6b..789ddf4 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -82,6 +82,7 @@ it's not cached."
 (defvar gnus-cache-buffer nil)
 (defvar gnus-cache-active-hashtb nil)
 (defvar gnus-cache-active-altered nil)
+(defvar gnus-cache-write-file-coding-system 'raw-text)
 
 (eval-and-compile
   (autoload 'nnml-generate-nov-databases-1 "nnml")
@@ -121,7 +122,8 @@ it's not cached."
          (set-buffer buffer)
          (if (> (buffer-size) 0)
              ;; Non-empty overview, write it to a file.
-             (gnus-write-buffer overview-file)
+             (let ((coding-system-for-write gnus-cache-write-file-coding-system))
+               (gnus-write-buffer overview-file))
            ;; Empty overview file, remove it
            (when (file-exists-p overview-file)
              (delete-file overview-file))
@@ -173,7 +175,8 @@ it's not cached."
            (let ((gnus-use-cache nil))
              (gnus-request-article-this-buffer number group))
            (when (> (buffer-size) 0)
-             (gnus-write-buffer file)
+             (let ((coding-system-for-write gnus-cache-write-file-coding-system))
+               (gnus-write-buffer file))
              (gnus-cache-change-buffer group)
              (set-buffer (cdr gnus-cache-buffer))
              (goto-char (point-max))

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index f26a4e5..876e2fc 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -537,8 +537,6 @@ Timezone package is used."
 
 (defvar gnus-work-buffer " *gnus work*")
 
-(defvar gnus-write-file-coding-system 'raw-text)
-
 (defun gnus-set-work-buffer ()
   "Put point in the empty Gnus work buffer."
   (if (get-buffer gnus-work-buffer)
@@ -607,8 +605,7 @@ Bind `print-quoted' and `print-readably' to t while printing."
   ;; Make sure the directory exists.
   (gnus-make-directory (file-name-directory file))
   ;; Write the buffer.
-  (let ((coding-system-for-write gnus-write-file-coding-system))
-    (write-region (point-min) (point-max) file nil 'quietly)))
+  (write-region (point-min) (point-max) file nil 'quietly))
 
 (defun gnus-delete-file (file)
   "Delete FILE if it exists."