From: yamaoka <yamaoka>
Date: Mon, 7 Oct 2002 02:12:43 +0000 (+0000)
Subject: * gnus-group.el: Require `mm-url' only when compiling.
X-Git-Tag: t-gnus-6_15_8-04-quimby~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c1d831696ad24b7bec3cd067e3d8e1a685d812b9;p=elisp%2Fgnus.git-

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