Re: icalendar.el and gnus.

[david.goldberg6@verizon.net (Dave Goldberg)]

> Hello

> I have 2 problems with icalendar.el (I contacted the author,
> but since he did not reply yet, I thought maybe someone else
> has some experience).

> The first problem concerns how to automatically call the
> icalendar import function (which imports an icalendar event
> to the diary) when opening a message.

> I used 
> (setq gnus-article-mime-part-function 'icalendar-import-buffer)
> but then I obtain an error which I attach.

I use the following.   The only thing I remember about it was the need to deal with uuencoded calendar entries; I don't recall any other error.  Don't use it verbatim.  I have hardcoded destination file names in it.

(defun dsg-icalendar-handle-part (handle)
  (when (equal (car (mm-handle-type handle)) "text/calendar")
    (with-temp-buffer
      (insert (mm-get-part handle))
      (if (equal (mm-handle-encoding handle) 'uuencode)
	  (uudecode-decode-region-internal (point-min) (point-max)))
      (goto-char (point-min))
      (let* ((e
	      (car (icalendar--all-events (icalendar--read-element nil nil))))
	     (subject (icalendar--convert-string-for-import
		       (or (icalendar--get-event-property e 'SUMMARY)
			   "No Subject")))
	     (dtstart (icalendar--get-event-property e 'DTSTART))
	     (dtstart-dec (icalendar--decode-isodatetime dtstart))
	     (start-d (icalendar--datetime-to-diary-date dtstart-dec))
	     (start-t (icalendar--datetime-to-colontime dtstart-dec))
	     (repq (icalendar--get-event-property e 'RRULE)))
	(if (y-or-n-p
	     (format
	      "Add %s for \"%s\" on %s at %s to diary? "
	      (if repq "repeating event" "appointment")
	      subject start-d start-t))
	    (icalendar-import-buffer
	     (expand-file-name (if repq "~/repeating-diary"
				 "~/ical-diary")) t nil))))))

(setq gnus-article-mime-part-function 'dsg-icalendar-handle-part)

-- 
Dave Goldberg
david.goldberg6@verizon.net