From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/10107
Path: main.gmane.org!not-for-mail
From: Christopher Davis <ckd@loiosh.kei.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: DWIM fix to message.el (TAB handling)
Date: 06 Mar 1997 10:44:09 -0500
Message-ID: <w4sp29hvp2.fsf@loiosh.kei.com>
References: <w4sp2ksk1z.fsf@loiosh.kei.com> <vafzpwrdfg9.fsf@ls6.informatik.uni-dortmund.de>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035150032 22415 80.91.224.250 (20 Oct 2002 21:40:32 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:40:32 +0000 (UTC)
Cc: ding@ifi.uio.no
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by deanna.miranova.com (8.8.5/8.8.5) with SMTP id KAA18069
	for <steve@miranova.com>; Thu, 6 Mar 1997 10:19:22 -0800
Original-Received: from loiosh.kei.com (ckd@loiosh.kei.com [192.88.144.32]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <QAA24925@ifi.uio.no> for <ding@ifi.uio.no> ; Thu, 6 Mar 1997 16:45:25 +0100
Original-Received: (from ckd@localhost)
	by loiosh.kei.com (8.8.5/8.8.5) id KAA27758;
	Thu, 6 Mar 1997 10:44:09 -0500 (EST)
Original-To: Kai Grossjohann <grossjohann@charly.informatik.uni-dortmund.de>
In-Reply-To: Kai Grossjohann's message of 26 Feb 1997 11:33:42 +0100
X-Mailer: Gnus v5.4.15/XEmacs 19.15
X-Face: I8Alb*-ZdjN\/8k_QR,^l^m6GQB'S-B:}DVP].1HOw#tx:TX$k;Wl;4zqjWR|-jheM#?&be
 R<z=pG{]"563AA5pml2_[f:k>f(!|0<U[iwGMH"Z(rIqt9rGO*^KRV6^ej+*37UKHhC%+"7T>b0m=M
 ~=%.Am>"QEY.(#Ys.%"s?z,hmwp&y0%p>9+T
X-Attribution: ckd
Xref: main.gmane.org gmane.emacs.gnus.general:10107
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:10107

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