* message.el (message-expand-name): Use lsdb-complete-name if available.

* lpath.el: Bind lsdb-complete-name.

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 6e33af8..546a0ae 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -136,7 +136,7 @@
        (t
         '(function-max-args smiley-encode-buffer))))
       (common-fns
-       nil)
+       '(lsdb-complete-name))
       (variables
        (cond
        ((featurep 'xemacs)

diff --git a/lisp/message.el b/lisp/message.el
index 7ab5178..9134fc2 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6208,7 +6208,9 @@ those headers."
 (defun message-expand-name ()
   (if (fboundp 'bbdb-complete-name)
       (bbdb-complete-name)
-    (expand-abbrev)))
+    (if (fboundp 'lsdb-complete-name)
+       (lsdb-complete-name)
+      (expand-abbrev))))
 
 ;;; Help stuff.