# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973692432 0
# Node ID 66666ed750415f3acb9f7ca15c468347b2171b2b
# Parent  2c227ea13cc94e0abe013549184239bf37ab5559
Put some defvars in eval-when-compile.
(gnus-msg-mail): Move after gnus-setup-message.

diff -r 2c227ea13cc9 -r 66666ed75041 lisp/gnus/gnus-msg.el
--- a/lisp/gnus/gnus-msg.el	Wed Nov 08 13:58:20 2000 +0000
+++ b/lisp/gnus/gnus-msg.el	Wed Nov 08 14:07:12 2000 +0000
@@ -204,15 +204,6 @@
   "r" gnus-summary-resend-message)
 
 ;;;###autoload
-(defun gnus-msg-mail (&rest args)
-  "Start editing a mail message to be sent.
-Like `message-mail', but with Gnus paraphernalia, particularly the
-the Gcc: header for archiving purposes."
-  (interactive)
-  (gnus-setup-message 'message
-    (apply 'message-mail args)))
-
-;;;###autoload
 (define-mail-user-agent 'gnus-user-agent
       'gnus-msg-mail 'message-send-and-exit
       'message-kill-buffer 'message-send-hook)
@@ -435,7 +426,15 @@
 	       (gnus-cache-possibly-remove-article ,article nil nil nil t)
 	       (gnus-summary-mark-as-read ,article gnus-canceled-mark)))))
        message-send-actions))))
-
+
+;;;###autoload
+(defun gnus-msg-mail (&rest args)
+  "Start editing a mail message to be sent.
+Like `message-mail', but with Gnus paraphernalia, particularly the
+the Gcc: header for archiving purposes."
+  (interactive)
+  (gnus-setup-message 'message
+    (apply 'message-mail args)))
 
 
 (defun gnus-copy-article-buffer (&optional article-buffer)
@@ -622,8 +621,9 @@
 
 
 ;; Dummies to avoid byte-compile warning.
-(defvar nnspool-rejected-article-hook)
-(defvar xemacs-codename)
+(eval-when-compile
+  (defvar nnspool-rejected-article-hook)
+  (defvar xemacs-codename))
 
 (defun gnus-extended-version ()
   "Stringified Gnus version and Emacs version."