[gnus git] branch master updated: m0-7-266-g58fab0e =1= gnus-icalendar.el (gnus-icalendar-identities): Make changing the value of gnus-icalendar-additional-identities work without restart.

       via  58fab0eac478381c2583189e975f6f039f5de3d2 (commit)
      from  a10c76f238f7e4b70251017389af96ba55953506 (commit)


- Log -----------------------------------------------------------------
commit 58fab0eac478381c2583189e975f6f039f5de3d2
Author: Jan Tatarik <[email protected]>
Date:   Mon Dec 2 22:19:11 2013 +0100

    gnus-icalendar.el (gnus-icalendar-identities): Make changing the
    value of gnus-icalendar-additional-identities work without restart.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c69ba09..05a8e47 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-18  Jan Tatarik  <[email protected]>
+
+	* gnus-icalendar.el (gnus-icalendar-identities): Make changing the
+	value of gnus-icalendar-additional-identities work without restart.
+
 2013-12-17  Katsumi Yamaoka  <[email protected]>
 
 	* mm-util.el (mm-make-temp-file):
diff --git a/lisp/gnus-icalendar.el b/lisp/gnus-icalendar.el
index 5f15292..1abcb6e 100644
--- a/lisp/gnus-icalendar.el
+++ b/lisp/gnus-icalendar.el
@@ -677,7 +677,10 @@ only makes sense to define names or email addresses."
 (make-variable-buffer-local
  (defvar gnus-icalendar-handle nil))
 
-(defvar gnus-icalendar-identities
+(defun gnus-icalendar-identities ()
+  "Return list of regexp-quoted names and email addresses belonging to the user.
+
+These will be used to retrieve the RSVP information from ical events."
   (apply #'append
          (mapcar (lambda (x) (if (listp x) x (list x)))
                  (list user-full-name (regexp-quote user-mail-address)
@@ -766,7 +769,7 @@ only makes sense to define names or email addresses."
          (event (caddr data))
          (reply (gnus-icalendar-with-decoded-handle handle
                   (gnus-icalendar-event-reply-from-buffer
-                   (current-buffer) status gnus-icalendar-identities))))
+                   (current-buffer) status (gnus-icalendar-identities)))))
 
     (when reply
       (gmm-labels ((fold-icalendar-buffer ()
@@ -838,7 +841,7 @@ only makes sense to define names or email addresses."
 
 
 (defun gnus-icalendar-mm-inline (handle)
-  (let ((event (gnus-icalendar-event-from-handle handle gnus-icalendar-identities)))
+  (let ((event (gnus-icalendar-event-from-handle handle (gnus-icalendar-identities))))
 
     (setq gnus-icalendar-reply-status nil)
 
@@ -867,7 +870,7 @@ only makes sense to define names or email addresses."
 (defun gnus-icalendar-save-part (handle)
   (let (event)
     (when (and (equal (car (mm-handle-type handle)) "text/calendar")
-               (setq event (gnus-icalendar-event-from-handle handle gnus-icalendar-identities)))
+               (setq event (gnus-icalendar-event-from-handle handle (gnus-icalendar-identities))))
 
       (gnus-icalendar-event:sync-to-org event))))
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog         |    5 +++++
 lisp/gnus-icalendar.el |   11 +++++++----
 2 files changed, 12 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project