🚀 go-pugleaf

[] Regarding Re: Emacs 19.16, VM-5.33 and bbdb ?;
[] Kimmo-Suominen@deshaw.com (Kimmo Suominen) writes:

    >>>>> "Hannu" == Hannu Martikka <Hannu.Martikka@lut.fi> writes:

    Hannu> I`m using emacs-19.16 (bbdb 1.46) and vm-5.33(beta) . This
    Hannu> combination seems to work, but when I try to send mail it
    Hannu> complains about "Symbol's function definition is void:
    Hannu> expand-mail-aliases"

    Hannu> So, does someone know why it doesn't work? Any hints?

    ks> Yes, the problem is with mail-abbrevs.el from BBDB.  There is a
    ks> fix, but it'll break other things.  In short, BBDB does not
    ks> support FSF Emacs 19.

While technically true, BBDB and FSF Emacs 19 (and VM 5.33) *will*
peacefully coexist.

The key is to realize that FSF19 has its own copy of jwz's mailabbrevs
package already included, and you should be using that one instead of
the one that came with BBDB.

Apply the patch below (originally provided by Roland McGrath) to
bbdb-com.el and recompile bbdb, and don't install the mail-abbrevs.el
from BBDB.

FYI, I use this in my .emacs to install BBDB:

  (autoload 'bbdb         "bbdb-com" "Insidious Big Brother Database" t)
  (autoload 'bbdb-name    "bbdb-com" "Insidious Big Brother Database" t)
  (autoload 'bbdb-company "bbdb-com" "Insidious Big Brother Database" t)
  (autoload 'bbdb-net     "bbdb-com" "Insidious Big Brother Database" t)
  (autoload 'bbdb-notes   "bbdb-com" "Insidious Big Brother Database" t)

  (autoload 'bbdb-insinuate-vm       "bbdb-vm"    "Hook BBDB into VM")
  (autoload 'bbdb-insinuate-gnus     "bbdb-gnus"  "Hook BBDB into GNUS")
  (autoload 'bbdb-insinuate-sendmail "bbdb"       "Hook BBDB into sendmail")

  (add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
  (add-hook 'mail-setup-hook 'mail-abbrevs-setup)
  (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
  (add-hook 'mail-setup-hook 'my-mail-setup)

  (defun my-mail-setup ()
    (define-key mail-mode-map "\C-n"       'mail-abbrev-next-line)
    (define-key mail-mode-map "\M->"       'mail-abbrev-end-of-buffer))

Then, of course, this in my .vm:

  (bbdb-insinuate-vm)

Everything works just ducky!

    Hannu> And when I`m starting vm it says
    Hannu> Signalling: (error "mail-extr returned \"\" as name")

    ks> Haven't seen this one.  Perhaps you are using the mail-extr.el
    ks> from FSF Emacs 19 instead of the one from BBDB.  They are not
    ks> identical.

Me either; I install BBDB into lib/emacs/site-lisp, which is
automatically on my load-path before the 19-specific stuff, and I've
never seen this, so Kimmo may well be correct about this.

                                                                paul
 _____________________________________________________________________________
/                                                                             \
 Paul D. Smith                   | That's the thing about being a boxer:
 <psmith@wellfleet.com>          | even when you're at the top of your field,
 Wellfleet Communications, Inc.  | people still hit you in the head.
 Network Management Development  |                    -- Paula Poundstone
\_____________________________________________________________________________/
-------------------------------------------------------------------------------
--- bbdb-com.el.orig	Tue Aug 11 13:36:53 1992
+++ bbdb-com.el	Fri Jul  9 09:55:52 1993
@@ -1627,8 +1627,12 @@
 				  (if (boundp 'mail-alias-separator-string)
 				      mail-alias-separator-string
 				    ", "))))
-	(define-mail-alias alias expansion)
-	(setq alias (or (intern-soft alias mail-aliases)
+	(if (fboundp 'define-mail-abbrev)
+	    (define-mail-abbrev alias expansion)
+	  (define-mail-alias alias expansion))
+	(setq alias (or (and (boundp 'mail-abbrevs)
+			     (intern-soft alias mail-abbrevs))
+			(intern-soft alias mail-aliases)
 			(error "couldn't find the alias we just defined!")))
 	(or (eq (symbol-function alias) 'mail-abbrev-expand-hook)
 	    (error "mail-aliases contains unexpected hook %s"