[elpa] externals/gnorb 3877b2d 275/449: Still didn't have incoming-do-todo logic right

[Stefan Monnier]

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

    Still didn't have incoming-do-todo logic right
    
    * gnorb-gnus.el (gnorb-gnus-incoming-do-todo): Make sure nil value
      propagates correctly.
---
 gnorb-gnus.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index 478c14c..7cf3002 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -546,13 +546,11 @@ to t (it is, by default)."
                   (gnorb-delete-association msg-id h))))
             related-headings))
       (if (catch 'target
-           (mapcar
-            (lambda (h)
-              (when (yes-or-no-p
-                     (format "Trigger action on %s"
-                             (gnorb-pretty-outline h)))
-                (throw 'target (setq targ h))))
-            related-headings))
+           (dolist (h related-headings nil)
+            (when (yes-or-no-p
+                   (format "Trigger action on %s"
+                           (gnorb-pretty-outline h)))
+              (throw 'target (setq targ h)))))
          (gnorb-trigger-todo-action arg targ)
        (setq targ (org-refile-get-location
                    "Trigger heading" nil t))