summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2011-06-14 10:39:58 +0200
committerCarsten Dominik <carsten.dominik@gmail.com>2011-06-14 10:39:58 +0200
commit36dd7e21500fabbe2faf3e3bd96a2b7e05f13dae (patch)
tree746dc5f3c05785a2b81bee801fc953e84d7db511
parent1de29a0059e300da5e0245a209f66275c4eb3ec8 (diff)
downloadorg-mode-36dd7e21500fabbe2faf3e3bd96a2b7e05f13dae.tar.gz
Fix bulk scattering command
* lisp/org-agenda.el (org-agenda-bulk-action): Fix bug caused by `days-to-time, converting relative to 1 BC, while the code assumed it would return a time relative to 1970. For more information, see http://thread.gmane.org/gmane.emacs.orgmode/42531
-rw-r--r--lisp/org-agenda.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 65f37d4..b519ff2 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -8199,9 +8199,11 @@ The prefix arg is passed through to the command if possible."
(setq day-of-week 0)))))
;; silently fail when try to replan a sexp entry
(condition-case nil
- (org-agenda-schedule nil
- (days-to-time
- (+ (org-today) distance)))
+ (let* ((date (calendar-gregorian-from-absolute
+ (+ (org-today) distance)))
+ (time (encode-time 0 0 0 (nth 1 date) (nth 0 date)
+ (nth 2 date))))
+ (org-agenda-schedule nil time))
(error nil)))))))
((equal action ?f)