* gnus.el (gnus-version-number): Update to 6.10.6.

* gnus-start.el (gnus-save-newsrc-file): Use `save-buffer-as-coding-system'
instead of `write-region-as-coding-system'.
(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 e2e30d8..d1b86d4 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2245,6 +2245,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
@@ -2280,10 +2286,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 40be3b6..ac6c519 100644 (file)
--- 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.
@@ -36,6 +37,9 @@
 (require 'gnus-undo)
 (require 'mime-view)
 
+(eval-when-compile
+  (require 'mime-play))
+
 (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
 (autoload 'gnus-set-summary-default-charset "gnus-i18n" nil t)
 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 0502984..10da3b4 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -253,7 +253,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-product-name "Semi-gnus"
   "Product name of this version of gnus.")
 
-(defconst gnus-version-number "6.10.5"
+(defconst gnus-version-number "6.10.6"
   "Version number for this version of gnus.")
 
 (defconst gnus-version