Function: feedmail-spray-via-bbdb

feedmail-spray-via-bbdb is a byte-compiled function defined in feedmail.el.gz.

Signature

(feedmail-spray-via-bbdb)

Documentation

Example function for use with feedmail spray mode.

NB: it's up to the user to have the BBDB environment already set up properly before using this.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
(defun feedmail-spray-via-bbdb ()
  "Example function for use with feedmail spray mode.
NB: it's up to the user to have the BBDB environment already set up properly
before using this."
  (let (net-rec q-net-addy embellish)
	(setq q-net-addy (concat "^" (regexp-quote feedmail-spray-this-address) "$"))
	(setq net-rec (bbdb-search (bbdb-records) nil nil q-net-addy))
	(if (and (car net-rec) (not (cdr net-rec)))
		(setq net-rec (car net-rec))
	  (setq net-rec nil))
	(if net-rec (setq embellish (bbdb-dwim-net-address net-rec)))
	(if embellish
		(list "To" embellish 'supplement)
	  (list "To" feedmail-spray-this-address 'supplement))))