Commit bfff13ab authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(gnus-button-mailto): Remove save-selected-window-window hackery

because it relies on save-selected-window internals.
parent 6bdeff3e
......@@ -466,27 +466,19 @@ Gcc: header for archiving purposes."
;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment