Mercurial > emacs
comparison lisp/gnus/gnus-start.el @ 88919:acc369108294
(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 | 55e0120deff6 |
children | 2f877ed80fa6 |
comparison
equal
deleted
inserted
replaced
88918:3ba99356879c | 88919:acc369108294 |
---|---|
393 :group 'gnus-newsrc | 393 :group 'gnus-newsrc |
394 :type 'boolean) | 394 :type 'boolean) |
395 | 395 |
396 ;;; Internal variables | 396 ;;; Internal variables |
397 | 397 |
398 ;; Fixme: deal with old emacs-mule when mm-universal-coding-system is | |
399 ;; utf-8-emacs. | |
398 (defvar gnus-ding-file-coding-system mm-universal-coding-system | 400 (defvar gnus-ding-file-coding-system mm-universal-coding-system |
399 "Coding system for ding file.") | 401 "Coding system for ding file.") |
400 | 402 |
401 (defvar gnus-newsrc-file-version nil) | 403 (defvar gnus-newsrc-file-version nil) |
402 (defvar gnus-override-subscribe-method nil) | 404 (defvar gnus-override-subscribe-method nil) |
2013 (let ((ding-file (concat file "d"))) | 2015 (let ((ding-file (concat file "d"))) |
2014 ;; We always, always read the .eld file. | 2016 ;; We always, always read the .eld file. |
2015 (gnus-message 5 "Reading %s..." ding-file) | 2017 (gnus-message 5 "Reading %s..." ding-file) |
2016 (let (gnus-newsrc-assoc) | 2018 (let (gnus-newsrc-assoc) |
2017 (condition-case nil | 2019 (condition-case nil |
2018 (let ((coding-system-for-read gnus-ding-file-coding-system)) | 2020 (load ding-file t t t) |
2019 (load ding-file t t t)) | |
2020 (error | 2021 (error |
2021 (ding) | 2022 (ding) |
2022 (unless (gnus-yes-or-no-p | 2023 (unless (gnus-yes-or-no-p |
2023 (format "Error in %s; continue? " ding-file)) | 2024 (format "Error in %s; continue? " ding-file)) |
2024 (error "Error in %s" ding-file)))) | 2025 (error "Error in %s" ding-file)))) |
2388 (defun gnus-gnus-to-quick-newsrc-format () | 2389 (defun gnus-gnus-to-quick-newsrc-format () |
2389 "Insert Gnus variables such as gnus-newsrc-alist in lisp format." | 2390 "Insert Gnus variables such as gnus-newsrc-alist in lisp format." |
2390 (let ((print-quoted t) | 2391 (let ((print-quoted t) |
2391 (print-escape-newlines t)) | 2392 (print-escape-newlines t)) |
2392 | 2393 |
2393 (insert ";; -*- emacs-lisp -*-\n") | 2394 (insert ";; -*- emacs-lisp; coding: " |
2395 (format "%s" gnus-ding-file-coding-system) ";-*-\n") | |
2394 (insert ";; Gnus startup file.\n") | 2396 (insert ";; Gnus startup file.\n") |
2395 (insert "\ | 2397 (insert "\ |
2396 ;; Never delete this file -- if you want to force Gnus to read the | 2398 ;; Never delete this file -- if you want to force Gnus to read the |
2397 ;; .newsrc file (if you have one), touch .newsrc instead.\n") | 2399 ;; .newsrc file (if you have one), touch .newsrc instead.\n") |
2398 (insert "(setq gnus-newsrc-file-version " | 2400 (insert "(setq gnus-newsrc-file-version " |