1000 years ago I reported a problem with then CVS Emacs and BBDB:
http://thread.gmane.org/gmane.emacs.bbdb.user/1630

At the time the BBDB maintainer said "I don't want to keep up with CVS;
wait until a release" and RMS said something I translate to "BBDB must
change".

The problem still exists in the official Emacs release 22.3 and in CVS
Emacs.  I've poked at BBDB a bit and the only fix I can come up with is
an ugly hack--it strips quotes before calling define-mail-abbrev.  Below
is a sample diff which ignores the fact that nets can have multiple
entries.

What's the right fix?

Index: bbdb-com.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-com.el,v
retrieving revision 1.195
diff -u -r1.195 bbdb-com.el
--- bbdb-com.el 26 Jun 2007 21:54:59 -0000      1.195
+++ bbdb-com.el 27 Oct 2008 14:58:41 -0000
@@ -2829,6 +2829,12 @@
             nets (nth 2 alias)
             alias (car alias)
             expansion (mapconcat 'identity nets mail-alias-separator-string))
+
+      (setq nets (list (replace-regexp-in-string "\"" "" (car nets))))
+      (setq expansion (mapconcat 'identity nets mail-alias-separator-string))
+
+      ;;(message (concat "calling define-mail-abbrev w/ alias=" alias 
",expansion=" expansion "."))
+
       (funcall abbrev-handler alias expansion)
       (setq alias (or (intern-soft (downcase alias)
                                    (symbol-value abbrev-table))



-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to