branch: externals/gnorb
commit 2c0f43df676ef020ea36541f5958aff0852f452b
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Refinements to link extraction
* gnorb-org.el (gnorb-org-extract-mail-tracking): Only return a message
link if we're completely sure we've got a valid one.
---
gnorb-org.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/gnorb-org.el b/gnorb-org.el
index bc46eda..86dba6e 100644
--- a/gnorb-org.el
+++ b/gnorb-org.el
@@ -227,18 +227,21 @@ See the docstring of `gnorb-org-handle-mail' for details."
(lambda (r l)
(time-less-p
(car (gnus-registry-get-id-key l 'creation-time))
- (car (gnus-registry-get-id-key r 'creation-time)))))))))
+ (car (gnus-registry-get-id-key r 'creation-time))))))))
+ (msg-id-link
+ (when latest-msg-id
+ (gnorb-msg-id-to-link latest-msg-id))))
(cond
;; If there are no tracked messages, or the user has specifically
;; requested we ignore them with the prefix arg, just return the
;; found links in the subtree.
((or arg
- (null latest-msg-id))
+ (null msg-id-link))
all-links)
;; Otherwise ignore the other links in the subtree, and return
;; the latest message.
- (latest-msg-id
- `(:gnus ,(list (gnorb-msg-id-to-link latest-msg-id)))))))
+ (msg-id-link
+ `(:gnus ,(list msg-id-link))))))
(defun gnorb-org-setup-message
(&optional messages mails from cc bcc attachments text ids)
