From: yamaoka <yamaoka>
Date: Mon, 1 Jul 2002 09:47:16 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-00-quimby~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8765aeb7411245438a0469ae994a36512a643433;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a9a4e1b..b3e537f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-01  Kai Gro,b_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+	* gnus-msg.el (gnus-summary-resend-default-address): New user option.
+	(gnus-summary-resend-message): Use it.
+
 2002-06-28  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* nntp.el (nntp-via-rlogin-command-switches): New variable.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 9fdeb9a..6bf7aaf 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -253,6 +253,13 @@ news."
   :group 'gnus-message
   :type 'boolean)
 
+(defcustom gnus-summary-resend-default-address t
+  "If non-nil, Gnus tries to suggest a default address to resend to.
+If nil, the address field will always be empty after invoking
+`gnus-summary-resend-message'."
+  :group 'gnus-message
+  :type 'boolean)
+
 ;;; Internal variables.
 
 (defvar gnus-inhibit-posting-styles nil
@@ -1306,7 +1313,8 @@ forward those articles instead."
   (interactive
    (list (message-read-from-minibuffer
 	  "Resend message(s) to: "
-	  (when (gnus-buffer-live-p gnus-original-article-buffer)
+	  (when (and gnus-summary-resend-default-address
+		     (gnus-buffer-live-p gnus-original-article-buffer))
 	    ;; If some other article is currently selected, the
 	    ;; initial-contents is wrong. Whatever, it is just the
 	    ;; initial-contents.