Bug: org-advertized-archive-subtree: Symbol's function definition is void: org-datetree-find-year-create [7.4 (release_7.4.419.g68114f)]

["Urs Rau (UK)" <urs.rau@om.org>]

I am trying to archive completed tasks to a datetree. I am using "Move
Subtree to Archive file" (C-c C-x -C-s) And I get the following error:

release_7.4-419-g68114f
Org-mode version 7.4 (release_7.4.419.g68114f)
afile=/Users/ursr/org/tasksnotes.org_archive
org-advertized-archive-subtree: Symbol's function definition is void:
org-datetree-find-year-create

And I had done a C-c C-x ! to reload all org files, jsut in case. ;-)

I have added the following settings taken from the worg site page:
http://orgmode.org/worg/org-hacks.html

Topic: Archive in a date tree
Posted to Org-mode mailing list by Osamu Okano

(setq org-archive-location "%s_archive::date-tree")
(defadvice org-archive-subtree
 (around org-archive-subtree-to-data-tree activate)
 "org-archive-subtree to date-tree"
 (if
     (string= "date-tree"
              (org-extract-archive-heading
               (org-get-local-archive-location)))
     (let* ((dct (decode-time (org-current-time)))
            (y (nth 5 dct))
            (m (nth 4 dct))
            (d (nth 3 dct))
            (this-buffer (current-buffer))
            (location (org-get-local-archive-location))
            (afile (org-extract-archive-file location))
            (org-archive-location
             (format "%s::*** %04d-%02d-%02d %s" afile y m d
                     (format-time-string "%A" (encode-time 0 0 0 d m y)))))
       (message "afile=%s" afile)
       (unless afile
         (error "Invalid `org-archive-location'"))
       (save-excursion
         (switch-to-buffer (find-file-noselect afile))
         (org-datetree-find-year-create y)
         (org-datetree-find-month-create y m)
         (org-datetree-find-day-create y m d)
         (widen)
         (switch-to-buffer this-buffer))
       ad-do-it)
   ad-do-it))
;;

How do I fix this and make sure I can file into a datetree in my archive file? 

Also are these dates going to be based on USA date field orders or will it work right with
European dates?

Thanks.

Here is my config:

Emacs  : GNU Emacs 23.2.1 (x86_64-apple-darwin, NS apple-appkit-1038.29) of 2010-05-09 on black.local
ErgoEmacs distribution 1.8.1
Package: Org-mode version 7.4 (release_7.4.419.g68114f)

