Gnus always loads cl

[Katsumi Yamaoka <yamaoka@jpl.org>]

[-- Attachment #1: Type: text/plain, Size: 257 bytes --]

Hi,

gnus-groups.elc always require mm-url for the command
gnus-group-fetch-charter, mm-url.elc always require url, url.elc
always require cl by default, and then we always have cl.  IMHO,
we don't need to do until so much.  How about changing as follows?


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 589 bytes --]

--- gnus-group.el~	2002-10-03 21:54:53 +0000
+++ gnus-group.el	2002-10-08 11:23:15 +0000
@@ -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/"
@@ -3532,6 +3533,7 @@
 	     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)