emacs-diffs
[Top][All Lists]
Advanced

[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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]