[elpa] externals/gnorb 2086922 342/449: Fixes to previous commit

[Stefan Monnier]

branch: externals/gnorb
commit 2086922d9799fdb7012674a4942afa2367289667
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Fixes to previous commit
    
    * gnorb-utils.el (gnorb-msg-id-to-group): At least make sure the
      server-group variable looks like a full server name.  Also was using
      the wrong group variable.
---
 gnorb-utils.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnorb-utils.el b/gnorb-utils.el
index ec2642e..1f2d586 100644
--- a/gnorb-utils.el
+++ b/gnorb-utils.el
@@ -399,6 +399,7 @@ methods?"
          (setq candidates (append candidates gnorb-gnus-sent-groups))
          (while (setq server-group (pop candidates))
            (when (and (stringp server-group)
+                      (string-match-p "+" server-group)
                       (not
                        (string-match-p
                         "\\(nnir\\|nnvirtual\\|UNKNOWN\\)"
@@ -407,7 +408,7 @@ methods?"
                    (ignore-errors
                      (gnus-request-head msg-id server-group)))
              (when check
-               (gnus-registry-set-id-key msg-id 'group (list (car check)))
+               (gnus-registry-set-id-key msg-id 'group (list server-group))
                (gnus-registry-set-id-key msg-id 'artno (list (cdr check)))
                (throw 'found (car check)))))))
       nil)))