From: yamaoka <yamaoka>
Date: Fri, 10 Oct 2003 06:45:40 +0000 (+0000)
Subject: Synch to Gnus 200310100640.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c4d5f3dd9a68690d557a0714fcb0a8c05d641ed7;p=elisp%2Fgnus.git-

Synch to Gnus 200310100640.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1e4ea3..858ccea 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-group.el: Remove superfluous eval-when-compiles.
+
 2003-10-10  Jesper Harder  <harder@ifa.au.dk>
 
 	* gnus-group.el (gnus-group-suspend): Reset gnus-backlog-articles.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 348d15c..2aaed98 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2307,7 +2307,7 @@ ADDRESS."
 	(lambda (group)
 	  (gnus-group-delete-group group nil t))))))
 
-(eval-when-compile (defvar gnus-cache-active-altered))
+(defvar gnus-cache-active-altered)
 
 (defun gnus-group-delete-group (group &optional force no-prompt)
   "Delete the current group.  Only meaningful with editable groups.
@@ -2597,9 +2597,10 @@ If SOLID (the prefix), create a solid group."
        (cons (current-buffer)
 	     (if (eq major-mode 'gnus-summary-mode) 'summary 'group))))))
 
-(eval-when-compile (defvar nnrss-group-alist)
-		   (defun nnrss-discover-feed (arg))
-		   (defun nnrss-save-server-data (arg)))
+(eval-when-compile
+  (defvar nnrss-group-alist)
+  (defun nnrss-discover-feed (arg))
+  (defun nnrss-save-server-data (arg)))
 (defun gnus-group-make-rss-group (&optional url)
   "Given a URL, discover if there is an RSS feed.
 If there is, use Gnus to create an nnrss group"
@@ -2699,7 +2700,7 @@ mail messages or news articles in files that have numeric names."
      (gnus-group-real-name group)
      (list 'nndir (gnus-group-real-name group) (list 'nndir-directory dir)))))
 
-(eval-when-compile (defvar nnkiboze-score-file))
+(defvar nnkiboze-score-file)
 (defun gnus-group-make-kiboze-group (group address scores)
   "Create an nnkiboze group.
 The user will be prompted for a name, a regexp to match groups, and
@@ -3935,7 +3936,7 @@ If GROUP, edit that local kill file instead."
   (interactive)
   (gnus-save-newsrc-file))
 
-(eval-when-compile (defvar gnus-backlog-articles))
+(defvar gnus-backlog-articles)
 
 (defun gnus-group-suspend ()
   "Suspend the current Gnus session.