[emacs-wiki-discuss] planner-gnus and gnus-registry-use-long-group-names

[Toby Allsopp]

I have found that if I have gnus-registry-use-long-group-names set to
t then following gnus links results in trying to fetcha group called
something like "nnimap+Foo:nnimap+Foo:INBOX", i.e. the server name is
mentioned twice, and this fails with a message to the effect that the
group doesn't exist.

This happens because planner-gnus-browse-url prepends the server name
from the URL to the gruop returned by gnus-registry-fetch-group.
Below is a patch to only do this if gnus-registry-use-long-group-names
is nil.

Regards,
Toby.

diff -u /cygdrive/h/emacs-lisp/sacha-dev/planner/planner-gnus.el\~ 
/cygdrive/h/emacs-lisp/sacha-dev/planner/planner-gnus.el
--- /cygdrive/h/emacs-lisp/sacha-dev/planner/planner-gnus.el~   2005-04-21 
16:54:11.000000000 +1200
+++ /cygdrive/h/emacs-lisp/sacha-dev/planner/planner-gnus.el    2005-06-22 
09:34:24.974596000 +1200
@@ -189,9 +189,12 @@
       ;; (gnus-fetch-group group 1) ;; always gives us problems
       (when (featurep 'gnus-registry)
         (let ((reg-group (gnus-registry-fetch-group articles)))
-          (when (and reg-group 
-                     (cadr (split-string group ":"))) ;; group contains a :
-            (setq group (concat (car (split-string group ":")) ":" 
reg-group))))
+          (when reg-group 
+            (if gnus-registry-use-long-group-names
+                (setq group reg-group)
+              (when (cadr (split-string group ":")) ;; group contains a :
+                (setq group (concat (car (split-string group ":")) ":"
+                                    reg-group))))))
         (gnus-fetch-group group planner-gnus-group-threshold))
       (mapcar
        (lambda (article-id)

Diff finished.  Wed Jun 22 09:36:18 2005