(message-expand-name): Use EUDC if the user uses

that.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 64439d5..11dd36f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-12  Kai Grossjohann  <kai.grossjohann@mci.com>
+
+       * message.el (message-expand-name): Use EUDC if the user uses
+       that.
+
 2004-01-12  Jesper Harder  <harder@ifa.au.dk>
 
        * rfc2047.el (rfc2047-parse-and-decode, rfc2047-decode): Use a

diff --git a/lisp/message.el b/lisp/message.el
index 85680fe..b42fdfb 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6626,9 +6626,12 @@ those headers."
            (delete-region (point) (progn (forward-line 3) (point))))))))))
 
 (defun message-expand-name ()
-  (if (fboundp 'bbdb-complete-name)
-      (bbdb-complete-name)
-    (expand-abbrev)))
+  (cond ((and (boundp 'eudc-protocol) eudc-protocol)
+        (eudc-expand-inline))
+       ((fboundp 'bbdb-complete-name)
+        (bbdb-complete-name))
+       (t
+        (expand-abbrev))))
 
 ;;; Help stuff.