From 47697d37b63caf1fc460c44c77d06c95bfc4f92d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 Feb 1999 06:29:47 +0000 Subject: [PATCH] * 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. --- lisp/gnus-start.el | 11 +++++++---- lisp/gnus-sum.el | 4 ++++ lisp/gnus.el | 2 +- 3 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index e2e30d8..d1b86d4 100644 --- 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 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3,6 +3,7 @@ ;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko +;; Katsumi Yamaoka ;; 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 --- 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 -- 1.7.10.4