[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SHOW MAILING LIST command
- To: slug%drea-griffin.arpa@CSNET-RELAY
- Subject: SHOW MAILING LIST command
- From: Peter Gergely <Peter%drea-griffin.arpa@CSNET-RELAY>
- Date: Wed, 20 Aug 86 15:16 ADT
- Alias-addresses: GERGELY@DREA-XX.ARPA and PETER@GRIFFIN.Drea.Dialnet.Symbolics.Com
- Phone-number: (902) 426-3100 x 215 [8:30am to 4:15pm Atlantic time]
- Postal-address: 9 Grove St., P.O. Box 1012, Dartmouth, NS B2Y 3Z7, Canada
- Resent-date: Thu 28 Aug 86 13:21:55-CDT
- Resent-from: <CMP.SLUG%r20.utexas.edu@CSNET-RELAY>
- Resent-message-id: <12234461079.60.CMP.SLUG@R20.UTEXAS.EDU>
- Resent-to: SLUG:;
- Template-for-reply: COMPATIBLE-1R-REPLY-TEMPLATE
Here is a command that I always wanted at the Lisp Listener command
level. This function will expand a mailing list address. If the
keyword :EXPAND ALL LEVELS is given, then ALL levels of the address will
be expanded, even if it is a mailing list.
(DEFINE-CP-COMMAND (COM-SHOW-MAILING-LIST :COMTAB 'USER)
((ADDRESS :STRING
:PROMPT "mail address")
&KEY
(EXPAND-ALL-LEVELS :BOOLEAN
:DEFAULT NIL
:MENTIONED-DEFAULT T))
(ZWEI:SHOW-MAILING-LIST-INTERNAL ADDRESS EXPAND-ALL-LEVELS)
(VALUES))
- Peter
-------