From c1d831696ad24b7bec3cd067e3d8e1a685d812b9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 7 Oct 2002 02:12:43 +0000 Subject: [PATCH] * gnus-group.el: Require `mm-url' only when compiling. (gnus-group-fetch-charter): Require `mm-url'. * gnus.el (gnus-default-charset): Default to `iso-8859-1'. --- ChangeLog | 7 +++++++ lisp/gnus-group.el | 4 +++- lisp/gnus.el | 2 +- 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1466d8b..689b971 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2002-10-07 Katsumi Yamaoka + + * lisp/gnus-group.el: Require `mm-url' only when compiling. + (gnus-group-fetch-charter): Require `mm-url'. + + * lisp/gnus.el (gnus-default-charset): Default to `iso-8859-1'. + 2002-09-13 TSUCHIYA Masatoshi * lisp/nnheader.el (toplevel) [XEmacs]: Remove code to define diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 12eb031..5368953 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -38,7 +38,8 @@ (require 'gnus-undo) (require 'time-date) (require 'gnus-ems) -(require 'mm-url) + +(eval-when-compile (require 'mm-url)) (defcustom gnus-group-archive-directory "*ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/" @@ -3577,6 +3578,7 @@ If given a prefix argument, prompt for a group." gnus-newsgroup-name))) (unless group (error "No group name given")) + (require 'mm-url) (let ((name (mm-url-form-encode-xwfu (gnus-group-real-name group))) url hierarchy) (when (string-match "\\(^[^\\.]+\\)\\..*" name) diff --git a/lisp/gnus.el b/lisp/gnus.el index 1c6a576..2d19908 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1878,7 +1878,7 @@ You also need to enable `gnus-agent'." :group 'gnus-agent :type 'boolean) -(defcustom gnus-default-charset (mm-guess-mime-charset) +(defcustom gnus-default-charset 'iso-8859-1 "Default charset assumed to be used when viewing non-ASCII characters. This variable is overridden on a group-to-group basis by the gnus-group-charset-alist variable and is only used on groups not -- 1.7.10.4