[emacs-wiki-discuss] using gnus-registry to find moved imap-messages

[Sven Kloppenburg]

Hi All,

I'm using planner with gnus and nnimap. My intended workflow is, to read a
mail, create a task from it and then move it to its intended group.

But this would break the created link, defeating one of the cooler planner
features. A few days ago I was "annoyed enough to fix it" as Sacha said in
another context.

The gnus guys invented something called the registry to do strange sorting.
This registry remembers the group each article is in. So all I had to do was
to check if the registry is enabled and then use it. Now my mail-links work
across group-boudaries. :-)

--- planner-gnus.el     Mon Dec  6 23:28:55 2004
+++ planner-gnus-sven.el        Mon Dec  6 23:16:28 2004
@@ -177,7 +177,11 @@
     (let ((group (match-string 1 url))
           (articles (match-string 2 url)))
       ;; (gnus-fetch-group group 1) ;; always gives us problems
+;;try to use registry
+   (if (featurep 'gnus-registry)
+       (gnus-fetch-group (gnus-registry-fetch-group articles))
      (gnus-fetch-group group)
+     )
       (mapcar
        (lambda (article-id)
          (gnus-summary-goto-article article-id nil t))
-- 
bye,
Sven