/[emacs]/emacs/lisp/gnus/gnus-start.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-start.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by lektu, Wed Jul 3 12:01:24 2002 UTC revision 1.21.6.1 by handa, Mon Sep 8 12:53:39 2003 UTC
# Line 395  Can be used to turn version control on o Line 395  Can be used to turn version control on o
395    
396  ;;; Internal variables  ;;; Internal variables
397    
398    ;; Fixme: deal with old emacs-mule when mm-universal-coding-system is
399    ;; utf-8-emacs.
400  (defvar gnus-ding-file-coding-system mm-universal-coding-system  (defvar gnus-ding-file-coding-system mm-universal-coding-system
401    "Coding system for ding file.")    "Coding system for ding file.")
402    
# Line 2015  If FORCE is non-nil, the .newsrc file is Line 2017  If FORCE is non-nil, the .newsrc file is
2017      (gnus-message 5 "Reading %s..." ding-file)      (gnus-message 5 "Reading %s..." ding-file)
2018      (let (gnus-newsrc-assoc)      (let (gnus-newsrc-assoc)
2019        (condition-case nil        (condition-case nil
2020            (let ((coding-system-for-read gnus-ding-file-coding-system))            (load ding-file t t t)
             (load ding-file t t t))  
2021          (error          (error
2022           (ding)           (ding)
2023           (unless (gnus-yes-or-no-p           (unless (gnus-yes-or-no-p
# Line 2390  If FORCE is non-nil, the .newsrc file is Line 2391  If FORCE is non-nil, the .newsrc file is
2391    (let ((print-quoted t)    (let ((print-quoted t)
2392          (print-escape-newlines t))          (print-escape-newlines t))
2393    
2394      (insert ";; -*- emacs-lisp -*-\n")      (insert ";; -*- emacs-lisp; coding: "
2395                (format "%s" gnus-ding-file-coding-system) ";-*-\n")
2396      (insert ";; Gnus startup file.\n")      (insert ";; Gnus startup file.\n")
2397      (insert "\      (insert "\
2398  ;; Never delete this file -- if you want to force Gnus to read the  ;; Never delete this file -- if you want to force Gnus to read the

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.21.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26