Re: [PATCH] Expiry based on headers (Take 2)

[Nevin Kapur <nevin@jhu.edu>]

Simon Josefsson <jas@extundo.com> writes:

> +(defun nnmail-fancy-expiry-target (group)
> +  "Returns a target expiry group determined by `nnmail-fancy-expiry-targets'."
> +  (let* (header
> +	 (case-fold-search nil)
> +	 (from (or (message-fetch-field "from") ""))
> +	 (to (or (message-fetch-field "to") ""))
> +	 (date (date-to-time
> +		(or (message-fetch-field "date") (current-time-string))))
> +	 (target 'delete))
> +    (dolist (regexp-target-pair (reverse nnmail-fancy-expiry-targets) target)
> +      (setq header (car regexp-target-pair))
> +      (cond
> +       ;; If the header is to-from then match against the
> +       ;; To or From header
> +       ((and (equal header 'to-from)
> +	     (or (string-match (cadr regexp-target-pair) from)
> +		 (and (string-match message-dont-reply-to-names from)
> +		      (string-match (cadr regexp-target-pair) to))))
> +	(setq target (format-time-string (caddr regexp-target-pair) date)))
> +       ((and (not (equal header 'to-from))
> +	     (string-match (cadr regexp-target-pair)
> +			   (message-fetch-field header)))
> +	(setq target (format-time-string (caddr regexp-target-pair)
> +					 date))))))))
                                                    ^  
I forgot to mention that there is one too many parentheses on this line.

-- 
Nevin Kapur
nevin@jhu.edu