[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] org-caldav issue: Search failed: ";\\([A-Za-z0-9-]+\\)="
From: |
giles |
Subject: |
Re: [O] org-caldav issue: Search failed: ";\\([A-Za-z0-9-]+\\)=" |
Date: |
Wed, 30 Jan 2013 19:22:33 +0000 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (darwin) |
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