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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc29bf6..5dd0c0c 100644 (file)
--- 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 9d7411f..fb360fb 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -422,6 +422,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
@@ -8873,7 +8880,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")