emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/gnorb b81f3e2 083/449: Don't assume any ID references o


From: Stefan Monnier
Subject: [elpa] externals/gnorb b81f3e2 083/449: Don't assume any ID references on incoming messages
Date: Fri, 27 Nov 2020 23:15:13 -0500 (EST)

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

    Don't assume any ID references on incoming messages
    
    lisp/gnorb-gnus.el: gnorb-gnus-incoming-do-todo previous bombed if the
                    incoming message wasn't in reference/reply-to anything.
---
 lisp/gnorb-gnus.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index eca0d33..9ce9aca 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -352,9 +352,11 @@ if any of the IDs there match the value of the
     (let* ((org-refile-targets gnorb-gnus-trigger-refile-targets)
           (ref-msg-ids (with-current-buffer gnus-original-article-buffer
                          (nnheader-narrow-to-headers)
-                         (gnus-extract-message-id-from-in-reply-to
-                          (or (message-fetch-field "in-reply-to")
-                              (message-fetch-field "references")))))
+                         (let ((all-refs
+                                (concat (message-fetch-field "in-reply-to")
+                                        (message-fetch-field "references"))))
+                           (when all-refs
+                             (gnus-extract-message-id-from-in-reply-to 
all-refs)))))
           (offer-heading
            (when (and (not id) ref-msg-ids)
              ;; for now we're basically ignoring the fact that



reply via email to

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