branch: externals/gnorb
commit 2086922d9799fdb7012674a4942afa2367289667
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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)))
