[O] Problems with org-caldav (wrong-type-argument stringp 47)

[Sven Bretfeld]

Hi

Thank you very much for org-caldav. I've waited for it since years.
However, I have problems on my first sync. I think I have done
everything correctly:

(setq load-path (cons "~/elisp/org-caldav" load-path))
(require 'org-caldav)
(setq org-caldav-url "https://www.google.com/calendar/dav";)
(setq org-caldav-calendar-id "address@hidden")
(setq org-caldav-inbox "/home/sven/Dropbox/myconf/testcal.org")
(setq org-caldav-files "/home/sven/Dropbox/myconf/testlocalcal.org")
;(setq org-icalendar-timezone "Europe/Berlin")

I also replaced url-dav.el by the patched version (I'm using Emacs
23.4.1 under Ubuntu). 

Find below an error report, that comes after some seconds (sometimes a
minute) during the initial sync. The minibuffer displays "Reading 543
Bytes" for some time, then it breaks with the error-message. Neither the
files, nor GoogleCalendar show any changes afterwards (e.g. no IDs are
created in testlocalcal.org).

I'm hoping that I can get this to work.

Thanks for help,

Sven

Debugger entered--Lisp error: (wrong-type-argument stringp 47)
  file-exists-p(47)
  (not (file-exists-p file))
  (if (not (file-exists-p file)) (progn (message "non-existent agenda file %s. 
[R]emove from list or [A]bort?" ...) (let ... ...)))
  (when (not (file-exists-p file)) (message "non-existent agenda file %s. 
[R]emove from list or [A]bort?" (abbreviate-file-name file)) (let (...) (cond 
... ...)))
  org-check-agenda-file(47)
  (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer 
(org-get-agenda-file-buffer file)))
  (catch (quote nextfile) (if (bufferp file) (set-buffer file) 
(org-check-agenda-file file) (set-buffer ...)) (widen) (setq bmp 
(buffer-modified-p)) (org-refresh-category-properties) (setq 
org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda 
org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append 
org-done-keywords-for-agenda org-done-keywords)) (setq 
org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda 
org-todo-key-alist)) (setq org-drawers-for-agenda (append 
org-drawers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (append 
org-tag-alist-for-agenda org-tag-alist)) (save-excursion 
(remove-text-properties ... ... pall) (when org-agenda-skip-archived-trees ... 
...) (goto-char ...) (setq re ...) (while ... ...)) (set-buffer-modified-p bmp))
  (while (setq file (pop files)) (catch (quote nextfile) (if ... ... ... ...) 
(widen) (setq bmp ...) (org-refresh-category-properties) (setq 
org-todo-keywords-for-agenda ...) (setq org-done-keywords-for-agenda ...) (setq 
org-todo-keyword-alist-for-agenda ...) (setq org-drawers-for-agenda ...) (setq 
org-tag-alist-for-agenda ...) (save-excursion ... ... ... ... ...) 
(set-buffer-modified-p bmp)))
  (save-restriction (while (setq file ...) (catch ... ... ... ... ... ... ... 
... ... ... ... ...)))
  (save-excursion (save-restriction (while ... ...)))
  (let ((pa ...) (pc ...) (pall ...) (inhibit-read-only t) (rea ...) bmp file 
re) (save-excursion (save-restriction ...)) (setq org-todo-keywords-for-agenda 
(org-uniquify org-todo-keywords-for-agenda)) (setq 
org-todo-keyword-alist-for-agenda (org-uniquify 
org-todo-keyword-alist-for-agenda) org-tag-alist-for-agenda (org-uniquify 
org-tag-alist-for-agenda)))
  org-agenda-prepare-buffers((47 104 111 109 101 47 115 118 101 110 47 68 114 
111 112 98 111 120 47 109 121 99 111 110 102 47 116 101 115 116 108 111 99 97 
108 99 97 108 46 111 114 103 "/home/sven/Dropbox/myconf/testcal.org"))
  (save-excursion (org-agenda-prepare-buffers files) (let* (... file ical-file 
ical-buffer category started org-agenda-new-buffers) (and ... ...) (when 
combine ... ... ...) (while ... ...) (org-release-buffers 
org-agenda-new-buffers)))
  org-export-icalendar(t 47 104 111 109 101 47 115 118 101 110 47 68 114 111 
112 98 111 120 47 109 121 99 111 110 102 47 116 101 115 116 108 111 99 97 108 
99 97 108 46 111 114 103 "/home/sven/Dropbox/myconf/testcal.org")
  apply(org-export-icalendar t (47 104 111 109 101 47 115 118 101 110 47 68 114 
111 112 98 111 120 47 109 121 99 111 110 102 47 116 101 115 116 108 111 99 97 
108 99 97 108 46 111 114 103 "/home/sven/Dropbox/myconf/testcal.org"))
  (let ((org-combined-agenda-icalendar-file ...) (org-icalendar-store-UID t) 
(org-icalendar-date-time-format ...)) (org-caldav-debug-print (format 
"Generating ICS file %s." org-combined-agenda-icalendar-file)) (apply (quote 
org-export-icalendar) t (append org-caldav-files ...)) (find-file-noselect 
org-combined-agenda-icalendar-file))
  org-caldav-generate-ics()
  (setq org-caldav-ics-buffer (org-caldav-generate-ics))
  (if (and org-caldav-event-list (y-or-n-p "Last sync seems to have been 
aborted. Should I try to resume? ")) nil (setq org-caldav-ics-buffer 
(org-caldav-generate-ics)) (setq org-caldav-event-list nil) (setq 
org-caldav-sync-result nil) (org-caldav-load-sync-state) (dolist (cur 
org-caldav-event-list) (org-caldav-event-set-status cur nil)) 
(org-caldav-update-eventdb-from-org org-caldav-ics-buffer) 
(org-caldav-update-eventdb-from-cal))
  (unless (and org-caldav-event-list (y-or-n-p "Last sync seems to have been 
aborted. Should I try to resume? ")) (setq org-caldav-ics-buffer 
(org-caldav-generate-ics)) (setq org-caldav-event-list nil) (setq 
org-caldav-sync-result nil) (org-caldav-load-sync-state) (dolist (cur 
org-caldav-event-list) (org-caldav-event-set-status cur nil)) 
(org-caldav-update-eventdb-from-org org-caldav-ics-buffer) 
(org-caldav-update-eventdb-from-cal))
  org-caldav-sync()
  call-interactively(org-caldav-sync t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)