From 9c2e8a7988ed7e6c0b8b7b79f0c600aa109aaae1 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 16 Mar 2016 22:07:16 +0100 Subject: [PATCH] org-agenda: Fix bulk re-scheduling * lisp/org-agenda.el (org-agenda-bulk-action): Fix rescheduling TODO items with `org-log-reschedule' set to `note'. Reported-by: Allen Li --- lisp/org-agenda.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index bf7fc34ee..d84efc38c 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9917,8 +9917,15 @@ The prefix arg is passed through to the command if possible." nil nil nil (if (eq action ?s) "(Re)Schedule to" "(Re)Set Deadline to") org-overriding-default-time))) - (c1 (if (eq action ?s) 'org-agenda-schedule 'org-agenda-deadline))) - (setq cmd `(eval '(,c1 arg ,time))))) + (c1 (if (eq action ?s) 'org-agenda-schedule + 'org-agenda-deadline))) + ;; Make sure to not prompt for a note when bulk + ;; rescheduling as Org cannot cope with simultaneous Org. + ;; Besides, it could be annoying depending on the number + ;; of items re-scheduled. + (setq cmd `(eval '(let ((org-log-reschedule + (and org-log-reschedule 'time))) + (,c1 arg ,time)))))) ((equal action ?S) (if (not (org-agenda-check-type nil 'agenda 'timeline 'todo)) -- 2.11.4.GIT