archiving tasks breaks emacs

[Spike Spiegel <fsmlab@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 936 bytes --]

Hi,

I'm a new emacs user,  running emacs 22.3_0 , org 6.21b and remember
2.0 on osx, emacs installed from macports and everything else from
upstream. I'm following this tutorial
http://www.newartisans.com/blog/2007/08/using-org-mode-as-a-day-planner.html
and my todo.org example is attached along with my .emacs (only the
orgmode relevant part).

After marking one of the tasks as DONE I wanted to test the archiving
feature. Setting ARCHIVE tag works just fine but if I try to save to
an archive fail (C-c C-x C-a) emacs immediately freezes and top shows
it's taking up all the CPU:

43537 emacs       96.7%  5:12.23   1    15     63 9040K   364K    12M    26M

it won't ever come down and I have to kill it.

The directory Documents/orgmode/archive exists and is empty.

any idea what the problem could be? If anybody can provide some
directions I could do more debugging.

-- 
"Behind every great man there's a great backpack" - B.

[-- Attachment #2: todo.org --]
[-- Type: application/octet-stream, Size: 819 bytes --]

MY PROJECTS  -*- mode: org; fill-column: 78 -*-

* Tasks
#+CATEGORY: Tasks
** TODO blaaaaaaaaaaaaaaaah
   SCHEDULED: <2009-02-09 Mon>
   [2009-02-08 Sun]
** DEFERRED testins some more task
   [2009-02-08 Sun] 
** TODO testin task
   [2009-02-08 Sun]


* Sample project milestone
#+CATEGORY: MilestoneX
  DEADLINE: <2007-12-16 Sun>


* School
#+CATEGORY: School
* Health
#+CATEGORY: Health
* Finances
#+CATEGORY: Finance
* Miscellaneous
#+CATEGORY: Misc


* Anniversaries and Holidays
#+CATEGORY: Holiday
%%(org-calendar-holiday)
%%(diary-date 10 25 t) Grenada's Thanksgiving
#+CATEGORY: Birthday
%%(diary-anniversary  1 1 1960) Someone is %d years old


#+STARTUP: content
#+STARTUP: lognotestate
#+SEQ_TODO: TODO STARTED WAITING DELEGATED APPT | DONE DEFERRED CANCELLED
#+TAGS: { SCHOOL(s) WORK(w) } CALL(c) ERRAND(e)

[-- Attachment #3: emacs-snippet --]
[-- Type: application/octet-stream, Size: 2897 bytes --]

;;;; org-mode
(setq load-path (cons "~/.emacs.d/pkgs/org-6.21b/lisp" load-path))
;;(setq load-path (cons "~/.emacs.d/pkgs/org-6.21b/contrib/lisp" load-path))
(require 'org-install)
;; The following lines are always needed.  Choose your own keys.
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(setq org-directory "~/Documents/orgmode/")
(setq org-archive-location (concat "~/Documents/orgmode/archive/" (format-time-string "%Y") ".org::* " (format-time-string "%B")))
(defadvice org-archive-subtree (around my-org-archive-subtree-around)
  (let ((org-archive-location (concat "~/Documents/orgmode/archive/" (format-time-string "%Y") ".org::* "(buffer-name))))
    ad-do-it))
(ad-activate 'org-archive-subtree)

(define-key global-map (kbd "C-c l") 'org-store-link)
(define-key global-map (kbd "C-c a") 'org-agenda)
(define-key global-map (kbd "C-c b") 'org-iswitchb)

(setq org-todo-keywords
      '(sequence "TODO(t)" "|" "DEFERRED(f)" "CANCELED(c)" "DONE(d)"))

;; TODO maybe need to add proper colors for those keywords
(setq org-todo-keyword-faces
      '(("TODO"      . org-warning)
        ("DEFERRED"  . shadow)
        ("CANCELED"  . (:foreground "blue" :weight bold))))

(setq load-path (cons "~/.emacs.d/pkgs/remember-2.0" load-path))
(require 'remember)
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(define-key global-map (kbd "C-M-r") 'remember)

;;;; custom stuff set up with customize-group
(custom-set-variables
 '(org-agenda-files (quote ("~/Documents/orgmode/todo.org")))
 '(org-default-notes-file "~/Documents/orgmode/notes.org")
 '(org-agenda-ndays 7)
 '(org-deadline-warning-days 14)
 '(org-agenda-show-all-dates t)
 '(org-agenda-skip-deadline-if-done t)
 '(org-agenda-skip-scheduled-if-done t)
 '(org-agenda-start-on-weekday nil)
 '(org-reverse-note-order t)
 '(org-fast-tag-selection-single-key (quote expert))
 '(org-agenda-custom-commands
   (quote (("d" todo "DELEGATED" nil)
       ("c" todo "DONE|DEFERRED|CANCELLED" nil)
       ("w" todo "WAITING" nil)
       ("W" agenda "" ((org-agenda-ndays 21)))
       ("A" agenda ""
        ((org-agenda-skip-function
          (lambda nil
        (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]")))
         (org-agenda-ndays 1)
         (org-agenda-overriding-header "Today's Priority #A tasks: ")))
       ("u" alltodo ""
        ((org-agenda-skip-function
          (lambda nil
        (org-agenda-skip-entry-if (quote scheduled) (quote deadline)
                      (quote regexp) "<[^>\n]+>")))
         (org-agenda-overriding-header "Unscheduled TODO entries: "))))))
 '(org-remember-store-without-prompt t)
 '(org-remember-templates
   (quote ((116 "* TODO %?\n  %u" "todo.org" "Tasks")
       (110 "* %u %?" "notes.org" "Notes"))))
 '(remember-annotation-functions (quote (org-remember-annotation)))
 '(remember-handler-functions (quote (org-remember-handler)))
(custom-set-faces
 )

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode