From cf2a1f07e5b7d1a262bce93662d22aa7c7ab0c6b Mon Sep 17 00:00:00 2001 From: ichikawa Date: Mon, 24 Aug 1998 14:26:27 +0000 Subject: [PATCH] lisp/gnus-util.el ... write file in raw-text file coding system - Testing... --- ChangeLog | 10 ++++++++++ lisp/gnus-offline.el | 18 ++++++++---------- lisp/gnus-util.el | 5 ++++- 3 files changed, 22 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index b657845..df50f7e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +1998-08-24 Tatsuya Ichikawa + + * 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 * 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 ;;; Hidekazu Nakamura -;;; 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." -- 1.7.10.4