Re: Expire to "Sender" - Group

Re: Expire to "Sender" - Group

[Lars Magne Ingebrigtsen]

Daniel Hofmann <usenet@shadowprint.de> writes:

> is there a way to expire mail to a group with the name of the
> sender?

Probably...  you need to write a function to pick out the name from
the From header, and use that as the group name.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Expire to "Sender" - Group

[Daniel Hofmann]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Daniel Hofmann <usenet@shadowprint.de> writes:
>
>> is there a way to expire mail to a group with the name of the
>> sender?
>
> Probably...  you need to write a function to pick out the name from
> the From header, and use that as the group name.

Thanks for your reply. I already fixed it that way and it works good
for me. I post that snippet here. Perhaps it is useful for somebody
else and perhaps someone more experienced in emacs lisp will find some
bug or something ...

Daniel.


(defun my-expiry-target(myparam)	
  (if 
      (message-news-p)
      (concat "nnml:" 
	      (downcase(message-fetch-field "newsgroups")))
    (if    
	(string-match gnus-ignored-from-addresses 
		      (downcase(message-fetch-field "from")))
	(concat "nnml:" 
		(nth 1 (mail-extract-address-components
		(downcase(message-fetch-field "to")))))
      
      (concat "nnml:" 
	      (nth 1 (mail-extract-address-components
		      (downcase(message-fetch-field "from")))))
      )
    )
  )

(setq nnmail-expiry-target 'my-expiry-target)