From 36118e48860a4b8f0f2330eb704ede3f84870026 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sat, 28 Feb 2004 00:07:37 +0000 Subject: [PATCH] Synchto No Gnus 200402271940. --- lisp/ChangeLog | 7 +++++++ lisp/gnus-sum.el | 10 +++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) 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 + + * 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 * 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") -- 1.7.10.4