[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115597: lisp/gnus/gnus-icalendar.el (gnus-icalendar
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] trunk r115597: lisp/gnus/gnus-icalendar.el (gnus-icalendar-identities): Make changing the value of gnus-icalendar-additional-identities work without restart |
Date: |
Wed, 18 Dec 2013 22:11:44 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 115597
revision-id: address@hidden
parent: address@hidden
author: Jan Tatarik <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2013-12-18 22:11:40 +0000
message:
lisp/gnus/gnus-icalendar.el (gnus-icalendar-identities): Make changing the
value of gnus-icalendar-additional-identities work without restart
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-12-17 10:12:07 +0000
+++ b/lisp/gnus/ChangeLog 2013-12-18 22:11:40 +0000
@@ -1,3 +1,8 @@
+2013-12-18 Jan Tatarik <address@hidden>
+
+ * gnus-icalendar.el (gnus-icalendar-identities): Make changing the
+ value of gnus-icalendar-additional-identities work without restart.
+
2013-12-17 Katsumi Yamaoka <address@hidden>
* mm-util.el (mm-make-temp-file):
=== modified file 'lisp/gnus/gnus-icalendar.el'
--- a/lisp/gnus/gnus-icalendar.el 2013-11-28 23:33:52 +0000
+++ b/lisp/gnus/gnus-icalendar.el 2013-12-18 22:11:40 +0000
@@ -677,7 +677,10 @@
(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 @@
(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 @@
(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 @@
(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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115597: lisp/gnus/gnus-icalendar.el (gnus-icalendar-identities): Make changing the value of gnus-icalendar-additional-identities work without restart,
Katsumi Yamaoka <=