mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-23 10:34:07 +00:00
(toplevel): Remove autoload for gnus-setup-message.
(gnus-dired-attach): Fake this-command value to prevent Gnus from displaying Gnus logo; always use compose-mail.
This commit is contained in:
parent
8a76755b73
commit
87202be109
@ -1,3 +1,9 @@
|
||||
2009-02-25 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-dired.el: Remove autoload for gnus-setup-message.
|
||||
(gnus-dired-attach): Fake this-command value to prevent Gnus from
|
||||
displaying Gnus logo; always use compose-mail.
|
||||
|
||||
2009-02-23 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-dired.el: Tell autoload that gnus-setup-message is a macro.
|
||||
|
@ -53,7 +53,6 @@
|
||||
;; Autoloads to avoid byte-compiler warnings. These are used only if the user
|
||||
;; customizes `gnus-dired-mail-mode' to use Message and/or Gnus.
|
||||
(autoload 'message-buffers "message")
|
||||
(autoload 'gnus-setup-message "gnus-msg" nil nil 'macro)
|
||||
(autoload 'gnus-print-buffer "gnus-sum")
|
||||
|
||||
(defvar gnus-dired-mode nil
|
||||
@ -162,9 +161,17 @@ filenames."
|
||||
bufs)
|
||||
nil t)))
|
||||
;; setup a new mail composition buffer
|
||||
(if (eq gnus-dired-mail-mode 'gnus-user-agent)
|
||||
(gnus-setup-message 'message (message-mail))
|
||||
;; FIXME: Is this the right thing?
|
||||
(let ((mail-user-agent gnus-dired-mail-mode)
|
||||
;; A workaround to prevent Gnus from displaying the Gnus
|
||||
;; logo when invoking this command without loading Gnus.
|
||||
;; Gnus demonstrates it when gnus.elc is being loaded if
|
||||
;; a command of which the name is prefixed with "gnus"
|
||||
;; causes that autoloading. See the code in question,
|
||||
;; that is the one first found in gnus.el by performing
|
||||
;; `C-s this-command'.
|
||||
(this-command (if (eq gnus-dired-mail-mode 'gnus-user-agent)
|
||||
'gnoose-dired-attach
|
||||
this-command)))
|
||||
(compose-mail))
|
||||
(setq destination (current-buffer)))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user