[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
--