[Top][All Lists]

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

[elpa] externals/gnorb 294e1eb 224/449: Fix calls to gnorb-trigger-todo-

From: Stefan Monnier
Subject: [elpa] externals/gnorb 294e1eb 224/449: Fix calls to gnorb-trigger-todo-action
Date: Fri, 27 Nov 2020 23:15:44 -0500 (EST)

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

    Fix calls to gnorb-trigger-todo-action
    gnorb-trigger-todo-action requires the prefix arg from the calling
    function. It doesn't actually do anything with it yet, but it wants it!
    * lisp/gnorb-gnus.el (gnorb-gnus-incoming-do-todo): Pass in prefix arg.
    * lisp/gnorb-org.el (gnorb-org-restore-after-send): Pass in nil prefix arg.
 lisp/gnorb-gnus.el | 6 +++---
 lisp/gnorb-org.el  | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index 24fb046..7757b16 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -522,16 +522,16 @@ to t (it is, by default)."
     ;; `gnorb-restore-layout'.
     (if id
-       (gnorb-trigger-todo-action id)
+       (gnorb-trigger-todo-action arg id)
       (if (and offer-heading
               (y-or-n-p (format "Trigger action on %s"
                                 (gnorb-pretty-outline offer-heading))))
-         (gnorb-trigger-todo-action offer-heading)
+         (gnorb-trigger-todo-action arg offer-heading)
        (setq targ (org-refile-get-location
                    "Trigger heading" nil t))
        (find-file (nth 1 targ))
        (goto-char (nth 3 targ))
-       (gnorb-trigger-todo-action)))))
+       (gnorb-trigger-todo-action arg)))))
 (defun gnorb-gnus-search-messages (str &optional ret)
diff --git a/lisp/gnorb-org.el b/lisp/gnorb-org.el
index 817478c..2421509 100644
--- a/lisp/gnorb-org.el
+++ b/lisp/gnorb-org.el
@@ -158,7 +158,7 @@ might have been in the outgoing message's headers and call
     (set-window-configuration gnorb-window-conf)
     (goto-char gnorb-return-marker))
   (dolist (id gnorb-message-org-ids)
-    (gnorb-trigger-todo-action id))
+    (gnorb-trigger-todo-action nil id))
   ;; this is a little unnecessary, but it may save grief
   (setq gnorb-gnus-message-info nil)
   (setq gnorb-message-org-ids nil))

reply via email to

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