[SOLVED] (was: coding problem UTF8)

[Uwe Brauer <oub@mat.ucm.es>]

   > I hope the bad encoded UTF8 chars reach the group 
   > I have á etc instead of à
   > So I have to run 
   > (decode-coding-region start end 'utf-8 nil)


The following modification works for me:

(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))
			(decode-coding-region (point-min) (point-max) 'utf-8 nil)
      (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))))))

Uwe