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 " |