* 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'.

diff --git a/ChangeLog b/ChangeLog
index 1466d8b..689b971 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-10-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <tsuchiya@namazu.org>
 
        * 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 (file)
--- 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 (file)
--- 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