Mercurial > emacs

changeset 64369:a883de97d016

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-button-mailto): Remove save-selected-window-window hackery because it relies on save-selected-window internals.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 16 Jul 2005 11:48:33 +0000
parents 6a9bf2088665
children f5c6d3e91a14
files lisp/gnus/gnus-msg.el
diffstat 1 files changed, 2 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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