From c4d5f3dd9a68690d557a0714fcb0a8c05d641ed7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 10 Oct 2003 06:45:40 +0000 Subject: [PATCH] Synch to Gnus 200310100640. --- lisp/ChangeLog | 4 ++++ lisp/gnus-group.el | 13 +++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) 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 + + * gnus-group.el: Remove superfluous eval-when-compiles. + 2003-10-10 Jesper Harder * 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. -- 1.7.10.4