Mercurial > emacs
changeset 33294:66666ed75041
Put some defvars in eval-when-compile.
(gnus-msg-mail): Move after gnus-setup-message.
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 08 Nov 2000 14:07:12 +0000 |
parents | 2c227ea13cc9 |
children | d66d9f108b83 |
files | lisp/gnus/gnus-msg.el |
diffstat | 1 files changed, 12 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- 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."