[Top][All Lists]

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

[elpa] master 8ebb0e1 4/5: Gnorb: Tweaks to gnorb-org-extract-mail-track

From: Eric Abrahamsen
Subject: [elpa] master 8ebb0e1 4/5: Gnorb: Tweaks to gnorb-org-extract-mail-tracking
Date: Mon, 4 Dec 2017 14:08:41 -0500 (EST)

branch: master
commit 8ebb0e128b143f2ac1366504bd11881c6db5743b
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Gnorb: Tweaks to gnorb-org-extract-mail-tracking
    * packages/gnorb/gnorb-org.el (gnorb-org-extract-mail-tracking): Fix
      gratuitious logicking. Pretend I was going to update the docstring,
 packages/gnorb/gnorb-org.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/packages/gnorb/gnorb-org.el b/packages/gnorb/gnorb-org.el
index 324f646..5c2ee61 100644
--- a/packages/gnorb/gnorb-org.el
+++ b/packages/gnorb/gnorb-org.el
@@ -252,8 +252,17 @@ See the docstring of `gnorb-org-handle-mail' for details."
     (string-match-p user-mail-address addr))))
+;; FIXME: Why did I break this off from
+;; `gnorb-org-extract-mail-stuff'?  It's only called from there, and
+;; it's confusing to have them separate.
 (defun gnorb-org-extract-mail-tracking (assoc-msg-ids &optional arg region)
+  "Return tracked mail links for the current Org subtree.
+ASSOC-MSG-IDS is a list of message-ids that have already been
+determined to be tracked by the subtree.  Return the most recent
+of these, as a candidate for composing a reply.  If there are no
+tracked messages, or if ARG (a prefix arg from earlier) is
+non-nil, ignore these tracked ids and instead scan the
+subtree (or REGION) for links, and use those instead."
   (let* ((all-links (gnorb-org-extract-links nil region))
         ;; The latest (by the creation-time registry key) of all the
         ;; tracked messages that were not sent by our user.
@@ -264,8 +273,7 @@ See the docstring of `gnorb-org-handle-mail' for details."
               (lambda (m)
                 (let ((from (car (gnus-registry-get-id-key m 'sender))))
-                  (or (null from)
-                      (null (gnorb-user-address-match-p from)))))
+                  (not (and from (gnorb-user-address-match-p from)))))
              (lambda (r l)

reply via email to

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