From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/9990 Path: main.gmane.org!not-for-mail From: Christopher Davis Newsgroups: gmane.emacs.gnus.general Subject: DWIM fix to message.el (TAB handling) Date: 25 Feb 1997 15:32:56 -0500 Message-ID: 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 1035149931 21709 80.91.224.250 (20 Oct 2002 21:38:51 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:38:51 +0000 (UTC) Return-Path: 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 MAA29548 for ; Tue, 25 Feb 1997 12:44:52 -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 for ; Tue, 25 Feb 1997 21:34:01 +0100 Original-Received: (from ckd@localhost) by loiosh.kei.com (8.8.5/8.8.5) id PAA26250; Tue, 25 Feb 1997 15:32:57 -0500 (EST) Original-To: ding@ifi.uio.no X-Attribution: ckd X-Face: I8Alb*-ZdjN\/8k_QR,^l^m6GQB'S-B:}DVP].1HOw#tx:TX$k;Wl;4zqjWR|-jheM#?&be Rf(!|0b0m=M ~=%.Am>"QEY.(#Ys.%"s?z,hmwp&y0%p>9+T Original-Lines: 36 X-Mailer: Gnus v5.4.13/XEmacs 19.15 Xref: main.gmane.org gmane.emacs.gnus.general:9990 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:9990 The following will allow "tab" in a message-mode header to expand mail aliases as well as completing newsgroup names. This makes message-mode more integrated between mail and news. (I don't use BBDB, so if someone wants to contribute a BBDB-completion routine for this, feel free. :-) I think this is the Right Thing To Do with TAB in recipient headers and should go in 5.4.16. --- message.el~ Wed Feb 19 22:19:54 1997 +++ message.el Tue Feb 25 15:27:07 1997 @@ -3344,13 +3344,19 @@ "Regexp that match headers that lists groups.") (defun message-tab () - "Expand group names in Newsgroups and Followup-To headers. + "Expand group names or mail aliases in appropriate headers. +Will complete group names in Newsgroups and Followup-To headers, +or mail aliases in recipient headers. Do a `tab-to-tab-stop' if not in those headers." (interactive) - (if (let ((mail-abbrev-mode-regexp message-newgroups-header-regexp)) + (cond + ((let ((mail-abbrev-mode-regexp message-newgroups-header-regexp)) (mail-abbrev-in-expansion-header-p)) - (message-expand-group) - (tab-to-tab-stop))) + (message-expand-group)) + ((mail-abbrev-in-expansion-header-p) + (expand-abbrev)) + (t + (tab-to-tab-stop)))) (defvar gnus-active-hashtb) (defun message-expand-group ()