Re: Auto create "gnus-private" field

Re: Auto create "gnus-private" field

[jeSPer Holm]

   Hi!

On Sun, 08 Dec 2002 18:34:46 GMT, delirious wrote: 

> Can anyone suggest a function that will automagically create a
> gnus-private field for an BBDB record? For example, if sent to my
> "personal" address, the gnus-private field might become
> "personal.part-of-address-before-@" 

> If sent to my business address:
> "personal.part-of-address-before-@"

I have used the following to create gnus-private fields from the BBDB
buffer - it is not exactly what you asked for, but you might find it
useful anyway...

(defun jesper-bbdb-private-field ()
  (interactive)
  (let (
	firstname
	lastname
	folder-name
        (folder-prefix "personer.")
        )
    (setq firstname    (bbdb-record-firstname (bbdb-current-record)))
    (setq lastname     (bbdb-record-lastname (bbdb-current-record)))
    (setq folder-name (concat firstname "-" lastname))
    (setq folder-name (replace-in-string folder-name " " "-"))
    (setq folder-name (replace-in-string folder-name "\\.\\.+" "-"))
    (setq folder-name (downcase folder-name))
    (bbdb-record-putprop (bbdb-current-record) 
			 'gnus-private 
			 (concat folder-prefix folder-name))
    (display-message 'command folder-name)))

(My Lisp skills are very limited, so I'm quite sure that this can be
done more elegant.)

-- 
zoonet.dk                                                  jeSPer Holm
                                                      jesper@zoonet.dk