I have a lot of VM folders for my email, and VM provides the
capability to set up an alist for filing. So I've added a mail-folder
field to my BBDB database, and I use the following function to set up
VM's auto-folder alist. If the following isn't redundant with other
approaches to the same problem (I seem to often develop redundant
solutions!), perhaps it would be of general interest for bbdb-vm?
R
(defvar *bbdb-vm-auto-folder-list-set* nil)
(defun bbdb-vm-set-auto-folder-alist (&optional recompute)
"This function assumes that the vm-auto-folder-alist has
already been set with anything wanted on it, and will just
add folder associations onto the end of the list. It will not
add entries if it believes it has already added some, unless
the recompute argument is non-nil."
(block bbdb-vm-set-auto-folder-alist
(when *bbdb-vm-auto-folder-list-set*
(cond (recompute
;; remove old stuff
(setq vm-auto-folder-alist
(delete *bbdb-vm-auto-folder-list-set* vm-auto-folder-alist))
(setq *bbdb-vm-auto-folder-list-set* nil))
(t (return-from bbdb-vm-set-auto-folder-alist nil))))
;; if we get here, it's time to compute a new alist entry and stuff
;; it on the end...
(setq *bbdb-vm-auto-folder-list-set* (bbdb-vm-auto-folder-alist))
(setq vm-auto-folder-alist (append vm-auto-folder-alist
*bbdb-vm-auto-folder-list-set*))))
;;; I believe that in the fullness of time this should be controlled
;;; by customization. [2006/09/15:rpg]
(bbdb-vm-set-auto-folder-alist)
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
