2001-01-16 13:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-url-mailto): Use gnus-msg-mail.
	(gnus-button-mailto): Setup message. Moved to gnus-msg.el.
	(gnus-button-reply): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 245b0bf..fd285aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-16 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-url-mailto): Use gnus-msg-mail.
+       (gnus-button-mailto): Setup message. Moved to gnus-msg.el.
+       (gnus-button-reply): Ditto.
+
 2001-01-16  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * gnus-art.el (article-display-x-face): Fix.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 43c03ec..1a81dc1 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -38,6 +38,10 @@
 (require 'wid-edit)
 (require 'mm-uu)
 
+(autoload 'gnus-msg-mail "gnus-msg" nil t)
+(autoload 'gnus-button-mailto "gnus-msg")
+(autoload 'gnus-button-reply "gnus-msg" nil t)
+
 (defgroup gnus-article nil
   "Article display."
   :link '(custom-manual "(gnus)The Article Buffer")
@@ -5000,7 +5004,7 @@ forbidden in URL encoding."
       (setq to (gnus-url-unhex-string url)))
     (setq args (cons (list "to" to) args)
           subject (cdr-safe (assoc "subject" args)))
-    (message-mail)
+    (gnus-msg-mail)
     (while args
       (setq func (intern-soft (concat "message-goto-" (downcase (caar args)))))
       (if (fboundp func)
@@ -5012,13 +5016,6 @@ forbidden in URL encoding."
         (message-goto-body)
       (message-goto-subject))))
 
-(defun gnus-button-mailto (address)
-  "Mail to ADDRESS."
-  (set-buffer (gnus-copy-article-buffer))
-  (message-reply address))
-
-(defalias 'gnus-button-reply 'message-reply)
-
 (defun gnus-button-embedded-url (address)
   "Activate ADDRESS with `browse-url'."
   (browse-url (gnus-strip-whitespace address)))

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index a6ef0aa..f1e8648 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -267,6 +267,20 @@ Gcc: header for archiving purposes."
   ;; COMPOSEFUNC should return t if succeed.  Undocumented ???
   t)
 
+;;;###autoload
+(defun gnus-button-mailto (address)
+  "Mail to ADDRESS."
+  (set-buffer (gnus-copy-article-buffer))
+  (gnus-setup-message 'message
+    (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)))
+
 ;;;###autoload
 (define-mail-user-agent 'gnus-user-agent
   'gnus-msg-mail 'message-send-and-exit