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