emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] [PATCH] org-contacts.el: add expire feature


From: Feng Shu
Subject: Re: [O] [PATCH] org-contacts.el: add expire feature
Date: Thu, 30 May 2013 07:15:06 +0800
User-agent: Gnus/5.130008 (Ma Gnus v0.8) Emacs/24.2 (gnu/linux)

Daimrod <address@hidden> writes:

> Feng Shu <address@hidden> 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

-- 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]