* message.el (message-read-from-minibuffer): Add argument

initial-contents.
* gnus-msg.el (gnus-summary-resend-message): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d4ae62..af56239 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-01-08  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * message.el (message-read-from-minibuffer): Add argument
+       initial-contents.
+       * gnus-msg.el (gnus-summary-resend-message): Use it.
+       
        * gnus-group.el (gnus-group-read-ephemeral-group): Restore the old
        behavior of quit-config.
        

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index b3075ad..b1a79d3 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1053,7 +1053,14 @@ For the `inline' alternatives, also see the variable
 (defun gnus-summary-resend-message (address n)
   "Resend the current article to ADDRESS."
   (interactive
-   (list (message-read-from-minibuffer "Resend message(s) to: ")
+   (list (message-read-from-minibuffer 
+         "Resend message(s) to: "
+         (when (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.
+           (with-current-buffer gnus-original-article-buffer
+             (nnmail-fetch-field "to"))))
         current-prefix-arg))
   (let ((articles (gnus-summary-work-articles n))
        article)

diff --git a/lisp/message.el b/lisp/message.el
index 3ed52a1..5cff1d6 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5433,16 +5433,16 @@ regexp varstr."
          (forward-line 1)
          (insert "Content-Type: text/plain; charset=us-ascii\n"))))))
 
-(defun message-read-from-minibuffer (prompt)
+(defun message-read-from-minibuffer (prompt &optional initial-contents)
   "Read from the minibuffer while providing abbrev expansion."
   (if (fboundp 'mail-abbrevs-setup)
       (let ((mail-abbrev-mode-regexp "")
            (minibuffer-setup-hook 'mail-abbrevs-setup)
            (minibuffer-local-map message-minibuffer-local-map))
-       (read-from-minibuffer prompt))
+       (read-from-minibuffer prompt initial-contents))
     (let ((minibuffer-setup-hook 'mail-abbrev-minibuffer-setup-hook)
          (minibuffer-local-map message-minibuffer-local-map))
-      (read-string prompt))))
+      (read-string prompt initial-contents))))
 
 (defun message-use-alternative-email-as-from ()
   (require 'mail-utils)