[elpa] externals/gnorb f1545cd 162/449: Don't add a 'group key to registry if no group

[Stefan Monnier]

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

    Don't add a 'group key to registry if no group
    
    * lisp/gnorb-gnus.el (gnorb-gnus-check-outgoing-headers): Probably
      better not to leave a '(group nil) key in the registry entry.
---
 lisp/gnorb-gnus.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index b174332..0eb1e3e 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -289,10 +289,11 @@ information about the outgoing message into
            (when gnus-registry-enabled
              (gnus-registry-insert gnus-registry-db msg-id
                                    (list (list 'creation-time (current-time))
-                                         (list 'group gcc)
                                          (list 'sender from)
                                          (list 'subject subject)))
-             (gnus-registry-set-id-key msg-id 'gnorb-ids org-ids)))
+             (gnus-registry-set-id-key msg-id 'gnorb-ids org-ids)
+             (when gcc
+               (gnus-registry-set-id-key msg-id 'group gcc))))
        (setq gnorb-message-org-ids nil)))))
 
 (add-hook 'message-header-hook 'gnorb-gnus-check-outgoing-headers)