From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/47050 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Gnus always loads cl Date: Tue, 08 Oct 2002 20:24:11 +0900 Organization: Emacsen advocacy group Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1034076324 10795 127.0.0.1 (8 Oct 2002 11:25:24 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 8 Oct 2002 11:25:24 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17ysUM-0002nq-00 for ; Tue, 08 Oct 2002 13:25:22 +0200 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 17ysTf-0000kB-00; Tue, 08 Oct 2002 06:24:39 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 08 Oct 2002 06:25:21 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id GAA14159 for ; Tue, 8 Oct 2002 06:25:09 -0500 (CDT) Original-Received: (qmail 22996 invoked by alias); 8 Oct 2002 11:24:21 -0000 Original-Received: (qmail 22991 invoked from network); 8 Oct 2002 11:24:21 -0000 Original-Received: from unknown (HELO mars.web-hosting.com) (207.228.244.150) by gnus.org with SMTP; 8 Oct 2002 11:24:21 -0000 Original-Received: from localhost ([207.228.245.242]) by mars.web-hosting.com (8.11.1/8.11.1) with ESMTP id g98BOKS07444 for ; Tue, 8 Oct 2002 07:24:20 -0400 (EDT) Original-To: ding@gnus.org X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/20.7 (sparc-sun-solaris2.6) Cancel-Lock: sha1:r1Cj4zHt3kfnELFbUZ+9+tMlqy0= X-Hashcash: 021008:ding@gnus.org:cfee4a124a6f1a40 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:47050 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:47050 --=-=-= 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? --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- 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) --=-=-=--