From: ichikawa <ichikawa>
Date: Tue, 25 Aug 1998 12:43:56 +0000 (+0000)
Subject: lisp/gnus-util.el: Undo change.\n lisp/gnus-cache.el: Write cache file and .overview... 
X-Git-Tag: ichikawa-199811302358~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2f213e1639784751a880e58aed0681365d511d2a;p=elisp%2Fgnus.git-

lisp/gnus-util.el: Undo change.\n lisp/gnus-cache.el: Write cache file and .overview to write raw-text coding-system.
---

diff --git a/ChangeLog b/ChangeLog
index df50f7e..cf1073d 100644
--- 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
--- 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
--- 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."