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

[Daimrod]

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.

-- 
Daimrod/Greg

signature.asc
Description: PGP signature