courtesan.mc and generally useful.
--- /dev/null
+divert(-1)
+#
+# Simple feature to do username rewriting (converse of an alias)
+#
+
+divert(0)
+VERSIONID(`$Id: mailnametable.m4,v 1.1 2000/04/02 21:15:53 millert Exp $')
+divert(-1)
+
+define(`MAILNAME_TABLE', ifelse(_ARG_, `', DATABASE_MAP_TYPE `-o' MAIL_SETTINGS_DIR`mailnames', `_ARG_'))
+LOCAL_CONFIG
+ifdef(`MAILNAME_TABLE', `Kmailnames' MAILNAME_TABLE)
+PUSHDIVERT(1)
+LOCAL_RULE_1
+ifdef(`MAILNAME_TABLE',
+R$- $: $>3 $(mailnames $1 $)
+R$- < @ $=w . > $: $>3 $(mailnames $1 $)
+)
+POPDIVERT