gnus-try-warping-via-registry: [bugfix] don't act as though you've found the article...

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 8aecc98..71e0096 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -1169,9 +1169,10 @@ data stored in the registry."
 
             ;; Try to activate the group.  If that fails, just move
             ;; along.  We may have more groups to work with
 
             ;; Try to activate the group.  If that fails, just move
             ;; along.  We may have more groups to work with

-            (ignore-errors
-             (gnus-select-group-with-message-id group message-id))
-            (throw 'found t)))))))
+            (when
+                (ignore-errors
+                  (gnus-select-group-with-message-id group message-id) t)
+              (throw 'found t))))))))

 
 ;; TODO: a few things
 
 
 ;; TODO: a few things