Re: DWIM fix to message.el (TAB handling)

[Christopher Davis <ckd@loiosh.kei.com>]

Here are my minor changes to support non-BBDB completion in message-x.

--- message-x.el~	Thu Mar  6 10:37:45 1997
+++ message-x.el	Thu Mar  6 10:40:55 1997
@@ -1,6 +1,7 @@
 ;; message-x.el -- customizable completion in message headers
 ;; Kai Grossjohann <grossjohann@ls6.informatik.uni-dortmund.de>
 ;;  9 Aug 96
+;; modifications 1997-03-06 Christopher Davis <ckd@kei.com>
 
 (require 'message)
 
@@ -8,12 +9,23 @@
   "message-x-tab executes this if point is in the body of a message.")
 
 (defvar message-x-completion-alist
-  '(("to" . bbdb-complete-name)
-    ("cc" . bbdb-complete-name)
+  '(("to" . message-x-complete-name)
+    ("cc" . message-x-complete-name)
+    ("bcc" . message-x-complete-name)
+    ("resent-to" . message-x-complete-name)
+    ("resent-cc" . message-x-complete-name)
+    ("resent-bcc" . message-x-complete-name)
     ("gcc" . message-expand-group)
     ("newsgroups" . message-expand-group))
   "Table telling which completion function message-x-tab should invoke.
 Lookup in the table is done with `equal' comparison of the header.")
+
+(defun message-x-complete-name ()
+  "Does name completion in recipient headers."
+  (interactive)
+  (if (fboundp 'bbdb-complete-name)
+      (bbdb-complete-name)
+    (expand-abbrev)))
 
 (defun message-x-in-header-p ()
   "Returns t iff point is in the header section."