[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gnorb 2c0f43d 249/449: Refinements to link extraction

From: Stefan Monnier
Subject: [elpa] externals/gnorb 2c0f43d 249/449: Refinements to link extraction
Date: Fri, 27 Nov 2020 23:15:49 -0500 (EST)

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

    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)
                 (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))))
      ;; 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))
      ;; 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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]