From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/1604
Path: news.gmane.org!not-for-mail
From: jeSPer Holm <jesper@zoonet.dk>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Auto create "gnus-private" field
Date: Wed, 11 Dec 2002 22:39:46 +0100
Organization: TDC Internet
Message-ID: <878yyw1bh9.fsf@zoonet.dk>
References: <el8snyv5.fsf@rogers.com>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138668328 12003 80.91.229.2 (31 Jan 2006 00:45:28 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:45:28 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:29:25 2006
Original-Path: quimby.gnus.org!newsfeed1.e.nsc.no!nsc.no!nextra.com!news.tele.dk!news.tele.dk!small.news.tele.dk!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
User-Agent: Gnus/5.090008 (Oort Gnus v0.08) XEmacs/21.4 (Military
 Intelligence, i386-debian-linux)
Cancel-Lock: sha1:jCx/JE8gJrYKTdibGBnYCDFB1Io=
Original-NNTP-Posting-Host: 62.243.20.40
Original-X-Trace: 1039642787 dread15.news.tele.dk 35821 62.243.20.40
Original-X-Complaints-To: abuse@post.tele.dk
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:1744
Original-Lines: 41
X-Gnus-Article-Number: 1744   Tue Jan 17 17:29:25 2006
Xref: news.gmane.org gmane.emacs.gnus.user:1604
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/1604>

   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