[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el

[Eli Zaretskii]

Index: emacs/lisp/gnus/gnus-msg.el
diff -c emacs/lisp/gnus/gnus-msg.el:1.31 emacs/lisp/gnus/gnus-msg.el:1.32
*** emacs/lisp/gnus/gnus-msg.el:1.31    Mon Jul  4 17:55:13 2005
--- emacs/lisp/gnus/gnus-msg.el Sat Jul 16 11:48:33 2005
***************
*** 466,492 ****
    ;; COMPOSEFUNC should return t if succeed.  Undocumented ???
    t)
  
- (defvar save-selected-window-window)
- 
  ;;;###autoload
  (defun gnus-button-mailto (address)
    "Mail to ADDRESS."
    (set-buffer (gnus-copy-article-buffer))
    (gnus-setup-message 'message
!     (message-reply address))
!   (and (boundp 'save-selected-window-window)
!        (not (window-live-p save-selected-window-window))
!        (setq save-selected-window-window (selected-window))))
  
  ;;;###autoload
  (defun gnus-button-reply (&optional to-address wide)
    "Like `message-reply'."
    (interactive)
    (gnus-setup-message 'message
!     (message-reply to-address wide))
!   (and (boundp 'save-selected-window-window)
!        (not (window-live-p save-selected-window-window))
!        (setq save-selected-window-window (selected-window))))
  
  ;;;###autoload
  (define-mail-user-agent 'gnus-user-agent
--- 466,484 ----
    ;; COMPOSEFUNC should return t if succeed.  Undocumented ???
    t)
  
  ;;;###autoload
  (defun gnus-button-mailto (address)
    "Mail to ADDRESS."
    (set-buffer (gnus-copy-article-buffer))
    (gnus-setup-message 'message
!     (message-reply address)))
  
  ;;;###autoload
  (defun gnus-button-reply (&optional to-address wide)
    "Like `message-reply'."
    (interactive)
    (gnus-setup-message 'message
!     (message-reply to-address wide)))
  
  ;;;###autoload
  (define-mail-user-agent 'gnus-user-agent