From 4faaa994b1a206e5d9b39721dbfa5b1d051f9589 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 8 Nov 2000 14:07:12 +0000 Subject: [PATCH] Put some defvars in eval-when-compile. (gnus-msg-mail): Move after gnus-setup-message. --- lisp/gnus/gnus-msg.el | 24 ++++++++++++------------ 1 file 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 @@ -203,15 +203,6 @@ Thank you for your help in stamping out bugs. ;; "c" gnus-summary-send-draft "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 @@ -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." -- 2.39.5