From mboxrd@z Thu Jan  1 00:00:00 1970
From: Feng Shu <tumashu@gmail.com>
Subject: Re: [PATCH] org-contacts.el: add expire feature
Date: Thu, 30 May 2013 07:15:06 +0800
Message-ID: <87hahlxts5.fsf@news.tumashu-localhost.org>
References: <87li6yx8u9.fsf@news.tumashu-localhost.org>
	<87mwrdlbi5.fsf@tanger.home>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:59300)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <tumashu@gmail.com>) id 1UhpbR-0005Sg-G6
	for emacs-orgmode@gnu.org; Wed, 29 May 2013 19:16:26 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <tumashu@gmail.com>) id 1UhpbM-00004s-VX
	for emacs-orgmode@gnu.org; Wed, 29 May 2013 19:16:21 -0400
Received: from mail-pd0-f171.google.com ([209.85.192.171]:47447)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <tumashu@gmail.com>) id 1UhpbM-0008WS-OD
	for emacs-orgmode@gnu.org; Wed, 29 May 2013 19:16:16 -0400
Received: by mail-pd0-f171.google.com with SMTP id z11so9679220pdj.16
	for <emacs-orgmode@gnu.org>; Wed, 29 May 2013 16:16:15 -0700 (PDT)
Received: from tumashu ([110.97.82.72]) by mx.google.com with ESMTPSA id
	zs12sm41733910pab.0.2013.05.29.16.16.12 for <emacs-orgmode@gnu.org>
	(version=TLSv1.2 cipher=RC4-SHA bits=128/128);
	Wed, 29 May 2013 16:16:14 -0700 (PDT)
Received: from feng by tumashu with local (Exim 4.80)
	(envelope-from <tumashu@gmail.com>) id 1UhpaE-00020o-Gl
	for emacs-orgmode@gnu.org; Thu, 30 May 2013 07:15:06 +0800
In-Reply-To: <87mwrdlbi5.fsf@tanger.home> (daimrod@gmail.com's message of
	"Wed, 29 May 2013 23:30:42 +0200")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: emacs-orgmode@gnu.org

Daimrod <daimrod@gmail.com> writes:

> Feng Shu <tumashu@gmail.com> 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 FOO."
>>  		;; The contact name is always the car of the assoc-list
>>  		;; returned by `org-contacts-filter'.
>>  		for contact-name = (car contact)
>> +
>> +		;; Build the list of the email addresses which has
>> +		;; been expired
>> +		for expire-list = (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 = (org-contacts-split-property (or
>> -						(cdr (assoc-string org-contacts-email-property
>> -								   (caddr contact))) ""))
>> +		for email-list = (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.

I want to ignore the emails which have been expired when I complete in
the gnus

--