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

diff --git a/ChangeLog b/ChangeLog
index b657845..df50f7e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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."