Put some defvars in eval-when-compile.

(gnus-msg-mail): Move after gnus-setup-message.

1 files changed, 12 insertions, 12 deletions

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 700a581486d..f273b9044d6 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -204,15 +204,6 @@ Thank you for your help in stamping out bugs.
   "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 @@ header line with the old Message-ID."
                (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 @@ If SILENT, don't prompt the user."
 
 
 ;; 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."