Re: [O] org-caldav issue: Search failed: ";\\([A-Za-z0-9-]+\\)="

[giles]

Thanks for the interest.

David Engster <address@hidden> writes:

> Could you please do M-x toggle-debug-on-error before running the sync
> and post the resulting backtrace here?

Slightly different behaviour this time: first seven events synced fine,
number 8 blew up the same way.

Debugger entered--Lisp error: (search-failed ";\\([A-Za-z0-9-]+\\)=")
  re-search-forward(";\\([A-Za-z0-9-]+\\)=" nil nil)
  icalendar--read-element(VEVENT nil)
  icalendar--read-element(VCALENDAR nil)
  icalendar--read-element(nil nil)
  (let* ((calendar-date-style (quote european)) (ical-list 
(icalendar--read-element nil nil)) (e (car (icalendar--all-events ical-list))) 
(zone-map (icalendar--convert-all-timezones ical-list)) (dtstart 
(icalendar--get-event-property e (quote DTSTART))) (dtstart-zone 
(icalendar--find-time-zone (icalendar--get-event-property-attributes e (quote 
DTSTART)) zone-map)) (dtstart-dec (icalendar--decode-isodatetime dtstart nil 
dtstart-zone)) (start-d (icalendar--datetime-to-diary-date dtstart-dec)) 
(start-t (icalendar--datetime-to-colontime dtstart-dec)) (dtend 
(icalendar--get-event-property e (quote DTEND))) (dtend-zone 
(icalendar--find-time-zone (icalendar--get-event-property-attributes e (quote 
DTEND)) zone-map)) (dtend-dec (icalendar--decode-isodatetime dtend nil 
dtend-zone)) (dtend-1-dec (icalendar--decode-isodatetime dtend -1 dtend-zone)) 
end-d end-1-d end-t (summary (icalendar--convert-string-for-import (or 
(icalendar--get-event-property e (quote SUMMARY)) "No Title"))) (description 
(icalendar--convert-string-for-import (or (icalendar--get-event-property e 
(quote DESCRIPTION)) ""))) (rrule (icalendar--get-event-property e (quote 
RRULE))) (rdate (icalendar--get-event-property e (quote RDATE))) (duration 
(icalendar--get-event-property e (quote DURATION)))) (if (and dtstart (string= 
(cadr (icalendar--get-event-property-attributes e (quote DTSTART))) "DATE")) 
(setq start-t nil)) (if duration (progn (let ((dtend-dec-d 
(icalendar--add-decoded-times dtstart-dec (icalendar--decode-isoduration 
duration))) (dtend-1-dec-d (icalendar--add-decoded-times dtstart-dec 
(icalendar--decode-isoduration duration t)))) (if (and dtend-dec (not (eq 
dtend-dec dtend-dec-d))) (message "Inconsistent endtime and duration for %s" 
summary)) (setq dtend-dec dtend-dec-d) (setq dtend-1-dec dtend-1-dec-d)))) 
(setq end-d (if dtend-dec (icalendar--datetime-to-diary-date dtend-dec) 
start-d)) (setq end-1-d (if dtend-1-dec (icalendar--datetime-to-diary-date 
dtend-1-dec) start-d)) (setq end-t (if (and dtend-dec (not (string= (cadr 
(icalendar--get-event-property-attributes e ...)) "DATE"))) 
(icalendar--datetime-to-colontime dtend-dec) start-t)) (list start-d start-t 
(if end-t end-d end-1-d) end-t summary description))
  org-caldav-convert-event()
  (setq eventdata (org-caldav-convert-event))
  (save-current-buffer (set-buffer (org-caldav-get-event uid)) (goto-char 
(point-min)) (save-excursion (if (re-search-forward 
"^SEQUENCE:\\s-*\\([0-9]+\\)" nil t) (progn (org-caldav-event-set-sequence cur 
(string-to-number (match-string 1)))))) (setq eventdata 
(org-caldav-convert-event)))
  (while --dolist-tail-- (setq cur (car --dolist-tail--)) (setq uid (car cur)) 
(setq org-caldav-sync-result (cons (list uid (org-caldav-event-status cur) 
(quote cal->org)) org-caldav-sync-result)) (setq counter (1+ counter)) (message 
"Getting event %d of %d" counter (length events)) (save-current-buffer 
(set-buffer (org-caldav-get-event uid)) (goto-char (point-min)) (save-excursion 
(if (re-search-forward "^SEQUENCE:\\s-*\\([0-9]+\\)" nil t) (progn 
(org-caldav-event-set-sequence cur (string-to-number (match-string 1)))))) 
(setq eventdata (org-caldav-convert-event))) (if (eq (org-caldav-event-status 
cur) (quote new-in-cal)) (save-current-buffer (set-buffer (find-file-noselect 
org-caldav-inbox)) (org-caldav-debug-print (format "Event UID %s: New in Cal 
--> Org inbox." uid)) (goto-char (point-max)) (apply (quote 
org-caldav-insert-org-entry) (append eventdata (list uid))) (setq buf 
(current-buffer))) (org-caldav-debug-print (format "Event UID %s: Changed in 
Cal --> Org" uid)) (let ((marker (org-id-find (car cur) t))) (if (null marker) 
(progn (error "Could not find UID %s." (car cur)))) (save-current-buffer 
(set-buffer (marker-buffer marker)) (goto-char (marker-position marker)) (if 
org-caldav-backup-file (progn (org-caldav-backup-item))) (if (or (eq 
org-caldav-sync-changes-to-org (quote title-only)) (eq 
org-caldav-sync-changes-to-org (quote title-and-timestamp))) (progn 
(org-caldav-change-heading (nth 4 eventdata)))) (if (or (eq 
org-caldav-sync-changes-to-org (quote timestamp-only)) (eq 
org-caldav-sync-changes-to-org (quote title-and-timestamp))) (progn 
(org-caldav-change-timestamp (apply ... ...)))) (if (eq 
org-caldav-sync-changes-to-org (quote all)) (progn (delete-region 
(org-entry-beginning-position) (org-entry-end-position)) (apply (quote 
org-caldav-insert-org-entry) (append eventdata ...)))) (setq buf 
(current-buffer))))) (org-caldav-event-set-status cur (quote synced)) 
(save-current-buffer (set-buffer buf) (org-caldav-event-set-md5 cur (md5 
(buffer-substring-no-properties (org-entry-beginning-position) 
(org-entry-end-position))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- events) cur) (while --dolist-tail-- (setq cur (car 
--dolist-tail--)) (setq uid (car cur)) (setq org-caldav-sync-result (cons (list 
uid (org-caldav-event-status cur) (quote cal->org)) org-caldav-sync-result)) 
(setq counter (1+ counter)) (message "Getting event %d of %d" counter (length 
events)) (save-current-buffer (set-buffer (org-caldav-get-event uid)) 
(goto-char (point-min)) (save-excursion (if (re-search-forward 
"^SEQUENCE:\\s-*\\([0-9]+\\)" nil t) (progn (org-caldav-event-set-sequence cur 
(string-to-number ...))))) (setq eventdata (org-caldav-convert-event))) (if (eq 
(org-caldav-event-status cur) (quote new-in-cal)) (save-current-buffer 
(set-buffer (find-file-noselect org-caldav-inbox)) (org-caldav-debug-print 
(format "Event UID %s: New in Cal --> Org inbox." uid)) (goto-char (point-max)) 
(apply (quote org-caldav-insert-org-entry) (append eventdata (list uid))) (setq 
buf (current-buffer))) (org-caldav-debug-print (format "Event UID %s: Changed 
in Cal --> Org" uid)) (let ((marker (org-id-find (car cur) t))) (if (null 
marker) (progn (error "Could not find UID %s." (car cur)))) 
(save-current-buffer (set-buffer (marker-buffer marker)) (goto-char 
(marker-position marker)) (if org-caldav-backup-file (progn 
(org-caldav-backup-item))) (if (or (eq org-caldav-sync-changes-to-org ...) (eq 
org-caldav-sync-changes-to-org ...)) (progn (org-caldav-change-heading ...))) 
(if (or (eq org-caldav-sync-changes-to-org ...) (eq 
org-caldav-sync-changes-to-org ...)) (progn (org-caldav-change-timestamp ...))) 
(if (eq org-caldav-sync-changes-to-org (quote all)) (progn (delete-region ... 
...) (apply ... ...))) (setq buf (current-buffer))))) 
(org-caldav-event-set-status cur (quote synced)) (save-current-buffer 
(set-buffer buf) (org-caldav-event-set-md5 cur (md5 
(buffer-substring-no-properties (org-entry-beginning-position) 
(org-entry-end-position))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (progn (let ((--dolist-tail-- events) cur) (while --dolist-tail-- (setq cur 
(car --dolist-tail--)) (setq uid (car cur)) (setq org-caldav-sync-result (cons 
(list uid (org-caldav-event-status cur) (quote cal->org)) 
org-caldav-sync-result)) (setq counter (1+ counter)) (message "Getting event %d 
of %d" counter (length events)) (save-current-buffer (set-buffer 
(org-caldav-get-event uid)) (goto-char (point-min)) (save-excursion (if 
(re-search-forward "^SEQUENCE:\\s-*\\([0-9]+\\)" nil t) (progn 
(org-caldav-event-set-sequence cur ...)))) (setq eventdata 
(org-caldav-convert-event))) (if (eq (org-caldav-event-status cur) (quote 
new-in-cal)) (save-current-buffer (set-buffer (find-file-noselect 
org-caldav-inbox)) (org-caldav-debug-print (format "Event UID %s: New in Cal 
--> Org inbox." uid)) (goto-char (point-max)) (apply (quote 
org-caldav-insert-org-entry) (append eventdata (list uid))) (setq buf 
(current-buffer))) (org-caldav-debug-print (format "Event UID %s: Changed in 
Cal --> Org" uid)) (let ((marker (org-id-find ... t))) (if (null marker) (progn 
(error "Could not find UID %s." ...))) (save-current-buffer (set-buffer 
(marker-buffer marker)) (goto-char (marker-position marker)) (if 
org-caldav-backup-file (progn ...)) (if (or ... ...) (progn ...)) (if (or ... 
...) (progn ...)) (if (eq org-caldav-sync-changes-to-org ...) (progn ... ...)) 
(setq buf (current-buffer))))) (org-caldav-event-set-status cur (quote synced)) 
(save-current-buffer (set-buffer buf) (org-caldav-event-set-md5 cur (md5 
(buffer-substring-no-properties (org-entry-beginning-position) 
(org-entry-end-position))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (let ((events (append (org-caldav-filter-events (quote new-in-cal)) 
(org-caldav-filter-events (quote changed-in-cal)))) (url-show-status nil) 
(counter 0) eventdata buf uid) (progn (let ((--dolist-tail-- events) cur) 
(while --dolist-tail-- (setq cur (car --dolist-tail--)) (setq uid (car cur)) 
(setq org-caldav-sync-result (cons (list uid (org-caldav-event-status cur) 
(quote cal->org)) org-caldav-sync-result)) (setq counter (1+ counter)) (message 
"Getting event %d of %d" counter (length events)) (save-current-buffer 
(set-buffer (org-caldav-get-event uid)) (goto-char (point-min)) (save-excursion 
(if (re-search-forward "^SEQUENCE:\\s-*\\([0-9]+\\)" nil t) (progn ...))) (setq 
eventdata (org-caldav-convert-event))) (if (eq (org-caldav-event-status cur) 
(quote new-in-cal)) (save-current-buffer (set-buffer (find-file-noselect 
org-caldav-inbox)) (org-caldav-debug-print (format "Event UID %s: New in Cal 
--> Org inbox." uid)) (goto-char (point-max)) (apply (quote 
org-caldav-insert-org-entry) (append eventdata ...)) (setq buf 
(current-buffer))) (org-caldav-debug-print (format "Event UID %s: Changed in 
Cal --> Org" uid)) (let ((marker ...)) (if (null marker) (progn ...)) 
(save-current-buffer (set-buffer ...) (goto-char ...) (if 
org-caldav-backup-file ...) (if ... ...) (if ... ...) (if ... ...) (setq buf 
...)))) (org-caldav-event-set-status cur (quote synced)) (save-current-buffer 
(set-buffer buf) (org-caldav-event-set-md5 cur (md5 
(buffer-substring-no-properties ... ...)))) (setq --dolist-tail-- (cdr 
--dolist-tail--))))))
  org-caldav-update-events-in-org()
  org-caldav-sync()
  call-interactively(org-caldav-sync record nil)
  command-execute(org-caldav-sync record)
  execute-extended-command(nil "org-caldav-sync")
  call-interactively(execute-extended-command nil nil)

-- 
Giles Chamberlin