current state:
==============
(setq
 org-empty-line-terminates-plain-lists t
 org-log-done 'time
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook)
 org-agenda-files '("~/org/tasksnotes.org" "~/org/projects.org")
 org-agenda-include-diary t
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-checklist-export-function 'org-export-as-ascii
 org-completion-use-ido t
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-archive-save-context-info '(time file category todo priority itags olpth ltags)
 org-agenda-skip-timestamp-if-done t
 org-after-todo-state-change-hook '(org-clock-out-if-current org-checklist)
 org-agenda-todo-ignore-scheduled t
 org-archive-location "%s_archive::date-tree"
 org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-protocol-protocol-alist '(("org-mac-safari-tabs" :protocol "safari-tabs" :function org-mac-safari-tabs :kill-client t)
			       ("org-mac-remember" :protocol "mac-remember" :function org-mac-protocol-remember
				:kill-client t)
			       )
 org-agenda-skip-scheduled-if-done t
 org-tags-exclude-from-inheritance '("crypt")
 org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-reveal-start-hook '(org-decrypt-entry)
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-todo-keywords '((sequence "TODO(t)" "STARTED(s)" "WAITING(w)" "APPT(a)" "|" "DONE(d)" "CANCELLED(c)" "DEFERRED(f)"))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-default-notes-file "~/org/notes.org"
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers)
 org-mode-hook '((lambda nil (setq org-mouse-context-menu-function (quote org-mouse-context-menu))
		  (when (memq (quote context-menu) org-mouse-features) (org-defkey org-mouse-map [mouse-3] nil)
		   (org-defkey org-mode-map [mouse-3] (quote org-mouse-show-context-menu)))
		  (org-defkey org-mode-map [down-mouse-1] (quote org-mouse-down-mouse))
		  (when (memq (quote context-menu) org-mouse-features)
		   (org-defkey org-mouse-map [C-drag-mouse-1] (quote org-mouse-move-tree))
		   (org-defkey org-mouse-map [C-down-mouse-1] (quote org-mouse-move-tree-start)))
		  (when (memq (quote yank-link) org-mouse-features)
		   (org-defkey org-mode-map [S-mouse-2] (quote org-mouse-yank-link))
		   (org-defkey org-mode-map [drag-mouse-3] (quote org-mouse-yank-link)))
		  (when (memq (quote move-tree) org-mouse-features)
		   (org-defkey org-mouse-map [drag-mouse-3] (quote org-mouse-move-tree))
		   (org-defkey org-mouse-map [down-mouse-3] (quote org-mouse-move-tree-start)))
		  (when (memq (quote activate-stars) org-mouse-features)
		   (font-lock-add-keywords nil
		    (\`
		     (((\, outline-regexp) 0 (\` (face org-link mouse-face highlight keymap (\, org-mouse-map)))
		       (quote prepend))
		      )
		     )
		    t)
		   )
		  (when (memq (quote activate-bullets) org-mouse-features)
		   (font-lock-add-keywords nil
		    (\`
		     (("^[ 	]*\\([-+*]\\|[0-9]+[.)]\\) +"
		       (1 (\` (face org-link keymap (\, org-mouse-map) mouse-face highlight)) (quote prepend)))
		      )
		     )
		    t)
		   )
		  (when (memq (quote activate-checkboxes) org-mouse-features)
		   (font-lock-add-keywords nil
		    (\`
		     (("^[ 	]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
		       (2 (\` (face bold keymap (\, org-mouse-map) mouse-face highlight)) t))
		      )
		     )
		    t)
		   )
		  (defadvice org-open-at-point (around org-mouse-open-at-point activate)
		   (let ((context (org-context)))
		    (cond ((assq :headline-stars context) (org-cycle)) ((assq :checkbox context) (org-toggle-checkbox))
		     ((assq :item-bullet context) (let ((org-cycle-include-plain-lists t)) (org-cycle))) (t ad-do-it))
		    )
		   )
		  )
		 (lambda nil (add-hook (quote before-save-hook) (quote org-encrypt-entries) nil t))
		 (lambda nil
		  (org-add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quote append) (quote local)))
		 (lambda nil
		  (org-add-hook (quote change-major-mode-hook) (quote org-babel-show-result-all) (quote append)
		   (quote local))
		  )
		 org-babel-result-hide-spec org-babel-hide-all-hashes soft-wrap-lines)
 org-font-lock-hook '(org-inlinetask-fontify)
 org-refile-targets '((org-agenda-files :maxlevel . 5) (nil :maxlevel . 5))
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
 org-return-follows-link t
 org-confirm-elisp-link-function 'yes-or-no-p
 org-refile-use-outline-path 'file
 org-log-into-drawer t
 org-agenda-mode-hook '((lambda nil (setq org-mouse-context-menu-function (quote org-mouse-agenda-context-menu))
			 (org-defkey org-agenda-mode-map [mouse-3] (quote org-mouse-show-context-menu))
			 (org-defkey org-agenda-mode-map [down-mouse-3] (quote org-mouse-move-tree-start))
			 (org-defkey org-agenda-mode-map [C-mouse-4] (quote org-agenda-earlier))
			 (org-defkey org-agenda-mode-map [C-mouse-5] (quote org-agenda-later))
			 (org-defkey org-agenda-mode-map [drag-mouse-3]
			  (quote
			   (lambda (event) (interactive "e")
			    (case (org-mouse-get-gesture event) (:left (org-agenda-earlier 1))
			     (:right (org-agenda-later 1)))
			    )
			   )
			  )
			 )
			)
 org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks))
 org-enforce-todo-dependencies t
 org-agenda-skip-deadline-if-done t
 org-refile-allow-creating-parent-nodes 'confirm
 org-crypt-key "0CB40851"
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code)
 org-modules '(org-bbdb org-bibtex org-crypt org-docview org-gnus org-id org-info org-jsinfo org-habit org-inlinetask
	       org-irc org-mac-message org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m org-mouse
	       org-annotate-file org-bookmark org-checklist org-git-link org-mac-iCal org-mac-link-grabber org-registry
	       org2rem org-secretary org-mac-protocol)
 org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames
			       org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (comment org-export-blocks-format-comment t)
		     (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil))
 )


It is probably not a bug, but something that I am doing wrong? Any hints?



-- 
Urs Rau