Re: nnimap support for "NAMESPACE" (prefix "INBOX." on

[Simon Josefsson <jas@extundo.com>]

Chris Shenton <chris@shenton.org> writes:

> I'm "No Gnus v0.2" with a couple of courier-imap servers which use an
> IMAP namespace of "INBOX.":
>
>   * OK [CAPABILITY IMAP4rev1 UIDPLUS CHILDREN NAMESPACE THREAD=ORDEREDSUBJECT THREAD=REFERENCES SORT QUOTA IDLE NEWHORSE GRAPPA UMAMI LAPHROIG] Courier-IMAP ready. Copyright 1998-2003 Double Precision, Inc.  See COPYING for distribution information.
>   2 login USERNAME PASSW0RD
>   2 OK LOGIN Ok.
>   3 namespace
>   * NAMESPACE (("INBOX." ".")) NIL (("shared." "."))
>   3 OK NAMESPACE completed.
>
> Currently, when ever I want to refert to a server mailbox name (e.g.,
> to move from my main inbox to some other) I have to use something like:
>
>   nnimap+pectopah:INBOX.list.ding
>
> Gnus defaults the part up to the colon, which is usally good, but I
> have to type that INBOX. thing every time.   Is there a way to tell
> Gnus to find out the namespace from the server and use this as a
> prefix so I don't have to? 

You mean, you want it to default to the private namespace by default?
It is not clear this is always the best default (some people move mail
from private folders to shared folders), but I agree it would be nice
to offer this as a feature.

You do know about tab completion, right?  'I<TAB>' is sufficient for
me.  Further, the next time you have to enter the mailbox, there is
command line history, so you can retrieve the earlier value, and edit
it -- for example, I often do <UP><M-backspace> and write a new
mailbox name, then the INBOX prefix comes from an earlier value
prompt.

> Does Gnus have a way to determine this from the server? Have it
> configured manually? use it when referring to mailbox names, for
> retrieval, creation, moving, etc?

I have installed the following, at least it will allow you to hook in
your own function that return the default prefix used.

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.

Index: gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 7.20
retrieving revision 7.21
diff -u -p -r7.20 -r7.21
--- gnus-sum.el	14 Feb 2004 00:29:45 -0000	7.20
+++ gnus-sum.el	27 Feb 2004 19:40:52 -0000	7.21
@@ -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
   (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")