[elpa] master f04dd68: [gnorb] Fixes to link scanning, bump to 1.6.6

[Eric Abrahamsen]

branch: master
commit f04dd68ef84735619d93afb62881af410d518784
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    [gnorb] Fixes to link scanning, bump to 1.6.6
    
    * packages/gnorb/gnorb-utils.el (gnorb-scan-links): split-string
    splits on *all* occurances of the separator -- we only wanted to split
    on the first occurance.
---
 packages/gnorb/gnorb-utils.el | 17 +++++++++++------
 packages/gnorb/gnorb.el       |  2 +-
 2 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/packages/gnorb/gnorb-utils.el b/packages/gnorb/gnorb-utils.el
index fb85d54..a4fcf34 100644
--- a/packages/gnorb/gnorb-utils.el
+++ b/packages/gnorb/gnorb-utils.el
@@ -481,12 +481,17 @@ to those symbols."
   (unless (= (point) bound)
     (let ((alist (mapcar #'list (copy-sequence types))))
       (while (re-search-forward org-link-any-re bound t)
-       (pcase-let* ((`(,type ,link) (split-string
-                                     (match-string-no-properties 2)
-                                     ":"))
-                    (sym (intern-soft type)))
-         (when (and sym (memq sym types))
-           (push link (alist-get sym alist)))))
+       (let ((link (or
+                    ;; Bracket link.
+                    (match-string-no-properties 2)
+                    ;; "Bare" link.
+                    (match-string-no-properties 0)))
+             sym)
+         (when (string-match "\\([^:]+\\):\\(.+\\)" link)
+           (setq sym (intern-soft (match-string 1 link))
+                 link (match-string 2 link))
+           (when (and sym (memq sym types))
+             (push link (alist-get sym alist))))))
       alist)))
 
 (defun gnorb-msg-id-to-link (msg-id &optional server-group)
diff --git a/packages/gnorb/gnorb.el b/packages/gnorb/gnorb.el
index 64b0354..b28eeb4 100644
--- a/packages/gnorb/gnorb.el
+++ b/packages/gnorb/gnorb.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2018-2020  Free Software Foundation, Inc.
 
-;; Version: 1.6.5
+;; Version: 1.6.6
 ;; Package-Requires: ((cl-lib "0.5"))
 
 ;; Maintainer: Eric Abrahamsen <address@hidden>