BUG - Can not refile to the last task

[Bernt Hansen <bernt@norang.ca>]

Hi Carsten,

I found another one... but this was broken in 6.06b as well

I can't refile a task to the last task in the file unless another task
follows it.

I normally refile to level 1 entries.  If you have a file like this

,----
| * First Task
| ** Refile me
| * Other stuff
| * Last Task
`----

then you can't refile (C-c C-w) the 'Refile me' task to 'Last Task'.

The workaround is just to create something after * Last Task like * Junk
so you can refile to Last Task - then just delete * Junk.

I get the following error:

,----
| Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
|   goto-char(nil)
|   (save-restriction (widen) (goto-char pos) (looking-at outline-regexp) (setq level (org-get-valid-level ... 1)) (goto-char (if reversed ... ...)) (bookmark-set "org-refile-last-stored") (org-paste-subtree level))
|   (save-excursion (save-restriction (widen) (goto-char pos) (looking-at outline-regexp) (setq level ...) (goto-char ...) (bookmark-set "org-refile-last-stored") (org-paste-subtree level)))
|   (save-excursion (set-buffer (setq nbuf ...)) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction ... ... ... ... ... ... ...)))
|   (if goto (progn (switch-to-buffer nbuf) (goto-char pos) (org-show-context ...)) (org-copy-subtree 1 nil t) (save-excursion (set-buffer ...) (setq reversed ...) (save-excursion ...)) (org-cut-subtree) (setq org-markers-to-move nil) (message "Entry refiled to \"%s\"" (car it)))
|   (progn (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (setq nbuf (or ... ...)) (if goto (progn ... ... ...) (org-copy-subtree 1 nil t) (save-excursion ... ... ...) (org-cut-subtree) (setq org-markers-to-move nil) (message "Entry refiled to \"%s\"" ...)))
|   (if (setq it (org-refile-get-location ... default-buffer)) (progn (setq file ... re ... pos ...) (setq nbuf ...) (if goto ... ... ... ... ... ...)))
|   (when (setq it (org-refile-get-location ... default-buffer)) (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (setq nbuf (or ... ...)) (if goto (progn ... ... ...) (org-copy-subtree 1 nil t) (save-excursion ... ... ...) (org-cut-subtree) (setq org-markers-to-move nil) (message "Entry refiled to \"%s\"" ...)))
|   (if (equal goto (quote ...)) (org-refile-goto-last-stored) (when (setq it ...) (setq file ... re ... pos ...) (setq nbuf ...) (if goto ... ... ... ... ... ...)))
|   (let* ((cbuf ...) (filename ...) pos it nbuf file re level reversed) (if (equal goto ...) (org-refile-goto-last-stored) (when ... ... ... ...)))
|   org-refile(nil)
|   call-interactively(org-refile)
|   recursive-edit()
|   byte-code("Æ\x10	@Ç=ƒ!\0ÈÉÊ\"ˆËÉ!‰\x1aA@)¢Ì=ƒ!\0ÈÍÊ\"ˆÎ\v!ˆÏ ˆÐ	!ˆ\fƒc\0Ñed\"\rVƒW\0ebˆÒ\r¥yˆ`\x1e^[dbˆÒ\r¥\rZyˆ\x0e^[`|ˆ)ÓcˆebˆÔÕÖ \"ˆ× ˆÔØ!ˆÙÊ\x1e\x1c\x1e\x1dÔØ!ˆŠÚ ˆ+Ù‡" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 4)
|   debug(error (wrong-type-argument integer-or-marker-p nil))
|   org-refile(nil)
|   call-interactively(org-refile)
`----

-Bernt