Mercurial > emacs

changeset 88919:acc369108294

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-read-newsrc-el-file): Don't bind coding-system-for-read. (gnus-gnus-to-quick-newsrc-format): Insert coding cookie.
author Dave Love <fx@gnu.org>
date Tue, 30 Jul 2002 11:24:20 +0000
parents 3ba99356879c
children 4cda993e8f6e
files lisp/gnus/gnus-start.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el	Tue Jul 30 11:24:02 2002 +0000
+++ b/lisp/gnus/gnus-start.el	Tue Jul 30 11:24:20 2002 +0000
@@ -395,6 +395,8 @@
 
 ;;; Internal variables
 
+;; Fixme: deal with old emacs-mule when mm-universal-coding-system is
+;; utf-8-emacs.
 (defvar gnus-ding-file-coding-system mm-universal-coding-system
   "Coding system for ding file.")
 
@@ -2015,8 +2017,7 @@
     (gnus-message 5 "Reading %s..." ding-file)
     (let (gnus-newsrc-assoc)
       (condition-case nil
-	  (let ((coding-system-for-read gnus-ding-file-coding-system))
-	    (load ding-file t t t))
+	  (load ding-file t t t)
 	(error
 	 (ding)
 	 (unless (gnus-yes-or-no-p
@@ -2390,7 +2391,8 @@
   (let ((print-quoted t)
 	(print-escape-newlines t))
 
-    (insert ";; -*- emacs-lisp -*-\n")
+    (insert ";; -*- emacs-lisp; coding: "
+	    (format "%s" gnus-ding-file-coding-system) ";-*-\n")
     (insert ";; Gnus startup file.\n")
     (insert "\
 ;; Never delete this file -- if you want to force Gnus to read the