[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Stefan Monnier
Subject: [elpa] externals/gnorb 2086922 342/449: Fixes to previous commit
Date: Fri, 27 Nov 2020 23:16:08 -0500 (EST)

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)
@@ -407,7 +408,7 @@ methods?"
                      (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)))))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]