mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
because it relies on save-selected-window internals.
This commit is contained in:
Eli Zaretskii 2005-07-16 11:48:33 +00:00
parent 6bdeff3e19
commit bfff13ab8f
1 changed files with 2 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/gnus/gnus-msg.el
View file

@ -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