[elpa] externals/gnorb 9d64acb 292/449: Update gnorb-registry-capture to use convenience funcs

[Stefan Monnier]

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

    Update gnorb-registry-capture to use convenience funcs
    
    * gnorb-registry.el (gnorb-registry-capture): Should be using
      `gnorb-bracket-message-id', and also `gnorb-registry-make-entry'. Was
      reduplicating effort
---
 gnorb-registry.el | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/gnorb-registry.el b/gnorb-registry.el
index 9ff4ab3..f72262e 100644
--- a/gnorb-registry.el
+++ b/gnorb-registry.el
@@ -85,15 +85,11 @@ to the message's registry entry, under the 'gnorb-ids key."
               (memq major-mode '(gnus-summary-mode gnus-article-mode)))
             (not org-note-abort))
     (let* ((msg-id
-           (format "<%s>" (plist-get org-store-link-plist :message-id)))
-          (entry (gnus-registry-get-or-make-entry msg-id))
-          (org-ids
-           (gnus-registry-get-id-key msg-id 'gnorb-ids))
-          (new-org-id (org-id-get-create)))
-      (plist-put org-capture-plist :gnorb-id new-org-id)
-      (setq org-ids (cons new-org-id org-ids))
-      (setq org-ids (delete-dups org-ids))
-      (gnus-registry-set-id-key msg-id 'gnorb-ids org-ids))))
+           (gnorb-bracket-message-id
+            (plist-get org-store-link-plist :message-id)))
+          (org-id (org-id-get-create)))
+      (plist-put org-capture-plist :gnorb-id org-id)
+      (gnorb-registry-make-entry msg-id nil nil org-id nil))))
 
 
 (defun gnorb-registry-capture-abort-cleanup ()