/[emacs]/emacs/lisp/gnus/gnus-msg.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-msg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by lute, Mon Jul 4 17:55:13 2005 UTC revision 1.32 by eliz, Sat Jul 16 11:48:33 2005 UTC
# Line 466  Gcc: header for archiving purposes." Line 466  Gcc: header for archiving purposes."
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

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26