* gnus-msg.el (nnspool-rejected-article-hook): Remove defvar.

(xemacs-codename): Move defvar to gnus-util.el

* gnus-util.el (xemacs-codename): Defvar when compiling.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c98061d..539a853 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-10-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-msg.el (nnspool-rejected-article-hook): Remove defvar.
+       (xemacs-codename): Move defvar to gnus-util.el
+
+       * gnus-util.el (xemacs-codename): Defvar when compiling.
+
 2003-10-20  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * spam-report.el (spam-report-url-ping-plain): Include a

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index bc8c447..a6c8d46 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1043,6 +1043,8 @@ If SILENT, don't prompt the user."
   (defvar nnspool-rejected-article-hook)
   (defvar xemacs-codename))
 
+
+
 (defun gnus-extended-version ()
   "Stringified Gnus version and Emacs version.
 See the variable `gnus-user-agent'."

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index c8fad2e..d658554 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1432,6 +1432,9 @@ predicate on the elements."
          (push (pop list1) res)))
       (nconc (nreverse res) list1 list2))))
 
+(eval-when-compile
+  (defvar xemacs-codename))
+
 (defun gnus-emacs-version ()
   (let ((system-v
         (cond