Function: gnus-icalendar-event--find-attendee

gnus-icalendar-event--find-attendee is a byte-compiled function defined in gnus-icalendar.el.gz.

Signature

(gnus-icalendar-event--find-attendee ICAL NAME-OR-EMAIL)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-icalendar.el.gz
(defun gnus-icalendar-event--find-attendee (ical name-or-email)
  (let* ((event (car (icalendar--all-events ical)))
         (event-props (caddr event)))
    (cl-labels ((attendee-name (att) (plist-get (cadr att) 'CN))
		(attendee-email
		 (att)
		 (replace-regexp-in-string "^.*MAILTO:" "" (caddr att)))
		(attendee-prop-matches-p
		 (prop)
		 (and (eq (car prop) 'ATTENDEE)
		      (or (member (attendee-name prop) name-or-email)
			  (let ((att-email (attendee-email prop)))
			    (gnus-icalendar-find-if
			     (lambda (str-or-fun)
                   (if (functionp str-or-fun)
                       (funcall str-or-fun att-email)
                     (string-match str-or-fun att-email)))
			     name-or-email))))))
      (gnus-icalendar-find-if #'attendee-prop-matches-p event-props))))