From: yamaoka <yamaoka>
Date: Sat, 28 Feb 2004 00:07:37 +0000 (+0000)
Subject: Synchto No Gnus 200402271940.
X-Git-Tag: t-gnus-6_17_4-quimby-~1050
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=36118e48860a4b8f0f2330eb704ede3f84870026;p=elisp%2Fgnus.git-

Synchto No Gnus 200402271940.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc29bf6..5dd0c0c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-02-27  Simon Josefsson  <jas@extundo.com>
+
+	* gnus-sum.el (gnus-move-group-prefix-function): Add, default to
+	gnus-group-real-prefix.
+	(gnus-summary-move-article): Use it, instead of
+	gnus-group-real-prefix.
+
 2004-02-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lpath.el: Bind w3m-safe-url-regexp.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 4bcb038..9afefab 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -446,6 +446,13 @@ this variable specifies group names."
 			 (cons :value ("" "") regexp (repeat string))
 			 (sexp :value nil))))
 
+(defcustom gnus-move-group-prefix-function 'gnus-group-real-prefix
+  "Function used to compute default prefix for article move/copy/etc prompts.
+The function should take one argument, a group name, and return a
+string with the suggested prefix."
+  :group 'gnus-summary-mail
+  :type 'function)
+
 (defcustom gnus-unread-mark ?\ ;;;Whitespace
   "*Mark used for unread articles."
   :group 'gnus-summary-marks
@@ -8993,7 +9000,8 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
   (let ((articles (gnus-summary-work-articles n))
 	(prefix (if (gnus-check-backend-function
 		     'request-move-article gnus-newsgroup-name)
-		    (gnus-group-real-prefix gnus-newsgroup-name)
+		    (funcall gnus-move-group-prefix-function
+			     gnus-newsgroup-name)
 		  ""))
 	(names '((move "Move" "Moving")
 		 (copy "Copy" "Copying")