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