On 2007-12-06 12:05 +0000, Tassilo Horn wrote:
> Leo <[EMAIL PROTECTED]> writes:
>
> Hi Leo,
>
>> This kind of feature looks quite useful. if N is positive keep the
>> newest N articles otherwise the oldest abs(N) articles.
>>
>> (setq bbdb-auto-notes-alist
>> (list
>> '("Subject" (".*" emails 0 N))
>> '("User-Agent" (".*" mailer 0 t))
>> '("X-Mailer" (".*" mailer 0 t))))
>>
>> What do you think of this?
>
> Indeed, that is useful, and somebody has already implemented this.
> That's what I have in my ~/.gnus.el.
>
> --8<---------------cut here---------------start------------->8---
> ;; Automatisch Informationen sammeln für Leute in meinem BBDB.
> (add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
> (setq bbdb-auto-notes-alist
> (list
> ;; Es werden immer die N letzten Subjects in der BBDB gehalten. Siehe
> ;; unten: 'ulmer:bbdb-trim-subjects'
> '("Subject" (".*" subjects 0))
> '("User-Agent" (".*" mailer 0))
> '("X-Mailer" (".*" mailer 0))
> '("X-Newsreader" (".*" mailer 0))))
>
> ;; Newline als field-separator für subjects
> (put 'subjects 'field-separator "\n")
>
> (add-hook 'bbdb-notice-hook 'ulmer:bbdb-trim-subjects)
>
> ;; Die N letzten Subjects in der BBDB halten
> (defvar ulmer:bbdb-subject-limit 25
> "*Maximum number of subject records for
> ulmer:bbdb-trim-subjects to retain.")
>
> (defun ulmer:delete-duplicates (list)
> "Remove duplicate elements from a list."
> (let (result head)
> (while list
> (setq head (car list))
> (setq list (delete head list))
> (setq result (cons head result)))
> (nreverse result)))
>
> (defun ulmer:bbdb-trim-subjects (record)
> "Remove all but the first ulmer:bbdb-subject-limit subject
> records from the subjects in the notes field of a BBDB record.
> Also squished duplicate subjects. Meant to be run from
> bbdb-change-hook."
> (let* ((sep (get 'subjects 'field-separator))
> (foo (reverse
> (split-string
> (or (bbdb-record-getprop record 'subjects) "")
> sep)))
> (num-to-keep ulmer:bbdb-subject-limit)
> (new-subj ""))
> (setq foo (ulmer:delete-duplicates foo))
> (while (and (> num-to-keep 0) (> (length foo) 0))
> (if (> (length (car foo)) 0)
> (setq new-subj (concat (car foo)
> (if (> (length new-subj) 0)
> (concat sep new-subj)
> ""))
> num-to-keep (- num-to-keep 1)))
> (setq foo (cdr foo)))
> (bbdb-record-putprop record 'subjects new-subj)))
>
> Bye,
> Tassilo
Can this be generalized and included in BBDB?
--
.: Leo :. [ sdl.web AT gmail.com ] .: [ GPG Key: 9283AA3F ] :.
Use the best OS -- http://www.fedoraproject.org/
-------------------------------------------------------------------------
SF.Net email is sponsored by:
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services
for just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
