From mboxrd@z Thu Jan 1 00:00:00 1970 From: Daimrod Subject: Re: [PATCH] org-contacts.el: add expire feature Date: Wed, 29 May 2013 23:30:42 +0200 Message-ID: <87mwrdlbi5.fsf@tanger.home> References: <87li6yx8u9.fsf@news.tumashu-localhost.org> Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:36190) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uhnu0-0004Ar-0n for emacs-orgmode@gnu.org; Wed, 29 May 2013 17:27:28 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Uhntv-00089h-EV for emacs-orgmode@gnu.org; Wed, 29 May 2013 17:27:23 -0400 Received: from mail-wg0-x232.google.com ([2a00:1450:400c:c00::232]:60936) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uhntv-00089c-8N for emacs-orgmode@gnu.org; Wed, 29 May 2013 17:27:19 -0400 Received: by mail-wg0-f50.google.com with SMTP id k13so6940405wgh.5 for ; Wed, 29 May 2013 14:27:18 -0700 (PDT) In-Reply-To: <87li6yx8u9.fsf@news.tumashu-localhost.org> (Feng Shu's message of "Wed, 29 May 2013 20:35:10 +0800") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Feng Shu Cc: orgmode --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Feng Shu writes: > (defun org-contacts-complete-name (start end string) > "Complete text at START with a user name and email." > (let* ((completion-ignore-case org-contacts-completion-ignore-case) > @@ -484,10 +497,17 @@ A group FOO is composed of contacts with the tag FO= O." > ;; The contact name is always the car of the assoc-list > ;; returned by `org-contacts-filter'. > for contact-name =3D (car contact) > + > + ;; Build the list of the email addresses which has > + ;; been expired > + for expire-list =3D (org-contacts-split-property (or > + (cdr (assoc-string org-contacts-expire-property > + (caddr contact))) "")) > ;; Build the list of the user email addresses. > - for email-list =3D (org-contacts-split-property (or > - (cdr (assoc-string org-contacts-email-property > - (caddr contact))) "")) > + for email-list =3D (org-contacts-remove-expired-property expire-list > + (org-contacts-split-property (or > + (cdr (assoc-string org-contacts-email-property > + (caddr contact))) ""))) I forgot to ask, why do you also modify org-contacts-complete-name? This function isn't used to export to VCARD, but to complete the email in Gnus. =2D-=20 Daimrod/Greg --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- Version: GnuPG v2.0.20 (GNU/Linux) iQIcBAEBAgAGBQJRpnOCAAoJEBNzVHcrZRiU2UAP+wZSjIIGABzIzzj4Cv5+vP73 Nuwf7BA5/SqyCicnY/ZwSN8RKPFSpEfYcevKc+NvuTFk8PNXwpun5AgX+HFWP8Kh Z7Q9R9W2PbC/U8lD603KutzxpOZhFO/tQsEwQUAoWmrT6FyBbcJFwBw47iw55htW VdtEg80PwB+jEIFZnzjJwOmKRJZmgnAq5BJx5sW9ox7eWJSN0IwDkzFAkI+SbB0Z 4eWBOQeL0oAdQjMtmCzjZuaa7V4G/a0lpld6f4dnouyY2Hq3Gg44LWNG/g4ThoaY K4GHWV8ZQvHIJDr3h3beH/pnnpds/ni0Mmxif2VrM4n8MJP4QB1HsvTh6g7YF1bK UzVJrFW3vkTw8phkDrv+9tWQeDbPKvy4PTkBU5y8vxwXSe2keaAx2ngj9w2FyhEC I7d23I8EcB0eBXFSKrP01mC/90pQfnJb97UgIaPZaKjIZ6dNzNTJyWdx+84HOKa+ b1W7atcilpW3O5wqODyRy3XmP5hYSFA2ewH/Gl8EpHX5G7kVC4BdAXuRpAoHCRe6 jU2LnXx4kjLsC+ZlSDsYN0BupvIAUTD5ZAQr2sbjkKYE0OJ4AkIPwGoQhMw9kmHS GDTKCPfMu82BXiSJOaflv4KtELtv0IeI5tzdbnOenIih1rlIey/f55ha6tzP8WjC Q0GcHqrupYLyK+ZaYNY7 =rxFL -----END PGP SIGNATURE----- --=-=-=--