From: ueno <ueno>
Date: Tue, 30 Apr 2002 12:29:03 +0000 (+0000)
Subject: * message.el (message-expand-name): Use lsdb-complete-name if available.
X-Git-Tag: t-gnus-6_15_7-00-quimby~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b8a795dc2ae730cc0462982715ba47c9870b5d0c;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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.