[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/gnus gnus-dired.el ChangeLog
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] emacs/lisp/gnus gnus-dired.el ChangeLog |
Date: |
Wed, 25 Feb 2009 04:20:34 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Katsumi Yamaoka <yamaoka> 09/02/25 04:20:34
Modified files:
lisp/gnus : gnus-dired.el ChangeLog
Log message:
(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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-dired.el?cvsroot=emacs&r1=1.17&r2=1.18
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.802&r2=1.803
Patches:
Index: gnus-dired.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-dired.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- gnus-dired.el 23 Feb 2009 10:56:29 -0000 1.17
+++ gnus-dired.el 25 Feb 2009 04:20:32 -0000 1.18
@@ -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 @@
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)))
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.802
retrieving revision 1.803
diff -u -b -r1.802 -r1.803
--- ChangeLog 23 Feb 2009 10:56:29 -0000 1.802
+++ ChangeLog 25 Feb 2009 04:20:32 -0000 1.803
@@ -1,3 +1,9 @@
+2009-02-25 Katsumi Yamaoka <address@hidden>
+
+ * 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 <address@hidden>
* gnus-dired.el: Tell autoload that gnus-setup-message is a macro.