* gnus-msg.el (gnus-article-mail): Use gnus-msg-mail instead.

	Trivial change from Karl Pfl\e,Ad\e(Bsterer <sigurd@12move.de>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ebc80d6..0ed2e58 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-27  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-article-mail): Use gnus-msg-mail instead.
+       Trivial change from Karl Pfl\e,Ad\e(Bsterer <sigurd@12move.de>.
+
 2002-04-27  Katsumi Yamaoka <yamaoka@jpl.org>
        
        * dns.el (dns-make-network-process): New macro.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 435c229..91c3bf6 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1312,7 +1312,7 @@ If YANK is non-nil, include the original article."
          (save-excursion (re-search-backward "[ \t\n]" nil t) (1+ (point)))
          (save-excursion (re-search-forward "[ \t\n]" nil t) (1- (point))))))
     (when address
-      (message-reply address)
+      (gnus-msg-mail address)
       (when yank
        (gnus-inews-yank-articles (list (cdr gnus-article-current)))))))