branch: externals/gnorb
commit 3877b2db9be2f6abc779b054fb3852fe5f85d54c
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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))
