[elpa] externals/gnorb b70d845 168/449: Handle nil group values in registry entries

[Stefan Monnier]

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

    Handle nil group values in registry entries
    
    * lisp/gnorb-utils.el (gnorb-msg-id-to-group): Skip past nils in
      the 'group value.
---
 lisp/gnorb-utils.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/gnorb-utils.el b/lisp/gnorb-utils.el
index 3edc3d1..d197d43 100644
--- a/lisp/gnorb-utils.el
+++ b/lisp/gnorb-utils.el
@@ -226,8 +226,10 @@ is in use. Other search engines? Other clever methods?"
        ;; isn't, group stays nil.
        (when (consp server-group)
          (dolist (g server-group)
-           ;; Get past the UNKNOWN group values.
-           (unless (string-match-p "UNKNOWN" g)
+           ;; Get past UNKNOWN and nil group values.
+           (unless (or (null g)
+                       (and (stringp g)
+                            (string-match-p "UNKNOWN" g)))
              (setq server-group g)
              (throw 'found server-group)))))
       (when (featurep 'notmuch)