466 |
;; COMPOSEFUNC should return t if succeed. Undocumented ??? |
;; COMPOSEFUNC should return t if succeed. Undocumented ??? |
467 |
t) |
t) |
468 |
|
|
|
(defvar save-selected-window-window) |
|
|
|
|
469 |
;;;###autoload |
;;;###autoload |
470 |
(defun gnus-button-mailto (address) |
(defun gnus-button-mailto (address) |
471 |
"Mail to ADDRESS." |
"Mail to ADDRESS." |
472 |
(set-buffer (gnus-copy-article-buffer)) |
(set-buffer (gnus-copy-article-buffer)) |
473 |
(gnus-setup-message 'message |
(gnus-setup-message 'message |
474 |
(message-reply address)) |
(message-reply address))) |
|
(and (boundp 'save-selected-window-window) |
|
|
(not (window-live-p save-selected-window-window)) |
|
|
(setq save-selected-window-window (selected-window)))) |
|
475 |
|
|
476 |
;;;###autoload |
;;;###autoload |
477 |
(defun gnus-button-reply (&optional to-address wide) |
(defun gnus-button-reply (&optional to-address wide) |
478 |
"Like `message-reply'." |
"Like `message-reply'." |
479 |
(interactive) |
(interactive) |
480 |
(gnus-setup-message 'message |
(gnus-setup-message 'message |
481 |
(message-reply to-address wide)) |
(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)))) |
|
482 |
|
|
483 |
;;;###autoload |
;;;###autoload |
484 |
(define-mail-user-agent 'gnus-user-agent |
(define-mail-user-agent 'gnus-user-agent |