From 7a856e9dcb781fd85d695b87d827aa061049a1c7 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 1 Aug 2013 23:06:26 +0200 Subject: [PATCH] Compilation warning fix * gnus-icalendar.el (gnus-icalendar-event:inline-reply-buttons): Include `handle' parameter. --- lisp/ChangeLog | 5 +++++ lisp/gnus-icalendar.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 98ffbd635..3efb2ee3d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-08-01 Lars Magne Ingebrigtsen + + * gnus-icalendar.el (gnus-icalendar-event:inline-reply-buttons): + Include `handle' parameter. + 2013-08-01 Jan Tatarik * gnus-icalendar.el: New file. diff --git a/lisp/gnus-icalendar.el b/lisp/gnus-icalendar.el index 460599519..0286fd5dd 100644 --- a/lisp/gnus-icalendar.el +++ b/lisp/gnus-icalendar.el @@ -696,13 +696,13 @@ is searched." (defun gnus-icalendar-sync-event-to-org (event) (gnus-icalendar-event:sync-to-org event gnus-icalendar-reply-status)) -(defmethod gnus-icalendar-event:inline-reply-buttons ((event gnus-icalendar-event)) +(defmethod gnus-icalendar-event:inline-reply-buttons ((event gnus-icalendar-event) handle) (when (gnus-icalendar-event:rsvp event) `(("Accept" gnus-icalendar-reply (,handle accepted ,event)) ("Tentative" gnus-icalendar-reply (,handle tentative ,event)) ("Decline" gnus-icalendar-reply (,handle declined ,event))))) -(defmethod gnus-icalendar-event:inline-reply-buttons ((event gnus-icalendar-event-reply)) +(defmethod gnus-icalendar-event:inline-reply-buttons ((event gnus-icalendar-event-reply) handle) "No buttons for REPLY events." nil) @@ -741,7 +741,8 @@ is searched." buttons) (insert "\n\n")))) - (insert-button-group (gnus-icalendar-event:inline-reply-buttons event)) + (insert-button-group + (gnus-icalendar-event:inline-reply-buttons event handle)) (when gnus-icalendar-org-enabled-p (insert-button-group (gnus-icalendar-event:inline-org-buttons event))) @@ -831,6 +832,6 @@ is searched." (cons "save calendar event" 'gnus-icalendar-save-event) t)) - (provide 'gnus-icalendar) + ;;; gnus-icalendar.el ends here -- 2.25.1