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

	* message.el (message-minibuffer-local-map): New keymap.
	(message-read-from-minibuffer): Use it.
	* gnus-msg.el (gnus-summary-resend-message): Use it

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da54e06..5ed3448 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-05 00:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-minibuffer-local-map): New keymap.
+       (message-read-from-minibuffer): Use it.
+       * gnus-msg.el (gnus-summary-resend-message): Use it
+
 2001-01-04 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-start.el (gnus-display-time-event-handler): New function.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 811c8ea..a6ef0aa 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -753,7 +753,9 @@ If POST, post instead of mail."
 
 (defun gnus-summary-resend-message (address n)
   "Resend the current article to ADDRESS."
-  (interactive "sResend message(s) to: \nP")
+  (interactive 
+   (list (message-read-from-minibuffer "Resend message(s) to: ") 
+        current-prefix-arg))
   (let ((articles (gnus-summary-work-articles n))
        article)
     (while (setq article (pop articles))

diff --git a/lisp/message.el b/lisp/message.el
index 3c8467e..6148239 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -490,6 +490,12 @@ the signature is inserted."
   :group 'message-various
   :type 'hook)
 
+(defcustom message-minibuffer-local-map 
+  (let ((map (make-sparse-keymap 'message-minibuffer-local-map)))
+    (set-keymap-parent map minibuffer-local-map)
+    map)
+  "Keymap for `message-read-from-minibuffer'.")
+
 ;;;###autoload
 (defcustom message-citation-line-function 'message-insert-citation-line
   "*Function called to insert the \"Whomever writes:\" line."
@@ -4767,9 +4773,11 @@ regexp varstr."
   "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-setup-hook 'mail-abbrevs-setup)
+           (minibuffer-local-map message-minibuffer-local-map))
        (read-from-minibuffer prompt))
-    (let ((minibuffer-setup-hook 'mail-abbrev-minibuffer-setup-hook))
+    (let ((minibuffer-setup-hook 'mail-abbrev-minibuffer-setup-hook)
+         (minibuffer-local-map message-minibuffer-local-map))
       (read-string prompt))))
 
 (defun message-use-alternative-email-as-from ()