From: yamaoka <yamaoka>
Date: Tue, 9 Feb 1999 06:27:01 +0000 (+0000)
Subject: * gnus.el (gnus-revision-number): Increment to 08.
X-Git-Tag: t-gnus-6_10_057-08~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=05eee813689e409477971f682d4b78bb63ff367f;p=elisp%2Fgnus.git-

* gnus.el (gnus-revision-number): Increment to 08.
* score-mode.el (gnus-score-edit-exit): Use `save-buffer-as-coding-system'
instead of `write-region-as-coding-system'.
* gnus-start.el (gnus-save-newsrc-file): Ditto.
* gnus-start.el (save-buffer-as-coding-system): New function defined with
`defun-maybe'. NOTE: It should be deleted in the future.
* gnus-sum.el (TopLevel): Require `mime-play' when compile.
---

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 2c68071..f4ebe4a 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2246,6 +2246,12 @@ If FORCE is non-nil, the .newsrc file is read."
 
       (setq gnus-newsrc-options-n out))))
 
+;; The following four lines will be deleted in the future.
+(require 'poe)
+(defun-maybe save-buffer-as-coding-system (coding-system &optional args)
+  (let ((coding-system-for-write coding-system))
+    (save-buffer args)))
+
 (defun gnus-save-newsrc-file (&optional force)
   "Save .newsrc file."
   ;; Note: We cannot save .newsrc file if all newsgroups are removed
@@ -2281,10 +2287,7 @@ If FORCE is non-nil, the .newsrc file is read."
 	  (gnus-message 5 "Saving %s.eld..." gnus-current-startup-file)
 	  (gnus-gnus-to-quick-newsrc-format)
 	  (gnus-run-hooks 'gnus-save-quick-newsrc-hook)
-	  (write-region-as-coding-system
-	   gnus-startup-file-coding-system
-	   (point-min) (point-max) (buffer-file-name))
-	  (set-buffer-modified-p nil)
+	  (save-buffer-as-coding-system gnus-startup-file-coding-system)
 	  (kill-buffer (current-buffer))
 	  (gnus-message
 	   5 "Saving %s.eld...done" gnus-current-startup-file))
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 86c4426..32dccd5 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -3,6 +3,7 @@
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;         Katsumi Yamaoka  <yamaoka@jpl.org>
 ;; Keywords: mail, news, MIME
 
 ;; This file is part of GNU Emacs.
@@ -37,8 +38,9 @@
 (require 'gnus-util)
 (require 'mime-view)
 
-;; Avoid byte-compile warnings.
 (eval-when-compile
+  (require 'mime-play)
+  ;; Avoid byte-compile warnings.
   (defvar gnus-article-decoded-p)
   (defvar gnus-decode-encoded-word-function)
   )
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 0c5f6b1..4566bea 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,7 +267,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.057"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "07"
+(defconst gnus-revision-number "08"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.75"
diff --git a/lisp/score-mode.el b/lisp/score-mode.el
index 2367e06..4d03128 100644
--- a/lisp/score-mode.el
+++ b/lisp/score-mode.el
@@ -100,9 +100,7 @@ This mode is an extended emacs-lisp mode.
   (interactive)
   (unless (file-exists-p (file-name-directory (buffer-file-name)))
     (make-directory (file-name-directory (buffer-file-name)) t))
-  (write-region-as-coding-system
-   score-mode-coding-system (point-min) (point-max) (buffer-file-name))
-  (set-buffer-modified-p nil)
+  (save-buffer-as-coding-system score-mode-coding-system)
   (bury-buffer (current-buffer))
   (let ((buf (current-buffer)))
     (when gnus-score-edit-exit-function