From: Glenn Morris Date: Thu, 12 Sep 2013 06:47:07 +0000 (-0700) Subject: gnus-icalendar small fix X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/a99f655b99b9596ab6b11d6890c39c2dde93d6e1 gnus-icalendar small fix * gnus/gnus-icalendar.el (gnus-icalendar-event--build-reply-event-body): Avoid using `find', which i) might not be defined at runtime; ii) does not work, since its default test is eql, not equal. (gnus-mime-action-alist): Declare. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1bf7bb588f..2eea1fb833 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,10 @@ +2013-09-12 Glenn Morris + + * gnus-icalendar.el (gnus-icalendar-event--build-reply-event-body): + Avoid using `find', which i) might not be defined at runtime; + ii) does not work, since its default test is eql, not equal. + (gnus-mime-action-alist): Declare. + 2013-09-11 Stefan Monnier * score-mode.el (gnus-score-mode-map): Move initialization diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el index a946a58603..e4e1ec29ae 100644 --- a/lisp/gnus/gnus-icalendar.el +++ b/lisp/gnus/gnus-icalendar.el @@ -257,9 +257,9 @@ status will be retrieved from the first matching attendee record." ((string= key "ATTENDEE") (update-attendee-status line)) ((string= key "SUMMARY") (update-summary line)) ((string= key "DTSTAMP") (update-dtstamp)) - ((find key '("ORGANIZER" "DTSTART" "DTEND" - "LOCATION" "DURATION" "SEQUENCE" - "RECURRENCE-ID" "UID")) line) + ((member key '("ORGANIZER" "DTSTART" "DTEND" + "LOCATION" "DURATION" "SEQUENCE" + "RECURRENCE-ID" "UID")) line) (t nil)))) (when new-line (push new-line reply-event-lines)))))) @@ -816,6 +816,8 @@ is searched." (gnus-icalendar-show-org-agenda (with-current-buffer gnus-article-buffer gnus-icalendar-event))) +(defvar gnus-mime-action-alist) ; gnus-art + (defun gnus-icalendar-setup () (add-to-list 'mm-inlined-types "text/calendar") (add-to-list 'mm-automatic-display "text/calendar")