# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1121514513 0
# Node ID a883de97d0168faac9dc9ed2310bad041ff62321
# Parent  6a9bf2088665137e55863c36311ad64a1e54184b
(gnus-button-mailto): Remove save-selected-window-window hackery
because it relies on save-selected-window internals.

diff -r 6a9bf2088665 -r a883de97d016 lisp/gnus/gnus-msg.el
--- a/lisp/gnus/gnus-msg.el	Sat Jul 16 11:41:37 2005 +0000
+++ b/lisp/gnus/gnus-msg.el	Sat Jul 16 11:48:33 2005 +0000
@@ -466,27 +466,19 @@
   ;; 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))))
+    (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))
-  (and (boundp 'save-selected-window-window)
-       (not (window-live-p save-selected-window-window))
-       (setq save-selected-window-window (selected-window))))
+    (message-reply to-address wide)))
 
 ;;;###autoload
 (define-mail-user-agent 'gnus-user-agent