[O] Bug: Refiling is broken [7.6 (release_7.6.132.gd8bd4)]

[Bernt Hansen]

Hi Bastien,

Bulk refiling from the agenda (B r) no longer works for me.  Git bisect
identifies the following commit as the problem:

,----
| $ git bisect bad
| 651a537e49495b283602d7ef8979d364ef8dfbf9 is the first bad commit
| commit 651a537e49495b283602d7ef8979d364ef8dfbf9
| Author: Bastien Guerry <address@hidden>
| Date:   Mon Jul 18 22:57:53 2011 +0200
| 
|     org.el: exclude current heading from the refile table.
|     
|     * org.el (org-refile-get-location): exclude current heading
|     from the refile table.
|     
|     Thanks to Jason Dunsmore for this idea.
| 
| :040000 040000 98cea08554cd006a6efa65ec6af084c9193a5411 
3352e4868cbc7ae3a8be1ae52a22b86ad38947a8 M    lisp
`----

I get the following backtrace when trying to bulk refile from the
agenda:

,----
| Debugger entered--Lisp error: (error "Before first headline at position 4767 
in buffer *Org Agenda*")
|   signal(error ("Before first headline at position 4767 in buffer *Org 
Agenda*"))
|   error("Before first headline at position %d in buffer %s" 4767 #<buffer 
*Org Agenda*>)
|   (condition-case nil (outline-back-to-heading invisible-ok) (error (error 
"Before first headline at position %d in buffer %s" ... ...)))
|   org-back-to-heading(t)
|   (save-excursion (org-back-to-heading t) (if (looking-at ...) (match-string 
1) ""))
|   org-get-heading()
|   (assoc (org-get-heading) org-refile-target-table)
|   (delq (assoc (org-get-heading) org-refile-target-table) 
org-refile-target-table)
|   (setq org-refile-target-table (delq (assoc ... org-refile-target-table) 
org-refile-target-table))
|   (let ((org-refile-targets org-refile-targets) (org-refile-use-outline-path 
org-refile-use-outline-path)) (setq org-refile-target-table 
(org-refile-get-targets default-buffer)) (setq org-refile-target-table (delq 
... org-refile-target-table)) (unless org-refile-target-table (error "No refile 
targets")) (let* (... ... ... ... ... ... ... ... ... pa answ parent-target 
child parent old-hist) (setq old-hist org-refile-history) (setq answ ...) (setq 
pa ...) (org-refile-check-position pa) (if pa ... ...)))
|   org-refile-get-location("Refile to" #<buffer refile.org> confirm)
|   (setq rfloc (org-refile-get-location "Refile to" (marker-buffer ...) 
org-refile-allow-creating-parent-nodes))
|   (cond ((equal action 36) (setq cmd ...)) ((equal action 65) (setq cmd ...)) 
((member action ...) (setq rfloc ...) (if ... ...) (setq cmd ... redo-at-end 
t)) ((equal action 116) (setq state ...) (setq cmd ...)) ((memq action ...) 
(setq tag ...) (setq cmd ...)) ((memq action ...) (let* ... ...)) ((equal 
action 83) (if ... ... ...)) ((assoc action org-agenda-bulk-custom-functions) 
(setq cmd ... redo-at-end t)) ((equal action 102) (setq cmd ...)) (t (error 
"Invalid bulk action")))
|   (let* ((action ...) (org-log-refile ...) (entries ...) redo-at-end cmd 
rfloc state e tag pos (cnt 0) (cntskip 0)) (cond (... ...) (... ...) (... ... 
... ...) (... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (t 
...)) (setq entries (sort entries ...)) (while (setq e ...) (setq pos ...) (if 
... ... ... ... ... ...)) (setq org-agenda-bulk-marked-entries nil) 
(org-agenda-bulk-remove-all-marks) (when redo-at-end (org-agenda-redo)) 
(message "Acted on %d entries%s" cnt (if ... "" ...)))
|   org-agenda-bulk-action(nil)
|   call-interactively(org-agenda-bulk-action nil nil)
`----

Refiling also seems to be similarly broken (C-c C-w)

Emacs  : GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.0)
 of 2010-12-11 on raven, modified by Debian
Package: Org-mode version 7.6 (release_7.6.132.gd8bd4)

Regards,
Bernt