From: ichikawa <ichikawa>
Date: Mon, 24 Aug 1998 14:26:27 +0000 (+0000)
Subject: lisp/gnus-util.el ... write file in raw-text file coding system - Testing...
X-Git-Tag: ichikawa-199811302358~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cf2a1f07e5b7d1a262bce93662d22aa7c7ab0c6b;p=elisp%2Fgnus.git-

lisp/gnus-util.el ... write file in raw-text file coding system - Testing...
---

diff --git a/ChangeLog b/ChangeLog
index b657845..df50f7e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+1998-08-24  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* lisp/gnus-offline.el (gnus-offline-setup): Bug fix and version 
+	changed to 1.53.
+
+	* lisp/gnus-util.el (gnus-write-buffer): Write file in raw-text coding 
+	system.
+
+	* lisp/gnus-util.el (gnus-write-file-coding-system): New variable.
+
 1998-08-23  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
 
 	* lisp/message.el: Suppress some byte-compile warnings.
diff --git a/lisp/gnus-offline.el b/lisp/gnus-offline.el
index 56d1cc5..be74f65 100644
--- a/lisp/gnus-offline.el
+++ b/lisp/gnus-offline.el
@@ -6,7 +6,7 @@
 ;;;         Yukihiro Ito <ito@rs.civil.tohoku.ac.jp>
 ;;;         Hidekazu Nakamura <u90121@uis-inf.co.jp>
 
-;;; Version: 1.52
+;;; Version: 1.53
 ;;; Keywords: news , mail , offline , gnus
 ;;;
 ;;; SPECIAL THANKS
@@ -114,7 +114,7 @@
   :group 'mail
   :group 'news)
 
-(defconst gnus-offline-version-number "1.52")
+(defconst gnus-offline-version-number "1.53")
 (defconst gnus-offline-codename
 ;;  "You may be right"		; 1.40
 ;;  "Chilstie Lee"		; 1.45
@@ -123,8 +123,8 @@
 ;;  "An Innocent man"		; 1.48
 ;;  "Tell her about it"		; 1.50
 ;;  "This night"		; 1.51
-  "Movin'out"			; 1.52
-;;  "Longest night"
+;;  "Movin'out"			; 1.52
+  "Longest night"		; 1.53
 ;;  "Leave a tender moment alone"
 ;;  "Back in the U.S.S.R"
 ;;  "Running on ice"
@@ -328,13 +328,11 @@ If value is nil , dialup line is disconnected status.")
   (if (eq gnus-offline-drafts-queue-type 'miee)
       (progn
 	(if (not (file-exists-p gnus-offline-mail-spool-directory))
-	    (progn
-	      (make-directory gnus-offline-mail-spool-directory t)
-	      (setq sendmail-to-spool-directory gnus-offline-mail-spool-directory)))
+	    (make-directory gnus-offline-mail-spool-directory t))
+	(setq sendmail-to-spool-directory gnus-offline-mail-spool-directory)
 	(if (not (file-exists-p gnus-offline-news-spool-directory))
-	    (progn
-	      (make-directory gnus-offline-news-spool-directory t)
-	      (setq news-spool-request-post-directory gnus-offline-news-spool-directory)))))
+	    (make-directory gnus-offline-news-spool-directory t))
+	(setq news-spool-request-post-directory gnus-offline-news-spool-directory)))
   
   ;; When startup ... state is offline.
   (setq gnus-nntp-service nil
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 876e2fc..f26a4e5 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -537,6 +537,8 @@ 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)
@@ -605,7 +607,8 @@ 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.
-  (write-region (point-min) (point-max) file nil 'quietly))
+  (let ((coding-system-for-write gnus-write-file-coding-system))
+    (write-region (point-min) (point-max) file nil 'quietly)))
 
 (defun gnus-delete-file (file)
   "Delete FILE if it exists."