calendar integration (ical) with Gnus

calendar integration (ical) with Gnus

[Trey Jackson]

All,

I looked through the documentation and searched the last two years of
gnus.ding and cannot find anything about getting gnus to process calendar
attachments (specifically meeting notices from an exchange server).

Any help/pointers?  I can start coding something up if someone would let me
know the proper places to start... such as the hooks I'd need add to in
order to process the MIME type and the such.

This is the type of the attachment:

,----------------
| Content-class: urn:content-classes:calendarmessage
| Content-Type: text/calendar;
| 	name="meeting.ics";
| 	method=REQUEST
`----------------

And I'm using gnus 5.10.8 (can easily upgrade ngnus-0.6), and emacs 22.1.


thanks,


TJ


-- 
Trey Jackson
bigfaceworm@gmail.com

"I tell my students that [they] must suppress the primal response
 of wanting to die feet first instead of head first."
-- Barry Ritchey, on teaching proper Telemark technique

Re: calendar integration (ical) with Gnus

[Dave Goldberg]

I use icalendar.el (<http://de.geocities.com/ulf_jasper/lisp/icalendar.el.txt>) and have this in my .xemacs/init.el for added support:

(require 'icalendar)

(defun dsg-icalendar-handle-part (handle)
  (when (equal (car (mm-handle-type handle)) "text/calendar")
    (with-temp-buffer
      (insert (mm-get-part handle))
      (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)))
	(if (y-or-n-p
	     (format
	      "Add appointment for \"%s\" on %s at %s to diary? "
	      subject start-d start-t))
	    (icalendar-import-buffer
	     (expand-file-name "~/ical-diary") t nil))))))

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

The above results in my being prompted to add appointments generated by Exchange into a diary file.

-- 
Dave Goldberg
david.goldberg6@verizon.net