From 8765aeb7411245438a0469ae994a36512a643433 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 1 Jul 2002 09:47:16 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-msg.el | 10 +++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) 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 + + * gnus-msg.el (gnus-summary-resend-default-address): New user option. + (gnus-summary-resend-message): Use it. + 2002-06-28 Katsumi Yamaoka * 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. -- 1.7.10.4