From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: [PATCH] Fix agenda bulk refile bug Date: Wed, 26 Aug 2009 10:35:34 -0400 Message-ID: <1251297334-10504-1-git-send-email-bernt@norang.ca> References: <97F810D1-4F60-40E7-8DAB-D816F27310E4@gmail.com> Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MgJbL-00042D-C5 for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 10:35:51 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MgJbH-0003wS-Dk for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 10:35:50 -0400 Received: from [199.232.76.173] (port=56460 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MgJbH-0003wC-3d for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 10:35:47 -0400 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:52491) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MgJbG-0002L3-IH for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 10:35:46 -0400 Received: from cpe000102d0fe75-cm0012256ecbde.cpe.net.cable.rogers.com ([99.239.148.180] helo=mail.norang.ca) by mho-02-ewr.mailhop.org with esmtpsa (TLSv1:AES256-SHA:256) (Exim 4.68) (envelope-from ) id 1MgJbA-000Mfj-V9 for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 14:35:42 +0000 In-Reply-To: <97F810D1-4F60-40E7-8DAB-D816F27310E4@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Bernt Hansen Fix bulk refiling in the agenda due to commit 9ec5529 (Fix jumping to last refile location in agenda, 2009-08-20) This restores the original behaviour. --- This patch is available in git://git.norang.ca/org-mode for-carsten As it turns out the revert of the previous patch generated conflicts and I reverted it incorrectly :-P. The following patch applied on top of master seems to fix the problem. Bernt lisp/org-agenda.el | 17 ++++++++--------- 1 files changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 84d6566..d915e46 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5481,18 +5481,17 @@ If this information is not given, the function uses the tree at point." (org-agenda-error))) (buffer (marker-buffer marker)) (pos (marker-position marker)) - (rfloc)) - (setq rfloc (or rfloc + (rfloc (or rfloc (org-refile-get-location (if goto "Goto: " "Refile to: ") buffer org-refile-allow-creating-parent-nodes)))) - (with-current-buffer buffer - (save-excursion - (save-restriction - (widen) - (goto-char marker) - (org-remove-subtree-entries-from-agenda) - (org-refile goto buffer rfloc)))))) + (with-current-buffer buffer + (save-excursion + (save-restriction + (widen) + (goto-char marker) + (org-remove-subtree-entries-from-agenda) + (org-refile goto buffer rfloc))))))) (defun org-agenda-open-link (&optional arg) "Follow the link in the current line, if any. -- 1.6.4.1.331.gda1d56