branch: externals/gnorb
commit 160f43aa09614f42a82cc655f73b49b96f17421d
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
New function for returning all tracked messages
* gnorb-registry.el (gnorb-registry-tracked-messages): New function
`gnorb-registry-tracked-messages' returns message-ids for all messages
being tracked by Gnorb.
---
gnorb-registry.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/gnorb-registry.el b/gnorb-registry.el
index 5e9bb20..d4af885 100644
--- a/gnorb-registry.el
+++ b/gnorb-registry.el
@@ -195,6 +195,10 @@ archived headings as well."
key."
(registry-search gnus-registry-db :member `((gnorb-ids ,id))))
+(defun gnorb-registry-tracked-messages ()
+ "Return all message-ids that have non-empty 'gnorb-ids keys."
+ (registry-search gnus-registry-db :regex `((gnorb-ids ".+"))))
+
(defun gnorb-registry-transition-from-props (arg)
"Helper function for transitioning the old tracking system to the new.
