[Orgmode] 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)]

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