From: ueno <ueno>
Date: Tue, 30 Apr 2002 12:41:00 +0000 (+0000)
Subject: * message.el (message-expand-name-function): New user option.
X-Git-Tag: t-gnus-6_15_7-00-quimby~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=747254a26ebefc30ff6475dc8708276e48ee0bbd;p=elisp%2Fgnus.git-

* message.el (message-expand-name-function): New user option.
(message-expand-name): Use it.
* lpath.el: Don't bind lsdb-complete-name and bbdb-complete-name.
---

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 546a0ae..e1b1554 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -14,7 +14,6 @@
 (maybe-fbind '(babel-fetch
 	       babel-wash create-image decode-coding-string display-graphic-p
 	       replace-regexp-in-string
-	       bbdb-complete-name
 	       display-time-event-handler
 	       find-image font-create-object gnus-mule-get-coding-system
 	       font-lock-set-defaults
@@ -136,7 +135,7 @@
 	(t
 	 '(function-max-args smiley-encode-buffer))))
       (common-fns
-       '(lsdb-complete-name))
+       nil)
       (variables
        (cond
 	((featurep 'xemacs)
diff --git a/lisp/message.el b/lisp/message.el
index 9134fc2..f87e0a4 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6142,6 +6142,16 @@ which specify the range to operate on."
   :group 'message
   :type '(alist :key-type regexp :value-type function))
 
+(defcustom message-expand-name-function
+  (if (fboundp 'bbdb-complete-name)
+      'bbdb-complete-name
+    (if (fboundp 'lsdb-complete-name)
+	'lsdb-complete-name
+      'expand-abbrev))
+  "*A function called to expand addresses in field body."
+  :group 'message
+  :type 'function)
+
 (defcustom message-tab-body-function nil
   "*Function to execute when `message-tab' (TAB) is executed in the body.
 If nil, the function bound in `text-mode-map' or `global-map' is executed."
@@ -6206,11 +6216,7 @@ those headers."
 	    (delete-region (point) (progn (forward-line 3) (point))))))))))
 
 (defun message-expand-name ()
-  (if (fboundp 'bbdb-complete-name)
-      (bbdb-complete-name)
-    (if (fboundp 'lsdb-complete-name)
-	(lsdb-complete-name)
-      (expand-abbrev))))
+  (funcall message-expand-name-function))
 
 ;;; Help stuff.