[Emacs-diffs] trunk r114236: gnus-icalendar small fix

[Glenn Morris]

------------------------------------------------------------
revno: 114236
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-09-11 23:47:07 -0700
message:
  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.
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-icalendar.el    
gnusicalendar.el-20130801225830-k3bdrwt8427ren1n-1

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-09-11 03:31:56 +0000
+++ b/lisp/gnus/ChangeLog       2013-09-12 06:47:07 +0000
@@ -1,3 +1,10 @@
+2013-09-12  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * score-mode.el (gnus-score-mode-map): Move initialization

=== modified file 'lisp/gnus/gnus-icalendar.el'
--- a/lisp/gnus/gnus-icalendar.el       2013-08-13 07:22:05 +0000
+++ b/lisp/gnus/gnus-icalendar.el       2013-09-12 06:47:07 +0000
@@ -257,9 +257,9 @@
                               ((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 @@
   (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")