gnus-extract-references instead of gnus-split-references
* gnus-util.el (gnus-extract-references): new function, analogous
to gnus-split-references but extracts only the message-ID without
anything extra
2004-09-28 Teodor Zlatanov <tzz@lifelogs.com>
+ * gnus-registry.el (gnus-registry-split-fancy-with-parent): use
+ gnus-extract-references instead of gnus-split-references
+
+ * gnus-util.el (gnus-extract-references): new function, analogous
+ to gnus-split-references but extracts only the message-ID without
+ anything extra
+
* hashcash.el (hashcash-generate-payment)
(hashcash-check-payment): do the right thing if hashcash-path is
nil (because the hashcash program could not be found)
references res)
(if refstr
(progn
- (setq references (nreverse (gnus-split-references refstr)))
+ (setq references (nreverse (gnus-extract-references refstr)))
(mapcar (lambda (x)
(setq res (or (gnus-registry-fetch-group x) res))
(when (or (gnus-registry-grep-in-list
ids))
(nreverse ids)))
+(defun gnus-extract-references (references)
+ "Return a list of Message-IDs in REFERENCES (in In-Reply-To
+ format), trimmed to only contain the Message-IDs."
+ (let ((ids (gnus-split-references references))
+ refs)
+ (dolist (id ids)
+ (when (string-match "<[^<>]+>" id)
+ (push (match-string 0 id) refs)))
+ refs))
+
(defsubst gnus-parent-id (references &optional n)
"Return the last Message-ID in REFERENCES.
If N, return the Nth ancestor instead."