Cleanup

author: Achim Gottinger <achim@gentoo.org> 2001-04-30 11:40:12 +0000
committer: Achim Gottinger <achim@gentoo.org> 2001-04-30 11:40:12 +0000
commit: 1e4b581725e1a7a7c13b336f3a400ccddd16f81d (patch)
tree: fd15ffd5b93cf4325374f478fab91303c35bf2e4 /net-mail
parent: Cleanup (diff)
download: gentoo-2-1e4b581725e1a7a7c13b336f3a400ccddd16f81d.tar.gz
gentoo-2-1e4b581725e1a7a7c13b336f3a400ccddd16f81d.tar.bz2
gentoo-2-1e4b581725e1a7a7c13b336f3a400ccddd16f81d.zip
31 files changed, 0 insertions, 28748 deletions
diff --git a/net-mail/courier-imap/courier-imap-1.2.3.ebuild b/net-mail/courier-imap/courier-imap-1.2.3.ebuild
deleted file mode 100644
index 5c1183cc7756..000000000000
--- a/net-mail/courier-imap/courier-imap-1.2.3.ebuild
+++ /dev/null
@@ -1,59 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Daniel Robbins <drobbins@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/courier-imap/courier-imap-1.2.3.ebuild,v 1.1 2000/12/22 07:33:29 drobbins Exp $
-
-A=${P}.tar.gz
-S=${WORKDIR}/${P}
-DESCRIPTION="An IMAP daemon designed specifically for maildirs"
-SRC_URI="http://download.sourceforge.net/courier/${A}"
-HOMEPAGE="http://www.courier-mta.org/"
-
-DEPEND=">=sys-libs/glibc-2.1.3"
-
-#This package is complete if you just need basic IMAP functionality.  Here are some things that
-#still need fixing:
-#supervise support (of course)
-#creation of imapd-ssl, pop3-ssl, pop3 init.d scripts (I only converted the imapd.rc script)
-#verification of /var/state and /var/run pidfile locations (where are they *supposed* to go?)
-#tweaking of config files.
-#My RC script is configured to look for maildirs in ~/.maildir (my preference, and the official
-#Gentoo Linux standard location) instead of the more traditional and icky ~/Maildir.
-
-src_compile() {
-    cd ${S}
-	try ./configure --sysconfdir=/etc/courier-imap --prefix=/usr --localstatedir=/var/state/courier-imap --with-authdaemonvar=/var/state/courier-imap/authdaemon --without-authldap --with-db=db --disable-root-check
-    try make
-}
-
-src_install () {
-	cd ${S}
-	mkdir -p ${D}/etc/pam.d
-	make install DESTDIR=${D}
-	cd ${D}/usr/sbin
-	local x
-	for x in *
-	do
-		if [ -L ${x} ]
-		then
-			rm ${x}
-		fi
-	done
-	cd ../share
-	mv * ../sbin
-	cd ..
-	rm -rf share
-	cd ${D}/etc/pam.d
-	for x in *
-	do
-		cp ${x} ${x}.orig
-		sed -e 's#/lib/security/##g' ${x}.orig > ${x}
-		rm ${x}.orig
-	done
-	exeinto /etc/rc.d/init.d
-	doexe ${FILESDIR}/courier-imapd
-}
-
-pkg_config() {
-    ${ROOT}/usr/sbin/rc-update add courier-imap 
-}
diff --git a/net-mail/courier-imap/files/digest-courier-imap-1.2.3 b/net-mail/courier-imap/files/digest-courier-imap-1.2.3
deleted file mode 100644
index 99998eb29fec..000000000000
--- a/net-mail/courier-imap/files/digest-courier-imap-1.2.3
+++ /dev/null
@@ -1 +0,0 @@
-MD5 0761019624253e34ec86509d8ebbf4ae courier-imap-1.2.3.tar.gz
diff --git a/net-mail/fetchmail/fetchmail-5.6.0.ebuild b/net-mail/fetchmail/fetchmail-5.6.0.ebuild
deleted file mode 100644
index cfc28c496301..000000000000
--- a/net-mail/fetchmail/fetchmail-5.6.0.ebuild
+++ /dev/null
@@ -1,42 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Achim Gottinger <achim@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/fetchmail/fetchmail-5.6.0.ebuild,v 1.1 2000/11/26 20:54:19 achim Exp $
-
-A=${P}.tar.gz
-S=${WORKDIR}/${P}
-DESCRIPTION="fetchmail"
-SRC_URI="http://www.tuxedo.org/~esr/fetchmail/"${A}
-HOMEPAGE="http://www.tuxedo.org/~esr/fetchmail/"
-
-DEPEND=">=sys-libs/glibc-2.1.3
-	>=dev-libs/openssl-0.9.6"
-
-src_compile() {
-    cd ${S}
-    export CFLAGS="$CFLAGS -I/usr/include/openssl" \
-
-    try ./configure --prefix=/usr --host=${CHOST} \
-	--with-ssl --with-catgets --enable-RPM --enable-NTLN \
-	--enable-SDPS
-    try make
-}
-
-
-src_install() {                 
-  cd ${S}
-  into /usr
-  dobin fetchmail
-  cp fetchmail.man fetchmail.1
-  doman fetchmail.1
-  dodoc COPYING FAQ FEATURES MANIFEST NEWS NOTES README* TODO 
-  dodoc sample.rcfile
-  docinto html
-  dodoc *.html
-  docinto contrib
-  dodoc contrib/*
-}
-
-
-
-
diff --git a/net-mail/fetchmail/fetchmail-5.6.6.ebuild b/net-mail/fetchmail/fetchmail-5.6.6.ebuild
deleted file mode 100644
index 6ae5a1947ec1..000000000000
--- a/net-mail/fetchmail/fetchmail-5.6.6.ebuild
+++ /dev/null
@@ -1,37 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Achim Gottinger <achim@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/fetchmail/fetchmail-5.6.6.ebuild,v 1.1 2001/02/19 20:34:38 ryan Exp $
-
-A=${P}.tar.gz
-S=${WORKDIR}/${P}
-DESCRIPTION="fetchmail"
-SRC_URI="http://www.tuxedo.org/~esr/fetchmail/"${A}
-HOMEPAGE="http://www.tuxedo.org/~esr/fetchmail/"
-
-DEPEND=">=sys-libs/glibc-2.1.3
-	>=dev-libs/openssl-0.9.6"
-
-src_compile() {
-    export CFLAGS="$CFLAGS -I/usr/include/openssl" \
-
-    try ./configure --prefix=/usr --host=${CHOST} \
-	--with-ssl --with-catgets --enable-RPA --enable-NTLN \
-	--enable-SDPS
-    try make
-}
-
-
-src_install() {
-    try make DESTDIR=${D} install
-    dodoc FAQ FEATURES ABOUT-NLS NEWS NOTES README README.NTLM \
-          TODO COPYING MANIFEST
-    docinto html
-    dodoc *.html
-    docinto contrib
-    dodoc contrib/*
-}
-
-
-
-
diff --git a/net-mail/fetchmail/files/digest-fetchmail-5.6.0 b/net-mail/fetchmail/files/digest-fetchmail-5.6.0
deleted file mode 100644
index 7c8b350d0c04..000000000000
--- a/net-mail/fetchmail/files/digest-fetchmail-5.6.0
+++ /dev/null
@@ -1 +0,0 @@
-MD5 c5e8a8bad5e5935e597a9dda56f2b670 fetchmail-5.6.0.tar.gz
diff --git a/net-mail/fetchmail/files/digest-fetchmail-5.6.6 b/net-mail/fetchmail/files/digest-fetchmail-5.6.6
deleted file mode 100644
index b3b40382f36c..000000000000
--- a/net-mail/fetchmail/files/digest-fetchmail-5.6.6
+++ /dev/null
@@ -1 +0,0 @@
-MD5 5c9301cdc1a0c5edd3270314745b63d2 fetchmail-5.6.6.tar.gz
diff --git a/net-mail/mailbase/mailbase-0.00.ebuild b/net-mail/mailbase/mailbase-0.00.ebuild
deleted file mode 100644
index e1c0c8c84559..000000000000
--- a/net-mail/mailbase/mailbase-0.00.ebuild
+++ /dev/null
@@ -1,18 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Jerry Alexandratos <jerry@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/mailbase/mailbase-0.00.ebuild,v 1.1 2001/02/15 21:40:34 jerry Exp $
-
-A=""
-S=${WORKDIR}
-DESCRIPTION="MTA layout package"
-SRC_URI=""
-HOMEPAGE="http://www.gentoo.org/"
-
-RDEPEND="virtual/mta"
-
-src_install() {
-    dodir /etc/mail
-    insinto /etc/mail
-    doins ${FILESDIR}/aliases
-}
diff --git a/net-mail/mutt/files/digest-mutt-1.2.5-r1 b/net-mail/mutt/files/digest-mutt-1.2.5-r1
deleted file mode 100644
index a4fae573be2c..000000000000
--- a/net-mail/mutt/files/digest-mutt-1.2.5-r1
+++ /dev/null
@@ -1 +0,0 @@
-MD5 0ba5367059abdd55daceb82dce6be42f mutt-1.2.5i.tar.gz
diff --git a/net-mail/pine-maildir/files/digest-pine-maildir-4.21-r2 b/net-mail/pine-maildir/files/digest-pine-maildir-4.21-r2
deleted file mode 100644
index 9cf621efd3e1..000000000000
--- a/net-mail/pine-maildir/files/digest-pine-maildir-4.21-r2
+++ /dev/null
@@ -1,2 +0,0 @@
-MD5 9252a061387de806f8aa1ced885d41f6 pine4.21.tar.gz
-MD5 2f6cd0ed750321d074cc53171d308291 pine-4.20-maildir_3.patch
diff --git a/net-mail/pine-maildir/files/filter.c b/net-mail/pine-maildir/files/filter.c
deleted file mode 100644
index 9264fa088b3d..000000000000
--- a/net-mail/pine-maildir/files/filter.c
+++ /dev/null
@@ -1,6902 +0,0 @@
-#if !defined(lint) && !defined(DOS)
-static char rcsid[] = "$Id: filter.c,v 1.1 2000/11/15 16:46:06 achim Exp $";
-#endif
-/*----------------------------------------------------------------------
-
-            T H E    P I N E    M A I L   S Y S T E M
-
-   Laurence Lundblade and Mike Seibel
-   Networks and Distributed Computing
-   Computing and Communications
-   University of Washington
-   Administration Builiding, AG-44
-   Seattle, Washington, 98195, USA
-   Internet: lgl@CAC.Washington.EDU
-             mikes@CAC.Washington.EDU
-
-   Please address all bugs and comments to "pine-bugs@cac.washington.edu"
-
-
-   Pine and Pico are registered trademarks of the University of Washington.
-   No commercial use of these trademarks may be made without prior written
-   permission of the University of Washington.
-
-   Pine, Pico, and Pilot software and its included text are Copyright
-   1989-1999 by the University of Washington.
-
-   The full text of our legal notices is contained in the file called
-   CPYRIGHT, included with this distribution.
-
-
-   Pine is in part based on The Elm Mail System:
-    ***********************************************************************
-    *  The Elm Mail System  -  Revision: 2.13                             *
-    *                                                                     *
-    * 			Copyright (c) 1986, 1987 Dave Taylor              *
-    * 			Copyright (c) 1988, 1989 USENET Community Trust   *
-    ***********************************************************************
-
-
-  ----------------------------------------------------------------------*/
-
-/*======================================================================
-     filter.c
-
-     This code provides a generalized, flexible way to allow
-     piping of data thru filters.  Each filter is passed a structure
-     that it will use to hold its static data while it operates on
-     the stream of characters that are passed to it.  After processing
-     it will either return or call the next filter in
-     the pipe with any character (or characters) it has ready to go. This
-     means some terminal type of filter has to be the last in the
-     chain (i.e., one that writes the passed char someplace, but doesn't
-     call another filter).
-
-     See below for more details.
-
-     The motivation is to handle MIME decoding, richtext conversion,
-     iso_code stripping and anything else that may come down the
-     pike (e.g., PEM) in an elegant fashion.  mikes (920811)
-
-   TODO:
-       reasonable error handling
-
-  ====*/
-
-
-#include "headers.h"
-
-
-/*
- * Internal prototypes
- */
-int	gf_so_readc PROTO((unsigned char *));
-int	gf_so_writec PROTO((int));
-int	gf_sreadc PROTO((unsigned char *));
-int	gf_swritec PROTO((int));
-int	gf_freadc PROTO((unsigned char *));
-int	gf_fwritec PROTO((int));
-void	gf_terminal PROTO((FILTER_S *, int));
-char   *gf_filter_puts PROTO((char *));
-void	gf_filter_eod PROTO((void));
-void    gf_error PROTO((char *));
-void	gf_8bit_put PROTO((FILTER_S *, int));
-int	so_reaquire PROTO((STORE_S *));
-void   *so_file_open PROTO((STORE_S *));
-int	so_cs_writec PROTO((int, STORE_S *));
-int	so_pico_writec PROTO((int, STORE_S *));
-int	so_file_writec PROTO((int, STORE_S *));
-int	so_cs_readc PROTO((unsigned char *, STORE_S *));
-int	so_pico_readc PROTO((unsigned char *, STORE_S *));
-int	so_file_readc PROTO((unsigned char *, STORE_S *));
-int	so_cs_puts PROTO((STORE_S *, char *));
-int	so_pico_puts PROTO((STORE_S *, char *));
-int	so_file_puts PROTO((STORE_S *, char *));
-
-
-/*
- * GENERALIZED STORAGE FUNCTIONS.  Idea is to allow creation of
- * storage objects that can be written into and read from without
- * the caller knowing if the storage is core or in a file
- * or whatever.
- */
-#define	MSIZE_INIT	8192
-#define	MSIZE_INC	4096
-
-
-/*
- * System specific options
- */
-#ifdef	DOS
-#define	NO_PIPE
-#endif
-#if	defined(DOS) || defined(OS2)
-#define CRLF_NEWLINES
-#endif
-
-/*
- * Various parms for opening and creating files directly and via stdio.
- * NOTE: If "binary" mode file exists, use it.
- */
-#ifdef	O_BINARY
-#define STDIO_READ	"rb"
-#define STDIO_APPEND	"a+b"
-#else
-#define	O_BINARY	0
-#define	STDIO_READ	"r"
-#define	STDIO_APPEND	"a+"
-#endif
-
-#define	OP_FL_RDWR	(O_RDWR | O_CREAT | O_APPEND | O_BINARY)
-#define	OP_FL_RDONLY	(O_RDONLY | O_BINARY)
-
-#ifdef	S_IREAD
-#define	OP_MD_USER	(S_IREAD | S_IWRITE)
-#else
-#define	OP_MD_USER	0600
-#endif
-
-#ifdef	S_IRUSR
-#define	OP_MD_ALL	(S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | \
-			 S_IROTH | S_IWOTH)
-#else
-#define	OP_MD_ALL	0666
-#endif
-
-
-/*
- * allocate resources associated with the specified type of
- * storage.  If requesting a named file object, open it for
- * appending, else just open a temp file.
- *
- * return the filled in storage object
- */
-STORE_S *
-so_get(source, name, rtype)
-    SourceType  source;			/* requested storage type */
-    char       *name;			/* file name 		  */
-    int		rtype;			/* file access type	  */
-{
-    STORE_S *so = (STORE_S *)fs_get(sizeof(STORE_S));
-
-    memset(so, 0, sizeof(STORE_S));
-    so->flags |= rtype;
-
-    if(name)					/* stash the name */
-      so->name = cpystr(name);
-#ifdef	DOS
-    else if(source == TmpFileStar || source == FileStar){
-	/*
-	 * Coerce to TmpFileStar.  The MSC library's "tmpfile()"
-	 * doesn't observe the "TMP" or "TEMP" environment vars and
-	 * always wants to write "\".  This is problematic in shared,
-	 * networked environments.
-	 */
-	source   = TmpFileStar;
-	so->name = temp_nam(NULL, "pi");
-    }
-#else
-    else if(source == TmpFileStar)		/* make one up! */
-      so->name = temp_nam(NULL, "pine-tmp");
-#endif
-
-    so->src = source;
-    if(so->src == FileStar || so->src == TmpFileStar){
-	so->writec = so_file_writec;
-	so->readc  = so_file_readc;
-	so->puts   = so_file_puts;
-
-	/*
-	 * The reason for both FileStar and TmpFileStar types is
-	 * that, named or unnamed, TmpFileStar's are unlinked
-	 * when the object is given back to the system.  This is
-	 * useful for keeping us from running out of file pointers as
-	 * the pointer associated with the object can be temporarily
-	 * returned to the system without destroying the object.
-	 *
-	 * The programmer is warned to be careful not to assign the
-	 * TmpFileStar type to any files that are expected to remain
-	 * after the dust has settled!
-	 */
-	if(so->name){
-	    if(!(so->txt = so_file_open(so))){
-		dprint(1, (debugfile, "so_get error: %s : %s", so->name,
-			   error_description(errno)));
-		fs_give((void **)&so->name);
-		fs_give((void **)&so); 		/* so freed & set to NULL */
-	    }
-	}
-	else{
-	    if(!(so->txt = (void *) create_tmpfile())){
-		dprint(1, (debugfile, "so_get error: tmpfile : %s",
-			   error_description(errno)));
-		fs_give((void **)&so);		/* so freed & set to NULL */
-	    }
-	}
-    }
-    else if(so->src == PicoText){
-	so->writec = so_pico_writec;
-	so->readc  = so_pico_readc;
-	so->puts   = so_pico_puts;
-	if(!(so->txt = pico_get())){
-	    dprint(1, (debugfile, "so_get error: alloc of pico text space"));
-	    if(so->name)
-	      fs_give((void **)&so->name);
-	    fs_give((void **)&so);		/* so freed & set to NULL */
-	}
-    }
-    else{
-	so->writec = so_cs_writec;
-	so->readc  = so_cs_readc;
-	so->puts   = so_cs_puts;
-	so->txt	   = (void *)fs_get((size_t) MSIZE_INIT * sizeof(char));
-	so->dp	   = so->eod = (unsigned char *) so->txt;
-	so->eot	   = so->dp + MSIZE_INIT;
-	memset(so->eod, 0, so->eot - so->eod);
-    }
-
-    return(so);
-}
-
-
-/*
- * so_give - free resources associated with a storage object and then
- *           the object itself.
- */
-void
-so_give(so)
-STORE_S **so;
-{
-    if(!so)
-      return;
-
-    if((*so)->src == FileStar || (*so)->src == TmpFileStar){
-        if((*so)->txt)
-	  fclose((FILE *)(*so)->txt);	/* disassociate from storage */
-
-	if((*so)->name && (*so)->src == TmpFileStar)
-	  unlink((*so)->name);		/* really disassociate! */
-    }
-    else if((*so)->txt && (*so)->src == PicoText)
-      pico_give((*so)->txt);
-    else if((*so)->txt)
-      fs_give((void **)&((*so)->txt));
-
-    if((*so)->name)
-      fs_give((void **)&((*so)->name));	/* blast the name            */
-
-    fs_give((void **)so);		/* release the object        */
-}
-
-
-/*
- * so_file_open
- */
-void *
-so_file_open(so)
-    STORE_S *so;
-{
-    char *type  = ((so->flags) & WRITE_ACCESS) ? STDIO_APPEND : STDIO_READ;
-    int   flags = ((so->flags) & WRITE_ACCESS) ? OP_FL_RDWR : OP_FL_RDONLY,
-	  mode  = (((so->flags) & OWNER_ONLY) || so->src == TmpFileStar)
-		   ? OP_MD_USER : OP_MD_ALL,
-	  fd;
-
-    /*
-     * Use open instead of fopen so we can make temp files private.
-     */
-    return(((fd = open(so->name, flags, mode)) >= 0)
-	     ? (so->txt = (void *) fdopen(fd, type)) : NULL);
-}
-
-
-/*
- * put a character into the specified storage object,
- * expanding if neccessary
- *
- * return 1 on success and 0 on failure
- */
-int
-so_cs_writec(c, so)
-    int      c;
-    STORE_S *so;
-{
-    if(so->dp >= so->eot){
-	size_t cur_o  = so->dp - (unsigned char *) so->txt;
-	size_t data_o = so->eod - (unsigned char *) so->txt;
-	size_t size   = (so->eot - (unsigned char *) so->txt) + MSIZE_INC;
-
-	fs_resize(&so->txt, size * sizeof(char));
-	so->dp   = (unsigned char *) so->txt + cur_o;
-	so->eod  = (unsigned char *) so->txt + data_o;
-	so->eot  = (unsigned char *) so->txt + size;
-	memset(so->eod, 0, so->eot - so->eod);
-    }
-
-    *so->dp++ = (unsigned char) c;
-    if(so->dp > so->eod)
-      so->eod = so->dp;
-
-    return(1);
-}
-
-int
-so_pico_writec(c, so)
-    int      c;
-    STORE_S *so;
-{
-    unsigned char ch = (unsigned char) c;
-
-    return(pico_writec(so->txt, ch));
-}
-
-int
-so_file_writec(c, so)
-    int      c;
-    STORE_S *so;
-{
-    unsigned char ch = (unsigned char) c;
-    int rv = 0;
-
-    if(so->txt || so_reaquire(so))
-      do
-	rv = fwrite(&ch,sizeof(unsigned char),(size_t)1,(FILE *)so->txt);
-      while(!rv && ferror((FILE *)so->txt) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/*
- * get a character from the specified storage object.
- *
- * return 1 on success and 0 on failure
- */
-int
-so_cs_readc(c, so)
-    unsigned char *c;
-    STORE_S       *so;
-{
-    return((so->dp < so->eod) ? *c = *(so->dp)++, 1 : 0);
-}
-
-int
-so_pico_readc(c, so)
-    unsigned char *c;
-    STORE_S       *so;
-{
-    return(pico_readc(so->txt, c));
-}
-
-int
-so_file_readc(c, so)
-    unsigned char *c;
-    STORE_S       *so;
-{
-    int rv = 0;
-
-    if(so->txt || so_reaquire(so))
-      do
-	rv = fread(c, sizeof(char), (size_t)1, (FILE *)so->txt);
-      while(!rv && ferror((FILE *)so->txt) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/*
- * write a string into the specified storage object,
- * expanding if necessary (and cheating if the object
- * happens to be a file!)
- *
- * return 1 on success and 0 on failure
- */
-int
-so_cs_puts(so, s)
-    STORE_S *so;
-    char    *s;
-{
-    int slen = strlen(s);
-
-    if(so->dp + slen >= so->eot){
-	register size_t cur_o  = so->dp - (unsigned char *) so->txt;
-	register size_t data_o = so->eod - (unsigned char *) so->txt;
-	register size_t len   = so->eot - (unsigned char *) so->txt;
-	while(len <= cur_o + slen + 1)
-	  len += MSIZE_INC;		/* need to resize! */
-
-	fs_resize(&so->txt, len * sizeof(char));
-	so->dp	 = (unsigned char *)so->txt + cur_o;
-	so->eod	 = (unsigned char *)so->txt + data_o;
-	so->eot	 = (unsigned char *)so->txt + len;
-	memset(so->eod, 0, so->eot - so->eod);
-    }
-
-    memcpy(so->dp, s, slen);
-    so->dp += slen;
-    if(so->dp > so->eod)
-      so->eod = so->dp;
-
-    return(1);
-}
-
-int
-so_pico_puts(so, s)
-    STORE_S *so;
-    char    *s;
-{
-    return(pico_puts(so->txt, s));
-}
-
-int
-so_file_puts(so, s)
-    STORE_S *so;
-    char    *s;
-{
-    int rv = *s ? 0 : 1;
-
-    if(!rv && (so->txt || so_reaquire(so)))
-      do
-	rv = fwrite(s, strlen(s)*sizeof(char), (size_t)1, (FILE *)so->txt);
-      while(!rv && ferror((FILE *)so->txt) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/*
- *
- */
-int
-so_nputs(so, s, n)
-    STORE_S *so;
-    char    *s;
-    long     n;
-{
-    while(n--)
-      if(!so_writec((unsigned char) *s++, so))
-	return(0);		/* ERROR putting char ! */
-
-    return(1);
-}
-
-
-
-/*
- * Position the storage object's pointer to the given offset
- * from the start of the object's data.
- */
-int
-so_seek(so, pos, orig)
-    STORE_S *so;
-    long     pos;
-    int      orig;
-{
-    if(so->src == CharStar){
-	switch(orig){
-	    case 0 :				/* SEEK_SET */
-	      return((pos < so->eod - (unsigned char *) so->txt)
-		      ? so->dp = (unsigned char *)so->txt + pos, 0 : -1);
-	    case 1 :				/* SEEK_CUR */
-	      return((pos > 0)
-		       ? ((pos < so->eod - so->dp) ? so->dp += pos, 0: -1)
-		       : ((pos < 0)
-			   ? ((-pos < so->dp - (unsigned char *)so->txt)
-			        ? so->dp += pos, 0 : -1)
-			   : 0));
-	    case 2 :				/* SEEK_END */
-	      return((pos < so->eod - (unsigned char *) so->txt)
-		      ? so->dp = so->eod - pos, 0 : -1);
-	    default :
-	      return(-1);
-	}
-    }
-    else if(so->src == PicoText)
-      return(pico_seek(so->txt, pos, orig));
-    else			/* FileStar or TmpFileStar */
-      return((so->txt || so_reaquire(so))
-		? fseek((FILE *)so->txt,pos,orig)
-		: -1);
-}
-
-
-/*
- * Change the given storage object's size to that specified.  If size
- * is less than the current size, the internal pointer is adjusted and
- * all previous data beyond the given size is lost.
- *
- * Returns 0 on failure.
- */
-int
-so_truncate(so, size)
-    STORE_S *so;
-    long     size;
-{
-    if(so->src == CharStar){
-	if(so->eod < (unsigned char *) so->txt + size){	/* alloc! */
-	    unsigned char *newtxt = (unsigned char *) so->txt;
-	    register size_t len   = so->eot - (unsigned char *) so->txt;
-
-	    while(len <= size)
-	      len += MSIZE_INC;		/* need to resize! */
-
-	    if(len > so->eot - (unsigned char *) newtxt){
-		fs_resize((void **) &newtxt, len * sizeof(char));
-		so->eot = newtxt + len;
-		so->eod = newtxt + (so->eod - (unsigned char *) so->txt);
-		memset(so->eod, 0, so->eot - so->eod);
-	    }
-
-	    so->eod = newtxt + size;
-	    so->dp  = newtxt + (so->dp - (unsigned char *) so->txt);
-	    so->txt = newtxt;
-	}
-	else if(so->eod > (unsigned char *) so->txt + size){
-	    if(so->dp > (so->eod = (unsigned char *)so->txt + size))
-	      so->dp = so->eod;
-
-	    memset(so->eod, 0, so->eot - so->eod);
-	}
-
-	return(1);
-    }
-    else if(so->src == PicoText){
-	fatal("programmer botch: unsupported so_truncate call");
-	/*NOTREACHED*/
-    }
-    else			/* FileStar or TmpFileStar */
-      return(fflush((FILE *) so->txt) != EOF
-	     && fseek((FILE *) so->txt, size, 0) == 0
-	     && ftruncate(fileno((FILE *)so->txt), size) == 0);
-}
-
-
-/*
- * so_release - a rather misnamed function.  the idea is to release
- *              what system resources we can (e.g., open files).
- *              while maintaining a reference to it.
- *              it's up to the functions that deal with this object
- *              next to re-aquire those resources.
- */
-int
-so_release(so)
-STORE_S *so;
-{
-    if(so->txt && so->name && (so->src == FileStar || so->src == TmpFileStar)){
-	if(fgetpos((FILE *)so->txt, (fpos_t *)&(so->used)) == 0){
-	    fclose((FILE *)so->txt);		/* free the handle! */
-	    so->txt = NULL;
-	}
-    }
-
-    return(1);
-}
-
-
-/*
- * so_reaquire - get any previously released system resources we
- *               may need for the given storage object.
- *       NOTE: at the moment, only FILE * types of objects are
- *             effected, so it only needs to be called before
- *             references to them.
- *
- */
-so_reaquire(so)
-STORE_S *so;
-{
-    int   rv = 1;
-
-    if(!so->txt && (so->src == FileStar || so->src == TmpFileStar)){
-	if(!(so->txt = so_file_open(so))){
-	    q_status_message2(SM_ORDER,3,5, "ERROR reopening %s : %s", so->name,
-				error_description(errno));
-	    rv = 0;
-	}
-	else if(fsetpos((FILE *)so->txt, (fpos_t *)&(so->used))){
-	    q_status_message2(SM_ORDER, 3, 5, "ERROR positioning in %s : %s",
-				so->name, error_description(errno));
-	    rv = 0;
-	}
-    }
-
-    return(rv);
-}
-
-
-/*
- * so_text - return a pointer to the text the store object passed
- */
-void *
-so_text(so)
-STORE_S *so;
-{
-    return((so) ? so->txt : NULL);
-}
-
-
-/*
- * END OF GENERALIZE STORAGE FUNCTIONS
- */
-
-
-/*
- * Start of filters, pipes and various support functions
- */
-
-/*
- * pointer to first function in a pipe, and pointer to last filter
- */
-FILTER_S         *gf_master = NULL;
-static	gf_io_t   last_filter;
-static	char     *gf_error_string;
-static	long	  gf_byte_count;
-static	jmp_buf   gf_error_state;
-
-
-/*
- * A list of states used by the various filters.  Reused in many filters.
- */
-#define	DFL	0
-#define	EQUAL	1
-#define	HEX	2
-#define	WSPACE	3
-#define	CCR	4
-#define	CLF	5
-#define	TOKEN	6
-#define	TAG	7
-#define	HANDLE	8
-#define	HDATA	9
-
-
-
-/*
- * Macros to reduce function call overhead associated with calling
- * each filter for each byte filtered, and to minimize filter structure
- * dereferences.  NOTE: "queuein" has to do with putting chars into the
- * filter structs data queue.  So, writing at the queuein offset is
- * what a filter does to pass processed data out of itself.  Ditto for
- * queueout.  This explains the FI --> queueout init stuff below.
- */
-#define	GF_QUE_START(F)	(&(F)->queue[0])
-#define	GF_QUE_END(F)	(&(F)->queue[GF_MAXBUF - 1])
-
-#define	GF_IP_INIT(F)	ip  = (F) ? &(F)->queue[(F)->queuein] : NULL
-#define	GF_EIB_INIT(F)	eib = (F) ? GF_QUE_END(F) : NULL
-#define	GF_OP_INIT(F)	op  = (F) ? &(F)->queue[(F)->queueout] : NULL
-#define	GF_EOB_INIT(F)	eob = (F) ? &(F)->queue[(F)->queuein] : NULL
-
-#define	GF_IP_END(F)	(F)->queuein  = ip - GF_QUE_START(F)
-#define	GF_OP_END(F)	(F)->queueout = op - GF_QUE_START(F)
-
-#define	GF_INIT(FI, FO)	register unsigned char *GF_OP_INIT(FI);	 \
-			register unsigned char *GF_EOB_INIT(FI); \
-			register unsigned char *GF_IP_INIT(FO);  \
-			register unsigned char *GF_EIB_INIT(FO);
-
-#define	GF_CH_RESET(F)	(op = eob = GF_QUE_START(F), \
-					    (F)->queueout = (F)->queuein = 0)
-
-#define	GF_END(FI, FO)	(GF_OP_END(FI), GF_IP_END(FO))
-
-#define	GF_FLUSH(F)	((int)(GF_IP_END(F), (*(F)->f)((F), GF_DATA), \
-			       GF_IP_INIT(F), GF_EIB_INIT(F)))
-
-#define	GF_PUTC(F, C)	((int)(*ip++ = (C), (ip >= eib) ? GF_FLUSH(F) : 1))
-
-#define	GF_GETC(F, C)	((op < eob) ? (((C) = *op++), 1) : GF_CH_RESET(F))
-
-
-/*
- * Generalized getc and putc routines.  provided here so they don't
- * need to be re-done elsewhere to
- */
-
-/*
- * pointers to objects to be used by the generic getc and putc
- * functions
- */
-static struct gf_io_struct {
-    FILE          *file;
-    char          *txtp;
-    unsigned long  n;
-} gf_in, gf_out;
-
-
-#define	GF_SO_STACK	struct gf_so_stack
-static GF_SO_STACK {
-    STORE_S	*so;
-    GF_SO_STACK *next;
-} *gf_so_in, *gf_so_out;
-
-
-/*
- * setup to use and return a pointer to the generic
- * getc function
- */
-void
-gf_set_readc(gc, txt, len, src)
-    gf_io_t       *gc;
-    void          *txt;
-    unsigned long  len;
-    SourceType     src;
-{
-    gf_in.n = len;
-    if(src == FileStar){
-	gf_in.file = (FILE *)txt;
-	fseek(gf_in.file, 0L, 0);
-	*gc = gf_freadc;
-    }
-    else{
-	gf_in.txtp = (char *)txt;
-	*gc = gf_sreadc;
-    }
-}
-
-
-/*
- * setup to use and return a pointer to the generic
- * putc function
- */
-void
-gf_set_writec(pc, txt, len, src)
-    gf_io_t       *pc;
-    void          *txt;
-    unsigned long  len;
-    SourceType     src;
-{
-    gf_out.n = len;
-    if(src == FileStar){
-	gf_out.file = (FILE *)txt;
-	*pc = gf_fwritec;
-    }
-    else{
-	gf_out.txtp = (char *)txt;
-	*pc = gf_swritec;
-    }
-}
-
-
-/*
- * setup to use and return a pointer to the generic
- * getc function
- */
-void
-gf_set_so_readc(gc, so)
-    gf_io_t *gc;
-    STORE_S *so;
-{
-    GF_SO_STACK *sp = (GF_SO_STACK *) fs_get(sizeof(GF_SO_STACK));
-
-    sp->so   = so;
-    sp->next = gf_so_in;
-    gf_so_in = sp;
-    *gc      = gf_so_readc;
-}
-
-
-void
-gf_clear_so_readc(so)
-    STORE_S *so;
-{
-    GF_SO_STACK *sp;
-
-    if(sp = gf_so_in){
-	if(so == sp->so){
-	    gf_so_in = gf_so_in->next;
-	    fs_give((void **) &sp);
-	}
-	else
-	  panic("Programmer botch: Can't unstack store readc");
-    }
-    else
-      panic("Programmer botch: NULL store clearing store readc");
-}
-
-
-/*
- * setup to use and return a pointer to the generic
- * putc function
- */
-void
-gf_set_so_writec(pc, so)
-    gf_io_t *pc;
-    STORE_S *so;
-{
-    GF_SO_STACK *sp = (GF_SO_STACK *) fs_get(sizeof(GF_SO_STACK));
-
-    sp->so    = so;
-    sp->next  = gf_so_out;
-    gf_so_out = sp;
-    *pc       = gf_so_writec;
-}
-
-
-void
-gf_clear_so_writec(so)
-    STORE_S *so;
-{
-    GF_SO_STACK *sp;
-
-    if(sp = gf_so_out){
-	if(so == sp->so){
-	    gf_so_out = gf_so_out->next;
-	    fs_give((void **) &sp);
-	}
-	else
-	  panic("Programmer botch: Can't unstack store writec");
-    }
-    else
-      panic("Programmer botch: NULL store clearing store writec");
-}
-
-
-/*
- * put the character to the object previously defined
- */
-int
-gf_so_writec(c)
-int c;
-{
-    return(so_writec(c, gf_so_out->so));
-}
-
-
-/*
- * get a character from an object previously defined
- */
-int
-gf_so_readc(c)
-unsigned char *c;
-{
-    return(so_readc(c, gf_so_in->so));
-}
-
-
-/* get a character from a file */
-/* assumes gf_out struct is filled in */
-int
-gf_freadc(c)
-unsigned char *c;
-{
-    int rv = 0;
-
-    do {
-	errno = 0;
-	clearerr(gf_in.file);
-	rv = fread(c, sizeof(unsigned char), (size_t)1, gf_in.file);
-    } while(!rv && ferror(gf_in.file) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/* put a character to a file */
-/* assumes gf_out struct is filled in */
-int
-gf_fwritec(c)
-    int c;
-{
-    unsigned char ch = (unsigned char)c;
-    int rv = 0;
-
-    do
-      rv = fwrite(&ch, sizeof(unsigned char), (size_t)1, gf_out.file);
-    while(!rv && ferror(gf_out.file) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/* get a character from a string, return nonzero if things OK */
-/* assumes gf_out struct is filled in */
-int
-gf_sreadc(c)
-unsigned char *c;
-{
-    return((gf_in.n) ? *c = *(gf_in.txtp)++, gf_in.n-- : 0);
-}
-
-
-/* put a character into a string, return nonzero if things OK */
-/* assumes gf_out struct is filled in */
-int
-gf_swritec(c)
-    int c;
-{
-    return((gf_out.n) ? *(gf_out.txtp)++ = c, gf_out.n-- : 0);
-}
-
-
-/*
- * output the given string with the given function
- */
-int
-gf_puts(s, pc)
-    register char *s;
-    gf_io_t        pc;
-{
-    while(*s != '\0')
-      if(!(*pc)((unsigned char)*s++))
-	return(0);		/* ERROR putting char ! */
-
-    return(1);
-}
-
-
-/*
- * output the given string with the given function
- */
-int
-gf_nputs(s, n, pc)
-    register char *s;
-    long	   n;
-    gf_io_t        pc;
-{
-    while(n--)
-      if(!(*pc)((unsigned char)*s++))
-	return(0);		/* ERROR putting char ! */
-
-    return(1);
-}
-
-
-/*
- * Start of generalized filter routines
- */
-
-/*
- * initializing function to make sure list of filters is empty.
- */
-void
-gf_filter_init()
-{
-    FILTER_S *flt, *fltn = gf_master;
-
-    while((flt = fltn) != NULL){	/* free list of old filters */
-	fltn = flt->next;
-	fs_give((void **)&flt);
-    }
-
-    gf_master = NULL;
-    gf_error_string = NULL;		/* clear previous errors */
-    gf_byte_count = 0L;			/* reset counter */
-}
-
-
-
-/*
- * link the given filter into the filter chain
- */
-void
-gf_link_filter(f, data)
-    filter_t  f;
-    void     *data;
-{
-    FILTER_S *new, *tail;
-
-#ifdef	CRLF_NEWLINES
-    /*
-     * If the system's native EOL convention is CRLF, then there's no
-     * point in passing data thru a filter that's not doing anything
-     */
-    if(f == gf_nvtnl_local || f == gf_local_nvtnl)
-      return;
-#endif
-
-    new = (FILTER_S *)fs_get(sizeof(FILTER_S));
-    memset(new, 0, sizeof(FILTER_S));
-
-    new->f = f;				/* set the function pointer     */
-    new->opt = data;			/* set any optional parameter data */
-    (*f)(new, GF_RESET);		/* have it setup initial state  */
-
-    if(tail = gf_master){		/* or add it to end of existing  */
-	while(tail->next)		/* list  */
-	  tail = tail->next;
-
-	tail->next = new;
-    }
-    else				/* attach new struct to list    */
-      gf_master = new;			/* start a new list */
-}
-
-
-/*
- * terminal filter, doesn't call any other filters, typically just does
- * something with the output
- */
-void
-gf_terminal(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    if(flg == GF_DATA){
-	GF_INIT(f, f);
-
-	while(op < eob)
-	  if((*last_filter)(*op++) <= 0) /* generic terminal filter */
-	    gf_error(errno ? error_description(errno) : "Error writing pipe");
-
-	GF_CH_RESET(f);
-    }
-    else if(flg == GF_RESET)
-      errno = 0;			/* prepare for problems */
-}
-
-
-/*
- * set some outside gf_io_t function to the terminal function
- * for example: a function to write a char to a file or into a buffer
- */
-void
-gf_set_terminal(f)			/* function to set generic filter */
-    gf_io_t f;
-{
-    last_filter = f;
-}
-
-
-/*
- * common function for filter's to make it known that an error
- * has occurred.  Jumps back to gf_pipe with error message.
- */
-void
-gf_error(s)
-    char *s;
-{
-    /* let the user know the error passed in s */
-    gf_error_string = s;
-    longjmp(gf_error_state, 1);
-}
-
-
-/*
- * The routine that shoves each byte through the chain of
- * filters.  It sets up error handling, and the terminal function.
- * Then loops getting bytes with the given function, and passing
- * it on to the first filter in the chain.
- */
-char *
-gf_pipe(gc, pc)
-    gf_io_t gc, pc;			/* how to get a character */
-{
-    unsigned char c;
-
-#if	defined(DOS) && !defined(_WINDOWS)
-    MoveCursor(0, 1);
-    StartInverse();
-#endif
-
-    dprint(4, (debugfile, "-- gf_pipe: "));
-
-    /*
-     * set up for any errors a filter may encounter
-     */
-    if(setjmp(gf_error_state)){
-#if	defined(DOS) && !defined(_WINDOWS)
-	ibmputc(' ');
-	EndInverse();
-#endif
-	dprint(4, (debugfile, "ERROR: %s\n",
-		   gf_error_string ? gf_error_string : "NULL"));
-	return(gf_error_string); 	/*  */
-    }
-
-    /*
-     * set and link in the terminal filter
-     */
-    gf_set_terminal(pc);
-    gf_link_filter(gf_terminal, NULL);
-
-    /*
-     * while there are chars to process, send them thru the pipe.
-     * NOTE: it's necessary to enclose the loop below in a block
-     * as the GF_INIT macro calls some automatic var's into
-     * existence.  It can't be placed at the start of gf_pipe
-     * because its useful for us to be called without filters loaded
-     * when we're just being used to copy bytes between storage
-     * objects.
-     */
-    {
-	GF_INIT(gf_master, gf_master);
-
-	while((*gc)(&c)){
-	    gf_byte_count++;
-#ifdef	DOS
-	    if(!(gf_byte_count & 0x3ff))
-#ifdef	_WINDOWS
-	      /* Under windows we yeild to allow event processing.
-	       * Progress display is handled throught the alarm()
-	       * mechinism.
-	       */
-	      mswin_yeild ();
-#else
-	      /* Poor PC still needs spinning bar */
-	      ibmputc("/-\\|"[((int) gf_byte_count >> 10) % 4]);
-	      MoveCursor(0, 1);
-#endif
-#endif
-
-	    GF_PUTC(gf_master, c & 0xff);
-	}
-
-	/*
-	 * toss an end-of-data marker down the pipe to give filters
-	 * that have any buffered data the opportunity to dump it
-	 */
-	GF_FLUSH(gf_master);
-	(*gf_master->f)(gf_master, GF_EOD);
-    }
-
-#if	defined(DOS) && !defined(_WINDOWS)
-    ibmputc(' ');
-    EndInverse();
-#endif
-
-    dprint(1, (debugfile, "done.\n"));
-    return(NULL);			/* everything went OK */
-}
-
-
-/*
- * return the number of bytes piped so far
- */
-long
-gf_bytes_piped()
-{
-    return(gf_byte_count);
-}
-
-
-/*
- * filter the given input with the given command
- *
- *  Args: cmd -- command string to execute
- *	prepend -- string to prepend to filtered input
- *	source_so -- storage object containing data to be filtered
- *	pc -- function to write filtered output with
- *	aux_filters -- additional filters to pass data thru after "cmd"
- *
- *  Returns: NULL on sucess, reason for failure (not alloc'd!) on error
- */
-char *
-gf_filter(cmd, prepend, source_so, pc, aux_filters)
-    char       *cmd, *prepend;
-    STORE_S    *source_so;
-    gf_io_t	pc;
-    FILTLIST_S *aux_filters;
-{
-    unsigned char c;
-    int	     flags;
-    char   *errstr = NULL, buf[MAILTMPLEN], *rfile = NULL;
-    PIPE_S *fpipe;
-
-    dprint(4, (debugfile, "so_filter: \"%s\"\n", cmd));
-
-    gf_filter_init();
-    for( ; aux_filters && aux_filters->filter; aux_filters++)
-      gf_link_filter(aux_filters->filter, aux_filters->data);
-
-    gf_set_terminal(pc);
-    gf_link_filter(gf_terminal, NULL);
-
-    /*
-     * Spawn filter feeding it data, and reading what it writes.
-     */
-    so_seek(source_so, 0L, 0);
-#ifdef	NO_PIPE
-    /*
-     * When there're no pipes for IPC, use an output file to collect
-     * the result...
-     */
-    flags = PIPE_WRITE | PIPE_NOSHELL | PIPE_RESET;
-    rfile = temp_nam(NULL, "pf");
-#else
-    flags = PIPE_WRITE | PIPE_READ | PIPE_NOSHELL | PIPE_RESET;
-#endif
-
-    if(fpipe = open_system_pipe(cmd, rfile ? &rfile : NULL, NULL, flags, 0)){
-#ifdef	NO_PIPE
-	if(prepend && (fputs(prepend, fpipe->out.f) == EOF
-		       || fputc('\n', fpipe->out.f) == EOF))
-	  errstr = error_description(errno);
-
-	/*
-	 * Write the output, and deal with the result later...
-	 */
-	while(!errstr && so_readc(&c, source_so))
-	  if(fputc(c, fpipe->out.f) == EOF)
-	    errstr = error_description(errno);
-#else
-#ifdef	NON_BLOCKING_IO
-	int     n;
-
-	if(fcntl(fileno(fpipe->in.f), F_SETFL, NON_BLOCKING_IO) == -1)
-	  errstr = "Can't set up non-blocking IO";
-
-	if(prepend && (fputs(prepend, fpipe->out.f) == EOF
-		       || fputc('\n', fpipe->out.f) == EOF))
-	  errstr = error_description(errno);
-
-	while(!errstr){
-	    /* if the pipe can't hold a K we're sunk (too bad PIPE_MAX
-	     * isn't ubiquitous ;).
-	     */
-	    for(n = 0; !errstr && fpipe->out.f && n < 1024; n++)
-	      if(!so_readc(&c, source_so)){
-		  fclose(fpipe->out.f);
-		  fpipe->out.f = NULL;
-	      }
-	      else if(fputc(c, fpipe->out.f) == EOF)
-		errstr = error_description(errno);
-
-	    /*
-	     * Note: We clear errno here and test below, before ferror,
-	     *	     because *some* stdio implementations consider
-	     *	     EAGAIN and EWOULDBLOCK equivalent to EOF...
-	     */
-	    errno = 0;
-	    clearerr(fpipe->in.f); /* fix from <cananian@cananian.mit.edu> */
-
-	    while(!errstr && fgets(buf, MAILTMPLEN, fpipe->in.f))
-	      errstr = gf_filter_puts(buf);
-
-	    /* then fgets failed! */
-	    if(!errstr && !(errno == EAGAIN || errno == EWOULDBLOCK)){
-		if(feof(fpipe->in.f))		/* nothing else interesting! */
-		  break;
-		else if(ferror(fpipe->in.f))	/* bummer. */
-		  errstr = error_description(errno);
-	    }
-	    else if(errno == EAGAIN || errno == EWOULDBLOCK)
-	      clearerr(fpipe->in.f);
-	}
-#else
-	if(prepend && (fputs(prepend, fpipe->out.f) == EOF
-		       || fputc('\n', fpipe->out.f) == EOF))
-	  errstr = error_description(errno);
-
-	/*
-	 * Well, do the best we can, and hope the pipe we're writing
-	 * doesn't fill up before we start reading...
-	 */
-	while(!errstr && so_readc(&c, source_so))
-	  if(fputc(c, fpipe->out.f) == EOF)
-	    errstr = error_description(errno);
-
-	fclose(fpipe->out.f);
-	fpipe->out.f = NULL;
-	while(!errstr && fgets(buf, MAILTMPLEN, fpipe->in.f))
-	  errstr = gf_filter_puts(buf);
-#endif /* NON_BLOCKING */
-#endif /* NO_PIPE */
-
-	gf_filter_eod();
-
-	if(close_system_pipe(&fpipe) && !errstr)
-	  errstr = "Pipe command returned error.";
-
-#ifdef	NO_PIPE
-	/*
-	 * retrieve filters result...
-	 */
-	{
-	    FILE *fp;
-
-	    if(fp = fopen(rfile, STDIO_READ)){
-		while(!errstr && fgets(buf, MAILTMPLEN, fp))
-		  errstr = gf_filter_puts(buf);
-
-		fclose(fp);
-	    }
-
-	    fs_give((void **)&rfile);
-	}
-#endif
-    }
-
-    return(errstr);
-}
-
-
-/*
- * gf_filter_puts - write the given string down the filter's pipe
- */
-char *
-gf_filter_puts(s)
-    register char *s;
-{
-    GF_INIT(gf_master, gf_master);
-
-    /*
-     * set up for any errors a filter may encounter
-     */
-    if(setjmp(gf_error_state)){
-	dprint(4, (debugfile, "ERROR: gf_filter_puts: %s\n",
-		   gf_error_string ? gf_error_string : "NULL"));
-	return(gf_error_string);
-    }
-
-    while(*s)
-      GF_PUTC(gf_master, (*s++) & 0xff);
-
-    GF_END(gf_master, gf_master);
-    return(NULL);
-}
-
-
-/*
- * gf_filter_eod - flush pending data filter's input queue and deliver
- *		   the GF_EOD marker.
- */
-void
-gf_filter_eod()
-{
-    GF_INIT(gf_master, gf_master);
-    GF_FLUSH(gf_master);
-    (*gf_master->f)(gf_master, GF_EOD);
-}
-
-
-
-
-/*
- * END OF PIPE SUPPORT ROUTINES, BEGINNING OF FILTERS
- *
- * Filters MUST use the specified interface (pointer to filter
- * structure, the unsigned character buffer in that struct, and a
- * cmd flag), and pass each resulting octet to the next filter in the
- * chain.  Only the terminal filter need not call another filter.
- * As a result, filters share a pretty general structure.
- * Typically three main conditionals separate initialization from
- * data from end-of-data command processing.
- *
- * Lastly, being character-at-a-time, they're a little more complex
- * to write than filters operating on buffers because some state
- * must typically be kept between characters.  However, for a
- * little bit of complexity here, much convenience is gained later
- * as they can be arbitrarily chained together at run time and
- * consume few resources (especially memory or disk) as they work.
- * (NOTE 951005: even less cpu now that data between filters is passed
- *  via a vector.)
- *
- * A few notes about implementing filters:
- *
- *  - A generic filter template looks like:
- *
- *    void
- *    gf_xxx_filter(f, flg)
- *        FILTER_S *f;
- *        int       flg;
- *    {
- *	  GF_INIT(f, f->next);		// def's var's to speed queue drain
- *
- *        if(flg == GF_DATA){
- *	      register unsigned char c;
- *
- *	      while(GF_GETC(f, c)){	// macro taking data off input queue
- *	          // operate on c and pass it on here
- *                GF_PUTC(f->next, c);	// macro writing output queue
- *	      }
- *
- *	      GF_END(f, f->next);	// macro to sync pointers/offsets
- *	      //WARNING: DO NOT RETURN BEFORE ALL INCOMING DATA'S PROCESSED
- *        }
- *        else if(flg == GF_EOD){
- *            // process any buffered data here and pass it on
- *	      GF_FLUSH(f->next);	// flush pending data to next filter
- *            (*f->next->f)(f->next, GF_EOD);
- *        }
- *        else if(flg == GF_RESET){
- *            // initialize any data in the struct here
- *        }
- *    }
- *
- *  - Any free storage allocated during initialization (typically tied
- *    to the "line" pointer in FILTER_S) is the filter's responsibility
- *    to clean up when the GF_EOD command comes through.
- *
- *  - Filter's must pass GF_EOD they receive on to the next
- *    filter in the chain so it has the opportunity to flush
- *    any buffered data.
- *
- *  - All filters expect NVT end-of-lines.  The idea is to prepend
- *    or append either the gf_local_nvtnl or gf_nvtnl_local
- *    os-dependant filters to the data on the appropriate end of the
- *    pipe for the task at hand.
- *
- *  - NOTE: As of 951004, filters no longer take their input as a single
- *    char argument, but rather get data to operate on via a vector
- *    representing the input queue in the FILTER_S structure.
- *
- */
-
-
-
-/*
- * BASE64 TO BINARY encoding and decoding routines below
- */
-
-
-/*
- * BINARY to BASE64 filter (encoding described in rfc1341)
- */
-void
-gf_binary_b64(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    static char *v =
-            "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register unsigned char t = f->t;
-	register long n = f->n;
-
-	while(GF_GETC(f, c)){
-
-	    switch(n++){
-	      case 0 : case 3 : case 6 : case 9 : case 12: case 15: case 18:
-	      case 21: case 24: case 27: case 30: case 33: case 36: case 39:
-	      case 42: case 45:
-		GF_PUTC(f->next, v[c >> 2]);
-					/* byte 1: high 6 bits (1) */
-		t = c << 4;		/* remember high 2 bits for next */
-		break;
-
-	      case 1 : case 4 : case 7 : case 10: case 13: case 16: case 19:
-	      case 22: case 25: case 28: case 31: case 34: case 37: case 40:
-	      case 43:
-		GF_PUTC(f->next, v[(t|(c>>4)) & 0x3f]);
-		t = c << 2;
-		break;
-
-	      case 2 : case 5 : case 8 : case 11: case 14: case 17: case 20:
-	      case 23: case 26: case 29: case 32: case 35: case 38: case 41:
-	      case 44:
-		GF_PUTC(f->next, v[(t|(c >> 6)) & 0x3f]);
-		GF_PUTC(f->next, v[c & 0x3f]);
-		break;
-	    }
-
-	    if(n == 45){			/* start a new line? */
-		GF_PUTC(f->next, '\015');
-		GF_PUTC(f->next, '\012');
-		n = 0L;
-	    }
-	}
-
-	f->n = n;
-	f->t = t;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){		/* no more data */
-	switch (f->n % 3) {		/* handle trailing bytes */
-	  case 0:			/* no trailing bytes */
-	    break;
-
-	  case 1:
-	    GF_PUTC(f->next, v[(f->t) & 0x3f]);
-	    GF_PUTC(f->next, '=');	/* byte 3 */
-	    GF_PUTC(f->next, '=');	/* byte 4 */
-	    break;
-
-	  case 2:
-	    GF_PUTC(f->next, v[(f->t) & 0x3f]);
-	    GF_PUTC(f->next, '=');	/* byte 4 */
-	    break;
-	}
-
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset binary_b64\n"));
-	f->n = 0L;
-    }
-}
-
-
-
-/*
- * BASE64 to BINARY filter (encoding described in rfc1341)
- */
-void
-gf_b64_binary(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    static char v[] = {65,65,65,65,65,65,65,65,65,65,65,65,65,65,65,65,
-		       65,65,65,65,65,65,65,65,65,65,65,65,65,65,65,65,
-		       65,65,65,65,65,65,65,65,65,65,65,62,65,65,65,63,
-		       52,53,54,55,56,57,58,59,60,61,62,65,65,64,65,65,
-		       65, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,
-		       15,16,17,18,19,20,21,22,23,24,25,65,65,65,65,65,
-		       65,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,
-		       41,42,43,44,45,46,47,48,49,50,51,65,65,65,65,65};
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register unsigned char t = f->t;
-	register int n = (int) f->n;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-
-	    if(state){
-		state = 0;
-		if (c != '=') {
-		    gf_error("Illegal '=' in base64 text");
-		    /* NO RETURN */
-		}
-	    }
-
-	    /* in range, and a valid value? */
-	    if((c & ~0x7f) || (c = v[c]) > 63){
-		if(c == 64){
-		    switch (n++) {	/* check quantum position */
-		      case 2:
-			state++;	/* expect an equal as next char */
-			break;
-
-		      case 3:
-			n = 0L;		/* restart quantum */
-			break;
-
-		      default:		/* impossible quantum position */
-			gf_error("Internal base64 decoder error");
-			/* NO RETURN */
-		    }
-		}
-	    }
-	    else{
-		switch (n++) {		/* install based on quantum position */
-		  case 0:		/* byte 1: high 6 bits */
-		    t = c << 2;
-		    break;
-
-		  case 1:		/* byte 1: low 2 bits */
-		    GF_PUTC(f->next, (t|(c >> 4)));
-		    t = c << 4;		/* byte 2: high 4 bits */
-		    break;
-
-		  case 2:		/* byte 2: low 4 bits */
-		    GF_PUTC(f->next, (t|(c >> 2)));
-		    t = c << 6;		/* byte 3: high 2 bits */
-		    break;
-
-		  case 3:
-		    GF_PUTC(f->next, t | c);
-		    n = 0L;		/* reinitialize mechanism */
-		    break;
-		}
-	    }
-	}
-
-	f->f1 = state;
-	f->t = t;
-	f->n = n;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset b64_binary\n"));
-	f->n  = 0L;			/* quantum position */
-	f->f1 = 0;			/* state holder: equal seen? */
-    }
-}
-
-
-
-
-/*
- * QUOTED-PRINTABLE ENCODING AND DECODING filters below.
- * encoding described in rfc1341
- */
-
-#define	GF_MAXLINE	80		/* good buffer size */
-
-/*
- * default action for QUOTED-PRINTABLE to 8BIT decoder
- */
-#define	GF_QP_DEFAULT(f, c)	{ \
-				    if((c) == ' '){ \
-					state = WSPACE; \
-						/* reset white space! */ \
-					(f)->linep = (f)->line; \
-					*((f)->linep)++ = ' '; \
-				    } \
-				    else if((c) == '='){ \
-					state = EQUAL; \
-				    } \
-				    else \
-				      GF_PUTC((f)->next, (c)); \
-				}
-
-
-/*
- * QUOTED-PRINTABLE to 8BIT filter
- */
-void
-gf_qp_8bit(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-
-	    switch(state){
-	      case DFL :		/* default case */
-	      default:
-		GF_QP_DEFAULT(f, c);
-		break;
-
-	      case CCR    :		/* non-significant space */
-		state = DFL;
-		if(c == '\012')
-		  continue;		/* go on to next char */
-
-		GF_QP_DEFAULT(f, c);
-		break;
-
-	      case EQUAL  :
-		if(c == '\015'){	/* "=\015" is a soft EOL */
-		    state = CCR;
-		    break;
-		}
-
-		if(c == '='){		/* compatibility clause for old guys */
-		    GF_PUTC(f->next, '=');
-		    state = DFL;
-		    break;
-		}
-
-		if(!isxdigit((unsigned char)c)){	/* must be hex! */
-		    fs_give((void **)&(f->line));
-		    gf_error("Non-hexadecimal character in QP encoding");
-		    /* NO RETURN */
-		}
-
-		if (isdigit ((unsigned char)c))
-		  f->t = c - '0';
-		else
-		  f->t = c - (isupper((unsigned char)c) ? 'A' - 10 : 'a' - 10);
-
-		state = HEX;
-		break;
-
-	      case HEX :
-		state = DFL;
-		if(!isxdigit((unsigned char)c)){	/* must be hex! */
-		    fs_give((void **)&(f->line));
-		    gf_error("Non-hexadecimal character in QP encoding");
-		    /* NO RETURN */
-		}
-
-		if (isdigit((unsigned char)c))
-		  c -= '0';
-		else
-		  c -= (isupper((unsigned char)c) ? 'A' - 10 : 'a' - 10);
-
-		GF_PUTC(f->next, c + (f->t << 4));
-		break;
-
-	      case WSPACE :
-		if(c == ' '){		/* toss it in with other spaces */
-		    if(f->linep - f->line < GF_MAXLINE)
-		      *(f->linep)++ = ' ';
-		    break;
-		}
-
-		state = DFL;
-		if(c == '\015'){	/* not our white space! */
-		    f->linep = f->line;	/* reset buffer */
-		    GF_PUTC(f->next, '\015');
-		    break;
-		}
-
-		/* the spaces are ours, write 'em */
-		f->n = f->linep - f->line;
-		while((f->n)--)
-		  GF_PUTC(f->next, ' ');
-
-		GF_QP_DEFAULT(f, c);	/* take care of 'c' in default way */
-		break;
-	    }
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	fs_give((void **)&(f->line));
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset qp_8bit\n"));
-	f->f1 = DFL;
-	f->linep = f->line = (char *)fs_get(GF_MAXLINE * sizeof(char));
-    }
-}
-
-
-
-/*
- * USEFUL MACROS TO HELP WITH QP ENCODING
- */
-
-#define	QP_MAXL	75			/* 76th place only for continuation */
-
-/*
- * Macro to test and wrap long quoted printable lines
- */
-#define	GF_8BIT_WRAP(f)		{ \
-				    GF_PUTC((f)->next, '='); \
-				    GF_PUTC((f)->next, '\015'); \
-				    GF_PUTC((f)->next, '\012'); \
-				}
-
-/*
- * write a quoted octet in QUOTED-PRINTABLE encoding, adding soft
- * line break if needed.
- */
-#define	GF_8BIT_PUT_QUOTE(f, c)	{ \
-				    if(((f)->n += 3) > QP_MAXL){ \
-					GF_8BIT_WRAP(f); \
-					(f)->n = 3;	/* set line count */ \
-				    } \
-				    GF_PUTC((f)->next, '='); \
-				     GF_PUTC((f)->next, HEX_CHAR1(c)); \
-				     GF_PUTC((f)->next, HEX_CHAR2(c)); \
-				 }
-
-/*
- * just write an ordinary octet in QUOTED-PRINTABLE, wrapping line
- * if needed.
- */
-#define	GF_8BIT_PUT(f, c)	{ \
-				      if((++(f->n)) > QP_MAXL){ \
-					  GF_8BIT_WRAP(f); \
-					  f->n = 1L; \
-				      } \
-				      if(f->n == 1L && c == '.'){ \
-					  GF_8BIT_PUT_QUOTE(f, c); \
-					  f->n = 3; \
-				      } \
-				      else \
-					GF_PUTC(f->next, c); \
-				 }
-
-
-/*
- * default action for 8bit to quoted printable encoder
- */
-#define	GF_8BIT_DEFAULT(f, c)	if((c) == ' '){ \
-				     state = WSPACE; \
-				 } \
-				 else if(c == '\015'){ \
-				     state = CCR; \
-				 } \
-				 else if(iscntrl(c & 0x7f) || (c == 0x7f) \
-					 || (c & 0x80) || (c == '=')){ \
-				     GF_8BIT_PUT_QUOTE(f, c); \
-				 } \
-				 else{ \
-				   GF_8BIT_PUT(f, c); \
-				 }
-
-
-/*
- * 8BIT to QUOTED-PRINTABLE filter
- */
-void
-gf_8bit_qp(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    short dummy_dots = 0, dummy_dmap = 1;
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	 register unsigned char c;
-	 register int state = f->f1;
-
-	 while(GF_GETC(f, c)){
-
-	     /* keep track of "^JFrom " */
-	     Find_Froms(f->t, dummy_dots, f->f2, dummy_dmap, c);
-
-	     switch(state){
-	       case DFL :		/* handle ordinary case */
-		 GF_8BIT_DEFAULT(f, c);
-		 break;
-
-	       case CCR :		/* true line break? */
-		 state = DFL;
-		 if(c == '\012'){
-		     GF_PUTC(f->next, '\015');
-		     GF_PUTC(f->next, '\012');
-		     f->n = 0L;
-		 }
-		 else{			/* nope, quote the CR */
-		     GF_8BIT_PUT_QUOTE(f, '\015');
-		     GF_8BIT_DEFAULT(f, c); /* and don't forget about c! */
-		 }
-		 break;
-
-	       case WSPACE:
-		 state = DFL;
-		 if(c == '\015' || f->t){ /* handle the space */
-		     GF_8BIT_PUT_QUOTE(f, ' ');
-		     f->t = 0;		/* reset From flag */
-		 }
-		 else
-		   GF_8BIT_PUT(f, ' ');
-
-		 GF_8BIT_DEFAULT(f, c);	/* handle 'c' in the default way */
-		 break;
-	     }
-	 }
-
-	 f->f1 = state;
-	 GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	 switch(f->f1){
-	   case CCR :
-	     GF_8BIT_PUT_QUOTE(f, '\015'); /* write the last cr */
-	     break;
-
-	   case WSPACE :
-	     GF_8BIT_PUT_QUOTE(f, ' ');	/* write the last space */
-	     break;
-	 }
-
-	 GF_FLUSH(f->next);
-	 (*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	 dprint(9, (debugfile, "-- gf_reset 8bit_qp\n"));
-	 f->f1 = DFL;			/* state from last character        */
-	 f->f2 = 1;			/* state of "^NFrom " bitmap        */
-	 f->t  = 0;
-	 f->n  = 0L;			/* number of chars in current line  */
-    }
-}
-
-
-
-/*
- * RICHTEXT-TO-PLAINTEXT filter
- */
-
-/*
- * option to be used by rich2plain (NOTE: if this filter is ever
- * used more than once in a pipe, all instances will have the same
- * option value)
- */
-
-
-/*----------------------------------------------------------------------
-      richtext to plaintext filter
-
- Args: f --
-	flg  --
-
-  This basically removes all richtext formatting. A cute hack is used
-  to get bold and underlining to work.
-  Further work could be done to handle things like centering and right
-  and left flush, but then it could no longer be done in place. This
-  operates on text *with* CRLF's.
-
-  WARNING: does not wrap lines!
- ----*/
-void
-gf_rich2plain(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-/* BUG: qoute incoming \255 values */
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	 register unsigned char c;
-	 register int state = f->f1;
-
-	 while(GF_GETC(f, c)){
-
-	     switch(state){
-	       case TOKEN :		/* collect a richtext token */
-		 if(c == '>'){		/* what should we do with it? */
-		     state       = DFL;	/* return to default next time */
-		     *(f->linep) = '\0';	/* cap off token */
-		     if(f->line[0] == 'l' && f->line[1] == 't'){
-			 GF_PUTC(f->next, '<'); /* literal '<' */
-		     }
-		     else if(f->line[0] == 'n' && f->line[1] == 'l'){
-			 GF_PUTC(f->next, '\015');/* newline! */
-			 GF_PUTC(f->next, '\012');
-		     }
-		     else if(!strcmp("comment", f->line)){
-			 (f->f2)++;
-		     }
-		     else if(!strcmp("/comment", f->line)){
-			 f->f2 = 0;
-		     }
-		     else if(!strcmp("/paragraph", f->line)) {
-			 GF_PUTC(f->next, '\r');
-			 GF_PUTC(f->next, '\n');
-			 GF_PUTC(f->next, '\r');
-			 GF_PUTC(f->next, '\n');
-		     }
-		     else if(!f->opt /* gf_rich_plain */){
-			 if(!strcmp(f->line, "bold")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_BOLDON);
-			 } else if(!strcmp(f->line, "/bold")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_BOLDOFF);
-			 } else if(!strcmp(f->line, "italic")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_ULINEON);
-			 } else if(!strcmp(f->line, "/italic")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_ULINEOFF);
-			 } else if(!strcmp(f->line, "underline")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_ULINEON);
-			 } else if(!strcmp(f->line, "/underline")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_ULINEOFF);
-			 }
-		     }
-		     /* else we just ignore the token! */
-
-		     f->linep = f->line;	/* reset token buffer */
-		 }
-		 else{			/* add char to token */
-		     if(f->linep - f->line > 40){
-			 /* What? rfc1341 says 40 char tokens MAX! */
-			 fs_give((void **)&(f->line));
-			 gf_error("Richtext token over 40 characters");
-			 /* NO RETURN */
-		     }
-
-		     *(f->linep)++ = isupper((unsigned char)c) ? c-'A'+'a' : c;
-		 }
-		 break;
-
-	       case CCR   :
-		 state = DFL;		/* back to default next time */
-		 if(c == '\012'){	/* treat as single space?    */
-		     GF_PUTC(f->next, ' ');
-		     break;
-		 }
-		 /* fall thru to process c */
-
-	       case DFL   :
-	       default:
-		 if(c == '<')
-		   state = TOKEN;
-		 else if(c == '\015')
-		   state = CCR;
-		 else if(!f->f2)		/* not in comment! */
-		   GF_PUTC(f->next, c);
-
-		 break;
-	     }
-	 }
-
-	 f->f1 = state;
-	 GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	 if(f->f1 = (f->linep != f->line)){
-	     /* incomplete token!! */
-	     gf_error("Incomplete token in richtext");
-	     /* NO RETURN */
-	 }
-
-	 fs_give((void **)&(f->line));
-	 GF_FLUSH(f->next);
-	 (*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	 dprint(9, (debugfile, "-- gf_reset rich2plain\n"));
-	 f->f1 = DFL;			/* state */
-	 f->f2 = 0;			/* set means we're in a comment */
-	 f->linep = f->line = (char *)fs_get(45 * sizeof(char));
-    }
-}
-
-
-/*
- * function called from the outside to set
- * richtext filter's options
- */
-void *
-gf_rich2plain_opt(plain)
-    int plain;
-{
-    return((void *) plain);
-}
-
-
-
-/*
- * ENRICHED-TO-PLAIN text filter
- */
-
-#define	TEF_QUELL	0x01
-#define	TEF_NOFILL	0x02
-
-
-
-/*----------------------------------------------------------------------
-      enriched text to plain text filter (ala rfc1523)
-
- Args: f -- state and input data
-	flg --
-
-  This basically removes all enriched formatting. A cute hack is used
-  to get bold and underlining to work.
-
-  Further work could be done to handle things like centering and right
-  and left flush, but then it could no longer be done in place. This
-  operates on text *with* CRLF's.
-
-  WARNING: does not wrap lines!
- ----*/
-void
-gf_enriched2plain(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-/* BUG: qoute incoming \255 values */
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	 register unsigned char c;
-	 register int state = f->f1;
-
-	 while(GF_GETC(f, c)){
-
-	     switch(state){
-	       case TOKEN :		/* collect a richtext token */
-		 if(c == '>'){		/* what should we do with it? */
-		     int   off   = *f->line == '/';
-		     char *token = f->line + (off ? 1 : 0);
-		     state	= DFL;
-		     *f->linep   = '\0';
-		     if(!strcmp("param", token)){
-			 if(off)
-			   f->f2 &= ~TEF_QUELL;
-			 else
-			   f->f2 |= TEF_QUELL;
-		     }
-		     else if(!strcmp("nofill", token)){
-			 if(off)
-			   f->f2 &= ~TEF_NOFILL;
-			 else
-			   f->f2 |= TEF_NOFILL;
-		     }
-		     else if(!f->opt /* gf_enriched_plain */){
-			 /* Following is a cute hack or two to get
-			    bold and underline on the screen.
-			    See Putline0n() where these codes are
-			    interpreted */
-			 if(!strcmp("bold", token)) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, off ? TAG_BOLDOFF : TAG_BOLDON);
-			 } else if(!strcmp("italic", token)) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, off ? TAG_ULINEOFF : TAG_ULINEON);
-			 } else if(!strcmp("underline", token)) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, off ? TAG_ULINEOFF : TAG_ULINEON);
-			 }
-		     }
-		     /* else we just ignore the token! */
-
-		     f->linep = f->line;	/* reset token buffer */
-		 }
-		 else if(c == '<'){		/* literal '<'? */
-		     if(f->linep == f->line){
-			 GF_PUTC(f->next, '<');
-			 state = DFL;
-		     }
-		     else{
-			 fs_give((void **)&(f->line));
-			 gf_error("Malformed Enriched text: unexpected '<'");
-			 /* NO RETURN */
-		     }
-		 }
-		 else{			/* add char to token */
-		     if(f->linep - f->line > 60){ /* rfc1523 says 60 MAX! */
-			 fs_give((void **)&(f->line));
-			 gf_error("Malformed Enriched text: token too long");
-			 /* NO RETURN */
-		     }
-
-		     *(f->linep)++ = isupper((unsigned char)c) ? c-'A'+'a' : c;
-		 }
-		 break;
-
-	       case CCR   :
-		 if(c != '\012'){	/* treat as single space?    */
-		     state = DFL;	/* lone cr? */
-		     f->f2 &= ~TEF_QUELL;
-		     GF_PUTC(f->next, '\015');
-		     goto df;
-		 }
-
-		 state = CLF;
-		 break;
-
-	       case CLF   :
-		 if(c == '\015'){	/* treat as single space?    */
-		     state = CCR;	/* repeat crlf's mean real newlines */
-		     f->f2 |= TEF_QUELL;
-		     GF_PUTC(f->next, '\r');
-		     GF_PUTC(f->next, '\n');
-		     break;
-		 }
-		 else{
-		     state = DFL;
-		     if(!((f->f2) & TEF_QUELL))
-		       GF_PUTC(f->next, ' ');
-
-		     f->f2 &= ~TEF_QUELL;
-		 }
-
-		 /* fall thru to take care of 'c' */
-
-	       case DFL   :
-	       default :
-	       df :
-		 if(c == '<')
-		   state = TOKEN;
-		 else if(c == '\015' && (!((f->f2) & TEF_NOFILL)))
-		   state = CCR;
-		 else if(!((f->f2) & TEF_QUELL))
-		   GF_PUTC(f->next, c);
-
-		 break;
-	     }
-	 }
-
-	 f->f1 = state;
-	 GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	 if(f->f1 = (f->linep != f->line)){
-	     /* incomplete token!! */
-	     gf_error("Incomplete token in richtext");
-	     /* NO RETURN */
-	 }
-
-	 /* Make sure we end with a newline so everything gets flushed */
-	 GF_PUTC(f->next, '\015');
-	 GF_PUTC(f->next, '\012');
-
-	 fs_give((void **)&(f->line));
-
-	 GF_FLUSH(f->next);
-	 (*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	 dprint(9, (debugfile, "-- gf_reset enriched2plain\n"));
-	 f->f1 = DFL;			/* state */
-	 f->f2 = 0;			/* set means we're in a comment */
-	 f->linep = f->line = (char *)fs_get(65 * sizeof(char));
-    }
-}
-
-
-/*
- * function called from the outside to set
- * richtext filter's options
- */
-void *
-gf_enriched2plain_opt(plain)
-    int plain;
-{
-    return((void *) plain);
-}
-
-
-
-/*
- * HTML-TO-PLAIN text filter
- */
-
-
-/* OK, here's the plan:
-
- * a universal output function handles writing  chars and worries
- *    about wrapping.
-
- * a unversal element collector reads chars and collects params
- * and dispatches the appropriate element handler.
-
- * element handlers are stacked.  The most recently dispatched gets
- * first crack at the incoming character stream.  It passes bytes it's
- * done with or not interested in to the next
-
- * installs that handler as the current one collecting data...
-
- * stacked handlers take their params from the element collector and
- * accept chars or do whatever they need to do.  Sort of a vertical
- * piping? recursion-like? hmmm.
-
- * at least I think this is how it'll work. tres simple, non?
-
- */
-
-
-/*
- * Some important constants
- */
-#define	HTML_BUF_LEN	1024		/* max scratch buffer length */
-#define	MAX_ENTITY	20		/* maximum length of an entity */
-#define	MAX_ELEMENT	72		/* maximum length of an element */
-#define	HTML_BADVALUE	0x0100		/* good data, but bad entity value */
-#define	HTML_BADDATA	0x0200		/* bad data found looking for entity */
-#define	HTML_LITERAL	0x0400		/* Literal character value */
-#define	HTML_NEWLINE	0x010A		/* hard newline */
-#define	HTML_DOBOLD	0x0400		/* Start Bold display */
-#define	HTML_ID_GET	0		/* indent func: return current val */
-#define	HTML_ID_SET	1		/* indent func: set to absolute val */
-#define	HTML_ID_INC	2		/* indent func: increment by val */
-#define	HTML_HX_CENTER	0x0001
-#define	HTML_HX_ULINE	0x0002
-
-
-/*
- * Types used to manage HTML parsing
- */
-typedef int (*html_f) PROTO(());
-
-/*
- * Handler data, state information including function that uses it
- */
-typedef struct handler_s {
-    FILTER_S	     *html_data;
-    struct handler_s *below;
-    html_f	      f;
-    long	      x, y, z;
-    unsigned char    *s;
-} HANDLER_S;
-
-
-/*
- * to help manage line wrapping.
- */
-typedef	struct _wrap_line {
-    char *buf;				/* buf to collect wrapped text */
-    int	  used,				/* number of chars in buf */
-	   width,			/* text's width as displayed  */
-	   len;				/* length of allocated buf */
-} WRAPLINE_S;
-
-
-/*
- * to help manage centered text
- */
-typedef	struct _center_s {
-    WRAPLINE_S line;			/* buf to assembled centered text */
-    WRAPLINE_S word;			/* word being to append to Line */
-    int	       anchor;
-    short      embedded;
-    short      space;
-} CENTER_S;
-
-
-/*
- * Collector data and state information
- */
-typedef	struct collector_s {
-    char        buf[HTML_BUF_LEN];	/* buffer to collect data */
-    int		len;			/* length of that buffer  */
-    unsigned    end_tag:1;		/* collecting a closing tag */
-    unsigned    hit_equal:1;		/* collecting right half of attrib */
-    unsigned	mkup_decl:1;		/* markup declaration */
-    unsigned	start_comment:1;	/* markup declaration comment */
-    unsigned	end_comment:1;		/* legit comment format */
-    unsigned	hyphen:1;		/* markup hyphen read */
-    unsigned	badform:1;		/* malformed markup element */
-    unsigned	overrun:1;		/* Overran buf above */
-    char	quoted;			/* quoted element param value */
-    char       *element;		/* element's collected name */
-    PARAMETER  *attribs;		/* element's collected attributes */
-    PARAMETER  *cur_attrib;		/* attribute now being collected */
-} CLCTR_S;
-
-
-/*
- * State information for all element handlers
- */
-typedef struct html_data {
-    HANDLER_S  *h_stack;		/* handler list */
-    CLCTR_S    *el_data;		/* element collector data */
-    CENTER_S   *centered;		/* struct to manage centered text */
-    int	      (*token) PROTO((FILTER_S *, int));
-    char	quoted;			/* quoted, by either ' or ", text */
-    short	indent_level;		/* levels of indention */
-    int		in_anchor;		/* text now being written to anchor */
-    int		blanks;			/* Consecutive blank line count */
-    int		wrapcol;		/* column to wrap lines on */
-    int	       *prefix;			/* buffer containing Anchor prefix */
-    int		prefix_used;
-    COLOR_PAIR *color;
-    unsigned	wrapstate:1;		/* whether or not to wrap output */
-    unsigned	li_pending:1;		/* <LI> next token expected */
-    unsigned	de_pending:1;		/* <DT> or <DD> next token expected */
-    unsigned	bold_on:1;		/* currently bolding text */
-    unsigned	uline_on:1;		/* currently underlining text */
-    unsigned	center:1;		/* center output text */
-    unsigned	bitbucket:1;		/* Ignore input */
-    unsigned	head:1;			/* In doc's HEAD */
-    unsigned	alt_entity:1;		/* use alternative entity values */
-} HTML_DATA_S;
-
-
-/*
- * HTML filter options
- */
-typedef	struct _html_opts {
-    char      *base;			/* Base URL for this html file */
-    int	       columns;			/* Display columns */
-    unsigned   strip:1;			/* Hilite TAGs allowed */
-    unsigned   handles:1;		/* Anchors as handles requested? */
-    unsigned   handles_loc:1;		/* Local handles requested? */
-} HTML_OPT_S;
-
-
-/*
- * Some macros to make life a little easier
- */
-#define	WRAP_COLS(X)	((X)->opt ? ((HTML_OPT_S *)(X)->opt)->columns : 80)
-#define	HTML_BASE(X)	((X)->opt ? ((HTML_OPT_S *)(X)->opt)->base : NULL)
-#define	STRIP(X)	((X)->opt && ((HTML_OPT_S *)(X)->opt)->strip)
-#define	HANDLES(X)	((X)->opt && ((HTML_OPT_S *)(X)->opt)->handles)
-#define	HANDLES_LOC(X)	((X)->opt && ((HTML_OPT_S *)(X)->opt)->handles_loc)
-#define	MAKE_LITERAL(C)	(HTML_LITERAL | ((C) & 0xff))
-#define	IS_LITERAL(C)	(HTML_LITERAL & (C))
-#define	HD(X)		((HTML_DATA_S *)(X)->data)
-#define	ED(X)		(HD(X)->el_data)
-#define	HTML_ISSPACE(C)	(IS_LITERAL(C) == 0 && isspace((unsigned char) (C)))
-#define	NEW_CLCTR(X)	{						\
-			   ED(X) = (CLCTR_S *)fs_get(sizeof(CLCTR_S));  \
-			   memset(ED(X), 0, sizeof(CLCTR_S));	\
-			   HD(X)->token = html_element_collector;	\
-			 }
-
-#define	FREE_CLCTR(X)	{						\
-			   if(ED(X)->attribs){				\
-			       PARAMETER *p;				\
-			       while(p = ED(X)->attribs){		\
-				   ED(X)->attribs = ED(X)->attribs->next; \
-				   if(p->attribute)			\
-				     fs_give((void **)&p->attribute);	\
-				   if(p->value)				\
-				     fs_give((void **)&p->value);	\
-				   fs_give((void **)&p);		\
-			       }					\
-			   }						\
-			   if(ED(X)->element)				\
-			     fs_give((void **) &ED(X)->element);	\
-			   fs_give((void **) &ED(X));			\
-			   HD(X)->token = NULL;				\
-			 }
-#define	HANDLERS(X)	(HD(X)->h_stack)
-#define	BOLD_BIT(X)	(HD(X)->bold_on)
-#define	ULINE_BIT(X)	(HD(X)->uline_on)
-#define	CENTER_BIT(X)	(HD(X)->center)
-#define	HTML_FLUSH(X)	{						    \
-			   html_write(X, (X)->line, (X)->linep - (X)->line); \
-			   (X)->linep = (X)->line;			    \
-			   (X)->f2 = 0L;				    \
-			 }
-#define	HTML_BOLD(X, S) if(! STRIP(X)){					\
-			   if(S){					\
-			       html_output((X), TAG_EMBED);		\
-			       html_output((X), TAG_BOLDON);		\
-			   }						\
-			   else if(!(S)){				\
-			       html_output((X), TAG_EMBED);		\
-			       html_output((X), TAG_BOLDOFF);		\
-			   }						\
-			 }
-#define	HTML_ULINE(X, S)						\
-			 if(! STRIP(X)){				\
-			   if(S){					\
-			       html_output((X), TAG_EMBED);		\
-			       html_output((X), TAG_ULINEON);		\
-			   }						\
-			   else if(!(S)){				\
-			       html_output((X), TAG_EMBED);		\
-			       html_output((X), TAG_ULINEOFF);		\
-			   }						\
-			 }
-#define WRAPPED_LEN(X)	((HD(f)->centered) \
-			    ? (HD(f)->centered->line.width \
-				+ HD(f)->centered->word.width \
-				+ ((HD(f)->centered->line.width \
-				    && HD(f)->centered->word.width) \
-				    ? 1 : 0)) \
-			    : 0)
-#define	HTML_DUMP_LIT(F, S, L)	{					    \
-				   int i, c;				    \
-				   for(i = 0; i < (L); i++){		    \
-				       c = isspace((S)[i])		    \
-					     ? (S)[i]			    \
-					     : MAKE_LITERAL((S)[i]);	    \
-				       HTML_TEXT(F, c);			    \
-				   }					    \
-				 }
-#define	HTML_PROC(F, C) {						    \
-			   if(HD(F)->token){				    \
-			       int i;					    \
-			       if(i = (*(HD(F)->token))(F, C)){		    \
-				   if(i < 0){				    \
-				       HTML_DUMP_LIT(F, "<", 1);	    \
-				       if(HD(F)->el_data->element){	    \
-					   HTML_DUMP_LIT(F,		    \
-					    HD(F)->el_data->element,	    \
-					    strlen(HD(F)->el_data->element));\
-				       }				    \
-				       if(HD(F)->el_data->len){		    \
-					   HTML_DUMP_LIT(F,		    \
-						    HD(F)->el_data->buf,    \
-						    HD(F)->el_data->len);   \
-				       }				    \
-				       HTML_TEXT(F, C);			    \
-				   }					    \
-				   FREE_CLCTR(F);			    \
-			       }					    \
-			    }						    \
-			    else if((C) == '<'){			    \
-				NEW_CLCTR(F);				    \
-			    }						    \
-			    else					    \
-			      HTML_TEXT(F, C);				    \
-			  }
-#define	HTML_TEXT(F, C)	switch((F)->f1){				    \
-			     case WSPACE :				    \
-			       if(HTML_ISSPACE(C)) /* ignore repeated WS */  \
-				 break;					    \
-			       HTML_TEXT_OUT(F, ' ');	    \
-			       (F)->f1 = DFL;/* stop sending chars here */   \
-			       /* fall thru to process 'c' */		    \
-			     case DFL:					    \
-			       if(HD(F)->bitbucket)			    \
-				 (F)->f1 = DFL;	/* no op */		    \
-			       else if(HTML_ISSPACE(C) && HD(F)->wrapstate)  \
-				 (F)->f1 = WSPACE;/* coalesce white space */ \
-			       else HTML_TEXT_OUT(F, C);		    \
-			       break;					    \
-			 }
-#define	HTML_TEXT_OUT(F, C) if(HANDLERS(F)) /* let handlers see C */	    \
-			       (*HANDLERS(F)->f)(HANDLERS(F),(C),GF_DATA);   \
-			     else					    \
-			       html_output(F, C);
-#ifdef	DEBUG
-#define	HTML_DEBUG_EL(S, D)   {						    \
-				 dprint(2, (debugfile, "-- html %s: %s\n",  \
-					    S, (D)->element		    \
-						 ? (D)->element : "NULL")); \
-				 if(debug > 5){				    \
-				     PARAMETER *p;			    \
-				     for(p = (D)->attribs;		    \
-					 p && p->attribute;		    \
-					 p = p->next)			    \
-				       dprint(6, (debugfile,		    \
-						  " PARM: %s%s%s\n",	    \
-						  p->attribute		    \
-						    ? p->attribute : "NULL",\
-						  p->value ? "=" : "",	    \
-						  p->value ? p->value : ""));\
-				 }					    \
-			       }
-#else
-#define	HTML_DEBUG_EL(S, D)
-#endif
-
-
-/*
- * Protos for Tag handlers
- */
-int	html_head PROTO((HANDLER_S *, int, int));
-int	html_base PROTO((HANDLER_S *, int, int));
-int	html_title PROTO((HANDLER_S *, int, int));
-int	html_a PROTO((HANDLER_S *, int, int));
-int	html_br PROTO((HANDLER_S *, int, int));
-int	html_hr PROTO((HANDLER_S *, int, int));
-int	html_p PROTO((HANDLER_S *, int, int));
-int	html_tr PROTO((HANDLER_S *, int, int));
-int	html_td PROTO((HANDLER_S *, int, int));
-int	html_b PROTO((HANDLER_S *, int, int));
-int	html_i PROTO((HANDLER_S *, int, int));
-int	html_img PROTO((HANDLER_S *, int, int));
-int	html_form PROTO((HANDLER_S *, int, int));
-int	html_ul PROTO((HANDLER_S *, int, int));
-int	html_ol PROTO((HANDLER_S *, int, int));
-int	html_menu PROTO((HANDLER_S *, int, int));
-int	html_dir PROTO((HANDLER_S *, int, int));
-int	html_li PROTO((HANDLER_S *, int, int));
-int	html_h1 PROTO((HANDLER_S *, int, int));
-int	html_h2 PROTO((HANDLER_S *, int, int));
-int	html_h3 PROTO((HANDLER_S *, int, int));
-int	html_h4 PROTO((HANDLER_S *, int, int));
-int	html_h5 PROTO((HANDLER_S *, int, int));
-int	html_h6 PROTO((HANDLER_S *, int, int));
-int	html_blockquote PROTO((HANDLER_S *, int, int));
-int	html_address PROTO((HANDLER_S *, int, int));
-int	html_pre PROTO((HANDLER_S *, int, int));
-int	html_center PROTO((HANDLER_S *, int, int));
-int	html_div PROTO((HANDLER_S *, int, int));
-int	html_dl PROTO((HANDLER_S *, int, int));
-int	html_dt PROTO((HANDLER_S *, int, int));
-int	html_dd PROTO((HANDLER_S *, int, int));
-
-/*
- * Proto's for support routines
- */
-void	html_pop PROTO((FILTER_S *, html_f));
-void	html_push PROTO((FILTER_S *, html_f));
-int	html_element_collector PROTO((FILTER_S *, int));
-int	html_element_flush PROTO((CLCTR_S *));
-void	html_element_comment PROTO((FILTER_S *, char *));
-void	html_element_output PROTO((FILTER_S *, int));
-int	html_entity_collector PROTO((FILTER_S *, int, char **));
-void	html_a_prefix PROTO((FILTER_S *));
-void	html_a_finish PROTO((HANDLER_S *));
-void	html_a_output_prefix PROTO((FILTER_S *, int));
-void	html_a_relative PROTO((char *, char *, HANDLE_S *));
-int	html_indent PROTO((FILTER_S *, int, int));
-void	html_blank PROTO((FILTER_S *, int));
-void	html_newline PROTO((FILTER_S *));
-void	html_output PROTO((FILTER_S *, int));
-void	html_output_flush PROTO((FILTER_S *));
-void	html_output_centered PROTO((FILTER_S *, int));
-void	html_centered_handle PROTO((int *, char *, int));
-void	html_centered_putc PROTO((WRAPLINE_S *, int));
-void	html_centered_flush PROTO((FILTER_S *));
-void	html_centered_flush_line PROTO((FILTER_S *));
-void	html_write_anchor PROTO((FILTER_S *, int));
-void	html_write_newline PROTO((FILTER_S *));
-void	html_write_indent PROTO((FILTER_S *, int));
-void	html_write PROTO((FILTER_S *, char *, int));
-void	html_putc PROTO((FILTER_S *, int));
-
-
-/*
- * Named entity table -- most from HTML 2.0 (rfc1866) plus some from
- *			 W3C doc "Additional named entities for HTML"
- */
-static struct html_entities {
-    char *name;			/* entity name */
-    unsigned char value;	/* entity value */
-    char  *plain;		/* plain text representation */
-} entity_tab[] = {
-    {"quot",	042},		/* Double quote sign */
-    {"amp",	046},		/* Ampersand */
-    {"bull",	052},		/* Bullet */
-    {"ndash",	055},		/* Dash */
-    {"mdash",	055},		/* Dash */
-    {"lt",	074},		/* Less than sign */
-    {"gt",	076},		/* Greater than sign */
-    {"nbsp",	0240, " "},	/* no-break space */
-    {"iexcl",	0241},		/* inverted exclamation mark */
-    {"cent",	0242},		/* cent sign */
-    {"pound",	0243},		/* pound sterling sign */
-    {"curren",	0244, "CUR"},	/* general currency sign */
-    {"yen",	0245},		/* yen sign */
-    {"brvbar",	0246, "|"},	/* broken (vertical) bar */
-    {"sect",	0247},		/* section sign */
-    {"uml",	0250, "\""},		/* umlaut (dieresis) */
-    {"copy",	0251, "(C)"},	/* copyright sign */
-    {"ordf",	0252, "a"},	/* ordinal indicator, feminine */
-    {"laquo",	0253, "<<"},	/* angle quotation mark, left */
-    {"not",	0254, "NOT"},	/* not sign */
-    {"shy",	0255, "-"},	/* soft hyphen */
-    {"reg",	0256, "(R)"},	/* registered sign */
-    {"macr",	0257},		/* macron */
-    {"deg",	0260, "DEG"},	/* degree sign */
-    {"plusmn",	0261, "+/-"},	/* plus-or-minus sign */
-    {"sup2",	0262},		/* superscript two */
-    {"sup3",	0263},		/* superscript three */
-    {"acute",	0264, "'"},	/* acute accent */
-    {"micro",	0265},		/* micro sign */
-    {"para",	0266},		/* pilcrow (paragraph sign) */
-    {"middot",	0267},		/* middle dot */
-    {"cedil",	0270},		/* cedilla */
-    {"sup1",	0271},		/* superscript one */
-    {"ordm",	0272, "o"},	/* ordinal indicator, masculine */
-    {"raquo",	0273, ">>"},	/* angle quotation mark, right */
-    {"frac14",	0274, " 1/4"},	/* fraction one-quarter */
-    {"frac12",	0275, " 1/2"},	/* fraction one-half */
-    {"frac34",	0276, " 3/4"},	/* fraction three-quarters */
-    {"iquest",	0277},		/* inverted question mark */
-    {"Agrave",	0300, "A"},	/* capital A, grave accent */
-    {"Aacute",	0301, "A"},	/* capital A, acute accent */
-    {"Acirc",	0302, "A"},	/* capital A, circumflex accent */
-    {"Atilde",	0303, "A"},	/* capital A, tilde */
-    {"Auml",	0304, "AE"},	/* capital A, dieresis or umlaut mark */
-    {"Aring",	0305, "A"},	/* capital A, ring */
-    {"AElig",	0306, "AE"},	/* capital AE diphthong (ligature) */
-    {"Ccedil",	0307, "C"},	/* capital C, cedilla */
-    {"Egrave",	0310, "E"},	/* capital E, grave accent */
-    {"Eacute",	0311, "E"},	/* capital E, acute accent */
-    {"Ecirc",	0312, "E"},	/* capital E, circumflex accent */
-    {"Euml",	0313, "E"},	/* capital E, dieresis or umlaut mark */
-    {"Igrave",	0314, "I"},	/* capital I, grave accent */
-    {"Iacute",	0315, "I"},	/* capital I, acute accent */
-    {"Icirc",	0316, "I"},	/* capital I, circumflex accent */
-    {"Iuml",	0317, "I"},	/* capital I, dieresis or umlaut mark */
-    {"ETH",	0320, "DH"},	/* capital Eth, Icelandic */
-    {"Ntilde",	0321, "N"},	/* capital N, tilde */
-    {"Ograve",	0322, "O"},	/* capital O, grave accent */
-    {"Oacute",	0323, "O"},	/* capital O, acute accent */
-    {"Ocirc",	0324, "O"},	/* capital O, circumflex accent */
-    {"Otilde",	0325, "O"},	/* capital O, tilde */
-    {"Ouml",	0326, "OE"},	/* capital O, dieresis or umlaut mark */
-    {"times",	0327, "x"},	/* multiply sign */
-    {"Oslash",	0330, "O"},	/* capital O, slash */
-    {"Ugrave",	0331, "U"},	/* capital U, grave accent */
-    {"Uacute",	0332, "U"},	/* capital U, acute accent */
-    {"Ucirc",	0333, "U"},	/* capital U, circumflex accent */
-    {"Uuml",	0334, "UE"},	/* capital U, dieresis or umlaut mark */
-    {"Yacute",	0335, "Y"},	/* capital Y, acute accent */
-    {"THORN",	0336, "P"},	/* capital THORN, Icelandic */
-    {"szlig",	0337, "ss"},	/* small sharp s, German (sz ligature) */
-    {"agrave",	0340, "a"},	/* small a, grave accent */
-    {"aacute",	0341, "a"},	/* small a, acute accent */
-    {"acirc",	0342, "a"},	/* small a, circumflex accent */
-    {"atilde",	0343, "a"},	/* small a, tilde */
-    {"auml",	0344, "ae"},	/* small a, dieresis or umlaut mark */
-    {"aring",	0345, "a"},	/* small a, ring */
-    {"aelig",	0346, "ae"},	/* small ae diphthong (ligature) */
-    {"ccedil",	0347, "c"},	/* small c, cedilla */
-    {"egrave",	0350, "e"},	/* small e, grave accent */
-    {"eacute",	0351, "e"},	/* small e, acute accent */
-    {"ecirc",	0352, "e"},	/* small e, circumflex accent */
-    {"euml",	0353, "e"},	/* small e, dieresis or umlaut mark */
-    {"igrave",	0354, "i"},	/* small i, grave accent */
-    {"iacute",	0355, "i"},	/* small i, acute accent */
-    {"icirc",	0356, "i"},	/* small i, circumflex accent */
-    {"iuml",	0357, "i"},	/* small i, dieresis or umlaut mark */
-    {"eth",	0360, "dh"},	/* small eth, Icelandic */
-    {"ntilde",	0361, "n"},	/* small n, tilde */
-    {"ograve",	0362, "o"},	/* small o, grave accent */
-    {"oacute",	0363, "o"},	/* small o, acute accent */
-    {"ocirc",	0364, "o"},	/* small o, circumflex accent */
-    {"otilde",	0365, "o"},	/* small o, tilde */
-    {"ouml",	0366, "oe"},	/* small o, dieresis or umlaut mark */
-    {"divide",	0367, "/"},	/* divide sign */
-    {"oslash",	0370, "o"},	/* small o, slash */
-    {"ugrave",	0371, "u"},	/* small u, grave accent */
-    {"uacute",	0372, "u"},	/* small u, acute accent */
-    {"ucirc",	0373, "u"},	/* small u, circumflex accent */
-    {"uuml",	0374, "ue"},	/* small u, dieresis or umlaut mark */
-    {"yacute",	0375, "y"},	/* small y, acute accent */
-    {"thorn",	0376, "p"},	/* small thorn, Icelandic */
-    {"yuml",	0377, "y"},	/* small y, dieresis or umlaut mark */
-    {NULL,	0}
-};
-
-
-/*
- * Table of supported elements and corresponding handlers
- */
-static struct element_table {
-    char      *element;
-    int	     (*handler) PROTO(());
-} element_table[] = {
-    {"HTML",		NULL},			/* HTML ignore if seen? */
-    {"HEAD",		html_head},		/* slurp until <BODY> ? */
-    {"TITLE",		html_title},		/* Document Title */
-    {"BASE",		html_base},		/* HREF base */
-    {"BODY",		NULL},			/* (NO OP) */
-    {"A",		html_a},		/* Anchor */
-    {"IMG",		html_img},		/* Image */
-    {"HR",		html_hr},		/* Horizontal Rule */
-    {"BR",		html_br},		/* Line Break */
-    {"P",		html_p},		/* Paragraph */
-    {"OL",		html_ol},		/* Ordered List */
-    {"UL",		html_ul},		/* Unordered List */
-    {"MENU",		html_menu},		/* Menu List */
-    {"DIR",		html_dir},		/* Directory List */
-    {"LI",		html_li},		/*  ... List Item */
-    {"DL",		html_dl},		/* Definition List */
-    {"DT",		html_dt},		/*  ... Def. Term */
-    {"DD",		html_dd},		/*  ... Def. Definition */
-    {"I",		html_i},		/* Italic Text */
-    {"EM",		html_i},		/* Typographic Emphasis */
-    {"STRONG",		html_i},		/* STRONG Typo Emphasis */
-    {"VAR",		html_i},		/* Variable Name */
-    {"B",		html_b},		/* Bold Text */
-    {"BLOCKQUOTE", 	html_blockquote}, 	/* Blockquote */
-    {"ADDRESS",		html_address},		/* Address */
-    {"CENTER",		html_center},		/* Centered Text v3.2 */
-    {"DIV",		html_div},		/* Document Division 3.2 */
-    {"H1",		html_h1},		/* Headings... */
-    {"H2",		html_h2},
-    {"H3",		html_h3},
-    {"H4",		html_h4},
-    {"H5",		html_h5},
-    {"H6",		html_h6},
-    {"PRE",		html_pre},		/* Preformatted Text */
-    {"KBD",		NULL},			/* Keyboard Input (NO OP) */
-    {"TT",		NULL},			/* Typetype (NO OP) */
-    {"SAMP",		NULL},			/* Sample Text (NO OP) */
-
-/*----- Handlers below are NOT DONE OR CHECKED OUT YET -----*/
-
-    {"CITE",		NULL},			/* Citation */
-    {"CODE",		NULL},			/* Code Text */
-
-/*----- Handlers below UNIMPLEMENTED (and won't until later) -----*/
-
-    {"FORM",		html_form},		/* form within a document */
-    {"INPUT",		NULL},			/* One input field, options */
-    {"OPTION",		NULL},			/* One option within Select */
-    {"SELECT",		NULL},			/* Selection from a set */
-    {"TEXTAREA",	NULL},			/* A multi-line input field */
-
-/*----- Handlers below provide limited support for RFC 1942 Tables -----*/
-
-    {"CAPTION",	html_center},		/* Table Caption */
-    {"TR",		html_tr},		/* Table Table Row */
-    {"TD",		html_td},		/* Table Table Data */
-
-    {NULL,		NULL}
-};
-
-
-
-/*
- * Initialize the given handler, and add it to the stack if it
- * requests it.
- */
-void
-html_push(fd, hf)
-    FILTER_S *fd;
-    html_f    hf;
-{
-    HANDLER_S *new;
-
-    new = (HANDLER_S *)fs_get(sizeof(HANDLER_S));
-    memset(new, 0, sizeof(HANDLER_S));
-    new->html_data = fd;
-    new->f	   = hf;
-    if((*hf)(new, 0, GF_RESET)){	/* stack the handler? */
-	 new->below   = HANDLERS(fd);
-	 HANDLERS(fd) = new;		/* push */
-    }
-    else
-      fs_give((void **) &new);
-}
-
-
-/*
- * Remove the most recently installed the given handler
- * after letting it accept its demise.
- */
-void
-html_pop(fd, hf)
-    FILTER_S *fd;
-    html_f    hf;
-{
-    HANDLER_S *tp;
-
-    for(tp = HANDLERS(fd); tp && hf != tp->f; tp = tp->below)
-      ;
-
-    if(tp){
-	(*tp->f)(tp, 0, GF_EOD);	/* may adjust handler list */
-	if(tp != HANDLERS(fd)){
-	    HANDLER_S *p;
-
-	    for(p = HANDLERS(fd); p->below != tp; p = p->below)
-	      ;
-
-	    if(p)
-	      p->below = tp->below;	/* remove from middle of stack */
-	    /* BUG: else programming botch and we should die */
-	}
-	else
-	  HANDLERS(fd) = tp->below;	/* pop */
-
-	fs_give((void **)&tp);
-    }
-    else if(hf == html_p || hf == html_li || hf == html_dt || hf == html_dd){
-	/*
-	 * Possible "special case" tag handling here.
-	 * It's for such tags as Paragraph (`</P>'), List Item
-	 * (`</LI>'), Definition Term (`</DT>'), and Definition Description
-	 * (`</DD>') elements, which may be omitted...
-	 */
-	HANDLER_S hd;
-
-	memset(&hd, 0, sizeof(HANDLER_S));
-	hd.html_data = fd;
-	hd.f	     = hf;
-
-	(*hf)(&hd, 0, GF_EOD);
-    }
-    /* BUG: else, we should bitch */
-}
-
-
-/*
- * Deal with data passed a hander in its GF_DATA state
- */
-html_handoff(hd, ch)
-    HANDLER_S *hd;
-    int	       ch;
-{
-    if(hd->below)
-      (*hd->below->f)(hd->below, ch, GF_DATA);
-    else
-      html_output(hd->html_data, ch);
-}
-
-
-/*
- * HTML <BR> element handler
- */
-int
-html_br(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET)
-      html_output(hd->html_data, HTML_NEWLINE);
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <HR> (Horizontal Rule) element handler
- */
-int
-html_hr(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	int	   i, old_wrap, width, align;
-	PARAMETER *p;
-
-	width = WRAP_COLS(hd->html_data);
-	align = 0;
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(p->value){
-	      if(!strucmp(p->attribute, "ALIGN")){
-		  if(!strucmp(p->value, "LEFT"))
-		    align = 1;
-		  else if(!strucmp(p->value, "RIGHT"))
-		    align = 2;
-	      }
-	      else if(!strucmp(p->attribute, "WIDTH")){
-		  char *cp;
-
-		  width = 0;
-		  for(cp = p->value; *cp; cp++)
-		    if(*cp == '%'){
-			width = (WRAP_COLS(hd->html_data)*min(100,width))/100;
-			break;
-		    }
-		    else if(isdigit((unsigned char) *cp))
-		      width = (width * 10) + (*cp - '0');
-
-		  width = min(width, WRAP_COLS(hd->html_data));
-	      }
-	  }
-
-	html_blank(hd->html_data, 1);	/* at least one blank line */
-
-	old_wrap = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	if((i = max(0, WRAP_COLS(hd->html_data) - width))
-	   && ((align == 0) ? i /= 2 : (align == 2)))
-	  for(; i > 0; i--)
-	    html_output(hd->html_data, ' ');
-
-	for(i = 0; i < width; i++)
-	  html_output(hd->html_data, '_');
-
-	html_blank(hd->html_data, 1);
-	HD(hd->html_data)->wrapstate = old_wrap;
-    }
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <P> (paragraph) element handler
- */
-int
-html_p(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	/* Make sure there's at least 1 blank line */
-	html_blank(hd->html_data, 1);
-
-	/* adjust indent level if needed */
-	if(HD(hd->html_data)->li_pending){
-	    html_indent(hd->html_data, 4, HTML_ID_INC);
-	    HD(hd->html_data)->li_pending = 0;
-	}
-    }
-    else if(cmd == GF_EOD)
-      /* Make sure there's at least 1 blank line */
-      html_blank(hd->html_data, 1);
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML Table <TR> (paragraph) table row
- */
-int
-html_tr(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET || cmd == GF_EOD)
-      /* Make sure there's at least 1 blank line */
-      html_blank(hd->html_data, 0);
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML Table <TD> (paragraph) table data
- */
-int
-html_td(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	PARAMETER *p;
-
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "nowrap")
-	     && (hd->html_data->f2 || hd->html_data->n)){
-	      HTML_DUMP_LIT(hd->html_data, " | ", 3);
-	      break;
-	  }
-    }
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <I> (italic text) element handler
- */
-int
-html_i(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	/* include LITERAL in spaceness test! */
-	if(hd->x && !isspace((unsigned char) (ch & 0xff))){
-	    HTML_ULINE(hd->html_data, 1);
-	    hd->x = 0;
-	}
-
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	hd->x = 1;
-    }
-    else if(cmd == GF_EOD){
-	if(!hd->x)
-	  HTML_ULINE(hd->html_data, 0);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <b> (Bold text) element handler
- */
-int
-html_b(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	/* include LITERAL in spaceness test! */
-	if(hd->x && !isspace((unsigned char) (ch & 0xff))){
-	    HTML_ULINE(hd->html_data, 1);
-	    hd->x = 0;
-	}
-
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	hd->x = 1;
-    }
-    else if(cmd == GF_EOD){
-	if(!hd->x)
-	  HTML_ULINE(hd->html_data, 0);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <IMG> element handler
- */
-int
-html_img(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	PARAMETER *p;
-	char	  *s = NULL;
-
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "alt")){
-	      if(p->value && p->value[0]){
-		  HTML_DUMP_LIT(hd->html_data, p->value, strlen(p->value));
-		  HTML_TEXT(hd->html_data, ' ');
-	      }
-
-	      return(0);
-	  }
-
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "src") && p->value)
-	    if((s = strrindex(p->value, '/')) && *++s != '\0'){
-		HTML_TEXT(hd->html_data, '[');
-		HTML_DUMP_LIT(hd->html_data, s, strlen(s));
-		HTML_TEXT(hd->html_data, ']');
-		HTML_TEXT(hd->html_data, ' ');
-		return(0);
-	    }
-
-	HTML_DUMP_LIT(hd->html_data, "[IMAGE] ", 7);
-    }
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <FORM> (Form) element handler
- */
-int
-html_form(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	char *p;
-
-	html_blank(hd->html_data, 0);
-
-	HTML_DUMP_LIT(hd->html_data, "[FORM]", 6);
-
-	html_blank(hd->html_data, 0);
-    }
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <HEAD> element handler
- */
-int
-html_head(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	HD(hd->html_data)->head = 1;
-    }
-    else if(cmd == GF_EOD){
-	HD(hd->html_data)->head = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <BASE> element handler
- */
-int
-html_base(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	if(HD(hd->html_data)->head && !HTML_BASE(hd->html_data)){
-	    PARAMETER *p;
-
-	    for(p = HD(hd->html_data)->el_data->attribs;
-		p && p->attribute && strucmp(p->attribute, "HREF");
-		p = p->next)
-	      ;
-
-	    if(p && p->value && !((HTML_OPT_S *)(hd->html_data)->opt)->base)
-	      ((HTML_OPT_S *)(hd->html_data)->opt)->base = cpystr(p->value);
-	}
-    }
-
-    return(0);				/* DON'T get linked */
-}
-
-
-/*
- * HTML <TITLE> element handler
- */
-int
-html_title(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	if(hd->x + 1 >= hd->y){
-	    hd->y += 80;
-	    fs_resize((void **)&hd->s, (size_t)hd->y * sizeof(unsigned char));
-	}
-
-	hd->s[hd->x++] = (unsigned char) ch;
-    }
-    else if(cmd == GF_RESET){
-	hd->x = 0L;
-	hd->y = 80L;
-	hd->s = (unsigned char *)fs_get((size_t)hd->y * sizeof(unsigned char));
-    }
-    else if(cmd == GF_EOD){
-	/* Down the road we probably want to give these bytes to
-	 * someone...
-	 */
-	hd->s[hd->x] = '\0';
-	fs_give((void **)&hd->s);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <A> (Anchor) element handler
- */
-int
-html_a(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	int	   i, n, x;
-	char	   buf[256];
-	HANDLE_S  *h;
-	PARAMETER *p, *href = NULL, *name = NULL;
-
-	/*
-	 * Pending Anchor!?!?
-	 * space insertion/line breaking that's yet to get done...
-	 */
-	if(HD(hd->html_data)->prefix){
-	    dprint(1, (debugfile, "-- html_a: NESTED/UNTERMINATED ANCHOR!\n"));
-	    html_a_finish(hd);
-	}
-
-	/*
-	 * Look for valid Anchor data vis the filter installer's parms
-	 * (e.g., Only allow references to our internal URLs if asked)
-	 */
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "HREF")
-	     && p->value
-	     && (HANDLES_LOC(hd->html_data)
-		 || struncmp(p->value, "x-pine-", 7)))
-	    href = p;
-	  else if(!strucmp(p->attribute, "NAME"))
-	    name = p;
-
-	if(HANDLES(hd->html_data) && (href || name)){
-	    h = new_handle();
-
-	    /*
-	     * Enhancement: we might want to get fancier and parse the
-	     * href a bit further such that we can launch images using
-	     * our image viewer, or browse local files or directories
-	     * with our internal tools.  Of course, having the jump-off
-	     * point into text/html always be the defined "web-browser",
-	     * just might be the least confusing UI-wise...
-	     */
-	    h->type = URL;
-
-	    if(name && name->value)
-	      h->h.url.name = cpystr(name->value);
-
-	    /*
-	     * Prepare to build embedded prefix...
-	     */
-	    HD(hd->html_data)->prefix = (int *) fs_get(64 * sizeof(int));
-	    x = 0;
-
-	    /*
-	     * Is this something that looks like a URL?  If not and
-	     * we were giving some "base" string, proceed ala RFC1808...
-	     */
-	    if(href){
-		if(HTML_BASE(hd->html_data) && !rfc1738_scan(href->value, &n))
-		  html_a_relative(HTML_BASE(hd->html_data), href->value, h);
-		else
-		  h->h.url.path = cpystr(href->value);
-
-		if(pico_usingcolor()){
-		    char *fg = NULL, *bg = NULL, *q;
-
-		    if(ps_global->VAR_SLCTBL_FORE_COLOR
-		       && colorcmp(ps_global->VAR_SLCTBL_FORE_COLOR,
-				   ps_global->VAR_NORM_FORE_COLOR))
-		      fg = ps_global->VAR_SLCTBL_FORE_COLOR;
-
-		    if(ps_global->VAR_SLCTBL_BACK_COLOR
-		       && colorcmp(ps_global->VAR_SLCTBL_BACK_COLOR,
-				   ps_global->VAR_NORM_BACK_COLOR))
-		      bg = ps_global->VAR_SLCTBL_BACK_COLOR;
-
-		    if(fg || bg){
-			COLOR_PAIR *tmp;
-
-			/*
-			 * The blacks are just known good colors for testing
-			 * whether the other color is good.
-			 */
-			tmp = new_color_pair(fg ? fg : colorx(COL_BLACK),
-					     bg ? bg : colorx(COL_BLACK));
-			if(pico_is_good_colorpair(tmp)){
-			    q = color_embed(fg, bg);
-
-			    for(i = 0; q[i]; i++)
-			      HD(hd->html_data)->prefix[x++] = q[i];
-			}
-
-			if(tmp)
-			  free_color_pair(&tmp);
-		    }
-
-		    if(F_OFF(F_SLCTBL_ITEM_NOBOLD, ps_global))
-		      HD(hd->html_data)->prefix[x++] = HTML_DOBOLD;
-		}
-		else
-		  HD(hd->html_data)->prefix[x++] = HTML_DOBOLD;
-	    }
-
-	    HD(hd->html_data)->prefix[x++] = TAG_EMBED;
-	    HD(hd->html_data)->prefix[x++] = TAG_HANDLE;
-
-	    sprintf(buf, "%d", h->key);
-	    HD(hd->html_data)->prefix[x++] = n = strlen(buf);
-	    for(i = 0; i < n; i++)
-	      HD(hd->html_data)->prefix[x++] = buf[i];
-
-	    HD(hd->html_data)->prefix_used = x;
-	}
-    }
-    else if(cmd == GF_EOD){
-	html_a_finish(hd);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-void
-html_a_prefix(f)
-    FILTER_S *f;
-{
-    int *prefix, n;
-
-    /* Do this so we don't visit from html_output... */
-    prefix = HD(f)->prefix;
-    HD(f)->prefix = NULL;
-
-    for(n = 0; n < HD(f)->prefix_used; n++)
-      html_a_output_prefix(f, prefix[n]);
-
-    fs_give((void **) &prefix);
-}
-
-
-/*
- * html_a_finish - house keeping associated with end of link tag
- */
-void
-html_a_finish(hd)
-    HANDLER_S *hd;
-{
-    if(HANDLES(hd->html_data)){
-	if(HD(hd->html_data)->prefix)
-	  html_a_prefix(hd->html_data);
-
-	if(pico_usingcolor()){
-	    char *fg = NULL, *bg = NULL, *p;
-	    int   i;
-
-	    if(ps_global->VAR_SLCTBL_FORE_COLOR
-	       && colorcmp(ps_global->VAR_SLCTBL_FORE_COLOR,
-			   ps_global->VAR_NORM_FORE_COLOR))
-	      fg = ps_global->VAR_NORM_FORE_COLOR;
-
-	    if(ps_global->VAR_SLCTBL_BACK_COLOR
-	       && colorcmp(ps_global->VAR_SLCTBL_BACK_COLOR,
-			   ps_global->VAR_NORM_BACK_COLOR))
-	      bg = ps_global->VAR_NORM_BACK_COLOR;
-
-	    if(F_OFF(F_SLCTBL_ITEM_NOBOLD, ps_global))
-	      HTML_BOLD(hd->html_data, 0);	/* turn OFF bold */
-
-	    if(fg || bg){
-		COLOR_PAIR *tmp;
-
-		/*
-		 * The blacks are just known good colors for testing
-		 * whether the other color is good.
-		 */
-		tmp = new_color_pair(fg ? fg : colorx(COL_BLACK),
-				     bg ? bg : colorx(COL_BLACK));
-		if(pico_is_good_colorpair(tmp)){
-		    p = color_embed(fg, bg);
-
-		    for(i = 0; p[i]; i++)
-		      html_output(hd->html_data, p[i]);
-		}
-
-		if(tmp)
-		  free_color_pair(&tmp);
-	    }
-	}
-	else
-	  HTML_BOLD(hd->html_data, 0);	/* turn OFF bold */
-
-	html_output(hd->html_data, TAG_EMBED);
-	html_output(hd->html_data, TAG_HANDLEOFF);
-    }
-}
-
-
-/*
- * html_output_a_prefix - dump Anchor prefix data
- */
-void
-html_a_output_prefix(f, c)
-    FILTER_S *f;
-    int	      c;
-{
-    switch(c){
-      case HTML_DOBOLD :
-	HTML_BOLD(f, 1);
-	break;
-
-      default :
-	html_output(f, c);
-	break;
-    }
-}
-
-
-
-/*
- * relative_url - put full url path in h based on base and relative url
- */
-void
-html_a_relative(base_url, rel_url, h)
-    char     *base_url, *rel_url;
-    HANDLE_S *h;
-{
-    size_t  len;
-    char    tmp[MAILTMPLEN], *p, *q;
-    char   *scheme = NULL, *net = NULL, *path = NULL,
-	   *parms = NULL, *query = NULL, *frag = NULL,
-	   *base_scheme = NULL, *base_net_loc = NULL,
-	   *base_path = NULL, *base_parms = NULL,
-	   *base_query = NULL, *base_frag = NULL,
-	   *rel_scheme = NULL, *rel_net_loc = NULL,
-	   *rel_path = NULL, *rel_parms = NULL,
-	   *rel_query = NULL, *rel_frag = NULL;
-
-    /* Rough parse of base URL */
-    rfc1808_tokens(base_url, &base_scheme, &base_net_loc, &base_path,
-		   &base_parms, &base_query, &base_frag);
-
-    /* Rough parse of this URL */
-    rfc1808_tokens(rel_url, &rel_scheme, &rel_net_loc, &rel_path,
-		   &rel_parms, &rel_query, &rel_frag);
-
-    scheme = rel_scheme;	/* defaults */
-    net    = rel_net_loc;
-    path   = rel_path;
-    parms  = rel_parms;
-    query  = rel_query;
-    frag   = rel_frag;
-    if(!scheme && base_scheme){
-	scheme = base_scheme;
-	if(!net){
-	    net = base_net_loc;
-	    if(path){
-		if(*path != '/'){
-		    if(base_path){
-			for(p = q = base_path;	/* Drop base path's tail */
-			    p = strchr(p, '/');
-			    q = ++p)
-			  ;
-
-			len = q - base_path;
-		    }
-		    else
-		      len = 0;
-
-		    if(len + strlen(rel_path) < MAILTMPLEN - 1){
-			if(len)
-			  sprintf(path = tmp, "%.*s", len, base_path);
-
-			strcpy(tmp + len, rel_path);
-
-			/* Follow RFC 1808 "Step 6" */
-			for(p = tmp; p = strchr(p, '.'); )
-			  switch(*(p+1)){
-			      /*
-			       * a) All occurrences of "./", where "." is a
-			       *    complete path segment, are removed.
-			       */
-			    case '/' :
-			      if(p > tmp)
-				for(q = p; *q = *(q+2); q++)
-				  ;
-			      else
-				p++;
-
-			      break;
-
-			      /*
-			       * b) If the path ends with "." as a
-			       *    complete path segment, that "." is
-			       *    removed.
-			       */
-			    case '\0' :
-			      if(p == tmp || *(p-1) == '/')
-				*p = '\0';
-			      else
-				p++;
-
-			      break;
-
-			      /*
-			       * c) All occurrences of "<segment>/../",
-			       *    where <segment> is a complete path
-			       *    segment not equal to "..", are removed.
-			       *    Removal of these path segments is
-			       *    performed iteratively, removing the
-			       *    leftmost matching pattern on each
-			       *    iteration, until no matching pattern
-			       *    remains.
-			       *
-			       * d) If the path ends with "<segment>/..",
-			       *    where <segment> is a complete path
-			       *    segment not equal to "..", that
-			       *    "<segment>/.." is removed.
-			       */
-			    case '.' :
-			      if(p > tmp + 1){
-				  for(q = p - 2; q > tmp && *q != '/'; q--)
-				    ;
-
-				  if(*q == '/')
-				    q++;
-
-				  if(q + 1 == p		/* no "//.." */
-				     || (*q == '.'	/* and "../.." */
-					 && *(q+1) == '.'
-					 && *(q+2) == '/')){
-				      p += 2;
-				      break;
-				  }
-
-				  switch(*(p+2)){
-				    case '/' :
-				      len = (p - q) + 3;
-				      p = q;
-				      for(; *q = *(q+len); q++)
-					;
-
-				      break;
-
-				    case '\0':
-				      *(p = q) = '\0';
-				      break;
-
-				    default:
-				      p += 2;
-				      break;
-				  }
-			      }
-			      else
-				p += 2;
-
-			      break;
-
-			    default :
-			      p++;
-			      break;
-			  }
-		    }
-		    else
-		      path = "";		/* lame. */
-		}
-	    }
-	    else{
-		path = base_path;
-		if(!parms){
-		    parms = base_parms;
-		    if(!query)
-		      query = base_query;
-		}
-	    }
-	}
-    }
-
-    len = (scheme ? strlen(scheme) : 0) + (net ? strlen(net) : 0)
-	  + (path ? strlen(path) : 0) + (parms ? strlen(parms) : 0)
-	  + (query ? strlen(query) : 0) + (frag  ? strlen(frag ) : 0) + 8;
-
-    h->h.url.path = (char *) fs_get(len * sizeof(char));
-    sprintf(h->h.url.path, "%s%s%s%s%s%s%s%s%s%s%s%s",
-	    scheme ? scheme : "", scheme ? ":" : "",
-	    net ? "//" : "", net ? net : "",
-	    (path && *path == '/') ? "" : ((path && net) ? "/" : ""),
-	    path ? path : "",
-	    parms ? ";" : "", parms ? parms : "",
-	    query ? "?" : "", query ? query : "",
-	    frag ? "#" : "", frag ? frag : "");
-
-    if(base_scheme)
-      fs_give((void **) &base_scheme);
-
-    if(base_net_loc)
-      fs_give((void **) &base_net_loc);
-
-    if(base_path)
-      fs_give((void **) &base_path);
-
-    if(base_parms)
-      fs_give((void **) &base_parms);
-
-    if(base_query)
-      fs_give((void **) &base_query);
-
-    if(base_frag)
-      fs_give((void **) &base_frag);
-
-    if(rel_scheme)
-      fs_give((void **) &rel_scheme);
-
-    if(rel_net_loc)
-      fs_give((void **) &rel_net_loc);
-
-    if(rel_parms)
-      fs_give((void **) &rel_parms);
-
-    if(rel_query)
-      fs_give((void **) &rel_query);
-
-    if(rel_frag)
-      fs_give((void **) &rel_frag);
-
-    if(rel_path)
-      fs_give((void **) &rel_path);
-}
-
-
-/*
- * HTML <UL> (Unordered List) element handler
- */
-int
-html_ul(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	HD(hd->html_data)->li_pending = 1;
-	html_blank(hd->html_data, 0);
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 0);
-
-	if(!HD(hd->html_data)->li_pending)
-	  html_indent(hd->html_data, -4, HTML_ID_INC);
-	else
-	  HD(hd->html_data)->li_pending = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <OL> (Ordered List) element handler
- */
-int
-html_ol(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Signal that we're expecting to see <LI> as our next elemnt
-	 * and set the the initial ordered count.
-	 */
-	HD(hd->html_data)->li_pending = 1;
-	hd->x = 1L;
-	html_blank(hd->html_data, 0);
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 0);
-
-	if(!HD(hd->html_data)->li_pending)
-	  html_indent(hd->html_data, -4, HTML_ID_INC);
-	else
-	  HD(hd->html_data)->li_pending = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <MENU> (Menu List) element handler
- */
-int
-html_menu(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	HD(hd->html_data)->li_pending = 1;
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 0);
-
-	if(!HD(hd->html_data)->li_pending)
-	  html_indent(hd->html_data, -4, HTML_ID_INC);
-	else
-	  HD(hd->html_data)->li_pending = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <DIR> (Directory List) element handler
- */
-int
-html_dir(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	HD(hd->html_data)->li_pending = 1;
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 0);
-
-	if(!HD(hd->html_data)->li_pending)
-	  html_indent(hd->html_data, -4, HTML_ID_INC);
-	else
-	  HD(hd->html_data)->li_pending = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <LI> (List Item) element handler
- */
-int
-html_li(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	HANDLER_S *p, *found = NULL;
-
-	/*
-	 * There better be a an unordered list, ordered list,
-	 * Menu or Directory handler installed
-	 * or else we crap out...
-	 */
-	for(p = HANDLERS(hd->html_data); p; p = p->below)
-	  if(p->f == html_ul || p->f == html_ol
-	     || p->f == html_menu || p->f == html_dir){
-	      found = p;
-	      break;
-	  }
-
-	if(found){
-	    char buf[8], *p;
-	    int  wrapstate;
-
-	    /* Start a new line */
-	    html_blank(hd->html_data, 0);
-
-	    /* adjust indent level if needed */
-	    if(HD(hd->html_data)->li_pending){
-		html_indent(hd->html_data, 4, HTML_ID_INC);
-		HD(hd->html_data)->li_pending = 0;
-	    }
-
-	    if(found->f == html_ul){
-		int l = html_indent(hd->html_data, 0, HTML_ID_GET);
-
-		strcpy(buf, "   ");
-		buf[1] = (l < 5) ? '*' : (l < 9) ? '+' : (l < 17) ? 'o' : '#';
-	    }
-	    else if(found->f == html_ol)
-	      sprintf(buf, "%2ld.", found->x++);
-	    else if(found->f == html_menu)
-	      strcpy(buf, " ->");
-
-	    html_indent(hd->html_data, -4, HTML_ID_INC);
-
-	    /* So we don't munge whitespace */
-	    wrapstate = HD(hd->html_data)->wrapstate;
-	    HD(hd->html_data)->wrapstate = 0;
-
-	    html_write_indent(hd->html_data, HD(hd->html_data)->indent_level);
-	    for(p = buf; *p; p++)
-	      html_output(hd->html_data, (int) *p);
-
-	    HD(hd->html_data)->wrapstate = wrapstate;
-	    html_indent(hd->html_data, 4, HTML_ID_INC);
-	}
-	/* BUG: should really bitch about this */
-    }
-
-    return(0);				/* DON'T get linked */
-}
-
-
-
-/*
- * HTML <DL> (Definition List) element handler
- */
-int
-html_dl(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Set indention level for definition terms and definitions...
-	 */
-	hd->x = html_indent(hd->html_data, 0, HTML_ID_GET);
-	hd->y = hd->x + 2;
-	hd->z = hd->y + 4;
-    }
-    else if(cmd == GF_EOD){
-	html_indent(hd->html_data, (int) hd->x, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <DT> (Definition Term) element handler
- */
-int
-html_dt(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	HANDLER_S *p;
-
-	/*
-	 * There better be a Definition Handler installed
-	 * or else we crap out...
-	 */
-	for(p = HANDLERS(hd->html_data); p && p->f != html_dl; p = p->below)
-	  ;
-
-	if(p){				/* adjust indent level if needed */
-	    html_indent(hd->html_data, (int) p->y, HTML_ID_SET);
-	    html_blank(hd->html_data, 1);
-	}
-	/* BUG: else should really bitch about this */
-    }
-
-    return(0);				/* DON'T get linked */
-}
-
-
-/*
- * HTML <DD> (Definition Definition) element handler
- */
-int
-html_dd(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	HANDLER_S *p;
-
-	/*
-	 * There better be a Definition Handler installed
-	 * or else we crap out...
-	 */
-	for(p = HANDLERS(hd->html_data); p && p->f != html_dl; p = p->below)
-	  ;
-
-	if(p){				/* adjust indent level if needed */
-	    html_indent(hd->html_data, (int) p->z, HTML_ID_SET);
-	    html_blank(hd->html_data, 0);
-	}
-	/* BUG: should really bitch about this */
-    }
-
-    return(0);				/* DON'T get linked */
-}
-
-
-/*
- * HTML <H1> (Headings 1) element handler.
- *
- * Bold, very-large font, CENTERED. One or two blank lines
- * above and below.  For our silly character cell's that
- * means centered and ALL CAPS...
- */
-int
-html_h1(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/* turn ON the centered bit */
-	CENTER_BIT(hd->html_data) = 1;
-    }
-    else if(cmd == GF_EOD){
-	/* turn OFF the centered bit, add blank line */
-	CENTER_BIT(hd->html_data) = 0;
-	html_blank(hd->html_data, 1);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H2> (Headings 2) element handler
- */
-int
-html_h2(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	if((hd->x & HTML_HX_ULINE) && !isspace((unsigned char) (ch & 0xff))){
-	    HTML_ULINE(hd->html_data, 1);
-	    hd->x ^= HTML_HX_ULINE;	/* only once! */
-	}
-
-	html_handoff(hd, (ch < 128 && islower((unsigned char) ch))
-			   ? toupper((unsigned char) ch) : ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Bold, large font, flush-left. One or two blank lines
-	 * above and below.
-	 */
-	if(CENTER_BIT(hd->html_data)) /* stop centering for now */
-	  hd->x = HTML_HX_CENTER;
-	else
-	  hd->x = 0;
-
-	hd->x |= HTML_HX_ULINE;
-	    
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 0, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	if(!(hd->x & HTML_HX_ULINE))
-	  HTML_ULINE(hd->html_data, 0);
-
-	html_indent(hd->html_data, hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = (hd->x & HTML_HX_CENTER) != 0;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H3> (Headings 3) element handler
- */
-int
-html_h3(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	if((hd->x & HTML_HX_ULINE) && !isspace((unsigned char) (ch & 0xff))){
-	    HTML_ULINE(hd->html_data, 1);
-	    hd->x ^= HTML_HX_ULINE;	/* only once! */
-	}
-
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Italic, large font, slightly indented from the left
-	 * margin. One or two blank lines above and below.
-	 */
-	if(CENTER_BIT(hd->html_data)) /* stop centering for now */
-	  hd->x = HTML_HX_CENTER;
-	else
-	  hd->x = 0;
-
-	hd->x |= HTML_HX_ULINE;
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 2, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	if(!(hd->x & HTML_HX_ULINE))
-	  HTML_ULINE(hd->html_data, 0);
-
-	html_indent(hd->html_data, hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = (hd->x & HTML_HX_CENTER) != 0;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H4> (Headings 4) element handler
- */
-int
-html_h4(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Bold, normal font, indented more than H3. One blank line
-	 * above and below.
-	 */
-	hd->x = CENTER_BIT(hd->html_data); /* stop centering for now */
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 4, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	html_indent(hd->html_data, (int) hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = hd->x;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H5> (Headings 5) element handler
- */
-int
-html_h5(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Italic, normal font, indented as H4. One blank line
-	 * above.
-	 */
-	hd->x = CENTER_BIT(hd->html_data); /* stop centering for now */
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 6, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	html_indent(hd->html_data, (int) hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = hd->x;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H6> (Headings 6) element handler
- */
-int
-html_h6(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Bold, indented same as normal text, more than H5. One
-	 * blank line above.
-	 */
-	hd->x = CENTER_BIT(hd->html_data); /* stop centering for now */
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 8, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	html_indent(hd->html_data, (int) hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = hd->x;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <BlockQuote> element handler
- */
-int
-html_blockquote(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    int	 j;
-#define	HTML_BQ_INDENT	6
-
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * A typical rendering might be a slight extra left and
-	 * right indent, and/or italic font. The Blockquote element
-	 * causes a paragraph break, and typically provides space
-	 * above and below the quote.
-	 */
-	html_indent(hd->html_data, HTML_BQ_INDENT, HTML_ID_INC);
-	j = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	html_blank(hd->html_data, 1);
-	HD(hd->html_data)->wrapstate = j;
-	HD(hd->html_data)->wrapcol  -= HTML_BQ_INDENT;
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 1);
-
-	j = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	html_indent(hd->html_data, -(HTML_BQ_INDENT), HTML_ID_INC);
-	HD(hd->html_data)->wrapstate = j;
-	HD(hd->html_data)->wrapcol  += HTML_BQ_INDENT;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <Address> element handler
- */
-int
-html_address(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    int	 j;
-#define	HTML_ADD_INDENT	2
-
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * A typical rendering might be a slight extra left and
-	 * right indent, and/or italic font. The Blockquote element
-	 * causes a paragraph break, and typically provides space
-	 * above and below the quote.
-	 */
-	html_indent(hd->html_data, HTML_ADD_INDENT, HTML_ID_INC);
-	j = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	html_blank(hd->html_data, 1);
-	HD(hd->html_data)->wrapstate = j;
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 1);
-
-	j = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	html_indent(hd->html_data, -(HTML_ADD_INDENT), HTML_ID_INC);
-	HD(hd->html_data)->wrapstate = j;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <PRE> (Preformatted Text) element handler
- */
-int
-html_pre(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	/*
-	 * remove CRLF after '>' in element.
-	 * We see CRLF because wrapstate is off.
-	 */
-	switch(hd->y){
-	  case 2 :
-	    if(ch == '\012'){
-		hd->y = 3;
-		return(1);
-	    }
-	    else
-	      html_handoff(hd, '\015');
-
-	    break;
-
-	  case 1 :
-	    if(ch == '\015'){
-		hd->y = 2;
-		return(1);
-	    }
-
-	  default :
-	    hd->y = 0;
-	    break;
-	}
-
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	html_blank(hd->html_data, 1);
-	hd->x = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	hd->y = 1;
-    }
-    else if(cmd == GF_EOD){
-	HD(hd->html_data)->wrapstate = (hd->x != 0);
-	html_blank(hd->html_data, 0);
-    }
-
-    return(1);
-}
-
-
-
-
-/*
- * HTML <CENTER> (Centerd Text) element handler
- */
-int
-html_center(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/* turn ON the centered bit */
-	CENTER_BIT(hd->html_data) = 1;
-    }
-    else if(cmd == GF_EOD){
-	/* turn OFF the centered bit */
-	CENTER_BIT(hd->html_data) = 0;
-    }
-
-    return(1);
-}
-
-
-
-/*
- * HTML <DIV> (Document Divisions) element handler
- */
-int
-html_div(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	PARAMETER *p;
-
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "ALIGN")){
-	      if(p->value){
-		  /* remember previous values */
-		  hd->x = CENTER_BIT(hd->html_data);
-		  hd->y = html_indent(hd->html_data, 0, HTML_ID_GET);
-
-		  html_blank(hd->html_data, 0);
-		  CENTER_BIT(hd->html_data) = !strucmp(p->value, "CENTER");
-		  html_indent(hd->html_data, 0, HTML_ID_SET);
-		  /* NOTE: "RIGHT" not supported yet */
-	      }
-	  }
-    }
-    else if(cmd == GF_EOD){
-	/* restore centered bit and indentiousness */
-	CENTER_BIT(hd->html_data) = hd->y;
-	html_indent(hd->html_data, hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 0);
-    }
-
-    return(1);
-}
-
-
-
-/*
- * return the function associated with the given element name
- */
-html_f
-html_element_func(el_name)
-    char *el_name;
-{
-    register int i;
-
-    for(i = 0; element_table[i].element; i++)
-      if(!strucmp(el_name, element_table[i].element))
-	return(element_table[i].handler);
-
-    return(NULL);
-}
-
-
-/*
- * collect element's name and any attribute/value pairs then
- * dispatch to the appropriate handler.
- *
- * Returns 1 : got what we wanted
- *	   0 : we need more data
- *	  -1 : bogus input
- */
-int
-html_element_collector(fd, ch)
-    FILTER_S *fd;
-    int	      ch;
-{
-    if(ch == '>'){
-	if(ED(fd)->overrun){
-	    /*
-	     * If problem processing, don't bother doing anything
-	     * internally, just return such that none of what we've
-	     * digested is displayed.
-	     */
-	    HTML_DEBUG_EL("too long", ED(fd));
-	    return(1);			/* Let it go, Jim */
-	}
-	else if(ED(fd)->mkup_decl){
-	    if(ED(fd)->badform){
-		dprint(2, (debugfile, "-- html <!-- BAD: %.*s\n",
-			   ED(fd)->len, ED(fd)->buf));
-		/*
-		 * Invalid comment -- make some guesses as
-		 * to whether we should stop with this greater-than...
-		 */
-		if(ED(fd)->buf[0] != '-'
-		   || ED(fd)->len < 4
-		   || (ED(fd)->buf[1] == '-'
-		       && ED(fd)->buf[ED(fd)->len - 1] == '-'
-		       && ED(fd)->buf[ED(fd)->len - 2] == '-'))
-		  return(1);
-	    }
-	    else{
-		dprint(2, (debugfile, "-- html <!-- OK: %.*s\n",
-			   ED(fd)->len, ED(fd)->buf));
-		if(ED(fd)->start_comment == ED(fd)->end_comment){
-		    if(ED(fd)->len > 10){
-			ED(fd)->buf[ED(fd)->len - 2] = '\0';
-			html_element_comment(fd, ED(fd)->buf + 2);
-		    }
-
-		    return(1);
-		}
-		/* else keep collecting comment below */
-	    }
-	}
-	else if(!ED(fd)->quoted || ED(fd)->badform){
-	    html_f f;
-
-	    /*
-	     * We either have the whole thing or all that we could
-	     * salvage from it.  Try our best...
-	     */
-
-	    if(HD(fd)->bitbucket)
-	      return(1);		/* element inside chtml clause! */
-
-	    if(!ED(fd)->badform && html_element_flush(ED(fd)))
-	      return(1);		/* return without display... */
-
-	    /*
-	     * If we ran into an empty tag or we don't know how to deal
-	     * with it, just go on, ignoring it...
-	     */
-	    if(ED(fd)->element && (f = html_element_func(ED(fd)->element))){
-		/* dispatch the element's handler */
-		if(ED(fd)->end_tag)
-		  html_pop(fd, f);	/* remove it's handler */
-		else
-		  html_push(fd, f);	/* add it's handler */
-
-		HTML_DEBUG_EL(ED(fd)->end_tag ? "POP" : "PUSH", ED(fd));
-	    }
-	    else{			/* else, empty or unrecognized */
-		HTML_DEBUG_EL("?", ED(fd));
-	    }
-
-	    return(1);			/* all done! see, that didn't hurt */
-	}
-    }
-
-    if(ED(fd)->mkup_decl){
-	if((ch &= 0xff) == '-'){
-	    if(ED(fd)->hyphen){
-		ED(fd)->hyphen = 0;
-		if(ED(fd)->start_comment)
-		  ED(fd)->end_comment = 1;
-		else
-		  ED(fd)->start_comment = 1;
-	    }
-	    else
-	      ED(fd)->hyphen = 1;
-	}
-	else{
-	    if(ED(fd)->end_comment)
-	      ED(fd)->start_comment = ED(fd)->end_comment = 0;
-
-	    /*
-	     * no "--" after ! or non-whitespace between comments - bad
-	     */
-	    if(ED(fd)->len < 2 || (!ED(fd)->start_comment
-				   && !isspace((unsigned char) ch)))
-	      ED(fd)->badform = 1;	/* non-comment! */
-
-	    ED(fd)->hyphen = 0;
-	}
-
-	/*
-	 * Remember the comment for possible later processing, if
-	 * it get's too long, remember first and last few chars
-	 * so we know when to terminate (and throw some garbage
-	 * in between when we toss out what's between.
-	 */
-	if(ED(fd)->len == HTML_BUF_LEN){
-	    ED(fd)->buf[2] = ED(fd)->buf[3] = 'X';
-	    ED(fd)->buf[4] = ED(fd)->buf[ED(fd)->len - 2];
-	    ED(fd)->buf[5] = ED(fd)->buf[ED(fd)->len - 1];
-	    ED(fd)->len    = 6;
-	}
-
-	ED(fd)->buf[(ED(fd)->len)++] = ch;
-	return(0);			/* comments go in the bit bucket */
-    }
-    else if(ED(fd)->overrun || ED(fd)->badform){
-	return(0);			/* swallow char's until next '>' */
-    }
-    else if(!ED(fd)->element && !ED(fd)->len){
-	if(ch == '/'){		/* validate leading chars */
-	    ED(fd)->end_tag = 1;
-	    return(0);
-	}
-	else if(ch == '!'){
-	    ED(fd)->mkup_decl = 1;
-	    return(0);
-	}
-	else if(!isalpha((unsigned char) ch))
-	  return(-1);			/* can't be a tag! */
-    }
-    else if(ch == '\"' || ch == '\''){
-	if(!ED(fd)->hit_equal){
-	    ED(fd)->badform = 1;	/* quote in element name?!? */
-	    return(0);
-	}
-
-	if(ED(fd)->quoted){
-	    if(ED(fd)->quoted == (char) ch){
-		ED(fd)->quoted = 0;
-		return(0);		/* continue collecting chars */
-	    }
-	    /* else fall thru writing other quoting char */
-	}
-	else{
-	    ED(fd)->quoted = (char) ch;
-	    return(0);			/* need more data */
-	}
-    }
-
-    ch &= 0xff;			/* strip any "literal" high bits */
-    if(ED(fd)->quoted
-       || isalnum(ch)
-       || strchr("-.!", ch)
-       || (ED(fd)->hit_equal && !isspace((unsigned char) ch))){
-	if(ED(fd)->len < ((ED(fd)->element || !ED(fd)->hit_equal)
-			       ? HTML_BUF_LEN:MAX_ELEMENT)){
-	    ED(fd)->buf[(ED(fd)->len)++] = ch;
-	}
-	else
-	  ED(fd)->overrun = 1;		/* flag it broken */
-    }
-    else if(isspace((unsigned char) ch) || ch == '='){
-	if(html_element_flush(ED(fd))){
-	    ED(fd)->badform = 1;
-	    return(0);		/* else, we ain't done yet */
-	}
-
-	if(!ED(fd)->hit_equal)
-	  ED(fd)->hit_equal = (ch == '=');
-    }
-    else
-      ED(fd)->badform = 1;		/* unrecognized data?? */
-
-    return(0);				/* keep collecting */
-}
-
-
-/*
- * Element collector found complete string, integrate it and reset
- * internal collection buffer.
- *
- * Returns zero if element collection buffer flushed, error flag otherwise
- */
-int
-html_element_flush(el_data)
-    CLCTR_S *el_data;
-{
-    int rv = 0;
-
-    if(el_data->hit_equal){		/* adding a value */
-	el_data->hit_equal = 0;
-	if(el_data->cur_attrib){
-	    if(!el_data->cur_attrib->value){
-		el_data->cur_attrib->value = cpystr(el_data->len
-						    ? el_data->buf : "");
-	    }
-	    else{
-		dprint(2, (debugfile,
-			   "** element: unexpected value: %.10s...\n",
-			   el_data->len ? el_data->buf : "\"\""));
-		rv = 1;
-	    }
-	}
-	else{
-	    dprint(2, (debugfile,
-		       "** element: missing attribute name: %.10s...\n",
-		       el_data->len ? el_data->buf : "\"\""));
-	    rv = 2;
-	}
-
-	el_data->len = 0;
-	memset(el_data->buf, 0, HTML_BUF_LEN);
-    }
-    else if(el_data->len){
-	if(!el_data->element){
-	    el_data->element = cpystr(el_data->buf);
-	}
-	else{
-	    PARAMETER *p = (PARAMETER *)fs_get(sizeof(PARAMETER));
-	    memset(p, 0, sizeof(PARAMETER));
-	    if(el_data->attribs){
-		el_data->cur_attrib->next = p;
-		el_data->cur_attrib = p;
-	    }
-	    else
-	      el_data->attribs = el_data->cur_attrib = p;
-
-	    p->attribute = cpystr(el_data->buf);
-	}
-
-	el_data->len = 0;
-	memset(el_data->buf, 0, HTML_BUF_LEN);
-    }
-
-    return(rv);			/* report whatever happened above */
-}
-
-
-/*
- * html_element_comment - "Special" comment handling here
- */
-void
-html_element_comment(f, s)
-    FILTER_S *f;
-    char     *s;
-{
-    char *p;
-
-    while(*s && isspace((unsigned char) *s))
-      s++;
-
-    /*
-     * WARNING: "!--chtml" denotes "Conditional HTML", a UW-ism.
-     */
-    if(!struncmp(s, "chtml ", 6)){
-	s += 6;
-	if(!struncmp(s, "if ", 3)){
-	    HD(f)->bitbucket = 1;	/* default is failure! */
-	    switch(*(s += 3)){
-	      case 'P' :
-	      case 'p' :
-		if(!struncmp(s + 1, "inemode=", 8)){
-		    if(!strucmp(s = removing_quotes(s + 9), "function_key")
-		       && F_ON(F_USE_FK, ps_global))
-		      HD(f)->bitbucket = 0;
-		    else if(!strucmp(s, "running"))
-		      HD(f)->bitbucket = 0;
-		    else if(!strucmp(s, "phone_home") && ps_global->phone_home)
-		      HD(f)->bitbucket = 0;
-#ifdef	_WINDOWS
-		    else if(!strucmp(s, "os_windows"))
-		      HD(f)->bitbucket = 0;
-#endif
-		}
-
-		break;
-
-	      case '[' :	/* test */
-		if(p = strindex(++s, ']')){
-		    *p = '\0';		/* tie off test string */
-		    removing_leading_white_space(s);
-		    removing_trailing_white_space(s);
-		    if(*s == '-' && *(s+1) == 'r'){ /* readable file? */
-			for(s += 2; *s && isspace((unsigned char) *s); s++)
-			  ;
-
-
-			HD(f)->bitbucket = (can_access(removing_quotes(s),
-						       READ_ACCESS) != 0);
-		    }
-		}
-
-		break;
-
-	      default :
-		break;
-	    }
-	}
-	else if(!strucmp(s, "else")){
-	    HD(f)->bitbucket = !HD(f)->bitbucket;
-	}
-	else if(!strucmp(s, "endif")){
-	    /* Clean up after chtml here */
-	    HD(f)->bitbucket = 0;
-	}
-    }
-    else if(!HD(f)->bitbucket){
-	if(!struncmp(s, "#include ", 9)){
-	    char  buf[MAILTMPLEN], *bufp;
-	    int   len, end_of_line;
-	    FILE *fp;
-
-	    /* Include the named file */
-	    if(!struncmp(s += 9, "file=", 5)
-	       && (fp = fopen(removing_quotes(s+5), "r"))){
-		html_element_output(f, HTML_NEWLINE);
-
-		while(fgets(buf, MAILTMPLEN, fp)){
-		    if((len = strlen(buf)) && buf[len-1] == '\n'){
-			end_of_line = 1;
-			buf[--len]  = '\0';
-		    }
-		    else
-		      end_of_line = 0;
-
-		    for(bufp = buf; len; bufp++, len--)
-		      html_element_output(f, (int) *bufp);
-
-		    if(end_of_line)
-		      html_element_output(f, HTML_NEWLINE);
-		}
-
-		fclose(fp);
-		html_element_output(f, HTML_NEWLINE);
-		HD(f)->blanks = 0;
-		if(f->f1 == WSPACE)
-		  f->f1 = DFL;
-	    }
-	}
-	else if(!struncmp(s, "#echo ", 6)){
-	    if(!struncmp(s += 6, "var=", 4)){
-		char	*p, buf[MAILTMPLEN];
-		ADDRESS *adr;
-		extern char datestamp[];
-
-		if(!strcmp(s = removing_quotes(s + 4), "PINE_VERSION")){
-		    p = pine_version;
-		}
-		else if(!strcmp(s, "PINE_COMPILE_DATE")){
-		    p = datestamp;
-		}
-		else if(!strcmp(s, "PINE_TODAYS_DATE")){
-		    rfc822_date(p = buf);
-		}
-		else if(!strcmp(s, "_LOCAL_FULLNAME_")){
-		    p = (ps_global->VAR_LOCAL_FULLNAME
-			 && ps_global->VAR_LOCAL_FULLNAME[0])
-			    ? ps_global->VAR_LOCAL_FULLNAME
-			    : "Local Support";
-		}
-		else if(!strcmp(s, "_LOCAL_ADDRESS_")){
-		    p = (ps_global->VAR_LOCAL_ADDRESS
-			 && ps_global->VAR_LOCAL_ADDRESS[0])
-			   ? ps_global->VAR_LOCAL_ADDRESS
-			   : "postmaster";
-		    adr = rfc822_parse_mailbox(&p, ps_global->maildomain);
-		    sprintf(p = buf, "%s@%s", adr->mailbox, adr->host);
-		    mail_free_address(&adr);
-		}
-		else if(!strcmp(s, "_BUGS_FULLNAME_")){
-		    p = (ps_global->VAR_BUGS_FULLNAME
-			 && ps_global->VAR_BUGS_FULLNAME[0])
-			    ? ps_global->VAR_BUGS_FULLNAME
-			    : "Place to report Pine Bugs";
-		}
-		else if(!strcmp(s, "_BUGS_ADDRESS_")){
-		    p = (ps_global->VAR_BUGS_ADDRESS
-			 && ps_global->VAR_BUGS_ADDRESS[0])
-			    ? ps_global->VAR_BUGS_ADDRESS : "postmaster";
-		    adr = rfc822_parse_mailbox(&p, ps_global->maildomain);
-		    sprintf(p = buf, "%s@%s", adr->mailbox, adr->host);
-		    mail_free_address(&adr);
-		}
-		else if(!strcmp(s, "CURRENT_DIR")){
-		    getcwd(p = buf, MAILTMPLEN);
-		}
-		else if(!strcmp(s, "HOME_DIR")){
-		    p = ps_global->home_dir;
-		}
-		else
-		  p = NULL;
-
-		if(p){
-		    if(f->f1 == WSPACE){
-			html_element_output(f, ' ');
-			f->f1 = DFL;			/* clear it */
-		    }
-
-		    while(*p)
-		      html_element_output(f, (int) *p++);
-		}
-	    }
-	}
-    }
-}
-
-
-void
-html_element_output(f, ch)
-    FILTER_S *f;
-    int	      ch;
-{
-    if(HANDLERS(f))
-      (*HANDLERS(f)->f)(HANDLERS(f), ch, GF_DATA);
-    else
-      html_output(f, ch);
-}
-
-
-/*
- * collect html entities and return its value when done.
- *
- * Returns 0		 : we need more data
- *	   1-255	 : char value of entity collected
- *	   HTML_BADVALUE : good data, but no named match or out of range
- *	   HTML_BADDATA  : invalid input
- *
- * NOTES:
- *  - entity format is "'&' tag ';'" and represents a literal char
- *  - named entities are CASE SENSITIVE.
- *  - numeric char references (where the tag is prefixed with a '#')
- *    are a char with that numbers value
- *  - numeric vals are 0-255 except for the ranges: 0-8, 11-31, 127-159.
- */
-int
-html_entity_collector(f, ch, alternate)
-    FILTER_S  *f;
-    int	       ch;
-    char     **alternate;
-{
-    static char len = 0;
-    static char buf[MAX_ENTITY];
-    int rv = 0, i;
-
-    if((len == 0)
-	 ? (isalpha((unsigned char) ch) || ch == '#')
-	 : ((isdigit((unsigned char) ch)
-	     || (isalpha((unsigned char) ch) && buf[0] != '#'))
-	    && len < MAX_ENTITY - 1)){
-	buf[len++] = ch;
-    }
-    else if((isspace((unsigned char) ch) || ch == ';') && len){
-	buf[len] = '\0';		/* got something! */
-	switch(buf[0]){
-	  case '#' :
-	    rv = atoi(&buf[1]);
-	    if(F_ON(F_PASS_CONTROL_CHARS, ps_global)
-	       || (rv == '\t' || rv == '\n' || rv == '\r'
-		   || (rv > 31 && rv < 127) || (rv > 159 && rv < 256))){
-		if(alternate)
-		  for(i = 0, *alternate = NULL; entity_tab[i].name; i++)
-		    if(entity_tab[i].value == rv){
-			*alternate = entity_tab[i].plain;
-			break;
-		    }
-	    }
-	    else
-	      rv = HTML_BADVALUE;
-
-	    break;
-
-	  default :
-	    rv = HTML_BADVALUE;		/* in case we fail below */
-	    for(i = 0; entity_tab[i].name; i++)
-	      if(strcmp(entity_tab[i].name, buf) == 0){
-		  rv = entity_tab[i].value;
-		  if(alternate)
-		    *alternate = entity_tab[i].plain;
-
-		  break;
-	      }
-
-	    break;
-	}
-    }
-    else
-      rv = HTML_BADDATA;		/* bogus input! */
-
-    if(rv){				/* nonzero return, clean up */
-	if(rv > 0xff && alternate){	/* provide bogus data to caller */
-	    buf[len] = '\0';
-	    *alternate = buf;
-	}
-
-	len = 0;
-    }
-
-    return(rv);
-}
-
-
-/*----------------------------------------------------------------------
-  HTML text to plain text filter
-
-  This basically tries to do the best it can with HTML 2.0 (RFC1866)
-  with bits of RFC 1942 (plus some HTML 3.2 thrown in as well) text
-  formatting.
-
- ----*/
-void
-gf_html2plain(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-/* BUG: qoute incoming \255 values (see "yuml" above!) */
-    if(flg == GF_DATA){
-	register int c;
-	GF_INIT(f, f->next);
-
-	while(GF_GETC(f, c)){
-	    /*
-	     * First we have to collect any literal entities...
-	     * that is, IF we're not already collecting one
-	     * AND we're not in element's text or, if we are, we're
-	     * not in quoted text.  Whew.
-	     */
-	    if(f->t){
-		int   i;
-		char *alt = NULL;
-
-		switch(i = html_entity_collector(f, c, &alt)){
-		  case 0:		/* more data required? */
-		    continue;		/* go get another char */
-
-		  case HTML_BADVALUE :
-		  case HTML_BADDATA :
-		    /* if supplied, process bogus data */
-		    HTML_PROC(f, '&');
-		    for(; *alt; alt++)
-		      HTML_PROC(f, *alt);
-
-		    if(c == '&' && !HD(f)->quoted){
-			f->t = '&';
-			continue;
-		    }
-		    else
-		      f->t = 0;		/* don't come back next time */
-
-		    break;
-
-		  default :		/* thing to process */
-		    f->t = 0;		/* don't come back */
-
-		    /*
-		     * Map some of the undisplayable entities?
-		     */
-		    if(HD(f)->alt_entity && i > 127 && alt && alt[0]){
-			for(; *alt; alt++){
-			    c = MAKE_LITERAL(*alt);
-			    HTML_PROC(f, c);
-			}
-
-			continue;
-		    }
-
-		    c = MAKE_LITERAL(i);
-		    break;
-		}
-	    }
-	    else if(c == '&' && !HD(f)->quoted){
-		f->t = '&';
-		continue;
-	    }
-
-	    /*
-	     * then we process whatever we got...
-	     */
-
-	    HTML_PROC(f, c);
-	}
-
-	GF_OP_END(f);			/* clean up our input pointers */
-    }
-    else if(flg == GF_EOD){
-	while(HANDLERS(f))
-	  /* BUG: should complain about "Unexpected end of HTML text." */
-	  html_pop(f, HANDLERS(f)->f);
-
-	html_output(f, HTML_NEWLINE);
-	HTML_FLUSH(f);
-	fs_give((void **)&f->line);
-	if(HD(f)->color)
-	  free_color_pair(&HD(f)->color);
-
-	fs_give(&f->data);
-	if(f->opt){
-	    if(((HTML_OPT_S *)f->opt)->base)
-	      fs_give((void **) &((HTML_OPT_S *)f->opt)->base);
-
-	    fs_give(&f->opt);
-	}
-
-	(*f->next->f)(f->next, GF_DATA);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset html2plain\n"));
-	f->data  = (HTML_DATA_S *) fs_get(sizeof(HTML_DATA_S));
-	memset(f->data, 0, sizeof(HTML_DATA_S));
-	HD(f)->wrapstate = 1;		/* start with flowing text */
-	HD(f)->wrapcol   = WRAP_COLS(f) - 8;
-	f->f1    = DFL;			/* state */
-	f->f2    = 0;			/* chars in wrap buffer */
-	f->n     = 0L;			/* chars on line so far */
-	f->linep = f->line = (char *)fs_get(HTML_BUF_LEN * sizeof(char));
-	HD(f)->alt_entity =  (!ps_global->VAR_CHAR_SET
-			      || strucmp(ps_global->VAR_CHAR_SET,
-					 "iso-8859-1"));
-    }
-}
-
-
-
-/*
- * html_indent - do the requested indent level function with appropriate
- *		 flushing and such.
- *
- *   Returns: indent level prior to set/increment
- */
-int
-html_indent(f, val, func)
-    FILTER_S *f;
-    int	      val, func;
-{
-    int old = HD(f)->indent_level;
-
-    /* flush pending data at old indent level */
-    switch(func){
-      case HTML_ID_INC :
-	html_output_flush(f);
-	if((HD(f)->indent_level += val) < 0)
-	  HD(f)->indent_level = 0;
-
-	break;
-
-      case HTML_ID_SET :
-	html_output_flush(f);
-	HD(f)->indent_level = val;
-	break;
-
-      default :
-	break;
-    }
-
-    return(old);
-}
-
-
-
-/*
- * html_blanks - Insert n blank lines into output
- */
-void
-html_blank(f, n)
-    FILTER_S *f;
-    int	      n;
-{
-    /* Cap off any flowing text, and then write blank lines */
-    if(f->f2 || f->n || CENTER_BIT(f) || HD(f)->centered || WRAPPED_LEN(f))
-      html_output(f, HTML_NEWLINE);
-
-    if(HD(f)->wrapstate)
-      while(HD(f)->blanks < n)	/* blanks inc'd by HTML_NEWLINE */
-	html_output(f, HTML_NEWLINE);
-}
-
-
-
-/*
- *  html_newline -- insert a newline mindful of embedded tags
- */
-void
-html_newline(f)
-    FILTER_S *f;
-{
-    html_write_newline(f);		/* commit an actual newline */
-
-    if(f->n){				/* and keep track of blank lines */
-	HD(f)->blanks = 0;
-	f->n = 0L;
-    }
-    else
-      HD(f)->blanks++;
-}
-
-
-/*
- * output the given char, handling any requested wrapping.
- * It's understood that all whitespace handed us is written.  In other
- * words, junk whitespace is weeded out before it's given to us here.
- *
- */
-void
-html_output(f, ch)
-    FILTER_S *f;
-    int	      ch;
-{
-    if(CENTER_BIT(f)){			/* center incoming text */
-	html_output_centered(f, ch);
-    }
-    else{
-	static short embedded = 0; /* BUG: reset on entering filter */
-	static char *color_ptr = NULL;
-
-	if(HD(f)->centered){
-	    html_centered_flush(f);
-	    fs_give((void **) &HD(f)->centered->line.buf);
-	    fs_give((void **) &HD(f)->centered->word.buf);
-	    fs_give((void **) &HD(f)->centered);
-	}
-
-	if(HD(f)->wrapstate){
-	    if(ch == HTML_NEWLINE){		/* hard newline */
-		html_output_flush(f);
-		html_newline(f);
-	    }
-	    else
-	      HD(f)->blanks = 0;		/* reset blank line counter */
-
-	    if(ch == TAG_EMBED){	/* takes up no space */
-		embedded = 1;
-		*(f->linep)++ = TAG_EMBED;
-	    }
-	    else if(embedded){	/* ditto */
-		if(ch == TAG_HANDLE)
-		  embedded = -1;	/* next ch is length */
-		else if(ch == TAG_FGCOLOR || ch == TAG_BGCOLOR){
-		    if(!HD(f)->color)
-		      HD(f)->color = new_color_pair(NULL, NULL);
-
-		    if(ch == TAG_FGCOLOR)
-		      color_ptr = HD(f)->color->fg;
-		    else
-		      color_ptr = HD(f)->color->bg;
-
-		    embedded = 11;
-		}
-		else if(embedded < 0){
-		    embedded = ch;	/* number of embedded chars */
-		}
-		else{
-		    embedded--;
-		    if(color_ptr)
-		      *color_ptr++ = ch;
-
-		    if(embedded == 0 && color_ptr){
-			*color_ptr = '\0';
-			color_ptr = NULL;
-		    }
-		}
-
-		*(f->linep)++ = ch;
-	    }
-	    else if(HTML_ISSPACE(ch)){
-		html_output_flush(f);
-	    }
-	    else{
-		if(HD(f)->prefix)
-		  html_a_prefix(f);
-
-		if(++f->f2 >= WRAP_COLS(f)){
-		    HTML_FLUSH(f);
-		    html_newline(f);
-		    if(HD(f)->in_anchor)
-		      html_write_anchor(f, HD(f)->in_anchor);
-		}
-		else
-		  *(f->linep)++ = ch & 0xff;
-	    }
-	}
-	else{
-	    if(HD(f)->prefix)
-	      html_a_prefix(f);
-
-	    html_output_flush(f);
-
-	    switch(embedded){
-	      case 0 :
-		switch(ch){
-		  default :
-		    f->n++;			/* inc displayed char count */
-		    HD(f)->blanks = 0;		/* reset blank line counter */
-		    html_putc(f, ch & 0xff);
-		    break;
-
-		  case TAG_EMBED :	/* takes up no space */
-		    html_putc(f, TAG_EMBED);
-		    embedded = -2;
-		    break;
-
-		  case HTML_NEWLINE :		/* newline handling */
-		    if(!f->n)
-		      break;
-
-		  case '\n' :
-		    html_newline(f);
-
-		  case '\r' :
-		    break;
-		}
-
-		break;
-
-	      case -2 :
-		embedded = 0;
-		switch(ch){
-		  case TAG_HANDLE :
-		    embedded = -1;	/* next ch is length */
-		    break;
-
-		  case TAG_BOLDON :
-		    BOLD_BIT(f) = 1;
-		    break;
-
-		  case TAG_BOLDOFF :
-		    BOLD_BIT(f) = 0;
-		    break;
-
-		  case TAG_ULINEON :
-		    ULINE_BIT(f) = 1;
-		    break;
-
-		  case TAG_ULINEOFF :
-		    ULINE_BIT(f) = 0;
-		    break;
-
-		  case TAG_FGCOLOR :
-		    if(!HD(f)->color)
-		      HD(f)->color = new_color_pair(NULL, NULL);
-
-		    color_ptr = HD(f)->color->fg;
-		    embedded = 11;
-		    break;
-
-		  case TAG_BGCOLOR :
-		    if(!HD(f)->color)
-		      HD(f)->color = new_color_pair(NULL, NULL);
-
-		    color_ptr = HD(f)->color->bg;
-		    embedded = 11;
-		    break;
-
-		  case TAG_HANDLEOFF :
-		    ch = TAG_INVOFF;
-		    HD(f)->in_anchor = 0;
-		    break;
-
-		  default :
-		    break;
-		}
-
-		html_putc(f, ch);
-		break;
-
-	      case -1 :
-		embedded = ch;	/* number of embedded chars */
-		html_putc(f, ch);
-		break;
-
-	      default :
-		embedded--;
-		if(color_ptr)
-		  *color_ptr++ = ch;
-
-		if(embedded == 0 && color_ptr){
-		    *color_ptr = '\0';
-		    color_ptr = NULL;
-		}
-
-		html_putc(f, ch);
-		break;
-	    }
-	}
-    }
-}
-
-
-/*
- * flush any buffered chars waiting for wrapping.
- */
-void
-html_output_flush(f)
-    FILTER_S *f;
-{
-    if(f->f2){
-	if(f->n && ((int) f->n) + f->f2 > HD(f)->wrapcol)
-	  html_newline(f);		/* wrap? */
-
-	if(f->n){			/* text already on the line? */
-	    html_putc(f, ' ');
-	    f->n++;			/* increment count */
-	}
-	else{
-	    /* write at start of new line */
-	    html_write_indent(f, HD(f)->indent_level);
-
-	    if(HD(f)->in_anchor)
-	      html_write_anchor(f, HD(f)->in_anchor);
-	}
-
-	f->n += f->f2;
-	HTML_FLUSH(f);
-    }
-}
-
-
-
-/*
- * html_output_centered - managed writing centered text
- */
-void
-html_output_centered(f, ch)
-    FILTER_S *f;
-    int	      ch;
-{
-    if(!HD(f)->centered){		/* new text? */
-	html_output_flush(f);
-	if(f->n)			/* start on blank line */
-	  html_newline(f);
-
-	HD(f)->centered = (CENTER_S *) fs_get(sizeof(CENTER_S));
-	memset(HD(f)->centered, 0, sizeof(CENTER_S));
-	/* and grab a buf to start collecting centered text */
-	HD(f)->centered->line.len  = WRAP_COLS(f);
-	HD(f)->centered->line.buf  = (char *) fs_get(HD(f)->centered->line.len
-							      * sizeof(char));
-	HD(f)->centered->line.used = HD(f)->centered->line.width = 0;
-	HD(f)->centered->word.len  = 32;
-	HD(f)->centered->word.buf  = (char *) fs_get(HD(f)->centered->word.len
-							       * sizeof(char));
-	HD(f)->centered->word.used = HD(f)->centered->word.width = 0;
-    }
-
-    if(ch == HTML_NEWLINE){		/* hard newline */
-	html_centered_flush(f);
-    }
-    else if(ch == TAG_EMBED){		/* takes up no space */
-	HD(f)->centered->embedded = 1;
-	html_centered_putc(&HD(f)->centered->word, TAG_EMBED);
-    }
-    else if(HD(f)->centered->embedded){
-	static char *color_ptr = NULL;
-
-	if(ch == TAG_HANDLE){
-	    HD(f)->centered->embedded = -1; /* next ch is length */
-	}
-	else if(ch == TAG_FGCOLOR || ch == TAG_BGCOLOR){
-	    if(!HD(f)->color)
-	      HD(f)->color = new_color_pair(NULL, NULL);
-	    
-	    if(ch == TAG_FGCOLOR)
-	      color_ptr = HD(f)->color->fg;
-	    else
-	      color_ptr = HD(f)->color->bg;
-
-	    HD(f)->centered->embedded = 11;
-	}
-	else if(HD(f)->centered->embedded < 0){
-	    HD(f)->centered->embedded = ch; /* number of embedded chars */
-	}
-	else{
-	    HD(f)->centered->embedded--;
-	    if(color_ptr)
-	      *color_ptr++ = ch;
-	    
-	    if(HD(f)->centered->embedded == 0 && color_ptr){
-		*color_ptr = '\0';
-		color_ptr = NULL;
-	    }
-	}
-
-	html_centered_putc(&HD(f)->centered->word, ch);
-    }
-    else if(isspace((unsigned char) ch)){
-	if(!HD(f)->centered->space++){	/* end of a word? flush! */
-	    int i;
-
-	    if(WRAPPED_LEN(f) > HD(f)->wrapcol){
-		html_centered_flush_line(f);
-		/* fall thru to put current "word" on blank "line" */
-	    }
-	    else if(HD(f)->centered->line.width){
-		/* put space char between line and appended word */
-		html_centered_putc(&HD(f)->centered->line, ' ');
-		HD(f)->centered->line.width++;
-	    }
-
-	    for(i = 0; i < HD(f)->centered->word.used; i++)
-	      html_centered_putc(&HD(f)->centered->line,
-				 HD(f)->centered->word.buf[i]);
-
-	    HD(f)->centered->line.width += HD(f)->centered->word.width;
-	    HD(f)->centered->word.used  = 0;
-	    HD(f)->centered->word.width = 0;
-	}
-    }
-    else{
-	if(HD(f)->prefix)
-	  html_a_prefix(f);
-
-	/* ch is start of next word */
-	HD(f)->centered->space = 0;
-	if(HD(f)->centered->word.width >= WRAP_COLS(f))
-	  html_centered_flush(f);
-
-	html_centered_putc(&HD(f)->centered->word, ch);
-	HD(f)->centered->word.width++;
-    }
-}
-
-
-/*
- * html_centered_putc -- add given char to given WRAPLINE_S
- */
-void
-html_centered_putc(wp, ch)
-    WRAPLINE_S *wp;
-    int		ch;
-{
-    if(wp->used + 1 >= wp->len){
-	wp->len += 64;
-	fs_resize((void **) &wp->buf, wp->len * sizeof(char));
-    }
-
-    wp->buf[wp->used++] = ch;
-}
-
-
-
-/*
- * html_centered_flush - finish writing any pending centered output
- */
-void
-html_centered_flush(f)
-    FILTER_S *f;
-{
-    int i, h;
-
-    /*
-     * If word present (what about line?) we need to deal with
-     * appending it...
-     */
-    if(HD(f)->centered->word.width && WRAPPED_LEN(f) > HD(f)->wrapcol)
-      html_centered_flush_line(f);
-
-    if(WRAPPED_LEN(f)){
-	/* figure out how much to indent */
-	if((i = (WRAP_COLS(f) - WRAPPED_LEN(f))/2) > 0)
-	  html_write_indent(f, i);
-
-	if(HD(f)->centered->anchor)
-	  html_write_anchor(f, HD(f)->centered->anchor);
-
-	html_centered_handle(&HD(f)->centered->anchor,
-			     HD(f)->centered->line.buf,
-			     HD(f)->centered->line.used);
-	html_write(f, HD(f)->centered->line.buf, HD(f)->centered->line.used);
-
-	if(HD(f)->centered->word.used){
-	    if(HD(f)->centered->line.width)
-	      html_putc(f, ' ');
-
-	    html_centered_handle(&HD(f)->centered->anchor,
-				 HD(f)->centered->word.buf,
-				 HD(f)->centered->word.used);
-	    html_write(f, HD(f)->centered->word.buf,
-		       HD(f)->centered->word.used);
-	}
-
-	HD(f)->centered->line.used  = HD(f)->centered->word.used  = 0;
-	HD(f)->centered->line.width = HD(f)->centered->word.width = 0;
-    }
-    else
-      HD(f)->blanks++;			/* advance the blank line counter */
-
-    html_newline(f);			/* finish the line */
-}
-
-
-/*
- * html_centered_handle - scan the line for embedded handles
- */
-void
-html_centered_handle(h, line, len)
-    int  *h;
-    char *line;
-    int   len;
-{
-    int n;
-
-    while(len-- > 0)
-      if(*line++ == TAG_EMBED && len-- > 0)
-	switch(*line++){
-	  case TAG_HANDLE :
-	    if((n = *line++) >= --len){
-		*h = 0;
-		len -= n;
-		while(n--)
-		  *h = (*h * 10) + (*line++ - '0');
-	    }
-	    break;
-
-	  case TAG_HANDLEOFF :
-	  case TAG_INVOFF :
-	    *h = 0;		/* assumption 23,342: inverse off ends tags */
-	    break;
-
-	  default :
-	    break;
-	}
-}
-
-
-
-/*
- * html_centered_flush_line - flush the centered "line" only
- */
-void
-html_centered_flush_line(f)
-    FILTER_S *f;
-{
-    if(HD(f)->centered->line.used){
-	int i, j;
-
-	/* hide "word" from flush */
-	i = HD(f)->centered->word.used;
-	j = HD(f)->centered->word.width;
-	HD(f)->centered->word.used  = 0;
-	HD(f)->centered->word.width = 0;
-	html_centered_flush(f);
-
-	HD(f)->centered->word.used  = i;
-	HD(f)->centered->word.width = j;
-    }
-}
-
-
-/*
- * html_write_indent - write indention mindful of display attributes
- */
-void
-html_write_indent(f, indent)
-    FILTER_S *f;
-    int	      indent;
-{
-    if(! STRIP(f)){
-	if(BOLD_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_BOLDOFF);
-	}
-
-	if(ULINE_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_ULINEOFF);
-	}
-    }
-
-    f->n = indent;
-    while(indent-- > 0)
-      html_putc(f, ' ');		/* indent as needed */
-
-    /*
-     * Resume any previous embedded state
-     */
-    if(! STRIP(f)){
-	if(BOLD_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_BOLDON);
-	}
-
-	if(ULINE_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_ULINEON);
-	}
-    }
-}
-
-
-/*
- *
- */
-void
-html_write_anchor(f, anchor)
-    FILTER_S *f;
-    int	      anchor;
-{
-    char buf[256];
-    int  i;
-
-    html_putc(f, TAG_EMBED);
-    html_putc(f, TAG_HANDLE);
-    sprintf(buf, "%d", anchor);
-    html_putc(f, (int) strlen(buf));
-
-    for(i = 0; buf[i]; i++)
-      html_putc(f, buf[i]);
-}
-
-
-/*
- * html_write_newline - write a newline mindful of display attributes
- */
-void
-html_write_newline(f)
-    FILTER_S *f;
-{
-    if(! STRIP(f)){			/* First tie, off any embedded state */
-	if(HD(f)->in_anchor){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_INVOFF);
-	}
-
-	if(BOLD_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_BOLDOFF);
-	}
-
-	if(ULINE_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_ULINEOFF);
-	}
-
-	if(HD(f)->color && HD(f)->color->fg[0] && HD(f)->color->bg[0]){
-	    char        *p;
-	    int          i;
-
-	    p = color_embed(ps_global->VAR_NORM_FORE_COLOR,
-			    ps_global->VAR_NORM_BACK_COLOR);
-	    for(i = 0; i < 2 * (RGBLEN + 2); i++)
-	      html_putc(f, p[i]);
-	}
-    }
-
-    html_write(f, "\015\012", 2);
-
-    if(! STRIP(f)){			/* First tie, off any embedded state */
-	if(BOLD_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_BOLDON);
-	}
-
-	if(ULINE_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_ULINEON);
-	}
-
-	if(HD(f)->color && HD(f)->color->fg[0] && HD(f)->color->bg[0]){
-	    char        *p;
-	    int          i;
-	    COLOR_PAIR  *tmp;
-
-	    tmp = new_color_pair(HD(f)->color->fg, HD(f)->color->bg);
-	    if(pico_is_good_colorpair(tmp)){
-		p = color_embed(HD(f)->color->fg, HD(f)->color->bg);
-		for(i = 0; i < 2 * (RGBLEN + 2); i++)
-		  html_putc(f, p[i]);
-	    }
-
-	    HD(f)->color->fg[0] = '\0';
-	    HD(f)->color->bg[0] = '\0';
-
-	    if(tmp)
-	      free_color_pair(&tmp);
-	}
-    }
-}
-
-
-/*
- * html_write - write given int array to the next filter.
- */
-void
-html_write(f, s, n)
-    FILTER_S *f;
-    char     *s;
-    int	      n;
-{
-    GF_INIT(f, f->next);
-
-    while(n-- > 0){
-	/* keep track of attribute state?  Not if last char! */
-	if(*s == TAG_EMBED && n-- > 0){
-	    GF_PUTC(f->next, TAG_EMBED);
-	    switch(*++s){
-	      case TAG_BOLDON :
-		BOLD_BIT(f) = 1;
-		break;
-	      case TAG_BOLDOFF :
-		BOLD_BIT(f) = 0;
-		break;
-	      case TAG_ULINEON :
-		ULINE_BIT(f) = 1;
-		break;
-	      case TAG_ULINEOFF :
-		ULINE_BIT(f) = 0;
-		break;
-	      case TAG_HANDLEOFF :
-		HD(f)->in_anchor = 0;
-		GF_PUTC(f->next, TAG_INVOFF);
-		s++;
-		continue;
-	      case TAG_HANDLE :
-		if(n-- > 0){
-		    int i = *++s;
-
-		    GF_PUTC(f->next, TAG_HANDLE);
-		    if(i <= n){
-			n -= i;
-			GF_PUTC(f->next, i);
-			HD(f)->in_anchor = 0;
-			while(1){
-			    HD(f)->in_anchor = (HD(f)->in_anchor * 10)
-								+ (*++s - '0');
-			    if(--i)
-			      GF_PUTC(f->next, *s);
-			    else
-			      break;
-			}
-		    }
-		}
-
-		break;
-	      default:
-		break;
-	    }
-	}
-
-	GF_PUTC(f->next, (*s++) & 0xff);
-    }
-
-    GF_IP_END(f->next);			/* clean up next's input pointers */
-}
-
-
-/*
- * html_putc -- actual work of writing to next filter.
- *		NOTE: Small opt not using full GF_END since our input
- *		      pointers don't need adjusting.
- */
-void
-html_putc(f, ch)
-    FILTER_S *f;
-    int	      ch;
-{
-    GF_INIT(f, f->next);
-    GF_PUTC(f->next, ch & 0xff);
-    GF_IP_END(f->next);			/* clean up next's input pointers */
-}
-
-
-
-/*
- * Only current option is to turn on embedded data stripping for text
- * bound to a printer or composer.
- */
-void *
-gf_html2plain_opt(base, columns, flags)
-    char *base;
-    int	  columns, flags;
-{
-    HTML_OPT_S *op;
-
-    op = (HTML_OPT_S *) fs_get(sizeof(HTML_OPT_S));
-
-    op->base	    = cpystr(base);
-    op->columns	    = columns;
-    op->strip	    = ((flags & GFHP_STRIPPED) == GFHP_STRIPPED);
-    op->handles	    = ((flags & GFHP_HANDLES) == GFHP_HANDLES);
-    op->handles_loc = ((flags & GFHP_LOCAL_HANDLES) == GFHP_LOCAL_HANDLES);
-    return((void *) op);
-}
-
-
-/* END OF HTML-TO-PLAIN text filter */
-
-/*
- * ESCAPE CODE FILTER - remove unknown and possibly dangerous escape codes
- * from the text stream.
- */
-
-#define	MAX_ESC_LEN	5
-
-/*
- * the simple filter, removes unknown escape codes from the stream
- */
-void
-gf_escape_filter(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    register char *p;
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-
-	    if(state){
-		if(c == '\033' || f->n == MAX_ESC_LEN){
-		    f->line[f->n] = '\0';
-		    f->n = 0L;
-		    if(!match_escapes(f->line)){
-			GF_PUTC(f->next, '^');
-			GF_PUTC(f->next, '[');
-		    }
-		    else
-		      GF_PUTC(f->next, '\033');
-
-		    p = f->line;
-		    while(*p)
-		      GF_PUTC(f->next, *p++);
-
-		    if(c == '\033')
-		      continue;
-		    else
-		      state = 0;			/* fall thru */
-		}
-		else{
-		    f->line[f->n++] = c;		/* collect */
-		    continue;
-		}
-	    }
-
-	    if(c == '\033')
-	      state = 1;
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	if(f->f1){
-	    if(!match_escapes(f->line)){
-		GF_PUTC(f->next, '^');
-		GF_PUTC(f->next, '[');
-	    }
-	    else
-	      GF_PUTC(f->next, '\033');
-	}
-
-	for(p = f->line; f->n; f->n--, p++)
-	  GF_PUTC(f->next, *p);
-
-	fs_give((void **)&(f->line));	/* free temp line buffer */
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset escape\n"));
-	f->f1    = 0;
-	f->n     = 0L;
-	f->linep = f->line = (char *)fs_get((MAX_ESC_LEN + 1) * sizeof(char));
-    }
-}
-
-
-
-/*
- * CONTROL CHARACTER FILTER - transmogrify control characters into their
- * corresponding string representations (you know, ^blah and such)...
- */
-
-/*
- * the simple filter transforms unknown control characters in the stream
- * into harmless strings.
- */
-void
-gf_control_filter(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-
-	while(GF_GETC(f, c)){
-
-	    if(iscntrl(c & 0x7f)
-	       && !(isspace((unsigned char) c)
-		    || c == '\016' || c == '\017' || c == '\033')){
-		GF_PUTC(f->next, '^');
-		GF_PUTC(f->next, c + '@');
-	    }
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-}
-
-
-
-/*
- * LINEWRAP FILTER - insert CRLF's at end of nearest whitespace before
- * specified line width
- */
-
-
-typedef struct wrap_col_s {
-    unsigned	bold:1;
-    unsigned	uline:1;
-    unsigned	inverse:1;
-    unsigned	tags:1;
-    unsigned	do_indent:1;
-    unsigned	on_comma:1;
-    unsigned	quoted:1;
-    COLOR_PAIR *color;
-    short	embedded,
-		space_len;
-    char       *lineendp,
-		space;
-    int		anchor;
-    int		wrap_col,
-		wrap_max,
-		indent;
-    char	special[256];
-} WRAP_S;
-
-
-#define	WRAP_COL(F)	(((WRAP_S *)(F)->opt)->wrap_col)
-#define	WRAP_MAX_COL(F)	(((WRAP_S *)(F)->opt)->wrap_max)
-#define	WRAP_INDENT(F)	(((WRAP_S *)(F)->opt)->indent)
-#define	WRAP_DO_IND(F)	(((WRAP_S *)(F)->opt)->do_indent)
-#define	WRAP_COMMA(F)	(((WRAP_S *)(F)->opt)->on_comma)
-#define	WRAP_QUOTED(F)	(((WRAP_S *)(F)->opt)->quoted)
-#define	WRAP_TAGS(F)	(((WRAP_S *)(F)->opt)->tags)
-#define	WRAP_BOLD(F)	(((WRAP_S *)(F)->opt)->bold)
-#define	WRAP_ULINE(F)	(((WRAP_S *)(F)->opt)->uline)
-#define	WRAP_INVERSE(F)	(((WRAP_S *)(F)->opt)->inverse)
-#define	WRAP_COLOR(F)	(((WRAP_S *)(F)->opt)->color)
-#define	WRAP_LASTC(F)	(((WRAP_S *)(F)->opt)->lineendp)
-#define	WRAP_EMBED(F)	(((WRAP_S *)(F)->opt)->embedded)
-#define	WRAP_ANCHOR(F)	(((WRAP_S *)(F)->opt)->anchor)
-#define	WRAP_SPACE(F)	(((WRAP_S *)(F)->opt)->space)
-#define	WRAP_SPACES(F)	(WRAP_SPACE(F) ? (((WRAP_S *)(F)->opt)->space_len): 0)
-#define	WRAP_SPC_LEN(F)	(((WRAP_S *)(F)->opt)->space_len)
-#define	WRAP_SPEC(S, C)	(S)[C]
-
-#define	WRAP_EOL(F)	{						\
-			    if(WRAP_BOLD(F)){				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_BOLDOFF);	\
-			    }						\
-			    if(WRAP_ULINE(F)){				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_ULINEOFF);	\
-			    }						\
-			    if(WRAP_INVERSE(F) || WRAP_ANCHOR(F)){	\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_INVOFF);		\
-			    }						\
-			    if(WRAP_COLOR(F)){				\
-				char *p;				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_FGCOLOR);	\
-				p = color_to_asciirgb(ps_global->VAR_NORM_FORE_COLOR);\
-				for(; *p; p++)				\
-				  GF_PUTC((F)->next, *p);		\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_BGCOLOR);	\
-				p = color_to_asciirgb(ps_global->VAR_NORM_BACK_COLOR);\
-				for(; *p; p++)				\
-				  GF_PUTC((F)->next, *p);		\
-			    }						\
-			    GF_PUTC((F)->next, '\015');			\
-			    GF_PUTC((F)->next, '\012');			\
-			    f->n = 0L;					\
-			    WRAP_SPACE(F) = 0;				\
-			}
-
-#define	WRAP_BOL(F)	{						\
-			    if(WRAP_BOLD(F)){				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_BOLDON);		\
-			    }						\
-			    if(WRAP_ULINE(F)){				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_ULINEON);	\
-			    }						\
-			    if(WRAP_INVERSE(F)){			\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_INVON);		\
-			    }						\
-			    if(WRAP_COLOR(F)){				\
-				char *p;				\
-				if(WRAP_COLOR(F)->fg[0]){		\
-				  GF_PUTC((F)->next, TAG_EMBED);	\
-				  GF_PUTC((F)->next, TAG_FGCOLOR);	\
-				  p = color_to_asciirgb(WRAP_COLOR(F)->fg);\
-				  for(; *p; p++)			\
-				    GF_PUTC((F)->next, *p);		\
-				}					\
-				if(WRAP_COLOR(F)->bg[0]){		\
-				  GF_PUTC((F)->next, TAG_EMBED);	\
-				  GF_PUTC((F)->next, TAG_BGCOLOR);	\
-				  p = color_to_asciirgb(WRAP_COLOR(F)->bg);\
-				  for(; *p; p++)			\
-				    GF_PUTC((F)->next, *p);		\
-				}					\
-			    }						\
-			    if(WRAP_ANCHOR(F)){				\
-				char buf[64]; int i;			\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_HANDLE);		\
-				sprintf(buf, "%d", WRAP_ANCHOR(F));	\
-				GF_PUTC((F)->next, (int) strlen(buf));	\
-				for(i = 0; buf[i]; i++)			\
-				  GF_PUTC((F)->next, buf[i]);		\
-			    }						\
-			}
-
-#define	WRAP_PUTC(F,C)	{						\
-			    if((F)->linep == WRAP_LASTC(F)){		\
-				size_t offset = (F)->linep - (F)->line;	\
-				fs_resize((void **) &(F)->line,		\
-					  (2 * offset) * sizeof(char)); \
-				(F)->linep = &(F)->line[offset];	\
-				WRAP_LASTC(F) = &(F)->line[2*offset-1];	\
-			    }						\
-			    *(F)->linep++ = (C);			\
-			}
-
-#define	WRAP_FLUSH(F)	{						\
-			    register char *s = f->line;			\
-			    register int   n;				\
-			    if(!f->n){					\
-				if(WRAP_DO_IND(F)){			\
-				    if(f->n = (long)(n = WRAP_INDENT(F))) \
-				      while(n-- > 0)			\
-					GF_PUTC((F)->next, ' ');	\
-				    WRAP_DO_IND(F) = 0;			\
-				}					\
-				WRAP_BOL(F);				\
-			    }						\
-			    if(WRAP_SPACE(F)){				\
-				GF_PUTC(f->next, WRAP_SPACE(F));	\
-				WRAP_SPACE(F) = 0;			\
-				f->n += WRAP_SPC_LEN(F);		\
-			    }						\
-			    for(n = f->linep - f->line; n > 0; n--){	\
-				if(*s == TAG_EMBED){			\
-				    if(n-- > 0){			\
-					GF_PUTC(f->next, TAG_EMBED);	\
-					switch(*++s){			\
-					  case TAG_BOLDON :		\
-					    WRAP_BOLD(f) = 1;		\
-					    break;			\
-					  case TAG_BOLDOFF :		\
-					    WRAP_BOLD(f) = 0;		\
-					    break;			\
-					  case TAG_ULINEON :		\
-					    WRAP_ULINE(f) = 1;		\
-					    break;			\
-					  case TAG_ULINEOFF :		\
-					    WRAP_ULINE(f) = 0;		\
-					    break;			\
-					  case TAG_INVOFF :		\
-					    WRAP_ANCHOR(f) = 0;		\
-					    break;			\
-					  case TAG_HANDLE :		\
-					    if(n-- > 0){		\
-						int i = *++s;		\
-						GF_PUTC(f->next, TAG_HANDLE); \
-						if(i <= n){		\
-						    n -= i;		\
-						    GF_PUTC(f->next, i); \
-						    WRAP_ANCHOR(f) = 0;	\
-						    while(1){		\
-							WRAP_ANCHOR(f)	\
-							  = (WRAP_ANCHOR(f) \
-							        * 10)	\
-								+ (*++s-'0');\
-							if(--i)		\
-							  GF_PUTC(f->next,*s);\
-							else		\
-							  break;	\
-						    }			\
-						}			\
-					    }				\
-					    break;			\
-					  case TAG_FGCOLOR :		\
-					    if(pico_usingcolor()	\
-					       && n >= RGBLEN){		\
-					      if(!WRAP_COLOR(f))	\
-						WRAP_COLOR(f)=new_color_pair(NULL,NULL); \
-					      strncpy(WRAP_COLOR(f)->fg, \
-						      s+1, RGBLEN);	\
-					      WRAP_COLOR(f)->fg[RGBLEN]='\0'; \
-					      i = RGBLEN;		\
-					      n -= i;			\
-					      while(i-- > 0)		\
-						GF_PUTC(f->next,	\
-							(*s++) & 0xff);	\
-					    }				\
-					    break;			\
-					  case TAG_BGCOLOR :		\
-					    if(pico_usingcolor()	\
-					       && n >= RGBLEN){		\
-					      if(!WRAP_COLOR(f))	\
-						WRAP_COLOR(f)=new_color_pair(NULL,NULL); \
-					      strncpy(WRAP_COLOR(f)->bg,\
-						      s+1, RGBLEN);	\
-					      WRAP_COLOR(f)->bg[RGBLEN]='\0'; \
-					      i = RGBLEN;		\
-					      n -= i;			\
-					      while(i-- > 0)		\
-						GF_PUTC(f->next,	\
-							(*s++) & 0xff);	\
-					    }				\
-					    break;			\
-					  default :			\
-					    break;			\
-					}				\
-				    }					\
-				}					\
-				else					\
-				  f->n++;				\
-				GF_PUTC(f->next, (*s++) & 0xff);	\
-			    }						\
-			    f->f2    = 0;				\
-			    f->linep = f->line;				\
-			}
-
-
-
-
-/*
- * the simple filter, breaks lines at end of white space nearest
- * to global "gf_wrap_width" in length
- */
-void
-gf_wrap(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    register long i;
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-	int	     wrap_threshold = WRAP_MAX_COL(f) - WRAP_INDENT(f);
-	char	    *special = ((WRAP_S *) f->opt)->special;
-
-	while(GF_GETC(f, c)){
-
-	    switch(state){
-	      case CCR :
-		state = DFL;			/* CRLF or CR in text ? */
-		WRAP_FLUSH(f);			/* it's a newline to us */
-		WRAP_EOL(f);
-		WRAP_BOL(f);
-		if(c == '\012')			/* process anything but LF */
-		  break;
-
-	      case DFL :
-		if(WRAP_SPEC(special, c))
-		  switch(c){
-		    default :
-		      if(WRAP_QUOTED(f))
-			break;
-
-		      WRAP_FLUSH(f);		/* flush buf */
-		      switch(WRAP_SPACE(f) = c){ /* remember separator */
-			case ' ' :
-			  WRAP_SPC_LEN(f) = 1;
-			  break;
-
-			case TAB :
-			{
-			    int i = (int) f->n;
-			    while(++i & 0x07)
-			      ;
-
-			    WRAP_SPC_LEN(f) = i - (int) f->n;
-			}
-
-			break;
-
-			default :		/* some control char? */
-			  WRAP_SPC_LEN(f) = 2;
-			  break;
-		      }
-
-		      continue;
-
-		    case '\"' :
-		      WRAP_QUOTED(f) = !WRAP_QUOTED(f);
-		      break;
-
-		    case '\015' :		/* already has newline? */
-		      state = CCR;
-		      continue;
-
-		    case '\012' :		/* bare LF in text? */
-		      WRAP_FLUSH(f);		/* they must've meant */
-		      WRAP_EOL(f);		/* newline... */
-		      WRAP_BOL(f);
-		      continue;
-
-		    case (unsigned char) TAG_EMBED :
-		      WRAP_PUTC(f, TAG_EMBED);
-		      state = TAG;
-		      continue;
-
-		    case ',' :
-		      if(!WRAP_QUOTED(f)){
-			  WRAP_PUTC(f, ',');
-			  WRAP_FLUSH(f);
-			  WRAP_SPACE(f) = 0;
-			  continue;
-		      }
-
-		      break;
-		  }
-
-		if(!f->n && (f->f2 >= wrap_threshold)){
-		    char *ep, *space = NULL;
-		    int   cntr, new_f2;
-
-		    /* Flush the buf'd line up to last WS */
-		    if(WRAP_COMMA(f)){
-			char *p;
-
-			new_f2 = cntr = f->f2;
-			for(p = f->line; p < f->linep; p++){
-			    /*
-			     * Don't split at WS which is in the middle
-			     * of a tag.
-			     */
-			    switch((unsigned char)*p){
-			      case (unsigned char)TAG_EMBED:
-				if(++p >= f->linep)
-				  break;
-
-				switch(*p){
-				  case TAG_FGCOLOR:
-				  case TAG_BGCOLOR:
-				    p += RGBLEN;
-				    break;
-
-				  case TAG_HANDLE:
-				    if(++p >= f->linep)
-				      break;
-					
-				    p += (*p);
-				    break;
-
-				  default:
-				    break;
-				}
-
-				continue;
-				break;
-				
-			      default:
-				break;
-			    }
-				
-			    cntr--;
-
-			    if(p < f->linep && isspace((unsigned char)*p)){
-				space = p;
-				new_f2 = cntr;
-			    }
-			}
-
-			if(space){
-			    ep = f->linep;
-			    f->linep = space;
-			}
-		    }
-
-		    WRAP_FLUSH(f);		/* write buffered */
-		    WRAP_EOL(f);		/* write end of line */
-		    WRAP_DO_IND(f) = 1;		/* indent next line */
-
-		    if(space){
-			f->linep = f->line;
-			while(++space < ep)
-			  *f->linep++ = *space;
-
-			f->f2 = new_f2;
-		    }
-		}
-
-		WRAP_PUTC(f, c);
-
-		if(c == '\t' && WRAP_COMMA(f)){
-		    int i = (int) f->n;
-		    while(++i & 0x07)
-		      ;
-
-		    f->f2 += i - (int) f->n;
-		}
-		else
-		  f->f2++;
-
-		if(f->n && (f->n + f->f2 + WRAP_SPACES(f) >= WRAP_COL(f))){
-		    WRAP_EOL(f);		/* write end of line */
-		    WRAP_DO_IND(f) = 1;		/* indent next line */
-		}
-
-		break;
-
-	      case TAG :
-		WRAP_PUTC(f, c);
-		switch(c){
-		  case TAG_HANDLE :
-		    WRAP_EMBED(f) = -1;
-		    state = HANDLE;
-		    break;
-
-		  case TAG_FGCOLOR :
-		  case TAG_BGCOLOR :
-		    WRAP_EMBED(f) = RGBLEN;
-		    state = HDATA;
-		    break;
-
-		  default :
-		    state = DFL;
-		    break;
-		}
-
-		break;
-
-	      case HANDLE :
-		WRAP_PUTC(f, c);
-		WRAP_EMBED(f) = c;
-		state = HDATA;
-		break;
-
-	      case HDATA :
-		WRAP_PUTC(f, c);
-		if(!(WRAP_EMBED(f) -= 1))
-		  state = DFL;
-
-		break;
-	    }
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	WRAP_FLUSH(f);
-	if(WRAP_COLOR(f))
-	  free_color_pair(&WRAP_COLOR(f));
-
-	fs_give((void **) &f->line);	/* free temp line buffer */
-	fs_give((void **) &f->opt);	/* free wrap widths struct */
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset wrap\n"));
-	f->f1    = DFL;
-	f->n     = 0L;		/* displayed length of line so far */
-	f->f2	 = 0;		/* displayed length of buffered chars */
-	if(! (WRAP_S *) f->opt)
-	  f->opt = gf_wrap_filter_opt(75, 80, 0, 0);
-
-	while(WRAP_INDENT(f) >= WRAP_MAX_COL(f))
-	  WRAP_INDENT(f) /= 2;
-
-	f->line  = (char *) fs_get(WRAP_MAX_COL(f) * sizeof(char));
-	f->linep = f->line;
-	WRAP_LASTC(f) = &f->line[WRAP_MAX_COL(f) - 1];
-
-	for(i = 0; i < 256; i++)
-	  ((WRAP_S *) f->opt)->special[i] = ((i == '\"' && WRAP_COMMA(f))
-					     || i == '\015'
-					     || i == '\012'
-					     || (i == (unsigned char) TAG_EMBED
-						 && WRAP_TAGS(f))
-					     || (i == ',' && WRAP_COMMA(f)
-						 && !WRAP_QUOTED(f))
-					     || (!WRAP_COMMA(f)
-					      && isspace((unsigned char) i)));
-    }
-}
-
-
-/*
- * function called from the outside to set
- * wrap filter's width option
- */
-void *
-gf_wrap_filter_opt(width, width_max, indent, flags)
-    int width, width_max, indent, flags;
-{
-    WRAP_S *wrap;
-
-    wrap = (WRAP_S *) fs_get(sizeof(WRAP_S));
-    memset(wrap, 0, sizeof(WRAP_S));
-    wrap->wrap_col = width;
-    wrap->wrap_max = width_max;
-    wrap->indent   = indent;
-    wrap->tags	   = (GFW_HANDLES & flags) == GFW_HANDLES;
-    wrap->on_comma = (GFW_ONCOMMA & flags) == GFW_ONCOMMA;
-    return((void *) wrap);
-}
-
-
-
-
-/*
- * LINE PREFIX FILTER - insert given text at beginning of each
- * line
- */
-
-
-#define	GF_PREFIX_WRITE(s)	{ \
-				    register char *p; \
-				    if(p = (s)) \
-				      while(*p) \
-					GF_PUTC(f->next, *p++); \
-				}
-
-
-/*
- * the simple filter, prepends each line with the requested prefix.
- * if prefix is null, does nothing, and as with all filters, assumes
- * NVT end of lines.
- */
-void
-gf_prefix(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-	register int first = f->f2;
-
-	while(GF_GETC(f, c)){
-
-	    if(first){			/* write initial prefix!! */
-		first = 0;		/* but just once */
-		GF_PREFIX_WRITE((char *) f->opt);
-	    }
-	    else if(state){
-		state = 0;
-		GF_PUTC(f->next, '\015');
-		if(c == '\012'){
-		    GF_PUTC(f->next, '\012');
-		    GF_PREFIX_WRITE((char *) f->opt);
-		    continue;
-		}
-		/* else fall thru to handle 'c' */
-	    }
-
-	    if(c == '\015')		/* already has newline? */
-	      state = 1;
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	f->f1 = state;
-	f->f2 = first;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset prefix\n"));
-	f->f1   = 0;
-	f->f2   = 1;			/* nothing written yet */
-    }
-}
-
-
-/*
- * function called from the outside to set
- * prefix filter's prefix string
- */
-void *
-gf_prefix_opt(prefix)
-    char *prefix;
-{
-    return((void *) prefix);
-}
-
-
-/*
- * LINE TEST FILTER - accumulate lines and offer each to the provided
- * test function.
- */
-
-typedef struct _linetest_s {
-    linetest_t	f;
-    void       *local;
-} LINETEST_S;
-
-
-/* accumulator growth increment */
-#define	LINE_TEST_BLOCK	1024
-
-#define	GF_LINE_TEST_EOB(f) \
-			((f)->line + ((f)->f2 - 1))
-
-#define	GF_LINE_TEST_ADD(f, c) \
-			{ \
-				    if(p >= eobuf){ \
-					f->f2 += LINE_TEST_BLOCK; \
-					fs_resize((void **)&f->line, \
-					      (size_t) f->f2 * sizeof(char)); \
-					eobuf = GF_LINE_TEST_EOB(f); \
-					p = eobuf - LINE_TEST_BLOCK; \
-				    } \
-				    *p++ = c; \
-				}
-
-#define	GF_LINE_TEST_TEST(F, D) \
-			{ \
-			    unsigned char  c; \
-			    register char *cp; \
-			    register int   l; \
-			    LT_INS_S	  *ins = NULL, *insp; \
-			    *p = '\0'; \
-			    (D) = (*((LINETEST_S *) (F)->opt)->f)((F)->n++, \
-					   (F)->line, &ins, \
-					   ((LINETEST_S *) (F)->opt)->local); \
-			    if((D) < 2){ \
-				for(insp = ins, cp = (F)->line; cp < p; ){ \
-				    while(insp && cp == insp->where){ \
-					for(l = 0; l < insp->len; l++){ \
-					    c = (unsigned char) insp->text[l];\
-					    GF_PUTC((F)->next, c); \
-					} \
-					insp = insp->next; \
-				    } \
-				    GF_PUTC((F)->next, *cp); \
-				    cp++; \
-				} \
-				while(insp){ \
-				    for(l = 0; l < insp->len; l++){ \
-					c = (unsigned char) insp->text[l]; \
-					GF_PUTC((F)->next, c); \
-				    } \
-				    insp = insp->next; \
-				} \
-				gf_line_test_free_ins(&ins); \
-			    } \
-			}
-
-
-
-/*
- * this simple filter accumulates characters until a newline, offers it
- * to the provided test function, and then passes it on.  It assumes
- * NVT EOLs.
- */
-void
-gf_line_test(f, flg)
-    FILTER_S *f;
-    int	      flg;
-{
-    register char *p = f->linep;
-    register char *eobuf = GF_LINE_TEST_EOB(f);
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-
-	    if(state){
-		state = 0;
-		if(c == '\012'){
-		    int done;
-
-		    GF_LINE_TEST_TEST(f, done);
-
-		    p = (f)->line;
-
-		    if(done == 2)	/* skip this line! */
-		      continue;
-
-		    GF_PUTC(f->next, '\015');
-		    GF_PUTC(f->next, '\012');
-		    /*
-		     * if the line tester returns TRUE, it's
-		     * telling us its seen enough and doesn't
-		     * want to see any more.  Remove ourself
-		     * from the pipeline...
-		     */
-		    if(done){
-			if(gf_master == f){
-			    gf_master = f->next;
-			}
-			else{
-			    FILTER_S *fprev;
-
-			    for(fprev = gf_master;
-				fprev && fprev->next != f;
-				fprev = fprev->next)
-			      ;
-
-			    if(fprev)		/* wha??? */
-			      fprev->next = f->next;
-			    else
-			      continue;
-			}
-
-			while(GF_GETC(f, c))	/* pass input */
-			  GF_PUTC(f->next, c);
-
-			GF_FLUSH(f->next);	/* and drain queue */
-			fs_give((void **)&f->line);
-			fs_give((void **)&f);	/* wax our data */
-			return;
-		    }
-		    else
-		      continue;
-		}
-		else			/* add CR to buffer */
-		  GF_LINE_TEST_ADD(f, '\015');
-	    } /* fall thru to handle 'c' */
-
-	    if(c == '\015')		/* newline? */
-	      state = 1;
-	    else
-	      GF_LINE_TEST_ADD(f, c);
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	int i;
-
-	GF_LINE_TEST_TEST(f, i);	/* examine remaining data */
-	fs_give((void **) &f->line);	/* free line buffer */
-	fs_give((void **) &f->opt);	/* free test struct */
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset line_test\n"));
-	f->f1 = 0;			/* state */
-	f->n  = 0L;			/* line number */
-	f->f2 = LINE_TEST_BLOCK;	/* size of alloc'd line */
-	f->line = p = (char *) fs_get(f->f2 * sizeof(char));
-    }
-
-    f->linep = p;
-}
-
-
-/*
- * function called from the outside to operate on accumulated line.
- */
-void *
-gf_line_test_opt(test_f, local)
-    linetest_t  test_f;
-    void       *local;
-{
-    LINETEST_S *ltp;
-
-    ltp = (LINETEST_S *) fs_get(sizeof(LINETEST_S));
-    memset(ltp, 0, sizeof(LINETEST_S));
-    ltp->f     = test_f;
-    ltp->local = local;
-    return((void *) ltp);
-}
-
-
-
-LT_INS_S **
-gf_line_test_new_ins(ins, p, s, n)
-    LT_INS_S **ins;
-    char      *p, *s;
-    int	       n;
-{
-    *ins = (LT_INS_S *) fs_get(sizeof(LT_INS_S));
-    if((*ins)->len = n)
-      strncpy((*ins)->text = (char *) fs_get(n * sizeof(char)), s, n);
-
-    (*ins)->where = p;
-    (*ins)->next  = NULL;
-    return(&(*ins)->next);
-}
-
-
-void
-gf_line_test_free_ins(ins)
-    LT_INS_S **ins;
-{
-    if(ins && *ins){
-	if((*ins)->next)
-	  gf_line_test_free_ins(&(*ins)->next);
-
-	if((*ins)->text)
-	  fs_give((void **) &(*ins)->text);
-
-	fs_give((void **) ins);
-    }
-}
-
-
-/*
- * Network virtual terminal to local newline convention filter
- */
-void
-gf_nvtnl_local(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-	    if(state){
-		state = 0;
-		if(c == '\012'){
-		    GF_PUTC(f->next, '\012');
-		    continue;
-		}
-		else
-		  GF_PUTC(f->next, '\015');
-		/* fall thru to deal with 'c' */
-	    }
-
-	    if(c == '\015')
-	      state = 1;
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset nvtnl_local\n"));
-	f->f1 = 0;
-    }
-}
-
-
-/*
- * local to network newline convention filter
- */
-void
-gf_local_nvtnl(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-
-	while(GF_GETC(f, c)){
-	    if(c == '\012'){
-		GF_PUTC(f->next, '\015');
-		GF_PUTC(f->next, '\012');
-	    }
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset local_nvtnl\n"));
-	/* no op */
-    }
-
-}
-
-#if defined(DOS) || defined(OS2)
-/*
- * DOS CodePage to Character Set Translation (and back) filters
- */
-
-/*
- * Charset and CodePage mapping table pointer and length
- */
-static unsigned char *gf_xlate_tab;
-static unsigned gf_xlate_tab_len;
-
-/*
- * the simple filter takes DOS Code Page values and maps them into
- * the indicated external CharSet mapping or vice-versa.
- */
-void
-gf_translate(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-
-	while(GF_GETC(f, c))
-	  if((unsigned long) c < ((SIZEDTEXT *) (f->opt))->size)
-	    GF_PUTC(f->next, (int) ((SIZEDTEXT *) (f->opt))->data[c]);
-
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	fs_give((void **) &f->opt);	/* free up table description */
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset translate\n"));
-    }
-}
-
-
-/*
- * function called from the outside to set
- * prefix filter's prefix string
- */
-void *
-gf_translate_opt(xlatetab, xlatetablen)
-    unsigned char *xlatetab;
-    unsigned       xlatetablen;
-{
-    SIZEDTEXT *xlate_tab = (SIZEDTEXT *) fs_get(sizeof(SIZEDTEXT));
-
-    xlate_tab->data = xlatetab;
-    xlate_tab->size = (unsigned long) xlatetablen;
-
-    return((void *) xlate_tab);
-}
-#endif
-
-/*
- * display something indicating we're chewing on something
- *
- * NOTE : IF ANY OTHER FILTERS WRITE THE DISPLAY, THIS WILL NEED FIXING
- */
-void
-gf_busy(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    static short x = 0;
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-
-	while(GF_GETC(f, c)){
-
-	    if(!((++(f->f1))&0x7ff)){ 	/* ding the bell every 2K chars */
-		MoveCursor(0, 1);
-		f->f1 = 0;
-		if((++x)&0x04) x = 0;
-		Writechar((x == 0) ? '/' : 	/* CHEATING! */
-			  (x == 1) ? '-' :
-			  (x == 2) ? '\\' : '|', 0);
-	    }
-
-	    GF_PUTC(f->next, c);
-	}
-
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	MoveCursor(0, 1);
-	Writechar(' ', 0);
-	EndInverse();
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset busy\n"));
-	f->f1 = 0;
-        x = 0;
-	StartInverse();
-    }
-
-    fflush(stdout);
-}
diff --git a/net-mail/pine-maildir/files/os.c b/net-mail/pine-maildir/files/os.c
deleted file mode 100644
index 2fd967904207..000000000000
--- a/net-mail/pine-maildir/files/os.c
+++ /dev/null
@@ -1,5673 +0,0 @@
-/*----------------------------------------------------------------------
-
-            T H E    P I N E    M A I L   S Y S T E M
-
-   Laurence Lundblade and Mike Seibel
-   Networks and Distributed Computing
-   Computing and Communications
-   University of Washington
-   Administration Builiding, AG-44
-   Seattle, Washington, 98195, USA
-   Internet: lgl@CAC.Washington.EDU
-             mikes@CAC.Washington.EDU
-
-   Please address all bugs and comments to "pine-bugs@cac.washington.edu"
-
-
-   Pine and Pico are registered trademarks of the University of Washington.
-   No commercial use of these trademarks may be made without prior written
-   permission of the University of Washington.
-
-   Pine, Pico, and Pilot software and its included text are Copyright
-   1989-1998 by the University of Washington.
-
-   The full text of our legal notices is contained in the file called
-   CPYRIGHT, included with this distribution.
-
-
-   Pine is in part based on The Elm Mail System:
-    ***********************************************************************
-    *  The Elm Mail System  -  Revision: 2.13                             *
-    *                                                                     *
-    * 			Copyright (c) 1986, 1987 Dave Taylor              *
-    * 			Copyright (c) 1988, 1989 USENET Community Trust   *
-    ***********************************************************************
- 
-
-  ----------------------------------------------------------------------*/
-
-/*======================================================================
-
- This contains most of Pine's interface to the local operating system
-and hardware.  Hopefully this file, os-xxx.h and makefile.xxx are the
-only ones that have to be modified for most ports.  Signals.c, ttyin.c,
-and ttyout.c also have some dependencies.  See the doc/tech-notes for
-notes on porting Pine to other platforms.  Here is a list of the functions
-required for an implementation:
-
-
-  File System Access
-     can_access          -- See if a file can be accessed
-     name_file_size      -- Return the number of bytes in the file (by name)
-     fp_file_size        -- Return the number of bytes in the file (by FILE *)
-     name_file_mtime     -- Return the mtime of a file (by name)
-     fp_file_mtime       -- Return the mtime of a file (by FILE *)
-     file_attrib_copy    -- Copy attributes of one file to another.
-     is_writable_dir     -- Check to see if directory exists and is writable
-     create_mail_dir     -- Make a directory
-     rename_file         -- change name of a file
-     build_path          -- Put together a file system path
-     last_cmpnt          -- Returns pointer to last component of path
-     expand_foldername   -- Expand a folder name to full path
-     fnexpand            -- Do filename exansion for csh style "~"
-     filter_filename     -- Make sure file name hasn't got weird chars
-     cntxt_allowed       -- Check whether a pathname is allowed for read/write
-     disk_quota          -- Check the user's disk quota
-     read_file           -- Read whole file into memory (for small files)
-     create_tmpfile      -- Just like ANSI C tmpfile function
-     temp_nam            -- Almost like common tempnam function
-     fget_pos,fset_pos   -- Just like ANSI C fgetpos, fsetpos functions
-
-  Abort
-     coredump            -- Abort running Pine dumping core if possible
-
-  System Name and Domain
-     hostname            -- Figure out the system's host name, only
-                              used internally in this file.
-     getdomainnames      -- Figure out the system's domain name
-     canonical_name      -- Returns canonical form of host name
-
-  Job Control
-     have_job_control    -- Returns 1 if job control exists
-     stop_process        -- What to do to stop process when it's time to stop
-			      (only used if have_job_control returns 1)
-
-  System Error Messages (in case given one is a problem)
-     error_description   -- Returns string describing error
-
-  System Password and Accounts
-     gcos_name           -- Parses full name from system, only used
-			      locally in this file so if you don't use it you
-			      don't need it
-     get_user_info       -- Finds in login name, full name, and homedir
-     local_name_lookup   -- Get full name of user on system
-     change_passwd       -- Calls system password changer
-
-  MIME utilities
-     mime_can_display    -- Can we display this type/subtype?
-     exec_mailcap_cmd    -- Run the mailcap command to view a type/subtype.
-     exec_mailcap_test_cmd -- Run mailcap test= test command.
-
-  Other stuff
-     srandom             -- Dummy srandom if you don't have this function
-     init_debug
-     do_debug
-     save_debug_on_crash
-
-  ====*/
-
-
-#include "headers.h"
-
-
-
-/*----------------------------------------------------------------------
-       Check if we can access a file in a given way
-
-   Args: file      -- The file to check
-         mode      -- The mode ala the access() system call, see ACCESS_EXISTS
-                      and friends in pine.h.
-
- Result: returns 0 if the user can access the file according to the mode,
-         -1 if he can't (and errno is set).
- ----*/
-int
-can_access(file, mode)
-    char *file;
-    int   mode;
-{
-    return(access(file, mode));
-}
-
-
-/*----------------------------------------------------------------------
-       Check if we can access a file in a given way in the given path
-
-   Args: path     -- The path to look for "file" in
-	 file      -- The file to check
-         mode      -- The mode ala the access() system call, see ACCESS_EXISTS
-                      and friends in pine.h.
-
- Result: returns 0 if the user can access the file according to the mode,
-         -1 if he can't (and errno is set).
- ----*/
-can_access_in_path(path, file, mode)
-    char *path, *file;
-    int   mode;
-{
-    char tmp[MAXPATH], *path_copy, *p, *t;
-    int  rv = -1;
-
-    if(!path || !*path || *file == '/'){
-	rv = access(file, mode);
-    }
-    else if(*file == '~'){
-	strcpy(tmp, file);
-	rv = fnexpand(tmp, sizeof(tmp)) ? access(tmp, mode) : -1;
-    }
-    else{
-	for(p = path_copy = cpystr(path); p && *p; p = t){
-	    if(t = strindex(p, ':'))
-	      *t++ = '\0';
-
-	    sprintf(tmp, "%s/%s", p, file);
-	    if((rv = access(tmp, mode)) == 0)
-	      break;
-	}
-
-	fs_give((void **)&path_copy);
-    }
-
-    return(rv);
-}
-
-/*----------------------------------------------------------------------
-      Return the number of bytes in given file
-
-    Args: file -- file name
-
-  Result: the number of bytes in the file is returned or
-          -1 on error, in which case errno is valid
- ----*/
-long
-name_file_size(file)
-    char *file;
-{
-    struct stat buffer;
-
-    if(stat(file, &buffer) != 0)
-      return(-1L);
-
-    return((long)buffer.st_size);
-}
-
-
-/*----------------------------------------------------------------------
-      Return the number of bytes in given file
-
-    Args: fp -- FILE * for open file
-
-  Result: the number of bytes in the file is returned or
-          -1 on error, in which case errno is valid
- ----*/
-long
-fp_file_size(fp)
-    FILE *fp;
-{
-    struct stat buffer;
-
-    if(fstat(fileno(fp), &buffer) != 0)
-      return(-1L);
-
-    return((long)buffer.st_size);
-}
-
-
-/*----------------------------------------------------------------------
-      Return the modification time of given file
-
-    Args: file -- file name
-
-  Result: the time of last modification (mtime) of the file is returned or
-          -1 on error, in which case errno is valid
- ----*/
-time_t
-name_file_mtime(file)
-    char *file;
-{
-    struct stat buffer;
-
-    if(stat(file, &buffer) != 0)
-      return((time_t)(-1));
-
-    return(buffer.st_mtime);
-}
-
-
-/*----------------------------------------------------------------------
-      Return the modification time of given file
-
-    Args: fp -- FILE * for open file
-
-  Result: the time of last modification (mtime) of the file is returned or
-          -1 on error, in which case errno is valid
- ----*/
-time_t
-fp_file_mtime(fp)
-    FILE *fp;
-{
-    struct stat buffer;
-
-    if(fstat(fileno(fp), &buffer) != 0)
-      return((time_t)(-1));
-
-    return(buffer.st_mtime);
-}
-
-
-/*----------------------------------------------------------------------
-      Copy the mode, owner, and group of sourcefile to targetfile.
-
-    Args: targetfile -- 
-	  sourcefile --
-    
-    We don't bother keeping track of success or failure because we don't care.
- ----*/
-void
-file_attrib_copy(targetfile, sourcefile)
-    char *targetfile;
-    char *sourcefile;
-{
-    struct stat buffer;
-
-    if(stat(sourcefile, &buffer) == 0){
-	chmod(targetfile, buffer.st_mode);
-#if !defined(DOS) && !defined(OS2)
-	chown(targetfile, buffer.st_uid, buffer.st_gid);
-#endif
-    }
-}
-
-
-
-/*----------------------------------------------------------------------
-      Check to see if a directory exists and is writable by us
-
-   Args: dir -- directory name
-
- Result:       returns 0 if it exists and is writable
-                       1 if it is a directory, but is not writable
-                       2 if it is not a directory
-                       3 it doesn't exist.
-  ----*/
-is_writable_dir(dir)
-    char *dir;
-{
-    struct stat sb;
-
-    if(stat(dir, &sb) < 0)
-      /*--- It doesn't exist ---*/
-      return(3);
-
-    if(!(sb.st_mode & S_IFDIR))
-      /*---- it's not a directory ---*/
-      return(2);
-
-    if(can_access(dir, 07))
-      return(1);
-    else
-      return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Create the mail subdirectory.
-
-  Args: dir -- Name of the directory to create
- 
- Result: Directory is created.  Returns 0 on success, else -1 on error
-	 and errno is valid.
-  ----*/
-create_mail_dir(dir)
-    char *dir;
-{
-    if(mkdir(dir, 0700) < 0)
-      return(-1);
-
-    (void)chmod(dir, 0700);
-    /* Some systems need this, on others we don't care if it fails */
-    (void)chown(dir, getuid(), getgid());
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Rename a file
-
-  Args: tmpfname -- Old name of file
-        fname    -- New name of file
- 
- Result: File is renamed.  Returns 0 on success, else -1 on error
-	 and errno is valid.
-  ----*/
-rename_file(tmpfname, fname)
-    char *tmpfname, *fname;
-{
-    return(rename(tmpfname, fname));
-}
-
-
-
-/*----------------------------------------------------------------------
-      Paste together two pieces of a file name path
-
-  Args: pathbuf      -- Put the result here
-        first_part   -- of path name
-        second_part  -- of path name
- 
- Result: New path is in pathbuf.  No check is made for overflow.  Note that
-	 we don't have to check for /'s at end of first_part and beginning
-	 of second_part since multiple slashes are ok.
-
-BUGS:  This is a first stab at dealing with fs naming dependencies, and others 
-still exist.
-  ----*/
-void
-build_path(pathbuf, first_part, second_part)
-    char *pathbuf, *first_part, *second_part;
-{
-    if(!first_part)
-      strcpy(pathbuf, second_part);
-    else
-      sprintf(pathbuf, "%s%s%s", first_part,
-	      (*first_part && first_part[strlen(first_part)-1] != '/')
-	        ? "/" : "",
-	      second_part);
-}
-
-
-/*----------------------------------------------------------------------
-  Test to see if the given file path is absolute
-
-  Args: file -- file path to test
-
- Result: TRUE if absolute, FALSE otw
-
-  ----*/
-int
-is_absolute_path(path)
-    char *path;
-{
-    return(path && (*path == '/' || *path == '~'));
-}
-
-
-
-/*----------------------------------------------------------------------
-      Return pointer to last component of pathname.
-
-  Args: filename     -- The pathname.
- 
- Result: Returned pointer points to last component in the input argument.
-  ----*/
-char *
-last_cmpnt(filename)
-    char *filename;
-{
-    register char *p = NULL, *q = filename;
-
-    while(q = strchr(q, '/'))
-      if(*++q)
-	p = q;
-
-    return(p);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Expand a folder name, taking account of the folders_dir and `~'.
-
-  Args: filename -- The name of the file that is the folder
- 
- Result: The folder name is expanded in place.  
-         Returns 0 and queues status message if unsuccessful.
-         Input string is overwritten with expanded name.
-         Returns 1 if successful.
-
-BUG should limit length to MAXPATH
-  ----*/
-int
-expand_foldername(filename)
-    char *filename;
-{
-    char         temp_filename[MAXPATH+1];
-
-    dprint(5, (debugfile, "=== expand_foldername called (%s) ===\n",filename));
-
-    /*
-     * We used to check for valid filename chars here if "filename"
-     * didn't refer to a remote mailbox.  This has been rethought
-     */
-
-    strcpy(temp_filename, filename);
-    if(strucmp(temp_filename, "inbox") == 0) {
-        strcpy(filename, ps_global->VAR_INBOX_PATH == NULL ? "inbox" :
-               ps_global->VAR_INBOX_PATH);
-    } else if(temp_filename[0] == '{') {
-        strcpy(filename, temp_filename);
-    } else if(ps_global->restricted
-	        && (strindex("./~", temp_filename[0]) != NULL
-		    || srchstr(temp_filename,"/../"))){
-	q_status_message(SM_ORDER, 0, 3, "Can only open local folders");
-	return(0);
-    } else if(temp_filename[0] == '*') {
-        strcpy(filename, temp_filename);
-    } else if(ps_global->VAR_OPER_DIR && srchstr(temp_filename,"..")){
-	q_status_message(SM_ORDER, 0, 3,
-			 "\"..\" not allowed in folder name");
-	return(0);
-    } else if (temp_filename[0] == '~'){
-        if(fnexpand(temp_filename, sizeof(temp_filename)) == NULL) {
-            char *p = strindex(temp_filename, '/');
-    	    if(p != NULL)
-    	      *p = '\0';
-    	    q_status_message1(SM_ORDER, 3, 3,
-                    "Error expanding folder name: \"%s\" unknown user",
-    	       temp_filename);
-    	    return(0);
-        }
-        strcpy(filename, temp_filename);
-    } else if(temp_filename[0] == '/') {
-        strcpy(filename, temp_filename);
-    } else if(F_ON(F_USE_CURRENT_DIR, ps_global)){
-	strcpy(filename, temp_filename);
-    } else if(ps_global->VAR_OPER_DIR){
-	build_path(filename, ps_global->VAR_OPER_DIR, temp_filename);
-    } else {
-	build_path(filename, ps_global->home_dir, temp_filename);
-    }
-    dprint(5, (debugfile, "returning \"%s\"\n", filename));    
-    return(1);
-}
-
-
-
-struct passwd *getpwnam();
-
-/*----------------------------------------------------------------------
-       Expand the ~ in a file ala the csh (as home directory)
-
-   Args: buf --  The filename to expand (nothing happens unless begins with ~)
-         len --  The length of the buffer passed in (expansion is in place)
-
- Result: Expanded string is returned using same storage as passed in.
-         If expansion fails, NULL is returned
- ----*/
-char *
-fnexpand(buf, len)
-    char *buf;
-    int len;
-{
-    struct passwd *pw;
-    register char *x,*y;
-    char name[20];
-    
-    if(*buf == '~') {
-        for(x = buf+1, y = name; *x != '/' && *x != '\0'; *y++ = *x++);
-        *y = '\0';
-        if(x == buf + 1) 
-          pw = getpwuid(getuid());
-        else
-          pw = getpwnam(name);
-        if(pw == NULL)
-          return((char *)NULL);
-        if(strlen(pw->pw_dir) + strlen(buf) > len) {
-          return((char *)NULL);
-        }
-        rplstr(buf, x - buf, pw->pw_dir);
-    }
-    return(len ? buf : (char *)NULL);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Filter file names for strange characters
-
-   Args:  file  -- the file name to check
- 
- Result: Returns NULL if file name is OK
-         Returns formatted error message if it is not
-  ----*/
-char *
-filter_filename(file, fatal)
-    char *file;
-    int  *fatal;
-{
-#ifdef ALLOW_WEIRD
-    static char illegal[] = {'\177', '\0'};
-#else
-    static char illegal[] = {'"', '#', '$', '%', '&', '\'','(', ')','*',
-                          ',', ':', ';', '<', '=', '>', '?', '[', ']',
-                          '\\', '^', '|', '\177', '\0'};
-#endif
-    static char error[100];
-    char ill_file[MAXPATH+1], *ill_char, *ptr, e2[10];
-    int i;
-
-    for(ptr = file; *ptr == ' '; ptr++) ; /* leading spaces gone */
-
-    while(*ptr && (unsigned char)(*ptr) >= ' ' && strindex(illegal, *ptr) == 0)
-      ptr++;
-
-    *fatal = TRUE;
-    if(*ptr != '\0') {
-        if(*ptr == '\n') {
-            ill_char = "<newline>";
-        } else if(*ptr == '\r') {
-            ill_char = "<carriage return>";
-        } else if(*ptr == '\t') {
-    	    ill_char = "<tab>";
-	    *fatal = FALSE;		/* just whitespace */
-        } else if(*ptr < ' ') {
-            sprintf(e2, "control-%c", *ptr + '@');
-            ill_char = e2;
-        } else if (*ptr == '\177') {
-    	    ill_char = "<del>";
-        } else {
-    	    e2[0] = *ptr;
-    	    e2[1] = '\0';
-    	    ill_char = e2;
-	    *fatal = FALSE;		/* less offensive? */
-        }
-	if(!*fatal){
-	    strcpy(error, ill_char);
-	}
-        else if(ptr != file) {
-            strncpy(ill_file, file, ptr - file);
-            ill_file[ptr - file] = '\0';
-	    sprintf(error,
-		    "Character \"%s\" after \"%s\" not allowed in file name",
-		    ill_char, ill_file);
-        } else {
-            sprintf(error,
-                    "First character, \"%s\", not allowed in file name",
-                    ill_char);
-        }
-            
-        return(error);
-    }
-
-    if((i=is_writable_dir(file)) == 0 || i == 1){
-	sprintf(error, "\"%s\" is a directory", file);
-        return(error);
-    }
-
-    if(ps_global->restricted || ps_global->VAR_OPER_DIR){
-	for(ptr = file; *ptr == ' '; ptr++) ;	/* leading spaces gone */
-
-	if((ptr[0] == '.' && ptr[1] == '.') || srchstr(ptr, "/../")){
-	    sprintf(error, "\"..\" not allowed in filename");
-	    return(error);
-	}
-    }
-
-    return((char *)NULL);
-}
-
-
-/*----------------------------------------------------------------------
-    Check to see if user is allowed to read or write this folder.
-
-   Args:  s  -- the name to check
- 
- Result: Returns 1 if OK
-         Returns 0 and posts an error message if access is denied
-  ----*/
-int
-cntxt_allowed(s)
-    char *s;
-{
-    struct variable *vars = ps_global->vars;
-    int retval = 1;
-    MAILSTREAM stream; /* fake stream for error message in mm_notify */
-
-    if(ps_global->restricted
-         && (strindex("./~", s[0]) || srchstr(s, "/../"))){
-	stream.mailbox = s;
-	mm_notify(&stream, "Restricted mode doesn't allow operation", WARN);
-	retval = 0;
-    }
-    else if(VAR_OPER_DIR
-	    && s[0] != '{' && !(s[0] == '*' && s[1] == '{')
-	    && strucmp(s,ps_global->inbox_name) != 0
-	    && strcmp(s, ps_global->VAR_INBOX_PATH) != 0){
-	char *p, *free_this = NULL;
-
-	p = s;
-	if(strindex(s, '~')){
-	    p = strindex(s, '~');
-	    free_this = (char *)fs_get(strlen(p) + 200);
-	    strcpy(free_this, p);
-	    fnexpand(free_this, strlen(p)+200);
-	    p = free_this;
-	}
-	else if(p[0] != '/'){  /* add home dir to relative paths */
-	    free_this = p = (char *)fs_get(strlen(s)
-					    + strlen(ps_global->home_dir) + 2);
-	    build_path(p, ps_global->home_dir, s);
-	}
-	
-	if(!in_dir(VAR_OPER_DIR, p)){
-	    char err[200];
-
-	    sprintf(err, "Not allowed outside of %s", VAR_OPER_DIR);
-	    stream.mailbox = p;
-	    mm_notify(&stream, err, WARN);
-	    retval = 0;
-	}
-	else if(srchstr(p, "/../")){  /* check for .. in path */
-	    stream.mailbox = p;
-	    mm_notify(&stream, "\"..\" not allowed in name", WARN);
-	    retval = 0;
-	}
-
-	if(free_this)
-	  fs_give((void **)&free_this);
-    }
-    
-    return retval;
-}
-
-
-
-#if defined(USE_QUOTAS)
-
-/*----------------------------------------------------------------------
-   This system doesn't have disk quotas.
-   Return space left in disk quota on file system which given path is in.
-
-    Args: path - Path name of file or directory on file system of concern
-          over - pointer to flag that is set if the user is over quota
-
- Returns: If *over = 0, the number of bytes free in disk quota as per
-          the soft limit.
-	  If *over = 1, the number of bytes *over* quota.
-          -1 is returned on an error looking up quota
-           0 is returned if there is no quota
-
-BUG:  If there's more than 2.1Gb free this function will break
-  ----*/
-long
-disk_quota(path, over)
-    char *path;
-    int  *over;
-{
-    return(0L);
-}
-#endif /* USE_QUOTAS */
-
-
-
-/*----------------------------------------------------------------------
-    Read whole file into memory
-
-  Args: filename -- path name of file to read
-
-  Result: Returns pointer to malloced memory with the contents of the file
-          or NULL
-
-This won't work very well if the file has NULLs in it and is mostly
-intended for fairly small text files.
- ----*/
-char *
-read_file(filename)
-    char *filename;
-{
-    int         fd;
-    struct stat statbuf;
-    char       *buf;
-    int         nb;
-
-    fd = open(filename, O_RDONLY);
-    if(fd < 0)
-      return((char *)NULL);
-
-    fstat(fd, &statbuf);
-
-    buf = fs_get((size_t)statbuf.st_size + 1);
-
-    /*
-     * On some systems might have to loop here, if one read isn't guaranteed
-     * to get the whole thing.
-     */
-    if((nb = read(fd, buf, (int)statbuf.st_size)) < 0)
-      fs_give((void **)&buf);		/* NULL's buf */
-    else
-      buf[nb] = '\0';
-
-    close(fd);
-    return(buf);
-}
-
-
-
-/*----------------------------------------------------------------------
-   Create a temporary file, the name of which we don't care about 
-and that goes away when it is closed.  Just like ANSI C tmpfile.
-  ----*/
-FILE  *
-create_tmpfile()
-{
-    return(tmpfile());
-}
-
-
-
-/*----------------------------------------------------------------------
-     Abort with a core dump
- ----*/
-void
-coredump()
-{
-    abort();
-}
-
-
-
-/*----------------------------------------------------------------------
-       Call system gethostname
-
-  Args: hostname -- buffer to return host name in 
-        size     -- Size of buffer hostname is to be returned in
-
- Result: returns 0 if the hostname is correctly set,
-         -1 if not (and errno is set).
- ----*/
-hostname(hostname,size) 
-    char *hostname;
-    int size;
-{
-    return(gethostname(hostname, size));
-}
-
-
-
-/*----------------------------------------------------------------------
-       Get the current host and domain names
-
-    Args: hostname   -- buffer to return the hostname in
-          hsize      -- size of buffer above
-          domainname -- buffer to return domain name in
-          dsize      -- size of buffer above
-
-  Result: The system host and domain names are returned. If the full host
-          name is akbar.cac.washington.edu then the domainname is
-          cac.washington.edu.
-
-On Internet connected hosts this look up uses /etc/hosts and DNS to
-figure all this out. On other less well connected machines some other
-file may be read. If there is no notion of a domain name the domain
-name may be left blank. On a PC where there really isn't a host name
-this should return blank strings. The .pinerc will take care of
-configuring the domain names. That is, this should only return the
-native system's idea of what the names are if the system has such
-a concept.
- ----*/
-void
-getdomainnames(hostname, hsize, domainname, dsize)
-    char *hostname, *domainname;
-    int   hsize, dsize;
-{
-    char           *dn, hname[MAX_ADDRESS+1];
-    struct hostent *he;
-    char          **alias;
-    char           *maybe = NULL;
-
-    gethostname(hname, MAX_ADDRESS);
-    he = gethostbyname(hname);
-    hostname[0] = '\0';
-
-    if(he == NULL)
-      strncpy(hostname, hname, hsize-1);
-    else{
-	/*
-	 * If no dot in hostname it may be the case that there
-	 * is an alias which is really the fully-qualified
-	 * hostname. This could happen if the administrator has
-	 * (incorrectly) put the unqualified name first in the
-	 * hosts file, for example. The problem with looking for
-	 * an alias with a dot is that now we're guessing, since
-	 * the aliases aren't supposed to be the official hostname.
-	 * We'll compromise and only use an alias if the primary
-	 * name has no dot and exactly one of the aliases has a
-	 * dot.
-	 */
-	strncpy(hostname, he->h_name, hsize-1);
-	if(strindex(hostname, '.') == NULL){		/* no dot in hostname */
-	    for(alias = he->h_aliases; *alias; alias++){
-		if(strindex(*alias, '.') != NULL){	/* found one */
-		    if(maybe){		/* oops, this is the second one */
-			maybe = NULL;
-			break;
-		    }
-		    else
-		      maybe = *alias;
-		}
-	    }
-
-	    if(maybe)
-	      strncpy(hostname, maybe, hsize-1);
-	}
-    }
-
-    hostname[hsize-1] = '\0';
-
-
-    if((dn = strindex(hostname, '.')) != NULL)
-      strncpy(domainname, dn+1, dsize-1);
-    else
-      strncpy(domainname, hostname, dsize-1);
-
-    domainname[dsize-1] = '\0';
-}
-
-
-
-/*----------------------------------------------------------------------
-       Return canonical form of host name ala c-client (UNIX version).
-
-   Args: host      -- The host name
-
- Result: Canonical form, or input argument (worst case)
- ----*/
-char *
-canonical_name(host)
-    char *host;
-{
-    struct hostent *hent;
-    char hostname[MAILTMPLEN];
-    char tmp[MAILTMPLEN];
-    extern char *lcase();
-                                /* domain literal is easy */
-    if (host[0] == '[' && host[(strlen (host))-1] == ']')
-      return host;
-
-    strcpy (hostname,host);       /* UNIX requires lowercase */
-                                /* lookup name, return canonical form */
-    return (hent = gethostbyname (lcase (strcpy (tmp,host)))) ?
-      hent->h_name : host;
-}
-
-
-
-/*----------------------------------------------------------------------
-     This routine returns 1 if job control is available.  Note, thiis
-     could be some type of fake job control.  It doesn't have to be
-     real BSD-style job control.
-  ----*/
-have_job_control()
-{
-    return 1;
-}
-
-
-/*----------------------------------------------------------------------
-    If we don't have job control, this routine is never called.
-  ----*/
-stop_process()
-{
-    SigType (*save_usr2) SIG_PROTO((int));
-    
-    /*
-     * Since we can't respond to KOD while stopped, the process that sent 
-     * the KOD is going to go read-only.  Therefore, we can safely ignore
-     * any KODs that come in before we are ready to respond...
-     */
-    save_usr2 = signal(SIGUSR2, SIG_IGN);
-    kill(0, SIGSTOP); 
-    (void)signal(SIGUSR2, save_usr2);
-}
-
-
-
-/*----------------------------------------------------------------------
-       Return string describing the error
-
-   Args: errnumber -- The system error number (errno)
-
- Result:  long string describing the error is returned
-  ----*/
-char *
-error_description(errnumber)
-    int errnumber;
-{
-    static char buffer[50+1];
-
-    if(errnumber >= 0 && errnumber < sys_nerr)
-      sprintf(buffer, "%.*s", 50, sys_errlist[errnumber]);
-    else
-      sprintf(buffer, "Unknown error #%d", errnumber);
-
-    return ( (char *) buffer);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Pull the name out of the gcos field if we have that sort of /etc/passwd
-
-   Args: gcos_field --  The long name or GCOS field to be parsed
-         logname    --  Replaces occurances of & with logname string
-
- Result: returns pointer to buffer with name
-  ----*/
-static char *
-gcos_name(gcos_field, logname)
-    char *logname, *gcos_field;
-{
-    static char fullname[MAX_FULLNAME+1];
-    register char *fncp, *gcoscp, *lncp, *end;
-
-    /* full name is all chars up to first ',' (or whole gcos, if no ',') */
-    /* replace any & with logname in upper case */
-
-    for(fncp = fullname, gcoscp= gcos_field, end = fullname + MAX_FULLNAME - 1;
-        (*gcoscp != ',' && *gcoscp != '\0' && fncp != end);
-	gcoscp++) {
-
-	if(*gcoscp == '&') {
-	    for(lncp = logname; *lncp; fncp++, lncp++)
-		*fncp = toupper((unsigned char)(*lncp));
-	} else {
-	    *fncp++ = *gcoscp;
-	}
-    }
-    
-    *fncp = '\0';
-    return(fullname);
-}
-
-
-/*----------------------------------------------------------------------
-      Fill in homedir, login, and fullname for the logged in user.
-      These are all pointers to static storage so need to be copied
-      in the caller.
-
- Args: ui    -- struct pointer to pass back answers
-
- Result: fills in the fields
-  ----*/
-void
-get_user_info(ui)
-    struct user_info *ui;
-{
-    struct passwd *unix_pwd;
-
-    unix_pwd = getpwuid(getuid());
-    if(unix_pwd == NULL) {
-      ui->homedir = cpystr("");
-      ui->login = cpystr("");
-      ui->fullname = cpystr("");
-    }else {
-      ui->homedir = cpystr(unix_pwd->pw_dir);
-      ui->login = cpystr(unix_pwd->pw_name);
-      ui->fullname = cpystr(gcos_name(unix_pwd->pw_gecos, unix_pwd->pw_name));
-    }
-}
-
-
-/*----------------------------------------------------------------------
-      Look up a userid on the local system and return rfc822 address
-
- Args: name  -- possible login name on local system
-
- Result: returns NULL or pointer to alloc'd string rfc822 address.
-  ----*/
-char *
-local_name_lookup(name)
-    char *name;
-{
-    struct passwd *pw = getpwnam(name);
-
-    if(pw == NULL){
-	char *p;
-
-	for(p = name; *p; p++)
-	  if(isupper((unsigned char)*p))
-	    break;
-
-	/* try changing it to all lower case */
-	if(p && *p){
-	    char *lcase;
-
-	    lcase = cpystr(name);
-	    for(p = lcase; *p; p++)
-	      if(isupper((unsigned char)*p))
-		*p = tolower((unsigned char)*p);
-
-	    pw = getpwnam(lcase);
-
-	    if(pw)
-	      strcpy(name, lcase);
-
-	    fs_give((void **)&lcase);
-	}
-    }
-
-    if(pw == NULL)
-      return((char *)NULL);
-
-    return(cpystr(gcos_name(pw->pw_gecos, name)));
-}
-
-
-
-/*----------------------------------------------------------------------
-       Call the system to change the passwd
- 
-It would be nice to talk to the passwd program via a pipe or ptty so the
-user interface could be consistent, but we can't count on the the prompts
-and responses from the passwd program to be regular so we just let the user 
-type at the passwd program with some screen space, hope he doesn't scroll 
-off the top and repaint when he's done.
- ----*/        
-change_passwd()
-{
-    char cmd_buf[100];
-
-    ClearLines(1, ps_global->ttyo->screen_rows - 1);
-
-    MoveCursor(5, 0);
-    fflush(stdout);
-
-    PineRaw(0);
-    strcpy(cmd_buf, PASSWD_PROG);
-    system(cmd_buf);
-    sleep(3);
-    PineRaw(1);
-}
-
-
-
-/*----------------------------------------------------------------------
-       Can we display this type/subtype?
-
-   Args: type       -- the MIME type to check
-         subtype    -- the MIME subtype
-         params     -- parameters
-	 use_viewer -- tell caller he should run external viewer cmd to view
-
- Result: Returns:
-
-	 MCD_NONE	if we can't display this type at all
-	 MCD_INTERNAL	if we can display it internally
-	 MCD_EXTERNAL	if it can be displayed via an external viewer
-
- ----*/
-mime_can_display(type, subtype, params)
-    int       type;
-    char      *subtype;
-    PARAMETER *params;
-{
-    return((mailcap_can_display(type, subtype, params)
-	      ? MCD_EXTERNAL : MCD_NONE)
-	   | ((type == TYPETEXT || type == TYPEMESSAGE
-	       || MIME_VCARD(type,subtype))
-	        ? MCD_INTERNAL : MCD_NONE));
-}
-
-
-
-/*======================================================================
-    pipe
-    
-    Initiate I/O to and from a process.  These functions are similar to 
-    popen and pclose, but both an incoming stream and an output file are 
-    provided.
-   
- ====*/
-
-#ifndef	STDIN_FILENO
-#define	STDIN_FILENO	0
-#endif
-#ifndef	STDOUT_FILENO
-#define	STDOUT_FILENO	1
-#endif
-#ifndef	STDERR_FILENO
-#define	STDERR_FILENO	2
-#endif
-
-
-/*
- * Defs to help fish child's exit status out of wait(2)
- */
-#ifdef	HAVE_WAIT_UNION
-#define WaitType	union wait
-#ifndef	WIFEXITED
-#define	WIFEXITED(X)	(!(X).w_termsig)	/* child exit by choice */
-#endif
-#ifndef	WEXITSTATUS
-#define	WEXITSTATUS(X)	(X).w_retcode		/* childs chosen exit value */
-#endif
-#else
-#define	WaitType	int
-#ifndef	WIFEXITED
-#define	WIFEXITED(X)	(!((X) & 0xff))		/* low bits tell how it died */
-#endif
-#ifndef	WEXITSTATUS
-#define	WEXITSTATUS(X)	(((X) >> 8) & 0xff)	/* high bits tell exit value */
-#endif
-#endif
-
-
-/*
- * Global's to helpsignal handler tell us child's status has changed...
- */
-short	child_signalled;
-short	child_jump = 0;
-jmp_buf child_state;
-int	child_pid;
-
-
-/*
- * Internal Protos
- */
-void pipe_error_cleanup PROTO((PIPE_S **, char *, char *, char *));
-void zot_pipe PROTO((PIPE_S **));
-static SigType pipe_alarm SIG_PROTO((int));
-
-
-
-
-/*----------------------------------------------------------------------
-     Spawn a child process and optionally connect read/write pipes to it
-
-  Args: command -- string to hand the shell
-	outfile -- address of pointer containing file to receive output
-	errfile -- address of pointer containing file to receive error output
-	mode -- mode for type of shell, signal protection etc...
-  Returns: pointer to alloc'd PIPE_S on success, NULL otherwise
-
-  The outfile is either NULL, a pointer to a NULL value, or a pointer
-  to the requested name for the output file.  In the pointer-to-NULL case
-  the caller doesn't care about the name, but wants to see the pipe's
-  results so we make one up.  It's up to the caller to make sure the
-  free storage containing the name is cleaned up.
-
-  Mode bits serve several purposes.
-    PIPE_WRITE tells us we need to open a pipe to write the child's
-	stdin.
-    PIPE_READ tells us we need to open a pipe to read from the child's
-	stdout/stderr.  *NOTE*  Having neither of the above set means 
-	we're not setting up any pipes, just forking the child and exec'ing
-	the command.  Also, this takes precedence over any named outfile.
-    PIPE_STDERR means we're to tie the childs stderr to the same place
-	stdout is going.  *NOTE* This only makes sense then if PIPE_READ
-	or an outfile is provided.  Also, this takes precedence over any
-	named errfile.
-    PIPE_PROT means to protect the child from the usual nasty signals
-	that might cause premature death.  Otherwise, the default signals are
-	set so the child can deal with the nasty signals in its own way.     
-    PIPE_NOSHELL means we're to exec the command without the aid of
-	a system shell.  *NOTE* This negates the affect of PIPE_USER.
-    PIPE_USER means we're to try executing the command in the user's
-	shell.  Right now we only look in the environment, but that may get
-	more sophisticated later.
-    PIPE_RESET means we reset the terminal mode to what it was before
-	we started pine and then exec the command.
- ----*/
-PIPE_S *
-open_system_pipe(command, outfile, errfile, mode, timeout)
-    char  *command;
-    char **outfile, **errfile;
-    int    mode, timeout;
-{
-    PIPE_S *syspipe = NULL;
-    char    shellpath[32], *shell;
-    int     p[2], oparentd = -1, ochildd = -1, iparentd = -1, ichildd = -1;
-
-    dprint(5, (debugfile, "Opening pipe: \"%s\" (%s%s%s%s%s%s)\n", command,
-	       (mode & PIPE_WRITE)   ? "W":"", (mode & PIPE_READ)  ? "R":"",
-	       (mode & PIPE_NOSHELL) ? "N":"", (mode & PIPE_PROT)  ? "P":"",
-	       (mode & PIPE_USER)    ? "U":"", (mode & PIPE_RESET) ? "T":""));
-
-    syspipe = (PIPE_S *)fs_get(sizeof(PIPE_S));
-    memset(syspipe, 0, sizeof(PIPE_S));
-
-    /*
-     * If we're not using the shell's command parsing smarts, build
-     * argv by hand...
-     */
-    if(mode & PIPE_NOSHELL){
-	char   **ap, *p;
-	size_t   n;
-
-	/* parse the arguments into argv */
-	for(p = command; *p && isspace((unsigned char)(*p)); p++)
-	  ;					/* swallow leading ws */
-
-	if(*p){
-	    syspipe->args = cpystr(p);
-	}
-	else{
-	    pipe_error_cleanup(&syspipe, "<null>", "execute",
-			       "No command name found");
-	    return(NULL);
-	}
-
-	for(p = syspipe->args, n = 2; *p; p++)	/* count the args */
-	  if(isspace((unsigned char)(*p))
-	     && *(p+1) && !isspace((unsigned char)(*(p+1))))
-	    n++;
-
-	syspipe->argv = ap = (char **)fs_get(n * sizeof(char *));
-	memset(syspipe->argv, 0, n * sizeof(char *));
-
-	for(p = syspipe->args; *p; ){		/* collect args */
-	    while(*p && isspace((unsigned char)(*p)))
-	      *p++ = '\0';
-
-	    *ap++ = (*p) ? p : NULL;
-	    while(*p && !isspace((unsigned char)(*p)))
-	      p++;
-	}
-
-	/* make sure argv[0] exists in $PATH */
-	if(can_access_in_path(getenv("PATH"), syspipe->argv[0],
-			      EXECUTE_ACCESS) < 0){
-	    pipe_error_cleanup(&syspipe, syspipe->argv[0], "access",
-			       error_description(errno));
-	    return(NULL);
-	}
-    }
-
-    /* fill in any output filenames */
-    if(!(mode & PIPE_READ)){
-	if(outfile && !*outfile)
-	  *outfile = temp_nam(NULL, "pine_p");	/* asked for, but not named? */
-
-	if(errfile && !*errfile)
-	  *errfile = temp_nam(NULL, "pine_p");	/* ditto */
-    }
-
-    /* create pipes */
-    if(mode & (PIPE_WRITE | PIPE_READ)){
-	if(mode & PIPE_WRITE){
-	    pipe(p);				/* alloc pipe to write child */
-	    oparentd = p[STDOUT_FILENO];
-	    ichildd  = p[STDIN_FILENO];
-	}
-
-	if(mode & PIPE_READ){
-	    pipe(p);				/* alloc pipe to read child */
-	    iparentd = p[STDIN_FILENO];
-	    ochildd  = p[STDOUT_FILENO];
-	}
-    }
-    else if(!(mode & PIPE_SILENT)){
-	flush_status_messages(0);		/* just clean up display */
-	ClearScreen();
-	fflush(stdout);
-    }
-
-    if((syspipe->mode = mode) & PIPE_RESET)
-      PineRaw(0);
-
-#ifdef	SIGCHLD
-    /*
-     * Prepare for demise of child.  Use SIGCHLD if it's available so
-     * we can do useful things, like keep the IMAP stream alive, while
-     * we're waiting on the child.
-     */
-    child_signalled = child_jump = 0;
-#endif
-
-    if((syspipe->pid = vfork()) == 0){
- 	/* reset child's handlers in requested fashion... */
-	(void)signal(SIGINT,  (mode & PIPE_PROT) ? SIG_IGN : SIG_DFL);
-	(void)signal(SIGQUIT, (mode & PIPE_PROT) ? SIG_IGN : SIG_DFL);
-	(void)signal(SIGHUP,  (mode & PIPE_PROT) ? SIG_IGN : SIG_DFL);
-#ifdef	SIGCHLD
-	(void) signal(SIGCHLD,  SIG_DFL);
-#endif
-
-	/* if parent isn't reading, and we have a filename to write */
-	if(!(mode & PIPE_READ) && outfile){	/* connect output to file */
-	    int output = creat(*outfile, 0600);
-	    dup2(output, STDOUT_FILENO);
-	    if(mode & PIPE_STDERR)
-	      dup2(output, STDERR_FILENO);
-	    else if(errfile)
-	      dup2(creat(*errfile, 0600), STDERR_FILENO);
-	}
-
-	if(mode & PIPE_WRITE){			/* connect process input */
-	    close(oparentd);
-	    dup2(ichildd, STDIN_FILENO);	/* tie stdin to pipe */
-	    close(ichildd);
-	}
-
-	if(mode & PIPE_READ){			/* connect process output */
-	    close(iparentd);
-	    dup2(ochildd, STDOUT_FILENO);	/* tie std{out,err} to pipe */
-	    if(mode & PIPE_STDERR)
-	      dup2(ochildd, STDERR_FILENO);
-	    else if(errfile)
-	      dup2(creat(*errfile, 0600), STDERR_FILENO);
-
-	    close(ochildd);
-	}
-
-	if(mode & PIPE_NOSHELL){
-	    execvp(syspipe->argv[0], syspipe->argv);
-	}
-	else{
-	    if(mode & PIPE_USER){
-		char *env, *sh;
-		if((env = getenv("SHELL")) && (sh = strrchr(env, '/'))){
-		    shell = sh + 1;
-		    strcpy(shellpath, env);
-		}
-		else{
-		    shell = "csh";
-		    strcpy(shellpath, "/bin/csh");
-		}
-	    }
-	    else{
-		shell = "sh";
-		strcpy(shellpath, "/bin/sh");
-	    }
-
-	    execl(shellpath, shell, command ? "-c" : 0, command, 0);
-	}
-
-	fprintf(stderr, "Can't exec %s\nReason: %s",
-		command, error_description(errno));
-	_exit(-1);
-    }
-
-    if((child_pid = syspipe->pid) > 0){
-	syspipe->isig = signal(SIGINT,  SIG_IGN); /* Reset handlers to make */
-	syspipe->qsig = signal(SIGQUIT, SIG_IGN); /* sure we don't come to  */
-	syspipe->hsig = signal(SIGHUP,  SIG_IGN); /* a premature end...     */
-	if((syspipe->timeout = timeout) != 0){
-	    syspipe->alrm      = signal(SIGALRM,  pipe_alarm);
-	    syspipe->old_timeo = alarm(timeout);
-	}
-
-	if(mode & PIPE_WRITE){
-	    close(ichildd);
-	    if(mode & PIPE_DESC)
-	      syspipe->out.d = oparentd;
-	    else
-	      syspipe->out.f = fdopen(oparentd, "w");
-	}
-
-	if(mode & PIPE_READ){
-	    close(ochildd);
-	    if(mode & PIPE_DESC)
-	      syspipe->in.d = iparentd;
-	    else
-	      syspipe->in.f = fdopen(iparentd, "r");
-	}
-
-	dprint(5, (debugfile, "PID: %d, COMMAND: %s\n",syspipe->pid,command));
-    }
-    else{
-	if(mode & (PIPE_WRITE | PIPE_READ)){
-	    if(mode & PIPE_WRITE){
-		close(oparentd);
-		close(ichildd);
-	    }
-
-	    if(mode & PIPE_READ){
-		close(iparentd);
-		close(ochildd);
-	    }
-	}
-	else if(!(mode & PIPE_SILENT)){
-	    ClearScreen();
-	    ps_global->mangled_screen = 1;
-	}
-
-	if(mode & PIPE_RESET)
-	  PineRaw(1);
-
-#ifdef	SIGCHLD
-	(void) signal(SIGCHLD,  SIG_DFL);
-#endif
-	if(outfile)
-	  fs_give((void **) outfile);
-
-	pipe_error_cleanup(&syspipe, command, "fork",error_description(errno));
-    }
-
-    return(syspipe);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Write appropriate error messages and cleanup after pipe error
-
-  Args: syspipe -- address of pointer to struct to clean up
-	cmd -- command we were trying to exec
-	op -- operation leading up to the exec
-	res -- result of that operation
-
- ----*/
-void
-pipe_error_cleanup(syspipe, cmd, op, res)
-    PIPE_S **syspipe;
-    char    *cmd, *op, *res;
-{
-    q_status_message3(SM_ORDER, 3, 3, "Pipe can't %s \"%.20s\": %s",
-		      op, cmd, res);
-    dprint(1, (debugfile, "* * PIPE CAN'T %s(%s): %s\n", op, cmd, res));
-    zot_pipe(syspipe);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Free resources associated with the given pipe struct
-
-  Args: syspipe -- address of pointer to struct to clean up
-
- ----*/
-void
-zot_pipe(syspipe)
-    PIPE_S **syspipe;
-{
-    if((*syspipe)->args)
-      fs_give((void **) &(*syspipe)->args);
-
-    if((*syspipe)->argv)
-      fs_give((void **) &(*syspipe)->argv);
-
-    if((*syspipe)->tmp)
-      fs_give((void **) &(*syspipe)->tmp);
-
-    fs_give((void **)syspipe);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Close pipe previously allocated and wait for child's death
-
-  Args: syspipe -- address of pointer to struct returned by open_system_pipe
-  Returns: returns exit status of child or -1 if invalid syspipe
- ----*/
-int
-close_system_pipe(syspipe)
-    PIPE_S **syspipe;
-{
-    WaitType stat;
-    int	     status;
-
-    if(!(syspipe && *syspipe))
-      return(-1);
-
-    if(((*syspipe)->mode) & PIPE_WRITE){
-	if(((*syspipe)->mode) & PIPE_DESC){
-	    if((*syspipe)->out.d >= 0)
-	      close((*syspipe)->out.d);
-	}
-	else if((*syspipe)->out.f)
-	  fclose((*syspipe)->out.f);
-    }
-
-    if(((*syspipe)->mode) & PIPE_READ){
-	if(((*syspipe)->mode) & PIPE_DESC){
-	    if((*syspipe)->in.d >= 0)
-	      close((*syspipe)->in.d);
-	}
-	else if((*syspipe)->in.f)
-	  fclose((*syspipe)->in.f);
-    }
-
-#ifdef	SIGCHLD
-    {
-	SigType (*alarm_sig)();
-	int	old_cue = F_ON(F_SHOW_DELAY_CUE, ps_global);
-
-	/*
-	 * remember the current SIGALRM handler, and make sure it's
-	 * installed when we're finished just in case the longjmp
-	 * out of the SIGCHLD handler caused sleep() to lose it.
-	 * Don't pay any attention to that man behind the curtain.
-	 */
-	alarm_sig = signal(SIGALRM, SIG_IGN);
-	F_SET(F_SHOW_DELAY_CUE, ps_global, 0);
-	ps_global->noshow_timeout = 1;
-	while(!child_signalled){
-	    /* wake up and prod server */
-	    new_mail(0, 2, ((*syspipe)->mode & PIPE_RESET)
-			      ? NM_NONE : NM_DEFER_SORT);
-
-	    if(!child_signalled){
-		if(setjmp(child_state) == 0){
-		    child_jump = 1;	/* prepare to wake up */
-		    sleep(600);		/* give it 5mins to happend */
-		}
-		else
-		  our_sigunblock(SIGCHLD);
-	    }
-
-	    child_jump = 0;
-	}
-
-	ps_global->noshow_timeout = 0;
-	F_SET(F_SHOW_DELAY_CUE, ps_global, old_cue);
-	(void) signal(SIGALRM, alarm_sig);
-    }
-#endif
-
-    /*
-     * Call c-client's pid reaper to wait() on the demise of our child,
-     * then fish out its exit status...
-     */
-    grim_pid_reap_status((*syspipe)->pid, 0, &stat);
-    status = WIFEXITED(stat) ? WEXITSTATUS(stat) : -1;
-
-    /*
-     * restore original handlers...
-     */
-    (void)signal(SIGINT,  (*syspipe)->isig);
-    (void)signal(SIGHUP,  (*syspipe)->hsig);
-    (void)signal(SIGQUIT, (*syspipe)->qsig);
-
-    if((*syspipe)->timeout){
-	(void)signal(SIGALRM, (*syspipe)->alrm);
-	alarm((*syspipe)->old_timeo);
-	child_pid = 0;
-    }
-
-    if((*syspipe)->mode & PIPE_RESET)		/* restore our tty modes */
-      PineRaw(1);
-
-    if(!((*syspipe)->mode & (PIPE_WRITE | PIPE_READ | PIPE_SILENT))){
-	ClearScreen();				/* No I/O to forked child */
-	ps_global->mangled_screen = 1;
-    }
-
-    zot_pipe(syspipe);
-
-    return(status);
-}
-
-
-
-static SigType
-pipe_alarm SIG_PROTO((int sig))
-{
-    if(child_pid)
-      kill(child_pid, SIGINT);
-}
-
-/*======================================================================
-    post_reap
-    
-    Manage exit status collection of a child spawned to handle posting
- ====*/
-
-
-
-#if	defined(BACKGROUND_POST) && defined(SIGCHLD)
-/*----------------------------------------------------------------------
-    Check to see if we have any posting processes to clean up after
-
-  Args: none
-  Returns: any finished posting process reaped
- ----*/
-post_reap()
-{
-    WaitType stat;
-    int	     r;
-
-    if(ps_global->post && ps_global->post->pid){
-	r = waitpid(ps_global->post->pid, &stat, WNOHANG);
-	if(r == ps_global->post->pid){
-	    ps_global->post->status = WIFEXITED(stat) ? WEXITSTATUS(stat) : -1;
-	    ps_global->post->pid = 0;
-	    return(1);
-	}
-	else if(r < 0 && errno != EINTR){ /* pid's become bogus?? */
-	    fs_give((void **) &ps_global->post);
-	}
-    }
-
-    return(0);
-}
-#endif
-
-/*----------------------------------------------------------------------
-    Routines used to hand off messages to local agents for sending/posting
-
- The two exported routines are:
-
-    1) smtp_command()  -- used to get local transport agent to invoke
-    2) post_handoff()  -- used to pass messages to local posting agent
-
- ----*/
-
-
-
-/*
- * Protos for "sendmail" internal functions
- */
-static char *mta_parse_post PROTO((METAENV *, BODY *, char *, char *));
-static long  pine_pipe_soutr_nl PROTO((void *, char *));
-
-
-
-/* ----------------------------------------------------------------------
-   Figure out command to start local SMTP agent
-
-  Args: errbuf   -- buffer for reporting errors (assumed non-NULL)
-
-  Returns an alloc'd copy of the local SMTP agent invocation or NULL
-
-  ----*/
-char *
-smtp_command(errbuf)
-    char *errbuf;
-{
-#if	defined(SENDMAIL) && defined(SENDMAILFLAGS)
-    char tmp[256];
-
-    sprintf(tmp, "%s %s", SENDMAIL, SENDMAILFLAGS);
-    return(cpystr(tmp));
-#else
-    strcpy(errbuf, "No default posting command.");
-    return(NULL);
-#endif
-}
-
-
-
-/*----------------------------------------------------------------------
-   Hand off given message to local posting agent
-
-  Args: envelope -- The envelope for the BCC and debugging
-        header   -- The text of the message header
-        errbuf   -- buffer for reporting errors (assumed non-NULL)
-     
-   ----*/
-int
-mta_handoff(header, body, errbuf)
-    METAENV    *header;
-    BODY       *body;
-    char       *errbuf;
-{
-    char cmd_buf[256], *cmd = NULL;
-
-    /*
-     * A bit of complicated policy implemented here.
-     * There are two posting variables sendmail-path and smtp-server.
-     * Precedence is in that order.
-     * They can be set one of 4 ways: fixed, command-line, user, or globally.
-     * Precedence is in that order.
-     * Said differently, the order goes something like what's below.
-     * 
-     * NOTE: the fixed/command-line/user precendence handling is also
-     *	     indicated by what's pointed to by ps_global->VAR_*, but since
-     *	     that also includes the global defaults, it's not sufficient.
-     */
-
-    if(ps_global->FIX_SENDMAIL_PATH
-       && ps_global->FIX_SENDMAIL_PATH[0]){
-	cmd = ps_global->FIX_SENDMAIL_PATH;
-    }
-    else if(!(ps_global->FIX_SMTP_SERVER
-	      && ps_global->FIX_SMTP_SERVER[0])){
-	if(ps_global->COM_SENDMAIL_PATH
-	   && ps_global->COM_SENDMAIL_PATH[0]){
-	    cmd = ps_global->COM_SENDMAIL_PATH;
-	}
-	else if(!(ps_global->COM_SMTP_SERVER
-		  && ps_global->COM_SMTP_SERVER[0])){
-	    if(ps_global->USR_SENDMAIL_PATH
-	       && ps_global->USR_SENDMAIL_PATH[0]){
-		cmd = ps_global->USR_SENDMAIL_PATH;
-	    }
-	    else if(!(ps_global->USR_SMTP_SERVER
-		      && ps_global->USR_SMTP_SERVER[0])){
-		if(ps_global->GLO_SENDMAIL_PATH
-		   && ps_global->GLO_SENDMAIL_PATH[0]){
-		    cmd = ps_global->GLO_SENDMAIL_PATH;
-		}
-#ifdef	DF_SENDMAIL_PATH
-		/*
-		 * This defines the default method of posting.  So,
-		 * unless we're told otherwise use it...
-		 */
-		else if(!(ps_global->GLO_SMTP_SERVER
-			  && ps_global->GLO_SMTP_SERVER[0])){
-		    strcpy(cmd = cmd_buf, DF_SENDMAIL_PATH);
-		}
-#endif
-	    }
-	}
-    }
-
-    *errbuf = '\0';
-    if(cmd){
-	dprint(4, (debugfile, "call_mailer via cmd: %s\n", cmd));
-
-	(void) mta_parse_post(header, body, cmd, errbuf);
-	return(1);
-    }
-    else
-      return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-   Hand off given message to local posting agent
-
-  Args: envelope -- The envelope for the BCC and debugging
-        header   -- The text of the message header
-        errbuf   -- buffer for reporting errors (assumed non-NULL)
-     
-  Fork off mailer process and pipe the message into it
-  Called to post news via Inews when NNTP is unavailable
-  
-   ----*/
-char *
-post_handoff(header, body, errbuf)
-    METAENV    *header;
-    BODY       *body;
-    char       *errbuf;
-{
-    char *err = NULL;
-#ifdef	SENDNEWS
-    char *s;
-
-    if(s = strstr(header->env->date," (")) /* fix the date format for news */
-      *s = '\0';
-
-    if(err = mta_parse_post(header, body, SENDNEWS, errbuf))
-      sprintf(err = errbuf, "News not posted: \"%s\": %s", SENDNEWS, err);
-
-    if(s)
-      *s = ' ';				/* restore the date */
-
-#else /* !SENDNEWS */  /* this is the default case */
-    sprintf(err = errbuf, "Can't post, NNTP-server must be defined!");
-#endif /* !SENDNEWS */
-    return(err);
-}
-
-
-
-/*----------------------------------------------------------------------
-   Hand off message to local MTA; it parses recipients from 822 header
-
-  Args: header -- struct containing header data
-        body  -- struct containing message body data
-	cmd -- command to use for handoff (%s says where file should go)
-	errs -- pointer to buf to hold errors
-
-   ----*/
-static char *
-mta_parse_post(header, body, cmd, errs)
-    METAENV *header;
-    BODY    *body;
-    char    *cmd;
-    char    *errs;
-{
-    char   *result = NULL;
-    PIPE_S *pipe;
-
-    dprint(1, (debugfile, "=== mta_parse_post(%s) ===\n", cmd));
-
-    if(pipe = open_system_pipe(cmd, &result, NULL,
-		 PIPE_STDERR|PIPE_WRITE|PIPE_PROT|PIPE_NOSHELL|PIPE_DESC, 0)){
-	if(!pine_rfc822_output(header, body, pine_pipe_soutr_nl,
-			       (TCPSTREAM *) pipe))
-	  strcpy(errs, "Error posting.");
-
-	if(close_system_pipe(&pipe) && !*errs){
-	    sprintf(errs, "Posting program %s returned error", cmd);
-	    if(result)
-	      display_output_file(result, "POSTING ERRORS", errs, 1);
-	}
-    }
-    else
-      sprintf(errs, "Error running \"%s\"", cmd);
-
-    if(result){
-	unlink(result);
-	fs_give((void **)&result);
-    }
-
-    return(*errs ? errs : NULL);
-}
-
-
-/* 
- * pine_pipe_soutr - Replacement for tcp_soutr that writes one of our
- *		     pipes rather than a tcp stream
- */
-static long
-pine_pipe_soutr_nl (stream,s)
-     void *stream;
-     char *s;
-{
-    long    rv = T;
-    char   *p;
-    size_t  n;
-
-    while(*s && rv){
-	if(n = (p = strstr(s, "\015\012")) ? p - s : strlen(s))
-	  while((rv = write(((PIPE_S *)stream)->out.d, s, n)) != n)
-	    if(rv < 0){
-		if(errno != EINTR){
-		    rv = 0;
-		    break;
-		}
-	    }
-	    else{
-		s += rv;
-		n -= rv;
-	    }
-
-	if(p && rv){
-	    s = p + 2;			/* write UNIX EOL */
-	    while((rv = write(((PIPE_S *)stream)->out.d,"\n",1)) != 1)
-	      if(rv < 0 && errno != EINTR){
-		  rv = 0;
-		  break;
-	      }
-	}
-	else
-	  break;
-    }
-
-    return(rv);
-}
-
-/* ----------------------------------------------------------------------
-   Execute the given mailcap command
-
-  Args: cmd           -- the command to execute
-	image_file    -- the file the data is in
-	needsterminal -- does this command want to take over the terminal?
-  ----*/
-void
-exec_mailcap_cmd(cmd, image_file, needsterminal)
-char *cmd;
-char *image_file;
-int   needsterminal;
-{
-    char   *command = NULL,
-	   *result_file = NULL,
-	   *p;
-    char  **r_file_h;
-    PIPE_S *syspipe;
-    int     mode;
-
-    p = command = (char *)fs_get((32 + strlen(cmd) + (2*strlen(image_file)))
-			     * sizeof(char));
-    if(!needsterminal)  /* put in background if it doesn't need terminal */
-      *p++ = '(';
-    sprintf(p, "%s ; rm -f %s", cmd, image_file);
-    p += strlen(p);
-    if(!needsterminal){
-	*p++ = ')';
-	*p++ = ' ';
-	*p++ = '&';
-    }
-    *p++ = '\n';
-    *p   = '\0';
-    dprint(9, (debugfile, "exec_mailcap_cmd: command=%s\n", command));
-
-    mode = PIPE_RESET;
-    if(needsterminal == 1)
-      r_file_h = NULL;
-    else{
-	mode       |= PIPE_WRITE | PIPE_STDERR;
-	result_file = temp_nam(NULL, "pine_cmd");
-	r_file_h    = &result_file;
-    }
-
-    if(syspipe = open_system_pipe(command, r_file_h, NULL, mode, 0)){
-	close_system_pipe(&syspipe);
-	if(needsterminal == 1)
-	  q_status_message(SM_ORDER, 0, 4, "VIEWER command completed");
-	else if(needsterminal == 2)
-	  display_output_file(result_file, "VIEWER", " command result", 1);
-	else
-	  display_output_file(result_file, "VIEWER", " command launched", 1);
-    }
-    else
-      q_status_message1(SM_ORDER, 3, 4, "Cannot spawn command : %s", cmd);
-
-    fs_give((void **)&command);
-    if(result_file)
-      fs_give((void **)&result_file);
-}
-
-
-/* ----------------------------------------------------------------------
-   Execute the given mailcap test= cmd
-
-  Args: cmd -- command to execute
-  Returns exit status
-  
-  ----*/
-int
-exec_mailcap_test_cmd(cmd)
-    char *cmd;
-{
-    PIPE_S *syspipe;
-
-    return((syspipe = open_system_pipe(cmd, NULL, NULL, PIPE_SILENT, 0))
-	     ? close_system_pipe(&syspipe) : -1);
-}
-
-
-
-/*======================================================================
-    print routines
-   
-    Functions having to do with printing on paper and forking of spoolers
-
-    In general one calls open_printer() to start printing. One of
-    the little print functions to send a line or string, and then
-    call print_end() when complete. This takes care of forking off a spooler
-    and piping the stuff down it. No handles or anything here because there's
-    only one printer open at a time.
-
- ====*/
-
-
-
-static char *trailer;  /* so both open and close_printer can see it */
-
-/*----------------------------------------------------------------------
-       Open the printer
-
-  Args: desc -- Description of item to print. Should have one trailing blank.
-
-  Return value: < 0 is a failure.
-		0 a success.
-
-This does most of the work of popen so we can save the standard output of the
-command we execute and send it back to the user.
-  ----*/
-int
-open_printer(desc)
-    char     *desc;
-{
-    char command[201], prompt[200];
-    int  cmd, rc, just_one;
-    char *p, *init, *nick;
-    char aname[100];
-    char *printer;
-    int	 done = 0, i, lastprinter, cur_printer = 0;
-    HelpType help;
-    char   **list;
-    static ESCKEY_S ekey[] = {
-	{'y', 'y', "Y", "Yes"},
-	{'n', 'n', "N", "No"},
-	{ctrl('P'), 10, "^P", "Prev Printer"},
-	{ctrl('N'), 11, "^N", "Next Printer"},
-	{-2,   0,   NULL, NULL},
-	{'c', 'c', "C", "CustomPrint"},
-	{KEY_UP,    10, "", ""},
-	{KEY_DOWN,  11, "", ""},
-	{-1, 0, NULL, NULL}};
-#define PREV_KEY   2
-#define NEXT_KEY   3
-#define CUSTOM_KEY 5
-#define UP_KEY     6
-#define DOWN_KEY   7
-
-    trailer      = NULL;
-    init         = NULL;
-    nick         = NULL;
-    command[200] = '\0';
-
-    if(ps_global->VAR_PRINTER == NULL){
-        q_status_message(SM_ORDER | SM_DING, 3, 5,
-	"No printer has been chosen.  Use SETUP on main menu to make choice.");
-	return(-1);
-    }
-
-    /* Is there just one print command available? */
-    just_one = (ps_global->printer_category!=3&&ps_global->printer_category!=2)
-	       || (ps_global->printer_category == 2
-		   && !(ps_global->VAR_STANDARD_PRINTER
-			&& ps_global->VAR_STANDARD_PRINTER[0]
-			&& ps_global->VAR_STANDARD_PRINTER[1]))
-	       || (ps_global->printer_category == 3
-		   && !(ps_global->VAR_PERSONAL_PRINT_COMMAND
-			&& ps_global->VAR_PERSONAL_PRINT_COMMAND[0]
-			&& ps_global->VAR_PERSONAL_PRINT_COMMAND[1]));
-
-    if(F_ON(F_CUSTOM_PRINT, ps_global))
-      ekey[CUSTOM_KEY].ch = 'c'; /* turn this key on */
-    else
-      ekey[CUSTOM_KEY].ch = -2;  /* turn this key off */
-
-    if(just_one){
-	ekey[PREV_KEY].ch = -2;  /* turn these keys off */
-	ekey[NEXT_KEY].ch = -2;
-	ekey[UP_KEY].ch   = -2;
-	ekey[DOWN_KEY].ch = -2;
-    }
-    else{
-	ekey[PREV_KEY].ch = ctrl('P'); /* turn these keys on */
-	ekey[NEXT_KEY].ch = ctrl('N');
-	ekey[UP_KEY].ch   = KEY_UP;
-	ekey[DOWN_KEY].ch = KEY_DOWN;
-	/*
-	 * count how many printers in list and find the default in the list
-	 */
-	if(ps_global->printer_category == 2)
-	  list = ps_global->VAR_STANDARD_PRINTER;
-	else
-	  list = ps_global->VAR_PERSONAL_PRINT_COMMAND;
-
-	for(i = 0; list[i]; i++)
-	  if(strcmp(ps_global->VAR_PRINTER, list[i]) == 0)
-	    cur_printer = i;
-	
-	lastprinter = i - 1;
-    }
-
-    help = NO_HELP;
-    ps_global->mangled_footer = 1;
-
-    while(!done){
-	if(init)
-	  fs_give((void **)&init);
-
-	if(trailer)
-	  fs_give((void **)&trailer);
-
-	if(just_one)
-	  printer = ps_global->VAR_PRINTER;
-	else
-	  printer = list[cur_printer];
-
-	parse_printer(printer, &nick, &p, &init, &trailer, NULL, NULL);
-	strncpy(command, p, 200);
-	fs_give((void **)&p);
-	sprintf(prompt, "Print %.50s%susing \"%.50s\" ? ",
-		desc ? desc : "",
-		(desc && *desc && desc[strlen(desc) - 1] != ' ') ? " " : "",
-		*nick ? nick : command);
-
-	fs_give((void **)&nick);
-	
-	cmd = radio_buttons(prompt, -FOOTER_ROWS(ps_global),
-				 ekey, 'y', 'x', help, RB_NORM);
-	
-	switch(cmd){
-	  case 'y':
-	    q_status_message1(SM_ORDER, 0, 9,
-		"Printing with command \"%s\"", command);
-	    done++;
-	    break;
-
-	  case 10:
-	    cur_printer = (cur_printer>0)
-				? (cur_printer-1)
-				: lastprinter;
-	    break;
-
-	  case 11:
-	    cur_printer = (cur_printer<lastprinter)
-				? (cur_printer+1)
-				: 0;
-	    break;
-
-	  case 'n':
-	  case 'x':
-	    done++;
-	    break;
-
-	  case 'c':
-	    done++;
-	    break;
-
-	  default:
-	    break;
-	}
-    }
-
-    if(cmd == 'c'){
-	if(init)
-	  fs_give((void **)&init);
-
-	if(trailer)
-	  fs_give((void **)&trailer);
-
-	sprintf(prompt, "Enter custom command : ");
-	command[0] = '\0';
-	rc = 1;
-	help = NO_HELP;
-	while(rc){
-	    int flags = OE_APPEND_CURRENT;
-
-	    rc = optionally_enter(command, -FOOTER_ROWS(ps_global), 0,
-		200, prompt, NULL, help, &flags);
-	    
-	    if(rc == 1){
-		cmd = 'x';
-		rc = 0;
-	    }
-	    else if(rc == 3)
-	      help = (help == NO_HELP) ? h_custom_print : NO_HELP;
-	    else if(rc == 0){
-		removing_trailing_white_space(command);
-		removing_leading_white_space(command);
-		q_status_message1(SM_ORDER, 0, 9,
-		    "Printing with command \"%s\"", command);
-	    }
-	}
-    }
-
-    if(cmd == 'x' || cmd == 'n'){
-	q_status_message(SM_ORDER, 0, 2, "Print cancelled");
-	if(init)
-	  fs_give((void **)&init);
-
-	if(trailer)
-	  fs_give((void **)&trailer);
-
-	return(-1);
-    }
-
-    display_message('x');
-
-    ps_global->print = (PRINT_S *)fs_get(sizeof(PRINT_S));
-    memset(ps_global->print, 0, sizeof(PRINT_S));
-
-    strcat(strcpy(aname, ANSI_PRINTER), "-no-formfeed");
-    if(strucmp(command, ANSI_PRINTER) == 0
-       || strucmp(command, aname) == 0){
-        /*----------- Printer attached to ansi device ---------*/
-        q_status_message(SM_ORDER, 0, 9,
-	    "Printing to attached desktop printer...");
-        display_message('x');
-	xonxoff_proc(1);			/* make sure XON/XOFF used */
-	crlf_proc(1);				/* AND LF->CR xlation */
-        fputs("\033[5i", stdout);
-        ps_global->print->fp = stdout;
-        if(strucmp(command, ANSI_PRINTER) == 0){
-	    /* put formfeed at the end of the trailer string */
-	    if(trailer){
-		int len = strlen(trailer);
-
-		fs_resize((void **)&trailer, len+2);
-		trailer[len] = '\f';
-		trailer[len+1] = '\0';
-	    }
-	    else
-	      trailer = cpystr("\f");
-	}
-    }
-    else{
-        /*----------- Print by forking off a UNIX command ------------*/
-        dprint(4, (debugfile, "Printing using command \"%s\"\n", command));
-	ps_global->print->result = temp_nam(NULL, "pine_prt");
-	if(ps_global->print->pipe = open_system_pipe(command,
-					 &ps_global->print->result, NULL,
-					 PIPE_WRITE | PIPE_STDERR, 0)){
-	    ps_global->print->fp = ps_global->print->pipe->out.f;
-	}
-	else{
-	    fs_give((void **)&ps_global->print->result);
-            q_status_message1(SM_ORDER | SM_DING, 3, 4,
-			      "Error opening printer: %s",
-                              error_description(errno));
-            dprint(2, (debugfile, "Error popening printer \"%s\"\n",
-                      error_description(errno)));
-	    if(init)
-	      fs_give((void **)&init);
-
-	    if(trailer)
-	      fs_give((void **)&trailer);
-	    
-	    return(-1);
-        }
-    }
-
-    ps_global->print->err = 0;
-    if(init){
-	if(*init)
-	  fputs(init, ps_global->print->fp);
-
-	fs_give((void **)&init);
-    }
-
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-     Close printer
-  
-  If we're piping to a spooler close down the pipe and wait for the process
-to finish. If we're sending to an attached printer send the escape sequence.
-Also let the user know the result of the print
- ----*/
-void
-close_printer()
-{
-    if(trailer){
-	if(*trailer)
-	  fputs(trailer, ps_global->print->fp);
-
-	fs_give((void **)&trailer);
-    }
-
-    if(ps_global->print->fp == stdout) {
-        fputs("\033[4i", stdout);
-        fflush(stdout);
-	if(F_OFF(F_PRESERVE_START_STOP, ps_global))
-	  xonxoff_proc(0);			/* turn off XON/XOFF */
-
-	crlf_proc(0);				/* turn off CF->LF xlantion */
-    } else {
-	(void) close_system_pipe(&ps_global->print->pipe);
-	display_output_file(ps_global->print->result, "PRINT", NULL, 1);
-	fs_give((void **)&ps_global->print->result);
-    }
-
-    fs_give((void **)&ps_global->print);
-
-    q_status_message(SM_ASYNC, 0, 3, "Print command completed");
-    display_message('x');
-}
-
-
-
-/*----------------------------------------------------------------------
-     Print a single character
-
-  Args: c -- char to print
-  Returns: 1 on success, 0 on ps_global->print->err
- ----*/
-int
-print_char(c)
-    int c;
-{
-    if(!ps_global->print->err && putc(c, ps_global->print->fp) == EOF)
-      ps_global->print->err = 1;
-
-    return(!ps_global->print->err);
-}
-
-
-
-/*----------------------------------------------------------------------
-     Send a line of text to the printer
-
-  Args:  line -- Text to print
-
-  ----*/
-    
-void
-print_text(line)
-    char *line;
-{
-    if(!ps_global->print->err && fputs(line, ps_global->print->fp) == EOF)
-      ps_global->print->err = 1;
-}
-
-
-
-/*----------------------------------------------------------------------
-      printf style formatting with one arg for printer
-
- Args: line -- The printf control string
-       a1   -- The 1st argument for printf
- ----*/
-void
-print_text1(line, a1)
-    char *line, *a1;
-{
-    if(!ps_global->print->err
-       && fprintf(ps_global->print->fp, line, a1) < 0)
-      ps_global->print->err = 1;
-}
-
-
-
-/*----------------------------------------------------------------------
-      printf style formatting with one arg for printer
-
- Args: line -- The printf control string
-       a1   -- The 1st argument for printf
-       a2   -- The 2nd argument for printf
- ----*/
-void
-print_text2(line, a1, a2)
-    char *line, *a1, *a2;
-{
-    if(!ps_global->print->err
-       && fprintf(ps_global->print->fp, line, a1, a2) < 0)
-      ps_global->print->err = 1;
-}
-
-
-
-/*----------------------------------------------------------------------
-      printf style formatting with one arg for printer
-
- Args: line -- The printf control string
-       a1   -- The 1st argument for printf
-       a2   -- The 2nd argument for printf
-       a3   -- The 3rd argument for printf
- ----*/
-void
-print_text3(line, a1, a2, a3)
-    char *line, *a1, *a2, *a3;
-{
-    if(!ps_global->print->err
-       && fprintf(ps_global->print->fp, line, a1, a2, a3) < 0)
-      ps_global->print->err = 1;
-}
-
-#ifdef DEBUG
-/*----------------------------------------------------------------------
-     Initialize debugging - open the debug log file
-
-  Args: none
-
- Result: opens the debug logfile for dprints
-
-   Opens the file "~/.pine-debug1. Also maintains .pine-debug[2-4]
-   by renaming them each time so the last 4 sessions are saved.
-  ----*/
-void
-init_debug()
-{
-    char nbuf[5];
-    char newfname[MAXPATH+1], filename[MAXPATH+1];
-    int i, fd;
-
-    if(!(debug || ps_global->debug_imap))
-      return;
-
-    for(i = ps_global->debug_nfiles - 1; i > 0; i--){
-        build_path(filename, ps_global->home_dir, DEBUGFILE);
-        strcpy(newfname, filename);
-        sprintf(nbuf, "%d", i);
-        strcat(filename, nbuf);
-        sprintf(nbuf, "%d", i+1);
-        strcat(newfname, nbuf);
-        (void)rename_file(filename, newfname);
-    }
-
-    build_path(filename, ps_global->home_dir, DEBUGFILE);
-    strcat(filename, "1");
-
-    debugfile = NULL;
-    if((fd = open(filename, O_TRUNC|O_RDWR|O_CREAT, 0600)) >= 0)
-      debugfile = fdopen(fd, "w+");
-
-    if(debugfile != NULL){
-	time_t now = time((time_t *)0);
-	if(ps_global->debug_flush)
-	  setbuf(debugfile, NULL);
-
-	if(ps_global->debug_nfiles == 0){
-	    /*
-	     * If no debug files are asked for, make filename a tempfile
-	     * to be used for a record should pine later crash...
-	     */
-	    if(debug < 9 && !ps_global->debug_flush && ps_global->debug_imap<4)
-	      unlink(filename);
-	}
-
-	dprint(0, (debugfile,
-  "Debug output of the Pine program (debug=%d debug_imap=%d). Version %s\n%s\n",
-	       debug, ps_global->debug_imap, pine_version, ctime(&now)));
-    }
-}
-
-
-/*----------------------------------------------------------------------
-     Try to save the debug file if we crash in a controlled way
-
-  Args: dfile:  pointer to open debug file
-
- Result: tries to move the appropriate .pine-debugx file to .pine-crash
-
-   Looks through the four .pine-debug files hunting for the one that is
-   associated with this pine, and then renames it.
-  ----*/
-void
-save_debug_on_crash(dfile)
-FILE *dfile;
-{
-    char nbuf[5], crashfile[MAXPATH+1], filename[MAXPATH+1];
-    int i;
-    struct stat dbuf, tbuf;
-    time_t now = time((time_t *)0);
-
-    if(!(dfile && fstat(fileno(dfile), &dbuf) != 0))
-      return;
-
-    fprintf(dfile, "\nsave_debug_on_crash: Version %s: debug level %d\n",
-	pine_version, debug);
-    fprintf(dfile, "\n                   : %s\n", ctime(&now));
-
-    build_path(crashfile, ps_global->home_dir, ".pine-crash");
-
-    fprintf(dfile, "\nAttempting to save debug file to %s\n", crashfile);
-    fprintf(stderr,
-	"\n\n       Attempting to save debug file to %s\n\n", crashfile);
-
-    /* Blat out last n keystrokes */
-    fputs("========== Latest keystrokes ==========\n", dfile);
-    while((i = key_playback(0)) != -1)
-      fprintf(dfile, "\t%s\t(0x%04.4x)\n", pretty_command(i), i);
-
-    /* look for existing debug file */
-    for(i = 1; i <= ps_global->debug_nfiles; i++){
-	build_path(filename, ps_global->home_dir, DEBUGFILE);
-	sprintf(nbuf, "%d", i);
-	strcat(filename, nbuf);
-	if(stat(filename, &tbuf) != 0)
-	  continue;
-
-	/* This must be the current debug file */
-	if(tbuf.st_dev == dbuf.st_dev && tbuf.st_ino == dbuf.st_ino){
-	    rename_file(filename, crashfile);
-	    break;
-	}
-    }
-
-    /* if current debug file name not found, write it by hand */
-    if(i > ps_global->debug_nfiles){
-	FILE *cfp;
-	char  buf[1025];
-
-	/*
-	 * Copy the debug temp file into the 
-	 */
-	if(cfp = fopen(crashfile, "w")){
-	    buf[1024] = '\0';
-	    fseek(dfile, 0L, 0);
-	    while(fgets(buf, 1025, dfile) && fputs(buf, cfp) != EOF)
-	      ;
-
-	    fclose(cfp);
-	}
-    }
-
-    fclose(dfile);
-}
-
-
-#define CHECK_EVERY_N_TIMES 100
-#define MAX_DEBUG_FILE_SIZE 200000L
-/*
- * This is just to catch runaway Pines that are looping spewing out
- * debugging (and filling up a file system).  The stop doesn't have to be
- * at all precise, just soon enough to hopefully prevent filling the
- * file system.  If the debugging level is high (9 for now), then we're
- * presumably looking for some problem, so don't truncate.
- */
-int
-do_debug(debug_fp)
-FILE *debug_fp;
-{
-    static int counter = CHECK_EVERY_N_TIMES;
-    static int ok = 1;
-    long filesize;
-
-    if(debug == DEFAULT_DEBUG
-       && !ps_global->debug_flush
-       && !ps_global->debug_timestamp
-       && ps_global->debug_imap < 2
-       && ok
-       && --counter <= 0){
-	if((filesize = fp_file_size(debug_fp)) != -1L)
-	  ok = (unsigned long)filesize < (unsigned long)MAX_DEBUG_FILE_SIZE;
-
-	counter = CHECK_EVERY_N_TIMES;
-	if(!ok){
-	    fprintf(debug_fp, "\n\n --- No more debugging ---\n");
-	    fprintf(debug_fp,
-		"     (debug file growing too large - over %ld bytes)\n\n",
-		MAX_DEBUG_FILE_SIZE);
-	    fflush(debug_fp);
-	}
-    }
-
-    if(ok && ps_global->debug_timestamp)
-      fprintf(debug_fp, "\n%s\n", debug_time(0));
-
-    return(ok);
-}
-
-
-/*
- * Returns a pointer to static string for a timestamp.
- *
- * If timestamp is set .subseconds are added if available.
- * If include_date is set the date is appended.
- */
-char *
-debug_time(include_date)
-    int include_date;
-{
-    time_t          t;
-    struct tm      *tm_now;
-    struct timeval  tp;
-    struct timezone tzp;
-    static char     timestring[23];
-    char            subsecond[8];
-    char            datestr[7];
-
-    if(gettimeofday(&tp, &tzp) == 0){
-	t = (time_t)tp.tv_sec;
-	if(include_date){
-	    tm_now = localtime(&t);
-	    sprintf(datestr, " %d/%d", tm_now->tm_mon+1, tm_now->tm_mday);
-	}
-	else
-	  datestr[0] = '\0';
-
-	if(ps_global->debug_timestamp)
-	  sprintf(subsecond, ".%06ld", tp.tv_usec);
-	else
-	  subsecond[0] = '\0';
-
-	sprintf(timestring, "%.8s%s%s", ctime(&t)+11, subsecond, datestr);
-    }
-    else
-      timestring[0] = '\0';
-
-    return(timestring);
-}
-#endif /* DEBUG */
-
-
-/*
- * Fills in the passed in structure with the current time.
- *
- * Returns 0 if ok
- *        -1 if can't do it
- */
-int
-get_time(our_time_val)
-    TIMEVAL_S *our_time_val;
-{
-    struct timeval  tp;
-    struct timezone tzp;
-
-    if(gettimeofday(&tp, &tzp) == 0){
-	our_time_val->sec  = tp.tv_sec;
-	our_time_val->usec = tp.tv_usec;
-	return 0;
-    }
-    else
-      return -1;
-}
-
-
-/*
- * Returns the difference between the two values, in microseconds.
- * Value returned is first - second.
- */
-long
-time_diff(first, second)
-    TIMEVAL_S *first,
-              *second;
-{
-    return(1000000L*(first->sec - second->sec) + (first->usec - second->usec));
-}
-
-
-
-/*======================================================================
-       Things having to do with reading from the tty driver and keyboard
-          - initialize tty driver and reset tty driver
-          - read a character from terminal with keyboard escape seqence mapping
-          - initialize keyboard (keypad or such) and reset keyboard
-          - prompt user for a line of input
-          - read a command from keyboard with timeouts.
-
- ====*/
-
-
-/*
- * Helpful definitions
- */
-#define	RETURN_CH(X)	return(key_recorder((X)))
-/*
- * Should really be using pico's TERM's t_getchar to read a character but
- * we're just calling ttgetc directly for now. Ttgetc is the same as
- * t_getchar whenever we use it so we're avoiding the trouble of initializing
- * the TERM struct and calling ttgetc directly.
- */
-#define READ_A_CHAR()	ttgetc(NO_OP_COMMAND, key_recorder, read_bail)
-
-
-/*
- * Internal prototypes
- */
-int  pine_simple_ttgetc PROTO((int (*)(), void (*)()));
-void line_paint PROTO((int, int *));
-int  process_config_input PROTO((int *));
-int  check_for_timeout PROTO((int));
-void read_bail PROTO((void));
-
-
-/*----------------------------------------------------------------------
-    Initialize the tty driver to do single char I/O and whatever else  (UNIX)
-
-   Args:  struct pine
-
- Result: tty driver is put in raw mode so characters can be read one
-         at a time. Returns -1 if unsuccessful, 0 if successful.
-
-Some file descriptor voodoo to allow for pipes across vforks. See 
-open_mailer for details.
-  ----------------------------------------------------------------------*/
-init_tty_driver(ps)
-     struct pine *ps;
-{
-#ifdef	MOUSE
-    if(F_ON(F_ENABLE_MOUSE, ps_global))
-      init_mouse();
-#endif	/* MOUSE */
-
-    /* turn off talk permission by default */
-    
-    if(F_ON(F_ALLOW_TALK, ps))
-      allow_talk(ps);
-    else
-      disallow_talk(ps);
-
-    return(PineRaw(1));
-}
-
-
-
-/*----------------------------------------------------------------------
-   Set or clear the specified tty mode
-
-   Args: ps --  struct pine
-	 mode -- mode bits to modify
-	 clear -- whether or not to clear or set
-
- Result: tty driver mode change. 
-  ----------------------------------------------------------------------*/
-void
-tty_chmod(ps, mode, func)
-    struct pine *ps;
-    int		 mode;
-    int		 func;
-{
-    char	*tty_name;
-    int		 new_mode;
-    struct stat  sbuf;
-    static int   saved_mode = -1;
-
-    /* if no problem figuring out tty's name & mode? */
-    if((((tty_name = (char *) ttyname(STDIN_FD)) != NULL
-	 && fstat(STDIN_FD, &sbuf) == 0)
-	|| ((tty_name = (char *) ttyname(STDOUT_FD)) != NULL
-	    && fstat(STDOUT_FD, &sbuf) == 0))
-       && !(func == TMD_RESET && saved_mode < 0)){
-	new_mode = (func == TMD_RESET)
-		     ? saved_mode
-		     : (func == TMD_CLEAR)
-			? (sbuf.st_mode & ~mode)
-			: (sbuf.st_mode | mode);
-	/* assign tty new mode */
-	if(chmod(tty_name, new_mode) == 0){
-	    if(func == TMD_RESET)		/* forget we knew */
-	      saved_mode = -1;
-	    else if(saved_mode < 0)
-	      saved_mode = sbuf.st_mode;	/* remember original */
-	}
-    }
-}
-
-
-
-/*----------------------------------------------------------------------
-       End use of the tty, put it back into it's normal mode     (UNIX)
-
-   Args: ps --  struct pine
-
- Result: tty driver mode change. 
-  ----------------------------------------------------------------------*/
-void
-end_tty_driver(ps)
-     struct pine *ps;
-{
-    ps = ps; /* get rid of unused parameter warning */
-
-#ifdef	MOUSE
-    end_mouse();
-#endif	/* MOUSE */
-    fflush(stdout);
-    dprint(2, (debugfile, "about to end_tty_driver\n"));
-
-    tty_chmod(ps, 0, TMD_RESET);
-    PineRaw(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Actually set up the tty driver                             (UNIX)
-
-   Args: state -- which state to put it in. 1 means go into raw, 0 out of
-
-  Result: returns 0 if successful and < 0 if not.
-  ----*/
-
-PineRaw(state)
-int state;
-{
-    int result;
-
-    result = Raw(state);
-    
-    if(result == 0 && state == 1){
-	/*
-	 * Only go into 8 bit mode if we are doing something other
-	 * than plain ASCII. This will save the folks that have
-	 * their parity on their serial lines wrong thr trouble of
-	 * getting it right
-	 */
-        if(ps_global->VAR_CHAR_SET && ps_global->VAR_CHAR_SET[0] &&
-	   strucmp(ps_global->VAR_CHAR_SET, "us-ascii"))
-	  bit_strip_off();
-
-#ifdef	DEBUG
-	if(debug < 9)			/* only on if full debugging set */
-#endif
-	quit_char_off();
-	ps_global->low_speed = ttisslow();
-	crlf_proc(0);
-	xonxoff_proc(F_ON(F_PRESERVE_START_STOP, ps_global));
-    }
-
-    return(result);
-}
-
-
-#ifdef RESIZING
-jmp_buf winch_state;
-int     winch_occured = 0;
-int     ready_for_winch = 0;
-#endif
-
-/*----------------------------------------------------------------------
-     This checks whether or not a character			(UNIX)
-     is ready to be read, or it times out.
-
-    Args:  time_out --  number of seconds before it will timeout
-
-  Result: Returns a NO_OP_IDLE or a NO_OP_COMMAND if the timeout expires
-	  before input is available, or a KEY_RESIZE if a resize event
-	  occurs, or READY_TO_READ if input is available before the timeout.
-  ----*/
-int
-check_for_timeout(time_out)
-    int time_out;
-{
-    int res;
-
-    fflush(stdout);
-
-#ifdef RESIZING
-    if(!winch_occured){
-	if(setjmp(winch_state) != 0){
-	    winch_occured = 1;
-	    ready_for_winch = 0;
-
-	    /*
-	     * Need to unblock signal after longjmp from handler, because
-	     * signal is normally unblocked upon routine exit from the handler.
-	     */
-	    our_sigunblock(SIGWINCH);
-	}
-	else
-	  ready_for_winch = 1;
-    }
-
-    if(winch_occured){
-	winch_occured = ready_for_winch = 0;
-	fix_windsize(ps_global);
-	return(KEY_RESIZE);
-    }
-#endif /* RESIZING */
-
-    switch(res = input_ready(time_out)){
-      case BAIL_OUT:
-	read_bail();			/* non-tragic exit */
-	/* NO RETURN */
-
-      case PANIC_NOW:
-	panic1("Select error: %s\n", error_description(errno));
-	/* NO RETURN */
-
-      case READ_INTR:
-	res = NO_OP_COMMAND;
-	/* fall through */
-
-      case NO_OP_IDLE:
-      case NO_OP_COMMAND:
-      case READY_TO_READ:
-#ifdef RESIZING
-	ready_for_winch = 0;
-#endif
-	return(res);
-    }
-}
-
-
-
-/*----------------------------------------------------------------------
-  Read input characters with lots of processing for arrow keys and such  (UNIX)
-
- Args:  time_out -- The timeout to for the reads 
-
- Result: returns the character read. Possible special chars.
-
-    This deals with function and arrow keys as well. 
-
-  The idea is that this routine handles all escape codes so it done in
-  only one place. Especially so the back arrow key can work when entering
-  things on a line. Also so all function keys can be disabled and not
-  cause weird things to happen.
-  ---*/
-int
-read_char(time_out)
-    int time_out;
-{
-    int ch, status, cc;
-
-    /* Get input from initial-keystrokes */
-    if(process_config_input(&ch))
-      return(ch);
-
-    /*
-     * We only check for timeouts at the start of read_char, not in the
-     * middle of escape sequences.
-     */
-    if((ch = check_for_timeout(time_out)) != READY_TO_READ)
-      goto done;
-    
-    ps_global->time_of_last_input = time((time_t *)0);
-
-    switch(status = kbseq(pine_simple_ttgetc, key_recorder, read_bail, &ch)){
-      case KEY_DOUBLE_ESC:
-	/*
-	 * Special hack to get around comm devices eating control characters.
-	 */
-	if(check_for_timeout(5) != READY_TO_READ){
-	    ch = KEY_JUNK;		/* user typed ESC ESC, then stopped */
-	    goto done;
-	}
-	else
-	  ch = READ_A_CHAR();
-
-	ch &= 0x7f;
-	if(isdigit((unsigned char)ch)){
-	    int n = 0, i = ch - '0';
-
-	    if(i < 0 || i > 2){
-		ch = KEY_JUNK;
-		goto done;		/* bogus literal char value */
-	    }
-
-	    while(n++ < 2){
-		if(check_for_timeout(5) != READY_TO_READ
-		   || (!isdigit((unsigned char) (ch = READ_A_CHAR()))
-		       || (n == 1 && i == 2 && ch > '5')
-		       || (n == 2 && i == 25 && ch > '5'))){
-		    ch = KEY_JUNK;	/* user typed ESC ESC #, stopped */
-		    goto done;
-		}
-
-		i = (i * 10) + (ch - '0');
-	    }
-
-	    ch = i;
-	}
-	else{
-	    if(islower((unsigned char)ch))	/* canonicalize if alpha */
-	      ch = toupper((unsigned char)ch);
-
-	    ch = (isalpha((unsigned char)ch) || ch == '@'
-		  || (ch >= '[' && ch <= '_'))
-		   ? ctrl(ch) : ((ch == SPACE) ? ctrl('@'): ch);
-	}
-
-	goto done;
-
-#ifdef MOUSE
-      case KEY_XTERM_MOUSE:
-	if(mouseexist()){
-	    /*
-	     * Special hack to get mouse events from an xterm.
-	     * Get the details, then pass it past the keymenu event
-	     * handler, and then to the installed handler if there
-	     * is one...
-	     */
-	    static int down = 0;
-	    int        x, y, button;
-	    unsigned   cmd;
-
-	    clear_cursor_pos();
-	    button = READ_A_CHAR() & 0x03;
-
-	    x = READ_A_CHAR() - '!';
-	    y = READ_A_CHAR() - '!';
-
-	    ch = NO_OP_COMMAND;
-	    if(button == 0){		/* xterm button 1 down */
-		down = 1;
-		if(checkmouse(&cmd, 1, x, y))
-		  ch = (int)cmd;
-	    }
-	    else if (down && button == 3){
-		down = 0;
-		if(checkmouse(&cmd, 0, x, y))
-		  ch = (int)cmd;
-	    }
-
-	    goto done;
-	}
-
-	break;
-#endif /* MOUSE */
-
-      case  KEY_UP	:
-      case  KEY_DOWN	:
-      case  KEY_RIGHT	:
-      case  KEY_LEFT	:
-      case  KEY_PGUP	:
-      case  KEY_PGDN	:
-      case  KEY_HOME	:
-      case  KEY_END	:
-      case  KEY_DEL	:
-      case  PF1		:
-      case  PF2		:
-      case  PF3		:
-      case  PF4		:
-      case  PF5		:
-      case  PF6		:
-      case  PF7		:
-      case  PF8		:
-      case  PF9		:
-      case  PF10	:
-      case  PF11	:
-      case  PF12	:
-        dprint(9, (debugfile, "Read char returning: %d %s\n",
-                   status, pretty_command(status)));
-	return(status);
-
-      case KEY_SWALLOW_Z:
-	status = KEY_JUNK;
-      case KEY_SWAL_UP:
-      case KEY_SWAL_DOWN:
-      case KEY_SWAL_LEFT:
-      case KEY_SWAL_RIGHT:
-	do
-	  if(check_for_timeout(2) != READY_TO_READ){
-	      status = KEY_JUNK;
-	      break;
-	  }
-	while(!strchr("~qz", READ_A_CHAR()));
-	ch = (status == KEY_JUNK) ? status : status - (KEY_SWAL_UP - KEY_UP);
-	goto done;
-
-      case KEY_KERMIT:
-	do{
-	    cc = ch;
-	    if(check_for_timeout(2) != READY_TO_READ){
-		status = KEY_JUNK;
-		break;
-	    }
-	    else
-	      ch = READ_A_CHAR();
-	}while(cc != '\033' && ch != '\\');
-
-	ch = KEY_JUNK;
-	goto done;
-
-      case BADESC:
-	ch = KEY_JUNK;
-	goto done;
-
-      case 0: 	/* regular character */
-      default:
-	/*
-	 * we used to strip (ch &= 0x7f;), but this seems much cleaner
-	 * in the face of line noise and has the benefit of making it
-	 * tougher to emit mistakenly labeled MIME...
-	 */
-	if((ch & 0x80) && (!ps_global->VAR_CHAR_SET
-			   || !strucmp(ps_global->VAR_CHAR_SET, "US-ASCII"))){
-	    dprint(9, (debugfile, "Read char returning: %d %s\n",
-		       status, pretty_command(status)));
-	    return(KEY_JUNK);
-	}
-	else if(ch == ctrl('Z')){
-	    dprint(9, (debugfile, "Read char calling do_suspend\n"));
-	    return(do_suspend());
-	}
-
-
-      done:
-        dprint(9, (debugfile, "Read char returning: %d %s\n",
-                   ch, pretty_command(ch)));
-        return(ch);
-    }
-}
-
-
-/*----------------------------------------------------------------------
-  Reading input somehow failed and we need to shutdown now
-
- Args:  none
-
- Result: pine exits
-
-  ---*/
-void
-read_bail()
-{
-    end_signals(1);
-    if(ps_global->inbox_stream){
-	if(ps_global->inbox_stream == ps_global->mail_stream)
-	  ps_global->mail_stream = NULL;
-
-	if(!ps_global->inbox_stream->lock)		/* shouldn't be... */
-	  pine_close_stream(ps_global->inbox_stream);
-    }
-
-    if(ps_global->mail_stream && !ps_global->mail_stream->lock)
-      pine_close_stream(ps_global->mail_stream);
-
-    end_keyboard(F_ON(F_USE_FK,ps_global));
-    end_tty_driver(ps_global);
-    if(filter_data_file(0))
-      unlink(filter_data_file(0));
-
-    exit(0);
-}
-
-
-int
-pine_simple_ttgetc(fi, fv)
-    int	 (*fi)();
-    void (*fv)();
-{
-    int ch;
-
-#ifdef RESIZING
-    if(!winch_occured){
-	if(setjmp(winch_state) != 0){
-	    winch_occured = 1;
-	    ready_for_winch = 0;
-
-	    /*
-	     * Need to unblock signal after longjmp from handler, because
-	     * signal is normally unblocked upon routine exit from the handler.
-	     */
-	    our_sigunblock(SIGWINCH);
-	}
-	else
-	  ready_for_winch = 1;
-    }
-
-    if(winch_occured){
-	winch_occured = ready_for_winch = 0;
-	fix_windsize(ps_global);
-	return(KEY_RESIZE);
-    }
-#endif /* RESIZING */
-
-    ch = simple_ttgetc(fi, fv);
-
-#ifdef RESIZING
-    ready_for_winch = 0;
-#endif
-
-    return(ch);
-}
-
-
-
-extern char term_name[];
-/* -------------------------------------------------------------------
-     Set up the keyboard -- usually enable some function keys  (UNIX)
-
-    Args: struct pine 
-
-So far all we do here is turn on keypad mode for certain terminals
-
-Hack for NCSA telnet on an IBM PC to put the keypad in the right mode.
-This is the same for a vtXXX terminal or [zh][12]9's which we have 
-a lot of at UW
-  ----*/
-void
-init_keyboard(use_fkeys)
-     int use_fkeys;
-{
-    if(use_fkeys && (!strucmp(term_name,"vt102")
-		     || !strucmp(term_name,"vt100")))
-      printf("\033\133\071\071\150");
-}
-
-
-
-/*----------------------------------------------------------------------
-     Clear keyboard, usually disable some function keys           (UNIX)
-
-   Args:  pine state (terminal type)
-
- Result: keyboard state reset
-  ----*/
-void
-end_keyboard(use_fkeys)
-     int use_fkeys;
-{
-    if(use_fkeys && (!strcmp(term_name, "vt102")
-		     || !strcmp(term_name, "vt100"))){
-	printf("\033\133\071\071\154");
-	fflush(stdout);
-    }
-}
-
-
-#ifdef	_WINDOWS
-#line 3 "osdep/termin.gen"
-
-static int g_mc_row, g_mc_col;
-
-int	pcpine_oe_cursor PROTO((int, long));
-#endif
-
-
-/*
- *     Generic tty input routines
- */
-
-
-/*----------------------------------------------------------------------
-        Read a character from keyboard with timeout
- Input:  none
-
- Result: Returns command read via read_char
-         Times out and returns a null command every so often
-
-  Calculates the timeout for the read, and does a few other house keeping 
-things.  The duration of the timeout is set in pine.c.
-  ----------------------------------------------------------------------*/
-int
-read_command()
-{
-    int ch, tm = 0;
-    long dtime; 
-
-    cancel_busy_alarm(-1);
-    tm = (messages_queued(&dtime) > 1) ? (int)dtime : timeo;
-
-    /*
-     * Before we sniff at the input queue, make sure no external event's
-     * changed our picture of the message sequence mapping.  If so,
-     * recalculate the dang thing and run thru whatever processing loop
-     * we're in again...
-     */
-    if(ps_global->expunge_count){
-	q_status_message3(SM_ORDER, 3, 3,
-			  "%s message%s expunged from folder \"%s\"",
-			  long2string(ps_global->expunge_count),
-			  plural(ps_global->expunge_count),
-			  pretty_fn(ps_global->cur_folder));
-	ps_global->expunge_count = 0L;
-	display_message('x');
-    }
-
-    if(ps_global->inbox_expunge_count){
-	q_status_message3(SM_ORDER, 3, 3,
-			  "%s message%s expunged from folder \"%s\"",
-			  long2string(ps_global->inbox_expunge_count),
-			  plural(ps_global->inbox_expunge_count),
-			  pretty_fn(ps_global->inbox_name));
-	ps_global->inbox_expunge_count = 0L;
-	display_message('x');
-    }
-
-    if(ps_global->mail_box_changed && ps_global->new_mail_count){
-        dprint(2, (debugfile, "Noticed %ld new msgs! \n",
-		   ps_global->new_mail_count));
-	return(NO_OP_COMMAND);		/* cycle thru so caller can update */
-    }
-
-    ch = read_char(tm);
-    dprint(9, (debugfile, "Read command returning: %d %s\n", ch,
-              pretty_command(ch)));
-    if(ch != NO_OP_COMMAND && ch != NO_OP_IDLE && ch != KEY_RESIZE)
-      zero_new_mail_count();
-
-#ifdef	BACKGROUND_POST
-    /*
-     * Any expired children to report on?
-     */
-    if(ps_global->post && ps_global->post->pid == 0){
-	int   winner = 0;
-
-	if(ps_global->post->status < 0){
-	    q_status_message(SM_ORDER | SM_DING, 3, 3, "Abysmal failure!");
-	}
-	else{
-	    (void) pine_send_status(ps_global->post->status,
-				    ps_global->post->fcc, tmp_20k_buf,
-				    &winner);
-	    q_status_message(SM_ORDER | (winner ? 0 : SM_DING), 3, 3,
-			     tmp_20k_buf);
-
-	}
-
-	if(!winner)
-	  q_status_message(SM_ORDER, 0, 3,
-	  "Re-send via \"Compose\" then \"Yes\" to \"Continue INTERRUPTED?\"");
-
-	if(ps_global->post->fcc)
-	  fs_give((void **) &ps_global->post->fcc);
-
-	fs_give((void **) &ps_global->post);
-    }
-#endif
-
-    return(ch);
-}
-
-
-
-
-/*
- *
- */
-static struct display_line {
-    int   row, col;			/* where display starts		 */
-    int   dlen;				/* length of display line	 */
-    char *dl;				/* line on display		 */
-    char *vl;				/* virtual line 		 */
-    int   vlen;				/* length of virtual line        */
-    int   vused;			/* length of virtual line in use */
-    int   vbase;			/* first virtual char on display */
-} dline;
-
-
-
-static struct key oe_keys[] =
-       {{"^G","Help",KS_SCREENHELP},	{"^C","Cancel",KS_NONE},
-	{"^T","xxx",KS_NONE},		{"Ret","Accept",KS_NONE},
-	{NULL,NULL,KS_NONE},		{NULL,NULL,KS_NONE},
-	{NULL,NULL,KS_NONE},		{NULL,NULL,KS_NONE},
-	{NULL,NULL,KS_NONE},		{NULL,NULL,KS_NONE},
-	{NULL,NULL,KS_NONE},		{NULL,NULL,KS_NONE}};
-INST_KEY_MENU(oe_keymenu, oe_keys);
-#define	OE_HELP_KEY	0
-#define	OE_CANCEL_KEY	1
-#define	OE_CTRL_T_KEY	2
-#define	OE_ENTER_KEY	3
-
-
-/*---------------------------------------------------------------------- 
-       Prompt user for a string in status line with various options
-
-  Args: string -- the buffer result is returned in, and original string (if 
-                   any) is passed in.
-        y_base -- y position on screen to start on. 0,0 is upper left
-                    negative numbers start from bottom
-        x_base -- column position on screen to start on. 0,0 is upper left
-        field_len -- Maximum length of string to accept
-        prompt -- The string to prompt with
-	escape_list -- pointer to array of ESCKEY_S's.  input chars matching
-                       those in list return value from list.
-        help   -- Arrary of strings for help text in bottom screen lines
-        flags  -- pointer (because some are return values) to flags
-		  OE_USER_MODIFIED       - Set on return if user modified buffer
-		  OE_DISALLOW_CANCEL     - No cancel in menu.
-		  OE_DISALLOW_HELP       - No help in menu.
-		  OE_KEEP_TRAILING_SPACE - Allow trailing space.
-		  OE_SEQ_SENSITIVE       - Caller is sensitive to sequence
-					   number changes.
-		  OE_APPEND_CURRENT      - String should not be truncated
-					   before accepting user input.
-		  OE_PASSWD              - Don't echo on screen.
-
-  Result:  editing input string
-            returns -1 unexpected errors
-            returns 0  normal entry typed (editing and return or PF2)
-            returns 1  typed ^C or PF2 (cancel)
-            returns 3  typed ^G or PF1 (help)
-            returns 4  typed ^L for a screen redraw
-
-  WARNING: Care is required with regard to the escape_list processing.
-           The passed array is terminated with an entry that has ch = -1.
-           Function key labels and key strokes need to be setup externally!
-	   Traditionally, a return value of 2 is used for ^T escapes.
-
-   Unless in escape_list, tabs are trapped by isprint().
-This allows near full weemacs style editing in the line
-   ^A beginning of line
-   ^E End of line
-   ^R Redraw line
-   ^G Help
-   ^F forward
-   ^B backward
-   ^D delete
-----------------------------------------------------------------------*/
-
-optionally_enter(string, y_base, x_base, field_len,
-                 prompt, escape_list, help, flags)
-     char       *string, *prompt;
-     ESCKEY_S   *escape_list;
-     HelpType	 help;
-     int         x_base, y_base, field_len;
-     int	*flags;
-{
-    register char *s2;
-    register int   field_pos;
-    int            i, j, return_v, cols, ch, prompt_len, too_thin,
-                   real_y_base, km_popped, passwd;
-    char          *saved_original = NULL, *k, *kb;
-    char          *kill_buffer = NULL;
-    char         **help_text;
-    int		   fkey_table[12];
-    struct	   key_menu *km;
-    bitmap_t	   bitmap;
-    COLOR_PAIR    *lastc = NULL, *promptc = NULL;
-    struct variable *vars = ps_global->vars;
-#ifdef	_WINDOWS
-    int		   cursor_shown;
-#endif
-
-    dprint(5, (debugfile, "=== optionally_enter called ===\n"));
-    dprint(9, (debugfile, "string:\"%s\"  y:%d  x:%d  length: %d append: %d\n",
-               string, x_base, y_base, field_len,
-	       (flags && *flags & OE_APPEND_CURRENT)));
-    dprint(9, (debugfile, "passwd:%d   prompt:\"%s\"   label:\"%s\"\n",
-               (flags && *flags & OE_PASSWD),
-	       prompt, (escape_list && escape_list[0].ch != -1)
-				 ? escape_list[0].label: ""));
-
-#ifdef _WINDOWS
-    if (mswin_usedialog ()) {
-	MDlgButton		button_list[12];
-	int			b;
-	int			i;
-
-	memset (&button_list, 0, sizeof (MDlgButton) * 12);
-	b = 0;
-	for (i = 0; escape_list && escape_list[i].ch != -1 && i < 11; ++i) {
-	    if (escape_list[i].name != NULL
-		&& escape_list[i].ch > 0 && escape_list[i].ch < 256) {
-		button_list[b].ch = escape_list[i].ch;
-		button_list[b].rval = escape_list[i].rval;
-		button_list[b].name = escape_list[i].name;
-		button_list[b].label = escape_list[i].label;
-		++b;
-	    }
-	}
-	button_list[b].ch = -1;
-
-
-	help_text = get_help_text (help);
-	return_v = mswin_dialog (prompt, string, field_len, 
-				 (flags && *flags & OE_APPEND_CURRENT),
-				 (flags && *flags & OE_PASSWD),
-				 button_list,
-				 help_text, flags ? *flags : OE_NONE);
-	free_list_array (&help_text);
-        return (return_v);
-    }
-#endif
-
-    suspend_busy_alarm();
-    cols       = ps_global->ttyo->screen_cols;
-    prompt_len = strlen(prompt);
-    too_thin   = 0;
-    km_popped  = 0;
-    if(y_base > 0) {
-        real_y_base = y_base;
-    } else {
-        real_y_base=  y_base + ps_global->ttyo->screen_rows;
-        if(real_y_base < 2)
-          real_y_base = ps_global->ttyo->screen_rows;
-    }
-
-    flush_ordered_messages();
-    mark_status_dirty();
-    if(flags && *flags & OE_APPEND_CURRENT) /* save a copy in case of cancel */
-      saved_original = cpystr(string);
-
-    /*
-     * build the function key mapping table, skipping predefined keys...
-     */
-    memset(fkey_table, NO_OP_COMMAND, 12 * sizeof(int));
-    for(i = 0, j = 0; escape_list && escape_list[i].ch != -1 && i+j < 12; i++){
-	if(i+j == OE_HELP_KEY)
-	  j++;
-
-	if(i+j == OE_CANCEL_KEY)
-	  j++;
-
-	if(i+j == OE_ENTER_KEY)
-	  j++;
-
-	fkey_table[i+j] = escape_list[i].ch;
-    }
-
-#if defined(HELPFILE)
-    help_text = (help != NO_HELP) ? get_help_text(help) : (char **)NULL;
-#else
-    help_text = help;
-#endif
-    if(help_text){			/*---- Show help text -----*/
-	int width = ps_global->ttyo->screen_cols - x_base;
-
-	if(FOOTER_ROWS(ps_global) == 1){
-	    km_popped++;
-	    FOOTER_ROWS(ps_global) = 3;
-	    clearfooter(ps_global);
-
-	    y_base = -3;
-	    real_y_base = y_base + ps_global->ttyo->screen_rows;
-	}
-
-	for(j = 0; j < 2 && help_text[j]; j++){
-	    MoveCursor(real_y_base + 1 + j, x_base);
-	    CleartoEOLN();
-
-	    if(width < strlen(help_text[j])){
-		char *tmp = fs_get((width + 1) * sizeof(char));
-		strncpy(tmp, help_text[j], width);
-		tmp[width] = '\0';
-		PutLine0(real_y_base + 1 + j, x_base, tmp);
-		fs_give((void **)&tmp);
-	    }
-	    else
-	      PutLine0(real_y_base + 1 + j, x_base, help_text[j]);
-	}
-
-#if defined(HELPFILE)
-	free_list_array(&help_text);
-#endif
-
-    } else {
-	clrbitmap(bitmap);
-	clrbitmap((km = &oe_keymenu)->bitmap);		/* force formatting */
-	if(!(flags && (*flags) & OE_DISALLOW_HELP))
-	  setbitn(OE_HELP_KEY, bitmap);
-
-	setbitn(OE_ENTER_KEY, bitmap);
-	if(!(flags && (*flags) & OE_DISALLOW_CANCEL))
-	  setbitn(OE_CANCEL_KEY, bitmap);
-
-	setbitn(OE_CTRL_T_KEY, bitmap);
-
-        /*---- Show the usual possible keys ----*/
-	for(i=0,j=0; escape_list && escape_list[i].ch != -1 && i+j < 12; i++){
-	    if(i+j == OE_HELP_KEY)
-	      j++;
-
-	    if(i+j == OE_CANCEL_KEY)
-	      j++;
-
-	    if(i+j == OE_ENTER_KEY)
-	      j++;
-
-	    oe_keymenu.keys[i+j].label = escape_list[i].label;
-	    oe_keymenu.keys[i+j].name = escape_list[i].name;
-	    setbitn(i+j, bitmap);
-	}
-
-	for(i = i+j; i < 12; i++)
-	  if(!(i == OE_HELP_KEY || i == OE_ENTER_KEY || i == OE_CANCEL_KEY))
-	    oe_keymenu.keys[i].name = NULL;
-
-	draw_keymenu(km, bitmap, cols, 1-FOOTER_ROWS(ps_global), 0, FirstMenu);
-    }
-    
-    if(pico_usingcolor() && VAR_PROMPT_FORE_COLOR &&
-       VAR_PROMPT_BACK_COLOR &&
-       pico_is_good_color(VAR_PROMPT_FORE_COLOR) &&
-       pico_is_good_color(VAR_PROMPT_BACK_COLOR)){
-	lastc = pico_get_cur_color();
-	if(lastc){
-	    promptc = new_color_pair(VAR_PROMPT_FORE_COLOR,
-				     VAR_PROMPT_BACK_COLOR);
-	    (void)pico_set_colorp(promptc, PSC_NONE);
-	}
-    }
-    else
-      StartInverse();
-
-    /*
-     * if display length isn't wide enough to support input,
-     * shorten up the prompt...
-     */
-    if((dline.dlen = cols - (x_base + prompt_len + 1)) < 5){
-	prompt_len += (dline.dlen - 5);	/* adding negative numbers */
-	prompt     -= (dline.dlen - 5);	/* subtracting negative numbers */
-	dline.dlen  = 5;
-    }
-
-    dline.dl    = fs_get((size_t)dline.dlen + 1);
-    memset((void *)dline.dl, 0, (size_t)(dline.dlen + 1) * sizeof(char));
-    dline.row   = real_y_base;
-    dline.col   = x_base + prompt_len;
-    dline.vl    = string;
-    dline.vlen  = --field_len;		/* -1 for terminating NULL */
-    dline.vbase = field_pos = 0;
-
-#ifdef	_WINDOWS
-    cursor_shown = mswin_showcaret(1);
-#endif
-    
-    PutLine0(real_y_base, x_base, prompt);
-    /* make sure passed in string is shorter than field_len */
-    /* and adjust field_pos..                               */
-
-    while((flags && *flags & OE_APPEND_CURRENT) &&
-          field_pos < field_len && string[field_pos] != '\0')
-      field_pos++;
-
-    string[field_pos] = '\0';
-    dline.vused = (int)(&string[field_pos] - string);
-    passwd = (flags && *flags & OE_PASSWD) ? 1 : 0;
-    line_paint(field_pos, &passwd);
-
-    /*----------------------------------------------------------------------
-      The main loop
-   
-    here field_pos is the position in the string.
-    s always points to where we are in the string.
-    loops until someone sets the return_v.
-      ----------------------------------------------------------------------*/
-    return_v = -10;
-
-    while(return_v == -10) {
-
-#ifdef	MOUSE
-	mouse_in_content(KEY_MOUSE, -1, -1, 0x5, 0);
-	register_mfunc(mouse_in_content, 
-		       real_y_base, x_base + prompt_len,
-		       real_y_base, ps_global->ttyo->screen_cols);
-#endif
-#ifdef	_WINDOWS
-	mswin_allowpaste(MSWIN_PASTE_LINE);
-	g_mc_row = real_y_base;
-	g_mc_col = x_base + prompt_len;
-	mswin_mousetrackcallback(pcpine_oe_cursor);
-#endif
-
-	/* Timeout 10 min to keep imap mail stream alive */
-        ch = read_char(600);
-
-#ifdef	MOUSE
-	clear_mfunc(mouse_in_content);
-#endif
-#ifdef	_WINDOWS
-	mswin_allowpaste(MSWIN_PASTE_DISABLE);
-	mswin_mousetrackcallback(NULL);
-#endif
-
-	/*
-	 * Don't want to intercept all characters if typing in passwd.
-	 * We select an ad hoc set that we will catch and let the rest
-	 * through.  We would have caught the set below in the big switch
-	 * but we skip the switch instead.  Still catch things like ^K,
-	 * DELETE, ^C, RETURN.
-	 */
-	if(passwd)
-	  switch(ch) {
-            case ctrl('F'):  
-	    case KEY_RIGHT:
-            case ctrl('B'):
-	    case KEY_LEFT:
-            case ctrl('U'):
-            case ctrl('A'):
-	    case KEY_HOME:
-            case ctrl('E'):
-	    case KEY_END:
-	    case TAB:
-	      goto ok_for_passwd;
-	  }
-
-        if(too_thin && ch != KEY_RESIZE && ch != ctrl('Z') && ch != ctrl('C'))
-          goto bleep;
-
-	switch(ch) {
-
-	    /*--------------- KEY RIGHT ---------------*/
-          case ctrl('F'):  
-	  case KEY_RIGHT:
-	    if(field_pos >= field_len || string[field_pos] == '\0')
-              goto bleep;
-
-	    line_paint(++field_pos, &passwd);
-	    break;
-
-	    /*--------------- KEY LEFT ---------------*/
-          case ctrl('B'):
-	  case KEY_LEFT:
-	    if(field_pos <= 0)
-	      goto bleep;
-
-	    line_paint(--field_pos, &passwd);
-	    break;
-
-          /*-------------------- WORD SKIP --------------------*/
-	  case ctrl('@'):
-	    /*
-	     * Note: read_char *can* return NO_OP_COMMAND which is
-	     * the def'd with the same value as ^@ (NULL), BUT since
-	     * read_char has a big timeout (>25 secs) it won't.
-	     */
-
-	    /* skip thru current word */
-	    while(string[field_pos]
-		  && isalnum((unsigned char) string[field_pos]))
-	      field_pos++;
-
-	    /* skip thru current white space to next word */
-	    while(string[field_pos]
-		  && !isalnum((unsigned char) string[field_pos]))
-	      field_pos++;
-
-	    line_paint(field_pos, &passwd);
-	    break;
-
-          /*--------------------  RETURN --------------------*/
-	  case PF4:
-	    if(F_OFF(F_USE_FK,ps_global)) goto bleep;
-	  case ctrl('J'): 
-	  case ctrl('M'): 
-	    return_v = 0;
-	    break;
-
-          /*-------------------- Destructive backspace --------------------*/
-	  case '\177': /* DEL */
-	  case ctrl('H'):
-            /*   Try and do this with by telling the terminal to delete a
-                 a character. If that fails, then repaint the rest of the
-                 line, acheiving the same much less efficiently
-             */
-	    if(field_pos <= 0)
-	      goto bleep;
-
-	    field_pos--;
-	    /* drop thru to pull line back ... */
-
-          /*-------------------- Delete char --------------------*/
-	  case ctrl('D'): 
-	  case KEY_DEL: 
-            if(field_pos >= field_len || !string[field_pos])
-	      goto bleep;
-
-	    dline.vused--;
-	    for(s2 = &string[field_pos]; *s2 != '\0'; s2++)
-	      *s2 = s2[1];
-
-	    *s2 = '\0';			/* Copy last NULL */
-	    line_paint(field_pos, &passwd);
-	    if(flags)		/* record change if requested  */
-	      *flags |= OE_USER_MODIFIED;
-
-	    break;
-
-
-            /*--------------- Kill line -----------------*/
-          case ctrl('K'):
-            if(kill_buffer != NULL)
-              fs_give((void **)&kill_buffer);
-
-	    if(field_pos != 0 || string[0]){
-		if(!passwd && F_ON(F_DEL_FROM_DOT, ps_global))
-		  dline.vused -= strlen(&string[i = field_pos]);
-		else
-		  dline.vused = i = 0;
-
-		kill_buffer = cpystr(&string[field_pos = i]);
-		string[field_pos] = '\0';
-		line_paint(field_pos, &passwd);
-		if(flags)		/* record change if requested  */
-		  *flags |= OE_USER_MODIFIED;
-
-	    }
-
-            break;
-
-            /*------------------- Undelete line --------------------*/
-          case ctrl('U'):
-            if(kill_buffer == NULL)
-              goto bleep;
-
-            /* Make string so it will fit */
-            kb = cpystr(kill_buffer);
-            dprint(2, (debugfile,
-		       "Undelete: %d %d\n", strlen(string), field_len));
-            if(strlen(kb) + strlen(string) > field_len) 
-                kb[field_len - strlen(string)] = '\0';
-            dprint(2, (debugfile,
-		       "Undelete: %d %d\n", field_len - strlen(string),
-		       strlen(kb)));
-                       
-            if(string[field_pos] == '\0') {
-                /*--- adding to the end of the string ----*/
-                for(k = kb; *k; k++)
-		  string[field_pos++] = *k;
-
-                string[field_pos] = '\0';
-            } else {
-                goto bleep;
-                /* To lazy to do insert in middle of string now */
-            }
-
-	    if(*kb && flags)		/* record change if requested  */
-	      *flags |= OE_USER_MODIFIED;
-
-	    dline.vused = strlen(string);
-            fs_give((void **)&kb);
-	    line_paint(field_pos, &passwd);
-            break;
-            
-
-	    /*-------------------- Interrupt --------------------*/
-	  case ctrl('C'): /* ^C */ 
-	    if(F_ON(F_USE_FK,ps_global)
-	       || (flags && ((*flags) & OE_DISALLOW_CANCEL)))
-	      goto bleep;
-
-	    goto cancel;
-
-	  case PF2:
-	    if(F_OFF(F_USE_FK,ps_global)
-	       || (flags && ((*flags) & OE_DISALLOW_CANCEL)))
-	      goto bleep;
-
-	  cancel:
-	    return_v = 1;
-	    if(saved_original)
-	      strcpy(string, saved_original);
-
-	    break;
-	    
-
-          case ctrl('A'):
-	  case KEY_HOME:
-            /*-------------------- Start of line -------------*/
-	    line_paint(field_pos = 0, &passwd);
-            break;
-
-
-          case ctrl('E'):
-	  case KEY_END:
-            /*-------------------- End of line ---------------*/
-	    line_paint(field_pos = dline.vused, &passwd);
-            break;
-
-
-	    /*-------------------- Help --------------------*/
-	  case ctrl('G') : 
-	  case PF1:
-	    if(flags && ((*flags) & OE_DISALLOW_HELP))
-	      goto bleep;
-	    else if(FOOTER_ROWS(ps_global) == 1 && km_popped == 0){
-		km_popped++;
-		FOOTER_ROWS(ps_global) = 3;
-		clearfooter(ps_global);
-		if(lastc)
-		  (void)pico_set_colorp(lastc, PSC_NONE);
-		else
-		  EndInverse();
-
-		draw_keymenu(km, bitmap, cols, 1-FOOTER_ROWS(ps_global),
-			     0, FirstMenu);
-
-		if(promptc)
-		  (void)pico_set_colorp(promptc, PSC_NONE);
-		else
-		  StartInverse();
-
-		mark_keymenu_dirty();
-		y_base = -3;
-		dline.row = real_y_base = y_base + ps_global->ttyo->screen_rows;
-		PutLine0(real_y_base, x_base, prompt);
-		fs_resize((void **)&dline.dl, (size_t)dline.dlen + 1);
-		memset((void *)dline.dl, 0, (size_t)(dline.dlen + 1));
-		line_paint(field_pos, &passwd);
-		break;
-	    }
-
-	    if(FOOTER_ROWS(ps_global) > 1){
-		mark_keymenu_dirty();
-		return_v = 3;
-	    }
-	    else
-	      goto bleep;
-
-	    break;
-
-#ifdef	MOUSE
-	  case KEY_MOUSE :
-	    {
-	      MOUSEPRESS mp;
-
-	      mouse_get_last (NULL, &mp);
-
-	      /* The clicked line have anything special on it? */
-	      switch(mp.button){
-		case M_BUTTON_LEFT :			/* position cursor */
-		  mp.col -= x_base + prompt_len;	/* normalize column */
-		  if(dline.vbase + mp.col <= dline.vused)
-		    line_paint(field_pos = dline.vbase + mp.col, &passwd);
-
-		  break;
-
-		case M_BUTTON_RIGHT :
-#ifdef	_WINDOWS
-		  mp.col -= x_base + prompt_len;	/* normalize column */
-		  if(dline.vbase + mp.col <= dline.vused)
-		    line_paint(field_pos = dline.vbase + mp.col, &passwd);
-
-		  mswin_allowpaste(MSWIN_PASTE_LINE);
-		  mswin_paste_popup();
-		  mswin_allowpaste(MSWIN_PASTE_DISABLE);
-		  break;
-#endif
-
-		case M_BUTTON_MIDDLE :			/* NO-OP for now */
-		default:				/* just ignore */
-		  break;
-	      }
-	    }
-
-	    break;
-#endif
-
-          case NO_OP_IDLE:
-	    /* Keep mail stream alive */
-	    i = new_mail(0, 2, NM_DEFER_SORT);
-	    if(ps_global->expunge_count &&
-	       flags && ((*flags) & OE_SEQ_SENSITIVE))
-	      goto cancel;
-
-	    if(i < 0){
-	      line_paint(field_pos, &passwd);
-	      break;			/* no changes, get on with life */
-	    }
-	    /* Else fall into redraw */
-
-	    /*-------------------- Redraw --------------------*/
-	  case ctrl('L'):
-            /*---------------- re size ----------------*/
-          case KEY_RESIZE:
-            
-	    dline.row = real_y_base = y_base > 0 ? y_base :
-					 y_base + ps_global->ttyo->screen_rows;
-	    if(lastc)
-	      (void)pico_set_colorp(lastc, PSC_NONE);
-	    else
-	      EndInverse();
-
-            ClearScreen();
-            redraw_titlebar();
-            if(ps_global->redrawer != (void (*)())NULL)
-              (*ps_global->redrawer)();
-
-            redraw_keymenu();
-	    if(promptc)
-	      (void)pico_set_colorp(promptc, PSC_NONE);
-	    else
-	      StartInverse();
-            
-            PutLine0(real_y_base, x_base, prompt);
-            cols     =  ps_global->ttyo->screen_cols;
-            too_thin = 0;
-            if(cols < x_base + prompt_len + 4) {
-		Writechar(BELL, 0);
-                PutLine0(real_y_base, 0, "Screen's too thin. Ouch!");
-                too_thin = 1;
-            } else {
-		dline.col   = x_base + prompt_len;
-		dline.dlen  = cols - (x_base + prompt_len + 1);
-		fs_resize((void **)&dline.dl, (size_t)dline.dlen + 1);
-		memset((void *)dline.dl, 0, (size_t)(dline.dlen + 1));
-		line_paint(field_pos, &passwd);
-            }
-            fflush(stdout);
-
-            dprint(9, (debugfile,
-                    "optionally_enter  RESIZE new_cols:%d  too_thin: %d\n",
-                       cols, too_thin));
-            break;
-
-	  case PF3 :		/* input to potentially remap */
-	  case PF5 :
-	  case PF6 :
-	  case PF7 :
-	  case PF8 :
-	  case PF9 :
-	  case PF10 :
-	  case PF11 :
-	  case PF12 :
-	      if(F_ON(F_USE_FK,ps_global)
-		 && fkey_table[ch - PF1] != NO_OP_COMMAND)
-		ch = fkey_table[ch - PF1]; /* remap function key input */
-  
-          default:
-	    if(escape_list){		/* in the escape key list? */
-		for(j=0; escape_list[j].ch != -1; j++){
-		    if(escape_list[j].ch == ch){
-			return_v = escape_list[j].rval;
-			break;
-		    }
-		}
-
-		if(return_v != -10)
-		  break;
-	    }
-
-	    if(iscntrl(ch & 0x7f)){
-       bleep:
-		putc(BELL, stdout);
-		continue;
-	    }
-
-       ok_for_passwd:
-	    /*--- Insert a character -----*/
-	    if(dline.vused >= field_len)
-	      goto bleep;
-
-	    /*---- extending the length of the string ---*/
-	    for(s2 = &string[++dline.vused]; s2 - string > field_pos; s2--)
-	      *s2 = *(s2-1);
-
-	    string[field_pos++] = ch;
-	    line_paint(field_pos, &passwd);
-	    if(flags)		/* record change if requested  */
-	      *flags |= OE_USER_MODIFIED;
-		    
-	}   /*---- End of switch on char ----*/
-    }
-
-#ifdef	_WINDOWS
-    if(!cursor_shown)
-      mswin_showcaret(0);
-#endif
-
-    fs_give((void **)&dline.dl);
-    if(saved_original) 
-      fs_give((void **)&saved_original);
-
-    if(kill_buffer)
-      fs_give((void **)&kill_buffer);
-
-    if (!(flags && (*flags) & OE_KEEP_TRAILING_SPACE))
-      removing_trailing_white_space(string);
-
-    if(lastc){
-	(void)pico_set_colorp(lastc, PSC_NONE);
-	free_color_pair(&lastc);
-	if(promptc)
-	  free_color_pair(&promptc);
-    }
-    else
-      EndInverse();
-
-    MoveCursor(real_y_base, x_base); /* Move the cursor to show we're done */
-    fflush(stdout);
-    resume_busy_alarm(0);
-    if(km_popped){
-	FOOTER_ROWS(ps_global) = 1;
-	clearfooter(ps_global);
-	ps_global->mangled_body = 1;
-    }
-
-    return(return_v);
-}
-
-
-/*
- * line_paint - where the real work of managing what is displayed gets done.
- *              The passwd variable is overloaded: if non-zero, don't
- *              output anything, else only blat blank chars across line
- *              once and use this var to tell us we've already written the 
- *              line.
- */
-void
-line_paint(offset, passwd)
-    int   offset;			/* current dot offset into line */
-    int  *passwd;			/* flag to hide display of chars */
-{
-    register char *pfp, *pbp;
-    register char *vfp, *vbp;
-    int            extra = 0;
-#define DLEN	(dline.vbase + dline.dlen)
-
-    /*
-     * for now just leave line blank, but maybe do '*' for each char later
-     */
-    if(*passwd){
-	if(*passwd > 1)
-	  return;
-	else
-	  *passwd = 2;		/* only blat once */
-
-	extra = 0;
-	MoveCursor(dline.row, dline.col);
-	while(extra++ < dline.dlen)
-	  Writechar(' ', 0);
-
-	MoveCursor(dline.row, dline.col);
-	return;
-    }
-
-    /* adjust right margin */
-    while(offset >= DLEN + ((dline.vused > DLEN) ? -1 : 1))
-      dline.vbase += dline.dlen/2;
-
-    /* adjust left margin */
-    while(offset < dline.vbase + ((dline.vbase) ? 2 : 0))
-      dline.vbase = max(dline.vbase - (dline.dlen/2), 0);
-
-    if(dline.vbase){				/* off screen cue left */
-	vfp = &dline.vl[dline.vbase+1];
-	pfp = &dline.dl[1];
-	if(dline.dl[0] != '<'){
-	    MoveCursor(dline.row, dline.col);
-	    Writechar(dline.dl[0] = '<', 0);
-	}
-    }
-    else{
-	vfp = dline.vl;
-	pfp = dline.dl;
-	if(dline.dl[0] == '<'){
-	    MoveCursor(dline.row, dline.col);
-	    Writechar(dline.dl[0] = ' ', 0);
-	}
-    }
-
-    if(dline.vused > DLEN){			/* off screen right... */
-	vbp = vfp + (long)(dline.dlen-(dline.vbase ? 2 : 1));
-	pbp = pfp + (long)(dline.dlen-(dline.vbase ? 2 : 1));
-	if(pbp[1] != '>'){
-	    MoveCursor(dline.row, dline.col+dline.dlen);
-	    Writechar(pbp[1] = '>', 0);
-	}
-    }
-    else{
-	extra = dline.dlen - (dline.vused - dline.vbase);
-	vbp = &dline.vl[max(0, dline.vused-1)];
-	pbp = &dline.dl[dline.dlen];
-	if(pbp[0] == '>'){
-	    MoveCursor(dline.row, dline.col+dline.dlen);
-	    Writechar(pbp[0] = ' ', 0);
-	}
-    }
-
-    while(*pfp == *vfp && vfp < vbp)			/* skip like chars */
-      pfp++, vfp++;
-
-    if(pfp == pbp && *pfp == *vfp){			/* nothing to paint! */
-	MoveCursor(dline.row, dline.col + (offset - dline.vbase));
-	return;
-    }
-
-    /* move backward thru like characters */
-    if(extra){
-	while(extra >= 0 && *pbp == ' ') 		/* back over spaces */
-	  extra--, pbp--;
-
-	while(extra >= 0)				/* paint new ones    */
-	  pbp[-(extra--)] = ' ';
-    }
-
-    if((vbp - vfp) == (pbp - pfp)){			/* space there? */
-	while((*pbp == *vbp) && pbp != pfp)		/* skip like chars */
-	  pbp--, vbp--;
-    }
-
-    if(pfp != pbp || *pfp != *vfp){			/* anything to paint?*/
-	MoveCursor(dline.row, dline.col + (int)(pfp - dline.dl));
-
-	do
-	  Writechar((unsigned char)((vfp <= vbp && *vfp)
-		      ? ((*pfp = *vfp++) == TAB) ? ' ' : *pfp
-		      : (*pfp = ' ')), 0);
-	while(++pfp <= pbp);
-    }
-
-    MoveCursor(dline.row, dline.col + (offset - dline.vbase));
-}
-
-
-
-/*----------------------------------------------------------------------
-    Check to see if the given command is reasonably valid
-  
-  Args:  ch -- the character to check
-
- Result:  A valid command is returned, or a well know bad command is returned.
- 
- ---*/
-validatekeys(ch)
-     int  ch;
-{
-#ifndef _WINDOWS
-    if(F_ON(F_USE_FK,ps_global)) {
-	if(ch >= 'a' && ch <= 'z')
-	  return(KEY_JUNK);
-    } else {
-	if(ch >= PF1 && ch <= PF12)
-	  return(KEY_JUNK);
-    }
-#else
-    /*
-     * In windows menu items are bound to a single key command which
-     * gets inserted into the input stream as if the user had typed
-     * that key.  But all the menues are bonund to alphakey commands,
-     * not PFkeys.  to distinguish between a keyboard command and a
-     * menu command we insert a flag (KEY_MENU_FLAG) into the
-     * command value when setting up the bindings in
-     * configure_menu_items().  Here we strip that flag.
-     */
-    if(F_ON(F_USE_FK,ps_global)) {
-	if(ch >= 'a' && ch <= 'z' && !(ch & KEY_MENU_FLAG))
-	  return(KEY_JUNK);
-	ch &= ~ KEY_MENU_FLAG;
-    } else {
-	ch &= ~ KEY_MENU_FLAG;
-	if(ch >= PF1 && ch <= PF12)
-	  return(KEY_JUNK);
-    }
-#endif
-
-    return(ch);
-}
-
-
-
-/*----------------------------------------------------------------------
-  Prepend config'd commands to keyboard input
-  
-  Args:  ch -- pointer to storage for returned command
-
- Returns: TRUE if we're passing back a useful command, FALSE otherwise
- 
- ---*/
-int
-process_config_input(ch)
-    int *ch;
-{
-    static char firsttime = (char) 1;
-
-    /* commands in config file */
-    if(ps_global->initial_cmds && *ps_global->initial_cmds) {
-	/*
-	 * There are a few commands that may require keyboard input before
-	 * we enter the main command loop.  That input should be interactive,
-	 * not from our list of initial keystrokes.
-	 */
-	if(ps_global->dont_use_init_cmds)
-	  return(0);
-
-	*ch = *ps_global->initial_cmds++;
-	if(!*ps_global->initial_cmds && ps_global->free_initial_cmds){
-	    fs_give((void **)&(ps_global->free_initial_cmds));
-	    ps_global->initial_cmds = 0;
-	}
-
-	return(1);
-    }
-
-    if(firsttime) {
-	firsttime = 0;
-	if(ps_global->in_init_seq) {
-	    ps_global->in_init_seq = 0;
-	    ps_global->save_in_init_seq = 0;
-	    clear_cursor_pos();
-	    F_SET(F_USE_FK,ps_global,ps_global->orig_use_fkeys);
-	    /* draw screen */
-	    *ch = ctrl('L');
-	    return(1);
-	}
-    }
-
-    return(0);
-}
-
-
-#define	TAPELEN	256
-static int   tape[TAPELEN];
-static long  recorded = 0L;
-static short length  = 0;
-
-
-/*
- * record user keystrokes
- *
- * Args:  ch -- the character to record
- *
- * Returns: character recorded
- */
-int
-key_recorder(ch)
-    int ch;
-{
-    tape[recorded++ % TAPELEN] = ch;
-    if(length < TAPELEN)
-      length++;
-
-    return(ch);
-}
-
-
-/*
- * playback user keystrokes
- *
- * Args:  ch -- ignored
- *
- * Returns: character played back or -1 to indicate end of tape
- */
-int
-key_playback(ch)
-    int ch;
-{
-    ch = length ? tape[(recorded + TAPELEN - length--) % TAPELEN] : -1;
-    return(ch);
-}
-
-
-#ifdef	_WINDOWS
-int
-pcpine_oe_cursor(col, row)
-    int  col;
-    long row;
-{
-    return((row == g_mc_row
-	    && col >= g_mc_col
-	    && col < ps_global->ttyo->screen_cols)
-	    ? MSWIN_CURSOR_IBEAM
-	    : MSWIN_CURSOR_ARROW);
-}
-#endif
-
-/*======================================================================
-       Routines for painting the screen
-          - figure out what the terminal type is
-          - deal with screen size changes
-          - save special output sequences
-          - the usual screen clearing, cursor addressing and scrolling
-
-
-     This library gives programs the ability to easily access the
-     termcap information and write screen oriented and raw input
-     programs.  The routines can be called as needed, except that
-     to use the cursor / screen routines there must be a call to
-     InitScreen() first.  The 'Raw' input routine can be used
-     independently, however. (Elm comment)
-
-     Not sure what the original source of this code was. It got to be
-     here as part of ELM. It has been changed significantly from the
-     ELM version to be more robust in the face of inconsistent terminal
-     autowrap behaviour. Also, the unused functions were removed, it was
-     made to pay attention to the window size, and some code was made nicer
-     (in my opinion anyways). It also outputs the terminal initialization
-     strings and provides for minimal scrolling and detects terminals
-     with out enough capabilities. (Pine comment, 1990)
-
-
-This code used to pay attention to the "am" auto margin and "xn"
-new line glitch fields, but they were so often incorrect because many
-terminals can be configured to do either that we've taken it out. It
-now assumes it dosn't know where the cursor is after outputing in the
-80th column.
-*/
-
-#define	PUTLINE_BUFLEN	256
-
-static int   _lines, _columns;
-static int   _line  = FARAWAY;
-static int   _col   = FARAWAY;
-static int   _in_inverse;
-
-
-/*
- * Internal prototypes
- */
-static void moveabsolute PROTO((int, int));
-static void CursorUp PROTO((int));
-static void CursorDown PROTO((int));
-static void CursorLeft PROTO((int));
-static void CursorRight PROTO((int));
-
-
-extern char *_clearscreen, *_moveto, *_up, *_down, *_right, *_left,
-            *_setinverse, *_clearinverse,
-            *_cleartoeoln, *_cleartoeos,
-            *_startinsert, *_endinsert, *_insertchar, *_deletechar,
-            *_deleteline, *_insertline,
-            *_scrollregion, *_scrollup, *_scrolldown,
-            *_termcap_init, *_termcap_end;
-extern char term_name[];
-extern int  _tlines, _tcolumns, _bce;
-
-static enum  {NoScroll,UseScrollRegion,InsertDelete} _scrollmode;
-
-char  *tgoto();				/* and the goto stuff    */
-
-
-
-/*----------------------------------------------------------------------
-      Initialize the screen for output, set terminal type, etc
-
-   Args: tt -- Pointer to variable to store the tty output structure.
-
- Result:  terminal size is discovered and set in pine state
-          termcap entry is fetched and stored
-          make sure terminal has adequate capabilites
-          evaluate scrolling situation
-          returns status of indicating the state of the screen/termcap entry
-
-      Returns:
-        -1 indicating no terminal name associated with this shell,
-        -2..-n  No termcap for this terminal type known
-	-3 Can't open termcap file 
-        -4 Terminal not powerful enough - missing clear to eoln or screen
-	                                       or cursor motion
-  ----*/
-int
-config_screen(tt)
-     struct ttyo **tt;
-{
-    struct ttyo *ttyo;
-    int          err;
-
-    ttyo = (struct ttyo *)fs_get(sizeof (struct ttyo));
-
-    _line  =  0;		/* where are we right now?? */
-    _col   =  0;		/* assume zero, zero...     */
-
-    /*
-     * This is an ugly hack to let vtterminalinfo know it's being called
-     * from pine.
-     */
-    Pmaster = (PICO *)1;
-    if(err = vtterminalinfo(F_ON(F_TCAP_WINS, ps_global)))
-      return(err);
-
-    Pmaster = NULL;
-
-    if(_tlines <= 0)
-      _lines = DEFAULT_LINES_ON_TERMINAL;
-    else
-      _lines = _tlines;
-
-    if(_tcolumns <= 0)
-      _columns = DEFAULT_COLUMNS_ON_TERMINAL;
-    else
-      _columns = _tcolumns;
-
-    get_windsize(ttyo);
-
-    ttyo->header_rows = 2;
-    ttyo->footer_rows = 3;
-
-    /*---- Make sure this terminal has the capability.
-        All we need is cursor address, clear line, and 
-        reverse video.
-      ---*/
-    if(_moveto == NULL || _cleartoeoln == NULL ||
-       _setinverse == NULL || _clearinverse == NULL) {
-          return(-4);
-    }
-
-    dprint(1, (debugfile, "Terminal type: %s\n", term_name));
-
-    /*------ Figure out scrolling mode -----*/
-    if(_scrollregion != NULL && _scrollregion[0] != '\0' &&
-    	  _scrollup != NULL && _scrollup[0] != '\0'){
-        _scrollmode = UseScrollRegion;
-    } else if(_insertline != NULL && _insertline[0] != '\0' &&
-       _deleteline != NULL && _deleteline[0] != '\0') {
-        _scrollmode = InsertDelete;
-    } else {
-        _scrollmode = NoScroll;
-    }
-    dprint(7, (debugfile, "Scroll mode: %s\n",
-               _scrollmode==NoScroll ? "No Scroll" :
-               _scrollmode==InsertDelete ? "InsertDelete" : "Scroll Regions"));
-
-    if (!_left) {
-    	_left = "\b";
-    }
-
-    *tt = ttyo;
-
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-   Initialize the screen with the termcap string 
-  ----*/
-void
-init_screen()
-{
-    if(_termcap_init)			/* init using termcap's rule */
-      tputs(_termcap_init, 1, outchar);
-
-    /* and make sure there are no scrolling surprises! */
-    BeginScroll(0, ps_global->ttyo->screen_rows - 1);
-
-    pico_toggle_color(0);
-    switch(ps_global->color_style){
-      case COL_NONE:
-      case COL_TERMDEF:
-	pico_set_color_options(0);
-	break;
-      case COL_ANSI8:
-	pico_set_color_options(COLOR_ANSI8_OPT);
-	break;
-      case COL_ANSI16:
-	pico_set_color_options(COLOR_ANSI16_OPT);
-	break;
-    }
-
-    if(ps_global->color_style != COL_NONE)
-      pico_toggle_color(1);
-
-    /* set colors */
-    if(pico_usingcolor()){
-	if(ps_global->VAR_NORM_FORE_COLOR)
-	  pico_nfcolor(ps_global->VAR_NORM_FORE_COLOR);
-
-	if(ps_global->VAR_NORM_BACK_COLOR)
-	  pico_nbcolor(ps_global->VAR_NORM_BACK_COLOR);
-
-	if(ps_global->VAR_REV_FORE_COLOR)
-	  pico_rfcolor(ps_global->VAR_REV_FORE_COLOR);
-
-	if(ps_global->VAR_REV_BACK_COLOR)
-	  pico_rbcolor(ps_global->VAR_REV_BACK_COLOR);
-
-	pico_set_normal_color();
-    }
-
-    /* and make sure icon text starts out consistent */
-    icon_text(NULL);
-    fflush(stdout);
-}
-        
-
-
-
-/*----------------------------------------------------------------------
-       Get the current window size
-  
-   Args: ttyo -- pointer to structure to store window size in
-
-  NOTE: we don't override the given values unless we know better
- ----*/
-int
-get_windsize(ttyo)
-struct ttyo *ttyo;     
-{
-#ifdef RESIZING 
-    struct winsize win;
-
-    /*
-     * Get the window size from the tty driver.  If we can't fish it from
-     * stdout (pine's output is directed someplace else), try stdin (which
-     * *must* be associated with the terminal; see init_tty_driver)...
-     */
-    if(ioctl(1, TIOCGWINSZ, &win) >= 0			/* 1 is stdout */
-	|| ioctl(0, TIOCGWINSZ, &win) >= 0){		/* 0 is stdin */
-	if(win.ws_row)
-	  _lines = min(win.ws_row, MAX_SCREEN_ROWS);
-
-	if(win.ws_col)
-	  _columns  = min(win.ws_col, MAX_SCREEN_COLS);
-
-        dprint(2, (debugfile, "new win size -----<%d %d>------\n",
-                   _lines, _columns));
-    }
-    else
-      /* Depending on the OS, the ioctl() may have failed because
-	 of a 0 rows, 0 columns setting.  That happens on DYNIX/ptx 1.3
-	 (with a kernel patch that happens to involve the negotiation
-	 of window size in the telnet streams module.)  In this case
-	 the error is EINVARG.  Leave the default settings. */
-      dprint(1, (debugfile, "ioctl(TIOCWINSZ) failed :%s\n",
-		 error_description(errno)));
-#endif
-
-    ttyo->screen_cols = min(_columns, MAX_SCREEN_COLS);
-    ttyo->screen_rows = min(_lines, MAX_SCREEN_ROWS);
-    return(0);
-}
-
-
-/*----------------------------------------------------------------------
-      End use of the screen.
-      Print status message, if any.
-      Flush status messages.
-  ----*/
-void
-end_screen(message)
-    char *message;
-{
-    int footer_rows_was_one = 0;
-
-    dprint(9, (debugfile, "end_screen called\n"));
-
-    if(FOOTER_ROWS(ps_global) == 1){
-	footer_rows_was_one++;
-	FOOTER_ROWS(ps_global) = 3;
-	mark_status_unknown();
-    }
-
-    flush_status_messages(1);
-    blank_keymenu(_lines - 2, 0);
-    MoveCursor(_lines - 2, 0);
-
-    /* unset colors */
-    if(pico_hascolor())
-      pico_endcolor();
-
-    if(_termcap_end != NULL)
-      tputs(_termcap_end, 1, outchar);
-
-    if(message){
-	printf("%s\r\n", message);
-    }
-
-    if(F_ON(F_ENABLE_XTERM_NEWMAIL, ps_global) && getenv("DISPLAY"))
-      icon_text("xterm");
-
-    fflush(stdout);
-
-    if(footer_rows_was_one){
-	FOOTER_ROWS(ps_global) = 1;
-	mark_status_unknown();
-    }
-}
-    
-
-
-/*----------------------------------------------------------------------
-     Clear the terminal screen
-
- Result: The screen is cleared
-         internal cursor position set to 0,0
-  ----*/
-void
-ClearScreen()
-{
-    _line = 0;	/* clear leaves us at top... */
-    _col  = 0;
-
-    if(ps_global->in_init_seq)
-      return;
-
-    mark_status_unknown();
-    mark_keymenu_dirty();
-    mark_titlebar_dirty();
-
-    /*
-     * If the terminal doesn't have back color erase, then we have to
-     * erase manually to preserve the background color.
-     */
-    if(pico_usingcolor() && (!_bce || !_clearscreen)){
-	ClearLines(0, _lines-1);
-        MoveCursor(0, 0);
-    }
-    else if(_clearscreen){
-	tputs(_clearscreen, 1, outchar);
-        moveabsolute(0, 0);	/* some clearscreens don't move correctly */
-    }
-}
-
-
-/*----------------------------------------------------------------------
-            Internal move cursor to absolute position
-
-  Args: col -- column to move cursor to
-        row -- row to move cursor to
-
- Result: cursor is moved (variables, not updates)
-  ----*/
-
-static void
-moveabsolute(col, row)
-{
-
-	char *stuff, *tgoto();
-
-	stuff = tgoto(_moveto, col, row);
-	tputs(stuff, 1, outchar);
-}
-
-
-/*----------------------------------------------------------------------
-        Move the cursor to the row and column number
-  Args:  row number
-         column number
-
- Result: Cursor moves
-         internal position updated
-  ----*/
-void
-MoveCursor(row, col)
-     int row, col;
-{
-    /** move cursor to the specified row column on the screen.
-        0,0 is the top left! **/
-
-    int scrollafter = 0;
-
-    /* we don't want to change "rows" or we'll mangle scrolling... */
-
-    if(ps_global->in_init_seq)
-      return;
-
-    if (col < 0)
-      col = 0;
-    if (col >= ps_global->ttyo->screen_cols)
-      col = ps_global->ttyo->screen_cols - 1;
-    if (row < 0)
-      row = 0;
-    if (row > ps_global->ttyo->screen_rows) {
-      if (col == 0)
-        scrollafter = row - ps_global->ttyo->screen_rows;
-      row = ps_global->ttyo->screen_rows;
-    }
-
-    if (!_moveto)
-    	return;
-
-    if (row == _line) {
-      if (col == _col)
-        return;				/* already there! */
-
-      else if (abs(col - _col) < 5) {	/* within 5 spaces... */
-        if (col > _col && _right)
-          CursorRight(col - _col);
-        else if (col < _col &&  _left)
-          CursorLeft(_col - col);
-        else
-          moveabsolute(col, row);
-      }
-      else 		/* move along to the new x,y loc */
-        moveabsolute(col, row);
-    }
-    else if (col == _col && abs(row - _line) < 5) {
-      if (row < _line && _up)
-        CursorUp(_line - row);
-      else if (_line > row && _down)
-        CursorDown(row - _line);
-      else
-        moveabsolute(col, row);
-    }
-    else if (_line == row-1 && col == 0) {
-      putchar('\n');	/* that's */
-      putchar('\r');	/*  easy! */
-    }
-    else 
-      moveabsolute(col, row);
-
-    _line = row;	/* to ensure we're really there... */
-    _col  = col;
-
-    if (scrollafter) {
-      while (scrollafter--) {
-        putchar('\n');
-        putchar('\r');
-
-      }
-    }
-
-    return;
-}
-
-
-
-/*----------------------------------------------------------------------
-         Newline, move the cursor to the start of next line
-
- Result: Cursor moves
-  ----*/
-void
-NewLine()
-{
-   /** move the cursor to the beginning of the next line **/
-
-    Writechar('\n', 0);
-    Writechar('\r', 0);
-}
-
-
-
-/*----------------------------------------------------------------------
-        Move cursor up n lines with terminal escape sequence
- 
-   Args:  n -- number of lines to go up
-
- Result: cursor moves, 
-         internal position updated
-
- Only for ttyout use; not outside callers
-  ----*/
-static void
-CursorUp(n)
-int n;
-{
-	/** move the cursor up 'n' lines **/
-	/** Calling function must check that _up is not null before calling **/
-
-    _line = (_line-n > 0? _line - n: 0);	/* up 'n' lines... */
-
-    while (n-- > 0)
-      tputs(_up, 1, outchar);
-}
-
-
-
-/*----------------------------------------------------------------------
-        Move cursor down n lines with terminal escape sequence
- 
-    Arg: n -- number of lines to go down
-
- Result: cursor moves, 
-         internal position updated
-
- Only for ttyout use; not outside callers
-  ----*/
-static void
-CursorDown(n)
-     int          n;
-{
-    /** move the cursor down 'n' lines **/
-    /** Caller must check that _down is not null before calling **/
-
-    _line = (_line+n < ps_global->ttyo->screen_rows ? _line + n
-             : ps_global->ttyo->screen_rows);
-                                               /* down 'n' lines... */
-
-    while (n-- > 0)
-    	tputs(_down, 1, outchar);
-}
-
-
-
-/*----------------------------------------------------------------------
-        Move cursor left n lines with terminal escape sequence
- 
-   Args:  n -- number of lines to go left
-
- Result: cursor moves, 
-         internal position updated
-
- Only for ttyout use; not outside callers
-  ----*/
-static void 
-CursorLeft(n)
-int n;
-{
-    /** move the cursor 'n' characters to the left **/
-    /** Caller must check that _left is not null before calling **/
-
-    _col = (_col - n> 0? _col - n: 0);	/* left 'n' chars... */
-
-    while (n-- > 0)
-      tputs(_left, 1, outchar);
-}
-
-
-/*----------------------------------------------------------------------
-        Move cursor right n lines with terminal escape sequence
- 
-   Args:  number of lines to go right
-
- Result: cursor moves, 
-         internal position updated
-
- Only for ttyout use; not outside callers
-  ----*/
-static void 
-CursorRight(n)
-int n;
-{
-    /** move the cursor 'n' characters to the right (nondestructive) **/
-    /** Caller must check that _right is not null before calling **/
-
-    _col = (_col+n < ps_global->ttyo->screen_cols? _col + n :
-             ps_global->ttyo->screen_cols);	/* right 'n' chars... */
-
-    while (n-- > 0)
-      tputs(_right, 1, outchar);
-
-}
-
-
-
-/*----------------------------------------------------------------------
-       Insert character on screen pushing others right
-
-   Args: c --  character to insert
-
- Result: charcter is inserted if possible
-         return -1 if it can't be done
-  ----------------------------------------------------------------------*/
-InsertChar(c)
-     int c;
-{
-    if(_insertchar != NULL && *_insertchar != '\0') {
-	tputs(_insertchar, 1, outchar);
-	Writechar(c, 0);
-    } else if(_startinsert != NULL && *_startinsert != '\0') {
-	tputs(_startinsert, 1, outchar);
-	Writechar(c, 0);
-	tputs(_endinsert, 1, outchar);
-    } else {
-	return(-1);
-    }
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-         Delete n characters from line, sliding rest of line left
-
-   Args: n -- number of characters to delete
-
-
- Result: characters deleted on screen
-         returns -1 if it wasn't done
-  ----------------------------------------------------------------------*/
-DeleteChar(n)
-     int n;
-{
-    if(_deletechar == NULL || *_deletechar == '\0')
-      return(-1);
-
-    while(n) {
-	tputs(_deletechar, 1, outchar);
-	n--;
-    }
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-  Go into scrolling mode, that is set scrolling region if applicable
-
-   Args: top    -- top line of region to scroll
-         bottom -- bottom line of region to scroll
-	 (These are zero-origin numbers)
-
- Result: either set scrolling region or
-         save values for later scrolling
-         returns -1 if we can't scroll
-
- Unfortunately this seems to leave the cursor in an unpredictable place
- at least the manuals don't say where, so we force it here.
------*/
-static int __t, __b;
-
-BeginScroll(top, bottom)
-     int top, bottom;
-{
-    char *stuff;
-
-    if(_scrollmode == NoScroll)
-      return(-1);
-
-    __t = top;
-    __b = bottom;
-    if(_scrollmode == UseScrollRegion){
-        stuff = tgoto(_scrollregion, bottom, top);
-        tputs(stuff, 1, outchar);
-        /*-- a location  very far away to force a cursor address --*/
-        _line = FARAWAY;
-        _col  = FARAWAY;
-    }
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-   End scrolling -- clear scrolling regions if necessary
-
- Result: Clear scrolling region on terminal
-  -----*/
-void
-EndScroll()
-{
-    if(_scrollmode == UseScrollRegion && _scrollregion != NULL){
-	/* Use tgoto even though we're not cursor addressing because
-           the format of the capability is the same.
-         */
-        char *stuff = tgoto(_scrollregion, ps_global->ttyo->screen_rows -1, 0);
-	tputs(stuff, 1, outchar);
-        /*-- a location  very far away to force a cursor address --*/
-        _line = FARAWAY;
-        _col  = FARAWAY;
-    }
-}
-
-
-/* ----------------------------------------------------------------------
-    Scroll the screen using insert/delete or scrolling regions
-
-   Args:  lines -- number of lines to scroll, positive forward
-
- Result: Screen scrolls
-         returns 0 if scroll succesful, -1 if not
-
- positive lines goes foward (new lines come in at bottom
- Leaves cursor at the place to insert put new text
-
- 0,0 is the upper left
- -----*/
-ScrollRegion(lines)
-    int lines;
-{
-    int l;
-
-    if(lines == 0)
-      return(0);
-
-    if(_scrollmode == UseScrollRegion) {
-	if(lines > 0) {
-	    MoveCursor(__b, 0);
-	    for(l = lines ; l > 0 ; l--)
-	      tputs((_scrolldown == NULL || _scrolldown[0] =='\0') ? "\n" :
-		    _scrolldown, 1, outchar);
-	} else {
-	    MoveCursor(__t, 0);
-	    for(l = -lines; l > 0; l--)
-	      tputs(_scrollup, 1, outchar);
-	}
-    } else if(_scrollmode == InsertDelete) {
-	if(lines > 0) {
-	    MoveCursor(__t, 0);
-	    for(l = lines; l > 0; l--) 
-	      tputs(_deleteline, 1, outchar);
-	    MoveCursor(__b, 0);
-	    for(l = lines; l > 0; l--) 
-	      tputs(_insertline, 1, outchar);
-	} else {
-	    for(l = -lines; l > 0; l--) {
-	        MoveCursor(__b, 0);
-	        tputs(_deleteline, 1, outchar);
-		MoveCursor(__t, 0);
-		tputs(_insertline, 1, outchar);
-	    }
-	}
-    } else {
-	return(-1);
-    }
-    fflush(stdout);
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Write a character to the screen, keeping track of cursor position
-
-   Args: ch -- character to output
-
- Result: character output
-         cursor position variables updated
-  ----*/
-void
-Writechar(ch, new_esc_len)
-     register unsigned int ch;
-     int      new_esc_len;
-{
-    static   int esc_len = 0;
-
-    if(ps_global->in_init_seq				/* silent */
-       || (F_ON(F_BLANK_KEYMENU, ps_global)		/* or bottom, */
-	   && !esc_len					/* right cell */
-	   && _line + 1 == ps_global->ttyo->screen_rows
-	   && _col + 1 == ps_global->ttyo->screen_cols))
-      return;
-
-    if(!iscntrl(ch & 0x7f)){
-	putchar(ch);
-	if(esc_len > 0)
-	  esc_len--;
-	else
-	  _col++;
-    }
-    else{
-	switch(ch){
-	  case LINE_FEED:
-	    /*-- Don't have to watch out for auto wrap or newline glitch
-	      because we never let it happen. See below
-	      ---*/
-	    putchar('\n');
-	    _line = min(_line+1,ps_global->ttyo->screen_rows);
-	    esc_len = 0;
-	    break;
-
-	  case RETURN :		/* move to column 0 */
-	    putchar('\r');
-	    _col = 0;
-	    esc_len = 0;
-	    break;
-
-	  case BACKSPACE :	/* move back a space if not in column 0 */
-	    if(_col != 0) {
-		putchar('\b');
-		_col--;
-	    }			/* else BACKSPACE does nothing */
-
-	    break;
-
-	  case BELL :		/* ring the bell but don't advance _col */
-	    putchar(ch);
-	    break;
-
-	  case TAB :		/* if a tab, output it */
-	    do			/* BUG? ignores tty driver's spacing */
-	      putchar(' ');
-	    while(_col < ps_global->ttyo->screen_cols - 1
-		  && ((++_col)&0x07) != 0);
-	    break;
-
-	  case ESCAPE :
-	    /* If we're outputting an escape here, it may be part of an iso2022
-	       escape sequence in which case take up no space on the screen.
-	       Unfortunately such sequences are variable in length.
-	       */
-	    esc_len = new_esc_len - 1;
-	    putchar(ch);
-	    break;
-
-	  default :		/* Change remaining control characters to ? */
-	    if(F_ON(F_PASS_CONTROL_CHARS, ps_global))
-	      putchar(ch);
-	    else
-	      putchar('?');
-
-	    if(esc_len > 0)
-	      esc_len--;
-	    else
-	      _col++;
-
-	    break;
-	}
-    }
-
-
-    /* Here we are at the end of the line. We've decided to make no
-       assumptions about how the terminal behaves at this point.
-       What can happen now are the following
-           1. Cursor is at start of next line, and next character will
-              apear there. (autowrap, !newline glitch)
-           2. Cursor is at start of next line, and if a newline is output
-              it'll be ignored. (autowrap, newline glitch)
-           3. Cursor is still at end of line and next char will apear
-              there over the top of what is there now (no autowrap).
-       We ignore all this and force the cursor to the next line, just 
-       like case 1. A little expensive but worth it to avoid problems
-       with terminals configured so they don't match termcap
-       */
-    if(_col == ps_global->ttyo->screen_cols) {
-        _col = 0;
-        if(_line + 1 < ps_global->ttyo->screen_rows)
-	  _line++;
-
-	moveabsolute(_col, _line);
-    }
-}
-
-
-
-/*----------------------------------------------------------------------
-       Write string to screen at current cursor position
-
-   Args: string -- string to be output
-
- Result: String written to the screen
-  ----*/
-void
-Write_to_screen(string)				/* UNIX */
-      register char *string; 
-{
-    while(*string)
-      Writechar((unsigned char) *string++, 0);
-}
-
-
-/*----------------------------------------------------------------------
-       Write no more than n chars of string to screen at current cursor position
-
-   Args: string -- string to be output
-	      n -- number of chars to output
-
- Result: String written to the screen
-  ----*/
-void
-Write_to_screen_n(string, n)				/* UNIX */
-      register char *string; 
-      int            n;
-{
-    while(n-- && *string)
-      Writechar((unsigned char) *string++, 0);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Clear screen to end of line on current line
-
- Result: Line is cleared
-  ----*/
-void
-CleartoEOLN()
-{
-    int   c, starting_col, starting_line;
-    char *last_bg_color;
-
-    /*
-     * If the terminal doesn't have back color erase, then we have to
-     * erase manually to preserve the background color.
-     */
-    if(pico_usingcolor() && (!_bce || !_cleartoeoln)){
-	starting_col  = _col;
-	starting_line = _line;
-	last_bg_color = pico_get_last_bg_color();
-	pico_set_nbg_color();
-	for(c = _col; c < _columns; c++)
-	  Writechar(' ', 0);
-	
-        MoveCursor(starting_line, starting_col);
-	if(last_bg_color){
-	    (void)pico_set_bg_color(last_bg_color);
-	    fs_give((void **)&last_bg_color);
-	}
-    }
-    else if(_cleartoeoln)
-      tputs(_cleartoeoln, 1, outchar);
-}
-
-
-
-/*----------------------------------------------------------------------
-     Clear screen to end of screen from current point
-
- Result: screen is cleared
-  ----*/
-CleartoEOS()
-{
-    int starting_col, starting_line;
-
-    /*
-     * If the terminal doesn't have back color erase, then we have to
-     * erase manually to preserve the background color.
-     */
-    if(pico_usingcolor() && (!_bce || !_cleartoeos)){
-	starting_col  = _col;
-	starting_line = _line;
-        CleartoEOLN();
-	ClearLines(_line+1, _lines-1);
-        MoveCursor(starting_line, starting_col);
-    }
-    else if(_cleartoeos)
-      tputs(_cleartoeos, 1, outchar);
-}
-
-
-
-/*----------------------------------------------------------------------
-     function to output character used by termcap
-
-   Args: c -- character to output
-
- Result: character output to screen via stdio
-  ----*/
-void
-outchar(c)
-int c;
-{
-	/** output the given character.  From tputs... **/
-	/** Note: this CANNOT be a macro!              **/
-
-	putc((unsigned char)c, stdout);
-}
-
-
-
-/*----------------------------------------------------------------------
-     function to output string such that it becomes icon text
-
-   Args: s -- string to write
-
- Result: string indicated become our "icon" text
-  ----*/
-void
-icon_text(s)
-    char *s;
-{
-    static char *old_s;
-    static enum {ukn, yes, no} xterm;
-
-    if(xterm == ukn)
-      xterm = (getenv("DISPLAY") != NULL) ? yes : no;
-
-    if(F_ON(F_ENABLE_XTERM_NEWMAIL,ps_global) && xterm == yes && (s || old_s)){
-	fputs("\033]1;", stdout);
-	fputs((old_s = s) ? s : ps_global->pine_name, stdout);
-	fputs("\007", stdout);
-	fflush(stdout);
-    }
-}
-
-
-#ifdef	_WINDOWS
-#line 3 "osdep/termout.gen"
-#endif
-
-/*
- * Generic tty output routines...
- */
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 0 args
-
-  Args:  x -- column position on the screen
-         y -- row position on the screen
-         line -- line of text to output
-
- Result: text is output
-         cursor position is update
-  ----*/
-void
-PutLine0(x, y, line)
-    int            x,y;
-    register char *line;
-{
-    MoveCursor(x,y);
-    Write_to_screen(line);
-}
-
-
-
-/*----------------------------------------------------------------------
-  Output line of length len to the display observing embedded attributes
-
- Args:  x      -- column position on the screen
-        y      -- column position on the screen
-        line   -- text to be output
-        length -- length of text to be output
-
- Result: text is output
-         cursor position is updated
-  ----------------------------------------------------------------------*/
-void
-PutLine0n8b(x, y, line, length, handles)
-    int            x, y, length;
-    register char *line;
-    HANDLE_S	  *handles;
-{
-    unsigned char c;
-#ifdef	_WINDOWS
-    int hkey = 0;
-#endif
-
-    MoveCursor(x,y);
-    while(length-- && (c = (unsigned char)*line++)){
-
-	if(c == (unsigned char)TAG_EMBED && length){
-	    length--;
-	    switch(*line++){
-	      case TAG_INVON :
-		StartInverse();
-		break;
-	      case TAG_INVOFF :
-		EndInverse();
-		break;
-	      case TAG_BOLDON :
-		StartBold();
-		break;
-	      case TAG_BOLDOFF :
-		EndBold();
-		break;
-	      case TAG_ULINEON :
-		StartUnderline();
-		break;
-	      case TAG_ULINEOFF :
-		EndUnderline();
-		break;
-	      case TAG_HANDLE :
-		length -= *line + 1;	/* key length plus length tag */
-		if(handles){
-		    int  key, n;
-
-		    for(key = 0, n = *line++; n; n--) /* forget Horner? */
-		      key = (key * 10) + (*line++ - '0');
-
-#if	_WINDOWS
-		    hkey = key;
-#endif
-
-		    if(key == handles->key){
-			if(pico_usingcolor() &&
-			   ps_global->VAR_SLCTBL_FORE_COLOR &&
-			   ps_global->VAR_SLCTBL_BACK_COLOR){
-			    pico_set_normal_color();
-			}
-			else
-			  EndBold();
-
-			StartInverse();
-		    }
-		}
-		else{
-		    /* BUG: complain? */
-		    line += *line + 1;
-		}
-
-		break;
-	      case TAG_FGCOLOR :
-		if(length < RGBLEN){
-		    Writechar(TAG_EMBED, 0);
-		    Writechar(*(line-1), 0);
-		    break;
-		}
-
-		(void)pico_set_fg_color(line);
-		length -= RGBLEN;
-		line += RGBLEN;
-		break;
-	      case TAG_BGCOLOR :
-		if(length < RGBLEN){
-		    Writechar(TAG_EMBED, 0);
-		    Writechar(*(line-1), 0);
-		    break;
-		}
-
-		(void)pico_set_bg_color(line);
-		length -= RGBLEN;
-		line += RGBLEN;
-		break;
-	      default :		/* literal "embed" char? */
-		Writechar(TAG_EMBED, 0);
-		Writechar(*(line-1), 0);
-		break;
-	    }					/* tag with handle, skip it */
-	}	
-	else if(c == '\033')			/* check for iso-2022 escape */
-	  Writechar(c, match_escapes(line));
-	else
-	  Writechar(c, 0);
-    }
-
-
-#if	_WINDOWS_X
-    if(hkey) {
-	char *tmp_file = NULL, ext[32], mtype[128];
-	HANDLE_S *h;
-	extern HANDLE_S *get_handle (HANDLE_S *, int);
-
-	if((h = get_handle(handles, hkey)) && h->type == Attach){
-	    ext[0] = '\0';
-	    strcpy(mtype, body_type_names(h->h.attach->body->type));
-	    if (h->h.attach->body->subtype) {
-		strcat (mtype, "/");
-		strcat (mtype, h->h.attach->body->subtype);
-	    }
-
-	    if(!set_mime_extension_by_type(ext, mtype)){
-		char *namep, *dotp, *p;
-
-		if(namep = rfc2231_get_param(h->h.attach->body->parameter,
-					     "name", NULL, NULL)){
-		    for(dotp = NULL, p = namep; *p; p++)
-		      if(*p == '.')
-			dotp = p + 1;
-
-		    if(dotp && strlen(dotp) < sizeof(ext) - 1)
-		      strcpy(ext, dotp);
-
-		    fs_give((void **) &namep);
-		}
-	    }
-
-	    if(ext[0] && (tmp_file = temp_nam_ext(NULL, "im", ext))){
-		FILE *f = fopen(tmp_file, "w");
-
-		mswin_registericon(x, h->key, tmp_file);
-
-		fclose(f);
-		unlink(tmp_file);
-		fs_give((void **)&tmp_file);
-	    }
-	}
-    }
-#endif
-}
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 1 arg
-
- Input:  position on the screen
-         line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS2*/
-PutLine1(x, y, line, arg1)
-    int   x, y;
-    char *line;
-    void *arg1;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1);
-    PutLine0(x, y, buffer);
-}
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 2 args
-
- Input:  position on the screen
-         line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS3*/
-PutLine2(x, y, line, arg1, arg2)
-    int   x, y;
-    char *line;
-    void *arg1, *arg2;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1, arg2);
-    PutLine0(x, y, buffer);
-}
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 3 args
-
- Input:  position on the screen
-         line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS4*/
-PutLine3(x, y, line, arg1, arg2, arg3)
-    int   x, y;
-    char *line;
-    void *arg1, *arg2, *arg3;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1, arg2, arg3);
-    PutLine0(x, y, buffer);
-}
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 4 args
-
- Args:  x -- column position on the screen
-        y -- column position on the screen
-        line -- printf style line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS5*/
-PutLine4(x, y, line, arg1, arg2, arg3, arg4)
-     int   x, y;
-     char *line;
-     void *arg1, *arg2, *arg3, *arg4;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1, arg2, arg3, arg4);
-    PutLine0(x, y, buffer);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 5 args
-
- Args:  x -- column position on the screen
-        y -- column position on the screen
-        line -- printf style line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS6*/
-PutLine5(x, y, line, arg1, arg2, arg3, arg4, arg5)
-     int   x, y;
-     char *line;
-     void *arg1, *arg2, *arg3, *arg4, *arg5;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1, arg2, arg3, arg4, arg5);
-    PutLine0(x, y, buffer);
-}
-
-
-
-/*----------------------------------------------------------------------
-       Output a line to the screen, centered
-
-  Input:  Line number to print on, string to output
-  
- Result:  String is output to screen
-          Returns column number line is output on
-  ----------------------------------------------------------------------*/
-int
-Centerline(line, string)
-    int   line;
-    char *string;
-{
-    register int length, col;
-
-    length = strlen(string);
-
-    if (length > ps_global->ttyo->screen_cols)
-      col = 0;
-    else
-      col = (ps_global->ttyo->screen_cols - length) / 2;
-
-    PutLine0(line, col, string);
-    return(col);
-}
-
-
-
-/*----------------------------------------------------------------------
-     Clear specified line on the screen
-
- Result: The line is blanked and the cursor is left at column 0.
-
-  ----*/
-void
-ClearLine(n)
-    int n;
-{
-    if(ps_global->in_init_seq)
-      return;
-
-    MoveCursor(n, 0);
-    CleartoEOLN();
-}
-
-
-
-/*----------------------------------------------------------------------
-     Clear specified lines on the screen
-
- Result: The lines starting at 'x' and ending at 'y' are blanked
-	 and the cursor is left at row 'x', column 0
-
-  ----*/
-void
-ClearLines(x, y)
-    int x, y;
-{
-    int i;
-
-    for(i = x; i <= y; i++)
-      ClearLine(i);
-
-    MoveCursor(x, 0);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Indicate to the screen painting here that the position of the cursor
- has been disturbed and isn't where these functions might think.
- ----*/
-void
-clear_cursor_pos()
-{
-    _line = FARAWAY;
-    _col  = FARAWAY;
-}
-
-
diff --git a/net-mail/pine-maildir/pine-maildir-4.21-r2.ebuild b/net-mail/pine-maildir/pine-maildir-4.21-r2.ebuild
deleted file mode 100644
index 9cd48da977b0..000000000000
--- a/net-mail/pine-maildir/pine-maildir-4.21-r2.ebuild
+++ /dev/null
@@ -1,67 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Achim Gottinger <achim@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/pine-maildir/pine-maildir-4.21-r2.ebuild,v 1.1 2000/11/14 15:53:27 achim Exp $
-
-P=pine-maildir-4.21
-A="pine4.21.tar.gz  pine-4.20-maildir_3.patch"
-S=${WORKDIR}/pine4.21
-DESCRIPTION="Pine, Pico, Pilot, imapd"
-SRC_URI="ftp://ftp.cac.washington.edu/pine/pine4.21.tar.gz
-	 ftp://158.195.33.220/pub/pine/pine-4.20-maildir_3.patch"
-HOMEPAGE="http://www.washington.edu/pine/"
-
-DEPEND=">=sys-libs/glibc-2.1.3
-	>=sys-libs/gpm-1.19.3
-	>=sys-libs/ncurses-5.1
-	>=sys-libs/pam-0.72"
-
-src_unpack() {
-  unpack ${A}
-  cd ${S}
-  patch -p1 < ${DISTDIR}/pine-4.20-maildir_3.patch
-  cd ${S}/pine
-  cp makefile.lnx makefile.orig
-  sed -e "s:-g -DDEBUG:${CFLAGS}:" makefile.orig > makefile.lnx
-
-  if [ -n "`use glibc22`" ]
-  then
-     echo "Using glibc-2.2"
-     cp ${FILESDIR}/os.c osdep/os-lnx.c
-     cp ${FILESDIR}/filter.c filter.c
-  fi
-
-  cd ${S}/pico
-  cp makefile.lnx makefile.orig
-  sed -e "s:-g -DDEBUG:${CFLAGS}:" makefile.orig > makefile.lnx
-
-  
-}
-
-src_compile() {                           
-  ./build lnp
-}
-
-src_install() {                               
-  cd ${S}
-  into /usr
-  dobin bin/pine bin/pico bin/pilot bin/mtest
-  dosbin bin/imapd
-
-  doman doc/pico.1 doc/pine.1
-
-  insinto /etc
-  doins doc/mime.types
-  donewins doc/mailcap.unx mailcap
-
-  dodoc CPYRIGHT README doc/brochure.txt doc/tech-notes.txt
-  docinto imap
-  dodoc imap/docs/*.txt imap/docs/CONFIG imap/docs/FAQ imap/docs/RELNOTES
-  docinto imap/rfc
-  dodoc imap/docs/rfc/*.txt
-  docinto html/tech-notes
-  dodoc doc/tech-notes/*.html
-}
-
-
-
diff --git a/net-mail/pine/files/digest-pine-4.21-r2 b/net-mail/pine/files/digest-pine-4.21-r2
deleted file mode 100644
index cdba66b6aa7f..000000000000
--- a/net-mail/pine/files/digest-pine-4.21-r2
+++ /dev/null
@@ -1 +0,0 @@
-MD5 9252a061387de806f8aa1ced885d41f6 pine4.21.tar.gz
diff --git a/net-mail/pine/files/filter.c b/net-mail/pine/files/filter.c
deleted file mode 100644
index ed1c2d6aedda..000000000000
--- a/net-mail/pine/files/filter.c
+++ /dev/null
@@ -1,6902 +0,0 @@
-#if !defined(lint) && !defined(DOS)
-static char rcsid[] = "$Id: filter.c,v 1.1 2000/11/15 16:46:05 achim Exp $";
-#endif
-/*----------------------------------------------------------------------
-
-            T H E    P I N E    M A I L   S Y S T E M
-
-   Laurence Lundblade and Mike Seibel
-   Networks and Distributed Computing
-   Computing and Communications
-   University of Washington
-   Administration Builiding, AG-44
-   Seattle, Washington, 98195, USA
-   Internet: lgl@CAC.Washington.EDU
-             mikes@CAC.Washington.EDU
-
-   Please address all bugs and comments to "pine-bugs@cac.washington.edu"
-
-
-   Pine and Pico are registered trademarks of the University of Washington.
-   No commercial use of these trademarks may be made without prior written
-   permission of the University of Washington.
-
-   Pine, Pico, and Pilot software and its included text are Copyright
-   1989-1999 by the University of Washington.
-
-   The full text of our legal notices is contained in the file called
-   CPYRIGHT, included with this distribution.
-
-
-   Pine is in part based on The Elm Mail System:
-    ***********************************************************************
-    *  The Elm Mail System  -  Revision: 2.13                             *
-    *                                                                     *
-    * 			Copyright (c) 1986, 1987 Dave Taylor              *
-    * 			Copyright (c) 1988, 1989 USENET Community Trust   *
-    ***********************************************************************
-
-
-  ----------------------------------------------------------------------*/
-
-/*======================================================================
-     filter.c
-
-     This code provides a generalized, flexible way to allow
-     piping of data thru filters.  Each filter is passed a structure
-     that it will use to hold its static data while it operates on
-     the stream of characters that are passed to it.  After processing
-     it will either return or call the next filter in
-     the pipe with any character (or characters) it has ready to go. This
-     means some terminal type of filter has to be the last in the
-     chain (i.e., one that writes the passed char someplace, but doesn't
-     call another filter).
-
-     See below for more details.
-
-     The motivation is to handle MIME decoding, richtext conversion,
-     iso_code stripping and anything else that may come down the
-     pike (e.g., PEM) in an elegant fashion.  mikes (920811)
-
-   TODO:
-       reasonable error handling
-
-  ====*/
-
-
-#include "headers.h"
-
-
-/*
- * Internal prototypes
- */
-int	gf_so_readc PROTO((unsigned char *));
-int	gf_so_writec PROTO((int));
-int	gf_sreadc PROTO((unsigned char *));
-int	gf_swritec PROTO((int));
-int	gf_freadc PROTO((unsigned char *));
-int	gf_fwritec PROTO((int));
-void	gf_terminal PROTO((FILTER_S *, int));
-char   *gf_filter_puts PROTO((char *));
-void	gf_filter_eod PROTO((void));
-void    gf_error PROTO((char *));
-void	gf_8bit_put PROTO((FILTER_S *, int));
-int	so_reaquire PROTO((STORE_S *));
-void   *so_file_open PROTO((STORE_S *));
-int	so_cs_writec PROTO((int, STORE_S *));
-int	so_pico_writec PROTO((int, STORE_S *));
-int	so_file_writec PROTO((int, STORE_S *));
-int	so_cs_readc PROTO((unsigned char *, STORE_S *));
-int	so_pico_readc PROTO((unsigned char *, STORE_S *));
-int	so_file_readc PROTO((unsigned char *, STORE_S *));
-int	so_cs_puts PROTO((STORE_S *, char *));
-int	so_pico_puts PROTO((STORE_S *, char *));
-int	so_file_puts PROTO((STORE_S *, char *));
-
-
-/*
- * GENERALIZED STORAGE FUNCTIONS.  Idea is to allow creation of
- * storage objects that can be written into and read from without
- * the caller knowing if the storage is core or in a file
- * or whatever.
- */
-#define	MSIZE_INIT	8192
-#define	MSIZE_INC	4096
-
-
-/*
- * System specific options
- */
-#ifdef	DOS
-#define	NO_PIPE
-#endif
-#if	defined(DOS) || defined(OS2)
-#define CRLF_NEWLINES
-#endif
-
-/*
- * Various parms for opening and creating files directly and via stdio.
- * NOTE: If "binary" mode file exists, use it.
- */
-#ifdef	O_BINARY
-#define STDIO_READ	"rb"
-#define STDIO_APPEND	"a+b"
-#else
-#define	O_BINARY	0
-#define	STDIO_READ	"r"
-#define	STDIO_APPEND	"a+"
-#endif
-
-#define	OP_FL_RDWR	(O_RDWR | O_CREAT | O_APPEND | O_BINARY)
-#define	OP_FL_RDONLY	(O_RDONLY | O_BINARY)
-
-#ifdef	S_IREAD
-#define	OP_MD_USER	(S_IREAD | S_IWRITE)
-#else
-#define	OP_MD_USER	0600
-#endif
-
-#ifdef	S_IRUSR
-#define	OP_MD_ALL	(S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | \
-			 S_IROTH | S_IWOTH)
-#else
-#define	OP_MD_ALL	0666
-#endif
-
-
-/*
- * allocate resources associated with the specified type of
- * storage.  If requesting a named file object, open it for
- * appending, else just open a temp file.
- *
- * return the filled in storage object
- */
-STORE_S *
-so_get(source, name, rtype)
-    SourceType  source;			/* requested storage type */
-    char       *name;			/* file name 		  */
-    int		rtype;			/* file access type	  */
-{
-    STORE_S *so = (STORE_S *)fs_get(sizeof(STORE_S));
-
-    memset(so, 0, sizeof(STORE_S));
-    so->flags |= rtype;
-
-    if(name)					/* stash the name */
-      so->name = cpystr(name);
-#ifdef	DOS
-    else if(source == TmpFileStar || source == FileStar){
-	/*
-	 * Coerce to TmpFileStar.  The MSC library's "tmpfile()"
-	 * doesn't observe the "TMP" or "TEMP" environment vars and
-	 * always wants to write "\".  This is problematic in shared,
-	 * networked environments.
-	 */
-	source   = TmpFileStar;
-	so->name = temp_nam(NULL, "pi");
-    }
-#else
-    else if(source == TmpFileStar)		/* make one up! */
-      so->name = temp_nam(NULL, "pine-tmp");
-#endif
-
-    so->src = source;
-    if(so->src == FileStar || so->src == TmpFileStar){
-	so->writec = so_file_writec;
-	so->readc  = so_file_readc;
-	so->puts   = so_file_puts;
-
-	/*
-	 * The reason for both FileStar and TmpFileStar types is
-	 * that, named or unnamed, TmpFileStar's are unlinked
-	 * when the object is given back to the system.  This is
-	 * useful for keeping us from running out of file pointers as
-	 * the pointer associated with the object can be temporarily
-	 * returned to the system without destroying the object.
-	 *
-	 * The programmer is warned to be careful not to assign the
-	 * TmpFileStar type to any files that are expected to remain
-	 * after the dust has settled!
-	 */
-	if(so->name){
-	    if(!(so->txt = so_file_open(so))){
-		dprint(1, (debugfile, "so_get error: %s : %s", so->name,
-			   error_description(errno)));
-		fs_give((void **)&so->name);
-		fs_give((void **)&so); 		/* so freed & set to NULL */
-	    }
-	}
-	else{
-	    if(!(so->txt = (void *) create_tmpfile())){
-		dprint(1, (debugfile, "so_get error: tmpfile : %s",
-			   error_description(errno)));
-		fs_give((void **)&so);		/* so freed & set to NULL */
-	    }
-	}
-    }
-    else if(so->src == PicoText){
-	so->writec = so_pico_writec;
-	so->readc  = so_pico_readc;
-	so->puts   = so_pico_puts;
-	if(!(so->txt = pico_get())){
-	    dprint(1, (debugfile, "so_get error: alloc of pico text space"));
-	    if(so->name)
-	      fs_give((void **)&so->name);
-	    fs_give((void **)&so);		/* so freed & set to NULL */
-	}
-    }
-    else{
-	so->writec = so_cs_writec;
-	so->readc  = so_cs_readc;
-	so->puts   = so_cs_puts;
-	so->txt	   = (void *)fs_get((size_t) MSIZE_INIT * sizeof(char));
-	so->dp	   = so->eod = (unsigned char *) so->txt;
-	so->eot	   = so->dp + MSIZE_INIT;
-	memset(so->eod, 0, so->eot - so->eod);
-    }
-
-    return(so);
-}
-
-
-/*
- * so_give - free resources associated with a storage object and then
- *           the object itself.
- */
-void
-so_give(so)
-STORE_S **so;
-{
-    if(!so)
-      return;
-
-    if((*so)->src == FileStar || (*so)->src == TmpFileStar){
-        if((*so)->txt)
-	  fclose((FILE *)(*so)->txt);	/* disassociate from storage */
-
-	if((*so)->name && (*so)->src == TmpFileStar)
-	  unlink((*so)->name);		/* really disassociate! */
-    }
-    else if((*so)->txt && (*so)->src == PicoText)
-      pico_give((*so)->txt);
-    else if((*so)->txt)
-      fs_give((void **)&((*so)->txt));
-
-    if((*so)->name)
-      fs_give((void **)&((*so)->name));	/* blast the name            */
-
-    fs_give((void **)so);		/* release the object        */
-}
-
-
-/*
- * so_file_open
- */
-void *
-so_file_open(so)
-    STORE_S *so;
-{
-    char *type  = ((so->flags) & WRITE_ACCESS) ? STDIO_APPEND : STDIO_READ;
-    int   flags = ((so->flags) & WRITE_ACCESS) ? OP_FL_RDWR : OP_FL_RDONLY,
-	  mode  = (((so->flags) & OWNER_ONLY) || so->src == TmpFileStar)
-		   ? OP_MD_USER : OP_MD_ALL,
-	  fd;
-
-    /*
-     * Use open instead of fopen so we can make temp files private.
-     */
-    return(((fd = open(so->name, flags, mode)) >= 0)
-	     ? (so->txt = (void *) fdopen(fd, type)) : NULL);
-}
-
-
-/*
- * put a character into the specified storage object,
- * expanding if neccessary
- *
- * return 1 on success and 0 on failure
- */
-int
-so_cs_writec(c, so)
-    int      c;
-    STORE_S *so;
-{
-    if(so->dp >= so->eot){
-	size_t cur_o  = so->dp - (unsigned char *) so->txt;
-	size_t data_o = so->eod - (unsigned char *) so->txt;
-	size_t size   = (so->eot - (unsigned char *) so->txt) + MSIZE_INC;
-
-	fs_resize(&so->txt, size * sizeof(char));
-	so->dp   = (unsigned char *) so->txt + cur_o;
-	so->eod  = (unsigned char *) so->txt + data_o;
-	so->eot  = (unsigned char *) so->txt + size;
-	memset(so->eod, 0, so->eot - so->eod);
-    }
-
-    *so->dp++ = (unsigned char) c;
-    if(so->dp > so->eod)
-      so->eod = so->dp;
-
-    return(1);
-}
-
-int
-so_pico_writec(c, so)
-    int      c;
-    STORE_S *so;
-{
-    unsigned char ch = (unsigned char) c;
-
-    return(pico_writec(so->txt, ch));
-}
-
-int
-so_file_writec(c, so)
-    int      c;
-    STORE_S *so;
-{
-    unsigned char ch = (unsigned char) c;
-    int rv = 0;
-
-    if(so->txt || so_reaquire(so))
-      do
-	rv = fwrite(&ch,sizeof(unsigned char),(size_t)1,(FILE *)so->txt);
-      while(!rv && ferror((FILE *)so->txt) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/*
- * get a character from the specified storage object.
- *
- * return 1 on success and 0 on failure
- */
-int
-so_cs_readc(c, so)
-    unsigned char *c;
-    STORE_S       *so;
-{
-    return((so->dp < so->eod) ? *c = *(so->dp)++, 1 : 0);
-}
-
-int
-so_pico_readc(c, so)
-    unsigned char *c;
-    STORE_S       *so;
-{
-    return(pico_readc(so->txt, c));
-}
-
-int
-so_file_readc(c, so)
-    unsigned char *c;
-    STORE_S       *so;
-{
-    int rv = 0;
-
-    if(so->txt || so_reaquire(so))
-      do
-	rv = fread(c, sizeof(char), (size_t)1, (FILE *)so->txt);
-      while(!rv && ferror((FILE *)so->txt) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/*
- * write a string into the specified storage object,
- * expanding if necessary (and cheating if the object
- * happens to be a file!)
- *
- * return 1 on success and 0 on failure
- */
-int
-so_cs_puts(so, s)
-    STORE_S *so;
-    char    *s;
-{
-    int slen = strlen(s);
-
-    if(so->dp + slen >= so->eot){
-	register size_t cur_o  = so->dp - (unsigned char *) so->txt;
-	register size_t data_o = so->eod - (unsigned char *) so->txt;
-	register size_t len   = so->eot - (unsigned char *) so->txt;
-	while(len <= cur_o + slen + 1)
-	  len += MSIZE_INC;		/* need to resize! */
-
-	fs_resize(&so->txt, len * sizeof(char));
-	so->dp	 = (unsigned char *)so->txt + cur_o;
-	so->eod	 = (unsigned char *)so->txt + data_o;
-	so->eot	 = (unsigned char *)so->txt + len;
-	memset(so->eod, 0, so->eot - so->eod);
-    }
-
-    memcpy(so->dp, s, slen);
-    so->dp += slen;
-    if(so->dp > so->eod)
-      so->eod = so->dp;
-
-    return(1);
-}
-
-int
-so_pico_puts(so, s)
-    STORE_S *so;
-    char    *s;
-{
-    return(pico_puts(so->txt, s));
-}
-
-int
-so_file_puts(so, s)
-    STORE_S *so;
-    char    *s;
-{
-    int rv = *s ? 0 : 1;
-
-    if(!rv && (so->txt || so_reaquire(so)))
-      do
-	rv = fwrite(s, strlen(s)*sizeof(char), (size_t)1, (FILE *)so->txt);
-      while(!rv && ferror((FILE *)so->txt) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/*
- *
- */
-int
-so_nputs(so, s, n)
-    STORE_S *so;
-    char    *s;
-    long     n;
-{
-    while(n--)
-      if(!so_writec((unsigned char) *s++, so))
-	return(0);		/* ERROR putting char ! */
-
-    return(1);
-}
-
-
-
-/*
- * Position the storage object's pointer to the given offset
- * from the start of the object's data.
- */
-int
-so_seek(so, pos, orig)
-    STORE_S *so;
-    long     pos;
-    int      orig;
-{
-    if(so->src == CharStar){
-	switch(orig){
-	    case 0 :				/* SEEK_SET */
-	      return((pos < so->eod - (unsigned char *) so->txt)
-		      ? so->dp = (unsigned char *)so->txt + pos, 0 : -1);
-	    case 1 :				/* SEEK_CUR */
-	      return((pos > 0)
-		       ? ((pos < so->eod - so->dp) ? so->dp += pos, 0: -1)
-		       : ((pos < 0)
-			   ? ((-pos < so->dp - (unsigned char *)so->txt)
-			        ? so->dp += pos, 0 : -1)
-			   : 0));
-	    case 2 :				/* SEEK_END */
-	      return((pos < so->eod - (unsigned char *) so->txt)
-		      ? so->dp = so->eod - pos, 0 : -1);
-	    default :
-	      return(-1);
-	}
-    }
-    else if(so->src == PicoText)
-      return(pico_seek(so->txt, pos, orig));
-    else			/* FileStar or TmpFileStar */
-      return((so->txt || so_reaquire(so))
-		? fseek((FILE *)so->txt,pos,orig)
-		: -1);
-}
-
-
-/*
- * Change the given storage object's size to that specified.  If size
- * is less than the current size, the internal pointer is adjusted and
- * all previous data beyond the given size is lost.
- *
- * Returns 0 on failure.
- */
-int
-so_truncate(so, size)
-    STORE_S *so;
-    long     size;
-{
-    if(so->src == CharStar){
-	if(so->eod < (unsigned char *) so->txt + size){	/* alloc! */
-	    unsigned char *newtxt = (unsigned char *) so->txt;
-	    register size_t len   = so->eot - (unsigned char *) so->txt;
-
-	    while(len <= size)
-	      len += MSIZE_INC;		/* need to resize! */
-
-	    if(len > so->eot - (unsigned char *) newtxt){
-		fs_resize((void **) &newtxt, len * sizeof(char));
-		so->eot = newtxt + len;
-		so->eod = newtxt + (so->eod - (unsigned char *) so->txt);
-		memset(so->eod, 0, so->eot - so->eod);
-	    }
-
-	    so->eod = newtxt + size;
-	    so->dp  = newtxt + (so->dp - (unsigned char *) so->txt);
-	    so->txt = newtxt;
-	}
-	else if(so->eod > (unsigned char *) so->txt + size){
-	    if(so->dp > (so->eod = (unsigned char *)so->txt + size))
-	      so->dp = so->eod;
-
-	    memset(so->eod, 0, so->eot - so->eod);
-	}
-
-	return(1);
-    }
-    else if(so->src == PicoText){
-	fatal("programmer botch: unsupported so_truncate call");
-	/*NOTREACHED*/
-    }
-    else			/* FileStar or TmpFileStar */
-      return(fflush((FILE *) so->txt) != EOF
-	     && fseek((FILE *) so->txt, size, 0) == 0
-	     && ftruncate(fileno((FILE *)so->txt), size) == 0);
-}
-
-
-/*
- * so_release - a rather misnamed function.  the idea is to release
- *              what system resources we can (e.g., open files).
- *              while maintaining a reference to it.
- *              it's up to the functions that deal with this object
- *              next to re-aquire those resources.
- */
-int
-so_release(so)
-STORE_S *so;
-{
-    if(so->txt && so->name && (so->src == FileStar || so->src == TmpFileStar)){
-	if(fgetpos((FILE *)so->txt, (fpos_t *)&(so->used)) == 0){
-	    fclose((FILE *)so->txt);		/* free the handle! */
-	    so->txt = NULL;
-	}
-    }
-
-    return(1);
-}
-
-
-/*
- * so_reaquire - get any previously released system resources we
- *               may need for the given storage object.
- *       NOTE: at the moment, only FILE * types of objects are
- *             effected, so it only needs to be called before
- *             references to them.
- *
- */
-so_reaquire(so)
-STORE_S *so;
-{
-    int   rv = 1;
-
-    if(!so->txt && (so->src == FileStar || so->src == TmpFileStar)){
-	if(!(so->txt = so_file_open(so))){
-	    q_status_message2(SM_ORDER,3,5, "ERROR reopening %s : %s", so->name,
-				error_description(errno));
-	    rv = 0;
-	}
-	else if(fsetpos((FILE *)so->txt, (fpos_t *)&(so->used))){
-	    q_status_message2(SM_ORDER, 3, 5, "ERROR positioning in %s : %s",
-				so->name, error_description(errno));
-	    rv = 0;
-	}
-    }
-
-    return(rv);
-}
-
-
-/*
- * so_text - return a pointer to the text the store object passed
- */
-void *
-so_text(so)
-STORE_S *so;
-{
-    return((so) ? so->txt : NULL);
-}
-
-
-/*
- * END OF GENERALIZE STORAGE FUNCTIONS
- */
-
-
-/*
- * Start of filters, pipes and various support functions
- */
-
-/*
- * pointer to first function in a pipe, and pointer to last filter
- */
-FILTER_S         *gf_master = NULL;
-static	gf_io_t   last_filter;
-static	char     *gf_error_string;
-static	long	  gf_byte_count;
-static	jmp_buf   gf_error_state;
-
-
-/*
- * A list of states used by the various filters.  Reused in many filters.
- */
-#define	DFL	0
-#define	EQUAL	1
-#define	HEX	2
-#define	WSPACE	3
-#define	CCR	4
-#define	CLF	5
-#define	TOKEN	6
-#define	TAG	7
-#define	HANDLE	8
-#define	HDATA	9
-
-
-
-/*
- * Macros to reduce function call overhead associated with calling
- * each filter for each byte filtered, and to minimize filter structure
- * dereferences.  NOTE: "queuein" has to do with putting chars into the
- * filter structs data queue.  So, writing at the queuein offset is
- * what a filter does to pass processed data out of itself.  Ditto for
- * queueout.  This explains the FI --> queueout init stuff below.
- */
-#define	GF_QUE_START(F)	(&(F)->queue[0])
-#define	GF_QUE_END(F)	(&(F)->queue[GF_MAXBUF - 1])
-
-#define	GF_IP_INIT(F)	ip  = (F) ? &(F)->queue[(F)->queuein] : NULL
-#define	GF_EIB_INIT(F)	eib = (F) ? GF_QUE_END(F) : NULL
-#define	GF_OP_INIT(F)	op  = (F) ? &(F)->queue[(F)->queueout] : NULL
-#define	GF_EOB_INIT(F)	eob = (F) ? &(F)->queue[(F)->queuein] : NULL
-
-#define	GF_IP_END(F)	(F)->queuein  = ip - GF_QUE_START(F)
-#define	GF_OP_END(F)	(F)->queueout = op - GF_QUE_START(F)
-
-#define	GF_INIT(FI, FO)	register unsigned char *GF_OP_INIT(FI);	 \
-			register unsigned char *GF_EOB_INIT(FI); \
-			register unsigned char *GF_IP_INIT(FO);  \
-			register unsigned char *GF_EIB_INIT(FO);
-
-#define	GF_CH_RESET(F)	(op = eob = GF_QUE_START(F), \
-					    (F)->queueout = (F)->queuein = 0)
-
-#define	GF_END(FI, FO)	(GF_OP_END(FI), GF_IP_END(FO))
-
-#define	GF_FLUSH(F)	((int)(GF_IP_END(F), (*(F)->f)((F), GF_DATA), \
-			       GF_IP_INIT(F), GF_EIB_INIT(F)))
-
-#define	GF_PUTC(F, C)	((int)(*ip++ = (C), (ip >= eib) ? GF_FLUSH(F) : 1))
-
-#define	GF_GETC(F, C)	((op < eob) ? (((C) = *op++), 1) : GF_CH_RESET(F))
-
-
-/*
- * Generalized getc and putc routines.  provided here so they don't
- * need to be re-done elsewhere to
- */
-
-/*
- * pointers to objects to be used by the generic getc and putc
- * functions
- */
-static struct gf_io_struct {
-    FILE          *file;
-    char          *txtp;
-    unsigned long  n;
-} gf_in, gf_out;
-
-
-#define	GF_SO_STACK	struct gf_so_stack
-static GF_SO_STACK {
-    STORE_S	*so;
-    GF_SO_STACK *next;
-} *gf_so_in, *gf_so_out;
-
-
-/*
- * setup to use and return a pointer to the generic
- * getc function
- */
-void
-gf_set_readc(gc, txt, len, src)
-    gf_io_t       *gc;
-    void          *txt;
-    unsigned long  len;
-    SourceType     src;
-{
-    gf_in.n = len;
-    if(src == FileStar){
-	gf_in.file = (FILE *)txt;
-	fseek(gf_in.file, 0L, 0);
-	*gc = gf_freadc;
-    }
-    else{
-	gf_in.txtp = (char *)txt;
-	*gc = gf_sreadc;
-    }
-}
-
-
-/*
- * setup to use and return a pointer to the generic
- * putc function
- */
-void
-gf_set_writec(pc, txt, len, src)
-    gf_io_t       *pc;
-    void          *txt;
-    unsigned long  len;
-    SourceType     src;
-{
-    gf_out.n = len;
-    if(src == FileStar){
-	gf_out.file = (FILE *)txt;
-	*pc = gf_fwritec;
-    }
-    else{
-	gf_out.txtp = (char *)txt;
-	*pc = gf_swritec;
-    }
-}
-
-
-/*
- * setup to use and return a pointer to the generic
- * getc function
- */
-void
-gf_set_so_readc(gc, so)
-    gf_io_t *gc;
-    STORE_S *so;
-{
-    GF_SO_STACK *sp = (GF_SO_STACK *) fs_get(sizeof(GF_SO_STACK));
-
-    sp->so   = so;
-    sp->next = gf_so_in;
-    gf_so_in = sp;
-    *gc      = gf_so_readc;
-}
-
-
-void
-gf_clear_so_readc(so)
-    STORE_S *so;
-{
-    GF_SO_STACK *sp;
-
-    if(sp = gf_so_in){
-	if(so == sp->so){
-	    gf_so_in = gf_so_in->next;
-	    fs_give((void **) &sp);
-	}
-	else
-	  panic("Programmer botch: Can't unstack store readc");
-    }
-    else
-      panic("Programmer botch: NULL store clearing store readc");
-}
-
-
-/*
- * setup to use and return a pointer to the generic
- * putc function
- */
-void
-gf_set_so_writec(pc, so)
-    gf_io_t *pc;
-    STORE_S *so;
-{
-    GF_SO_STACK *sp = (GF_SO_STACK *) fs_get(sizeof(GF_SO_STACK));
-
-    sp->so    = so;
-    sp->next  = gf_so_out;
-    gf_so_out = sp;
-    *pc       = gf_so_writec;
-}
-
-
-void
-gf_clear_so_writec(so)
-    STORE_S *so;
-{
-    GF_SO_STACK *sp;
-
-    if(sp = gf_so_out){
-	if(so == sp->so){
-	    gf_so_out = gf_so_out->next;
-	    fs_give((void **) &sp);
-	}
-	else
-	  panic("Programmer botch: Can't unstack store writec");
-    }
-    else
-      panic("Programmer botch: NULL store clearing store writec");
-}
-
-
-/*
- * put the character to the object previously defined
- */
-int
-gf_so_writec(c)
-int c;
-{
-    return(so_writec(c, gf_so_out->so));
-}
-
-
-/*
- * get a character from an object previously defined
- */
-int
-gf_so_readc(c)
-unsigned char *c;
-{
-    return(so_readc(c, gf_so_in->so));
-}
-
-
-/* get a character from a file */
-/* assumes gf_out struct is filled in */
-int
-gf_freadc(c)
-unsigned char *c;
-{
-    int rv = 0;
-
-    do {
-	errno = 0;
-	clearerr(gf_in.file);
-	rv = fread(c, sizeof(unsigned char), (size_t)1, gf_in.file);
-    } while(!rv && ferror(gf_in.file) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/* put a character to a file */
-/* assumes gf_out struct is filled in */
-int
-gf_fwritec(c)
-    int c;
-{
-    unsigned char ch = (unsigned char)c;
-    int rv = 0;
-
-    do
-      rv = fwrite(&ch, sizeof(unsigned char), (size_t)1, gf_out.file);
-    while(!rv && ferror(gf_out.file) && errno == EINTR);
-
-    return(rv);
-}
-
-
-/* get a character from a string, return nonzero if things OK */
-/* assumes gf_out struct is filled in */
-int
-gf_sreadc(c)
-unsigned char *c;
-{
-    return((gf_in.n) ? *c = *(gf_in.txtp)++, gf_in.n-- : 0);
-}
-
-
-/* put a character into a string, return nonzero if things OK */
-/* assumes gf_out struct is filled in */
-int
-gf_swritec(c)
-    int c;
-{
-    return((gf_out.n) ? *(gf_out.txtp)++ = c, gf_out.n-- : 0);
-}
-
-
-/*
- * output the given string with the given function
- */
-int
-gf_puts(s, pc)
-    register char *s;
-    gf_io_t        pc;
-{
-    while(*s != '\0')
-      if(!(*pc)((unsigned char)*s++))
-	return(0);		/* ERROR putting char ! */
-
-    return(1);
-}
-
-
-/*
- * output the given string with the given function
- */
-int
-gf_nputs(s, n, pc)
-    register char *s;
-    long	   n;
-    gf_io_t        pc;
-{
-    while(n--)
-      if(!(*pc)((unsigned char)*s++))
-	return(0);		/* ERROR putting char ! */
-
-    return(1);
-}
-
-
-/*
- * Start of generalized filter routines
- */
-
-/*
- * initializing function to make sure list of filters is empty.
- */
-void
-gf_filter_init()
-{
-    FILTER_S *flt, *fltn = gf_master;
-
-    while((flt = fltn) != NULL){	/* free list of old filters */
-	fltn = flt->next;
-	fs_give((void **)&flt);
-    }
-
-    gf_master = NULL;
-    gf_error_string = NULL;		/* clear previous errors */
-    gf_byte_count = 0L;			/* reset counter */
-}
-
-
-
-/*
- * link the given filter into the filter chain
- */
-void
-gf_link_filter(f, data)
-    filter_t  f;
-    void     *data;
-{
-    FILTER_S *new, *tail;
-
-#ifdef	CRLF_NEWLINES
-    /*
-     * If the system's native EOL convention is CRLF, then there's no
-     * point in passing data thru a filter that's not doing anything
-     */
-    if(f == gf_nvtnl_local || f == gf_local_nvtnl)
-      return;
-#endif
-
-    new = (FILTER_S *)fs_get(sizeof(FILTER_S));
-    memset(new, 0, sizeof(FILTER_S));
-
-    new->f = f;				/* set the function pointer     */
-    new->opt = data;			/* set any optional parameter data */
-    (*f)(new, GF_RESET);		/* have it setup initial state  */
-
-    if(tail = gf_master){		/* or add it to end of existing  */
-	while(tail->next)		/* list  */
-	  tail = tail->next;
-
-	tail->next = new;
-    }
-    else				/* attach new struct to list    */
-      gf_master = new;			/* start a new list */
-}
-
-
-/*
- * terminal filter, doesn't call any other filters, typically just does
- * something with the output
- */
-void
-gf_terminal(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    if(flg == GF_DATA){
-	GF_INIT(f, f);
-
-	while(op < eob)
-	  if((*last_filter)(*op++) <= 0) /* generic terminal filter */
-	    gf_error(errno ? error_description(errno) : "Error writing pipe");
-
-	GF_CH_RESET(f);
-    }
-    else if(flg == GF_RESET)
-      errno = 0;			/* prepare for problems */
-}
-
-
-/*
- * set some outside gf_io_t function to the terminal function
- * for example: a function to write a char to a file or into a buffer
- */
-void
-gf_set_terminal(f)			/* function to set generic filter */
-    gf_io_t f;
-{
-    last_filter = f;
-}
-
-
-/*
- * common function for filter's to make it known that an error
- * has occurred.  Jumps back to gf_pipe with error message.
- */
-void
-gf_error(s)
-    char *s;
-{
-    /* let the user know the error passed in s */
-    gf_error_string = s;
-    longjmp(gf_error_state, 1);
-}
-
-
-/*
- * The routine that shoves each byte through the chain of
- * filters.  It sets up error handling, and the terminal function.
- * Then loops getting bytes with the given function, and passing
- * it on to the first filter in the chain.
- */
-char *
-gf_pipe(gc, pc)
-    gf_io_t gc, pc;			/* how to get a character */
-{
-    unsigned char c;
-
-#if	defined(DOS) && !defined(_WINDOWS)
-    MoveCursor(0, 1);
-    StartInverse();
-#endif
-
-    dprint(4, (debugfile, "-- gf_pipe: "));
-
-    /*
-     * set up for any errors a filter may encounter
-     */
-    if(setjmp(gf_error_state)){
-#if	defined(DOS) && !defined(_WINDOWS)
-	ibmputc(' ');
-	EndInverse();
-#endif
-	dprint(4, (debugfile, "ERROR: %s\n",
-		   gf_error_string ? gf_error_string : "NULL"));
-	return(gf_error_string); 	/*  */
-    }
-
-    /*
-     * set and link in the terminal filter
-     */
-    gf_set_terminal(pc);
-    gf_link_filter(gf_terminal, NULL);
-
-    /*
-     * while there are chars to process, send them thru the pipe.
-     * NOTE: it's necessary to enclose the loop below in a block
-     * as the GF_INIT macro calls some automatic var's into
-     * existence.  It can't be placed at the start of gf_pipe
-     * because its useful for us to be called without filters loaded
-     * when we're just being used to copy bytes between storage
-     * objects.
-     */
-    {
-	GF_INIT(gf_master, gf_master);
-
-	while((*gc)(&c)){
-	    gf_byte_count++;
-#ifdef	DOS
-	    if(!(gf_byte_count & 0x3ff))
-#ifdef	_WINDOWS
-	      /* Under windows we yeild to allow event processing.
-	       * Progress display is handled throught the alarm()
-	       * mechinism.
-	       */
-	      mswin_yeild ();
-#else
-	      /* Poor PC still needs spinning bar */
-	      ibmputc("/-\\|"[((int) gf_byte_count >> 10) % 4]);
-	      MoveCursor(0, 1);
-#endif
-#endif
-
-	    GF_PUTC(gf_master, c & 0xff);
-	}
-
-	/*
-	 * toss an end-of-data marker down the pipe to give filters
-	 * that have any buffered data the opportunity to dump it
-	 */
-	GF_FLUSH(gf_master);
-	(*gf_master->f)(gf_master, GF_EOD);
-    }
-
-#if	defined(DOS) && !defined(_WINDOWS)
-    ibmputc(' ');
-    EndInverse();
-#endif
-
-    dprint(1, (debugfile, "done.\n"));
-    return(NULL);			/* everything went OK */
-}
-
-
-/*
- * return the number of bytes piped so far
- */
-long
-gf_bytes_piped()
-{
-    return(gf_byte_count);
-}
-
-
-/*
- * filter the given input with the given command
- *
- *  Args: cmd -- command string to execute
- *	prepend -- string to prepend to filtered input
- *	source_so -- storage object containing data to be filtered
- *	pc -- function to write filtered output with
- *	aux_filters -- additional filters to pass data thru after "cmd"
- *
- *  Returns: NULL on sucess, reason for failure (not alloc'd!) on error
- */
-char *
-gf_filter(cmd, prepend, source_so, pc, aux_filters)
-    char       *cmd, *prepend;
-    STORE_S    *source_so;
-    gf_io_t	pc;
-    FILTLIST_S *aux_filters;
-{
-    unsigned char c;
-    int	     flags;
-    char   *errstr = NULL, buf[MAILTMPLEN], *rfile = NULL;
-    PIPE_S *fpipe;
-
-    dprint(4, (debugfile, "so_filter: \"%s\"\n", cmd));
-
-    gf_filter_init();
-    for( ; aux_filters && aux_filters->filter; aux_filters++)
-      gf_link_filter(aux_filters->filter, aux_filters->data);
-
-    gf_set_terminal(pc);
-    gf_link_filter(gf_terminal, NULL);
-
-    /*
-     * Spawn filter feeding it data, and reading what it writes.
-     */
-    so_seek(source_so, 0L, 0);
-#ifdef	NO_PIPE
-    /*
-     * When there're no pipes for IPC, use an output file to collect
-     * the result...
-     */
-    flags = PIPE_WRITE | PIPE_NOSHELL | PIPE_RESET;
-    rfile = temp_nam(NULL, "pf");
-#else
-    flags = PIPE_WRITE | PIPE_READ | PIPE_NOSHELL | PIPE_RESET;
-#endif
-
-    if(fpipe = open_system_pipe(cmd, rfile ? &rfile : NULL, NULL, flags, 0)){
-#ifdef	NO_PIPE
-	if(prepend && (fputs(prepend, fpipe->out.f) == EOF
-		       || fputc('\n', fpipe->out.f) == EOF))
-	  errstr = error_description(errno);
-
-	/*
-	 * Write the output, and deal with the result later...
-	 */
-	while(!errstr && so_readc(&c, source_so))
-	  if(fputc(c, fpipe->out.f) == EOF)
-	    errstr = error_description(errno);
-#else
-#ifdef	NON_BLOCKING_IO
-	int     n;
-
-	if(fcntl(fileno(fpipe->in.f), F_SETFL, NON_BLOCKING_IO) == -1)
-	  errstr = "Can't set up non-blocking IO";
-
-	if(prepend && (fputs(prepend, fpipe->out.f) == EOF
-		       || fputc('\n', fpipe->out.f) == EOF))
-	  errstr = error_description(errno);
-
-	while(!errstr){
-	    /* if the pipe can't hold a K we're sunk (too bad PIPE_MAX
-	     * isn't ubiquitous ;).
-	     */
-	    for(n = 0; !errstr && fpipe->out.f && n < 1024; n++)
-	      if(!so_readc(&c, source_so)){
-		  fclose(fpipe->out.f);
-		  fpipe->out.f = NULL;
-	      }
-	      else if(fputc(c, fpipe->out.f) == EOF)
-		errstr = error_description(errno);
-
-	    /*
-	     * Note: We clear errno here and test below, before ferror,
-	     *	     because *some* stdio implementations consider
-	     *	     EAGAIN and EWOULDBLOCK equivalent to EOF...
-	     */
-	    errno = 0;
-	    clearerr(fpipe->in.f); /* fix from <cananian@cananian.mit.edu> */
-
-	    while(!errstr && fgets(buf, MAILTMPLEN, fpipe->in.f))
-	      errstr = gf_filter_puts(buf);
-
-	    /* then fgets failed! */
-	    if(!errstr && !(errno == EAGAIN || errno == EWOULDBLOCK)){
-		if(feof(fpipe->in.f))		/* nothing else interesting! */
-		  break;
-		else if(ferror(fpipe->in.f))	/* bummer. */
-		  errstr = error_description(errno);
-	    }
-	    else if(errno == EAGAIN || errno == EWOULDBLOCK)
-	      clearerr(fpipe->in.f);
-	}
-#else
-	if(prepend && (fputs(prepend, fpipe->out.f) == EOF
-		       || fputc('\n', fpipe->out.f) == EOF))
-	  errstr = error_description(errno);
-
-	/*
-	 * Well, do the best we can, and hope the pipe we're writing
-	 * doesn't fill up before we start reading...
-	 */
-	while(!errstr && so_readc(&c, source_so))
-	  if(fputc(c, fpipe->out.f) == EOF)
-	    errstr = error_description(errno);
-
-	fclose(fpipe->out.f);
-	fpipe->out.f = NULL;
-	while(!errstr && fgets(buf, MAILTMPLEN, fpipe->in.f))
-	  errstr = gf_filter_puts(buf);
-#endif /* NON_BLOCKING */
-#endif /* NO_PIPE */
-
-	gf_filter_eod();
-
-	if(close_system_pipe(&fpipe) && !errstr)
-	  errstr = "Pipe command returned error.";
-
-#ifdef	NO_PIPE
-	/*
-	 * retrieve filters result...
-	 */
-	{
-	    FILE *fp;
-
-	    if(fp = fopen(rfile, STDIO_READ)){
-		while(!errstr && fgets(buf, MAILTMPLEN, fp))
-		  errstr = gf_filter_puts(buf);
-
-		fclose(fp);
-	    }
-
-	    fs_give((void **)&rfile);
-	}
-#endif
-    }
-
-    return(errstr);
-}
-
-
-/*
- * gf_filter_puts - write the given string down the filter's pipe
- */
-char *
-gf_filter_puts(s)
-    register char *s;
-{
-    GF_INIT(gf_master, gf_master);
-
-    /*
-     * set up for any errors a filter may encounter
-     */
-    if(setjmp(gf_error_state)){
-	dprint(4, (debugfile, "ERROR: gf_filter_puts: %s\n",
-		   gf_error_string ? gf_error_string : "NULL"));
-	return(gf_error_string);
-    }
-
-    while(*s)
-      GF_PUTC(gf_master, (*s++) & 0xff);
-
-    GF_END(gf_master, gf_master);
-    return(NULL);
-}
-
-
-/*
- * gf_filter_eod - flush pending data filter's input queue and deliver
- *		   the GF_EOD marker.
- */
-void
-gf_filter_eod()
-{
-    GF_INIT(gf_master, gf_master);
-    GF_FLUSH(gf_master);
-    (*gf_master->f)(gf_master, GF_EOD);
-}
-
-
-
-
-/*
- * END OF PIPE SUPPORT ROUTINES, BEGINNING OF FILTERS
- *
- * Filters MUST use the specified interface (pointer to filter
- * structure, the unsigned character buffer in that struct, and a
- * cmd flag), and pass each resulting octet to the next filter in the
- * chain.  Only the terminal filter need not call another filter.
- * As a result, filters share a pretty general structure.
- * Typically three main conditionals separate initialization from
- * data from end-of-data command processing.
- *
- * Lastly, being character-at-a-time, they're a little more complex
- * to write than filters operating on buffers because some state
- * must typically be kept between characters.  However, for a
- * little bit of complexity here, much convenience is gained later
- * as they can be arbitrarily chained together at run time and
- * consume few resources (especially memory or disk) as they work.
- * (NOTE 951005: even less cpu now that data between filters is passed
- *  via a vector.)
- *
- * A few notes about implementing filters:
- *
- *  - A generic filter template looks like:
- *
- *    void
- *    gf_xxx_filter(f, flg)
- *        FILTER_S *f;
- *        int       flg;
- *    {
- *	  GF_INIT(f, f->next);		// def's var's to speed queue drain
- *
- *        if(flg == GF_DATA){
- *	      register unsigned char c;
- *
- *	      while(GF_GETC(f, c)){	// macro taking data off input queue
- *	          // operate on c and pass it on here
- *                GF_PUTC(f->next, c);	// macro writing output queue
- *	      }
- *
- *	      GF_END(f, f->next);	// macro to sync pointers/offsets
- *	      //WARNING: DO NOT RETURN BEFORE ALL INCOMING DATA'S PROCESSED
- *        }
- *        else if(flg == GF_EOD){
- *            // process any buffered data here and pass it on
- *	      GF_FLUSH(f->next);	// flush pending data to next filter
- *            (*f->next->f)(f->next, GF_EOD);
- *        }
- *        else if(flg == GF_RESET){
- *            // initialize any data in the struct here
- *        }
- *    }
- *
- *  - Any free storage allocated during initialization (typically tied
- *    to the "line" pointer in FILTER_S) is the filter's responsibility
- *    to clean up when the GF_EOD command comes through.
- *
- *  - Filter's must pass GF_EOD they receive on to the next
- *    filter in the chain so it has the opportunity to flush
- *    any buffered data.
- *
- *  - All filters expect NVT end-of-lines.  The idea is to prepend
- *    or append either the gf_local_nvtnl or gf_nvtnl_local
- *    os-dependant filters to the data on the appropriate end of the
- *    pipe for the task at hand.
- *
- *  - NOTE: As of 951004, filters no longer take their input as a single
- *    char argument, but rather get data to operate on via a vector
- *    representing the input queue in the FILTER_S structure.
- *
- */
-
-
-
-/*
- * BASE64 TO BINARY encoding and decoding routines below
- */
-
-
-/*
- * BINARY to BASE64 filter (encoding described in rfc1341)
- */
-void
-gf_binary_b64(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    static char *v =
-            "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register unsigned char t = f->t;
-	register long n = f->n;
-
-	while(GF_GETC(f, c)){
-
-	    switch(n++){
-	      case 0 : case 3 : case 6 : case 9 : case 12: case 15: case 18:
-	      case 21: case 24: case 27: case 30: case 33: case 36: case 39:
-	      case 42: case 45:
-		GF_PUTC(f->next, v[c >> 2]);
-					/* byte 1: high 6 bits (1) */
-		t = c << 4;		/* remember high 2 bits for next */
-		break;
-
-	      case 1 : case 4 : case 7 : case 10: case 13: case 16: case 19:
-	      case 22: case 25: case 28: case 31: case 34: case 37: case 40:
-	      case 43:
-		GF_PUTC(f->next, v[(t|(c>>4)) & 0x3f]);
-		t = c << 2;
-		break;
-
-	      case 2 : case 5 : case 8 : case 11: case 14: case 17: case 20:
-	      case 23: case 26: case 29: case 32: case 35: case 38: case 41:
-	      case 44:
-		GF_PUTC(f->next, v[(t|(c >> 6)) & 0x3f]);
-		GF_PUTC(f->next, v[c & 0x3f]);
-		break;
-	    }
-
-	    if(n == 45){			/* start a new line? */
-		GF_PUTC(f->next, '\015');
-		GF_PUTC(f->next, '\012');
-		n = 0L;
-	    }
-	}
-
-	f->n = n;
-	f->t = t;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){		/* no more data */
-	switch (f->n % 3) {		/* handle trailing bytes */
-	  case 0:			/* no trailing bytes */
-	    break;
-
-	  case 1:
-	    GF_PUTC(f->next, v[(f->t) & 0x3f]);
-	    GF_PUTC(f->next, '=');	/* byte 3 */
-	    GF_PUTC(f->next, '=');	/* byte 4 */
-	    break;
-
-	  case 2:
-	    GF_PUTC(f->next, v[(f->t) & 0x3f]);
-	    GF_PUTC(f->next, '=');	/* byte 4 */
-	    break;
-	}
-
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset binary_b64\n"));
-	f->n = 0L;
-    }
-}
-
-
-
-/*
- * BASE64 to BINARY filter (encoding described in rfc1341)
- */
-void
-gf_b64_binary(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    static char v[] = {65,65,65,65,65,65,65,65,65,65,65,65,65,65,65,65,
-		       65,65,65,65,65,65,65,65,65,65,65,65,65,65,65,65,
-		       65,65,65,65,65,65,65,65,65,65,65,62,65,65,65,63,
-		       52,53,54,55,56,57,58,59,60,61,62,65,65,64,65,65,
-		       65, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,
-		       15,16,17,18,19,20,21,22,23,24,25,65,65,65,65,65,
-		       65,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,
-		       41,42,43,44,45,46,47,48,49,50,51,65,65,65,65,65};
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register unsigned char t = f->t;
-	register int n = (int) f->n;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-
-	    if(state){
-		state = 0;
-		if (c != '=') {
-		    gf_error("Illegal '=' in base64 text");
-		    /* NO RETURN */
-		}
-	    }
-
-	    /* in range, and a valid value? */
-	    if((c & ~0x7f) || (c = v[c]) > 63){
-		if(c == 64){
-		    switch (n++) {	/* check quantum position */
-		      case 2:
-			state++;	/* expect an equal as next char */
-			break;
-
-		      case 3:
-			n = 0L;		/* restart quantum */
-			break;
-
-		      default:		/* impossible quantum position */
-			gf_error("Internal base64 decoder error");
-			/* NO RETURN */
-		    }
-		}
-	    }
-	    else{
-		switch (n++) {		/* install based on quantum position */
-		  case 0:		/* byte 1: high 6 bits */
-		    t = c << 2;
-		    break;
-
-		  case 1:		/* byte 1: low 2 bits */
-		    GF_PUTC(f->next, (t|(c >> 4)));
-		    t = c << 4;		/* byte 2: high 4 bits */
-		    break;
-
-		  case 2:		/* byte 2: low 4 bits */
-		    GF_PUTC(f->next, (t|(c >> 2)));
-		    t = c << 6;		/* byte 3: high 2 bits */
-		    break;
-
-		  case 3:
-		    GF_PUTC(f->next, t | c);
-		    n = 0L;		/* reinitialize mechanism */
-		    break;
-		}
-	    }
-	}
-
-	f->f1 = state;
-	f->t = t;
-	f->n = n;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset b64_binary\n"));
-	f->n  = 0L;			/* quantum position */
-	f->f1 = 0;			/* state holder: equal seen? */
-    }
-}
-
-
-
-
-/*
- * QUOTED-PRINTABLE ENCODING AND DECODING filters below.
- * encoding described in rfc1341
- */
-
-#define	GF_MAXLINE	80		/* good buffer size */
-
-/*
- * default action for QUOTED-PRINTABLE to 8BIT decoder
- */
-#define	GF_QP_DEFAULT(f, c)	{ \
-				    if((c) == ' '){ \
-					state = WSPACE; \
-						/* reset white space! */ \
-					(f)->linep = (f)->line; \
-					*((f)->linep)++ = ' '; \
-				    } \
-				    else if((c) == '='){ \
-					state = EQUAL; \
-				    } \
-				    else \
-				      GF_PUTC((f)->next, (c)); \
-				}
-
-
-/*
- * QUOTED-PRINTABLE to 8BIT filter
- */
-void
-gf_qp_8bit(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-
-	    switch(state){
-	      case DFL :		/* default case */
-	      default:
-		GF_QP_DEFAULT(f, c);
-		break;
-
-	      case CCR    :		/* non-significant space */
-		state = DFL;
-		if(c == '\012')
-		  continue;		/* go on to next char */
-
-		GF_QP_DEFAULT(f, c);
-		break;
-
-	      case EQUAL  :
-		if(c == '\015'){	/* "=\015" is a soft EOL */
-		    state = CCR;
-		    break;
-		}
-
-		if(c == '='){		/* compatibility clause for old guys */
-		    GF_PUTC(f->next, '=');
-		    state = DFL;
-		    break;
-		}
-
-		if(!isxdigit((unsigned char)c)){	/* must be hex! */
-		    fs_give((void **)&(f->line));
-		    gf_error("Non-hexadecimal character in QP encoding");
-		    /* NO RETURN */
-		}
-
-		if (isdigit ((unsigned char)c))
-		  f->t = c - '0';
-		else
-		  f->t = c - (isupper((unsigned char)c) ? 'A' - 10 : 'a' - 10);
-
-		state = HEX;
-		break;
-
-	      case HEX :
-		state = DFL;
-		if(!isxdigit((unsigned char)c)){	/* must be hex! */
-		    fs_give((void **)&(f->line));
-		    gf_error("Non-hexadecimal character in QP encoding");
-		    /* NO RETURN */
-		}
-
-		if (isdigit((unsigned char)c))
-		  c -= '0';
-		else
-		  c -= (isupper((unsigned char)c) ? 'A' - 10 : 'a' - 10);
-
-		GF_PUTC(f->next, c + (f->t << 4));
-		break;
-
-	      case WSPACE :
-		if(c == ' '){		/* toss it in with other spaces */
-		    if(f->linep - f->line < GF_MAXLINE)
-		      *(f->linep)++ = ' ';
-		    break;
-		}
-
-		state = DFL;
-		if(c == '\015'){	/* not our white space! */
-		    f->linep = f->line;	/* reset buffer */
-		    GF_PUTC(f->next, '\015');
-		    break;
-		}
-
-		/* the spaces are ours, write 'em */
-		f->n = f->linep - f->line;
-		while((f->n)--)
-		  GF_PUTC(f->next, ' ');
-
-		GF_QP_DEFAULT(f, c);	/* take care of 'c' in default way */
-		break;
-	    }
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	fs_give((void **)&(f->line));
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset qp_8bit\n"));
-	f->f1 = DFL;
-	f->linep = f->line = (char *)fs_get(GF_MAXLINE * sizeof(char));
-    }
-}
-
-
-
-/*
- * USEFUL MACROS TO HELP WITH QP ENCODING
- */
-
-#define	QP_MAXL	75			/* 76th place only for continuation */
-
-/*
- * Macro to test and wrap long quoted printable lines
- */
-#define	GF_8BIT_WRAP(f)		{ \
-				    GF_PUTC((f)->next, '='); \
-				    GF_PUTC((f)->next, '\015'); \
-				    GF_PUTC((f)->next, '\012'); \
-				}
-
-/*
- * write a quoted octet in QUOTED-PRINTABLE encoding, adding soft
- * line break if needed.
- */
-#define	GF_8BIT_PUT_QUOTE(f, c)	{ \
-				    if(((f)->n += 3) > QP_MAXL){ \
-					GF_8BIT_WRAP(f); \
-					(f)->n = 3;	/* set line count */ \
-				    } \
-				    GF_PUTC((f)->next, '='); \
-				     GF_PUTC((f)->next, HEX_CHAR1(c)); \
-				     GF_PUTC((f)->next, HEX_CHAR2(c)); \
-				 }
-
-/*
- * just write an ordinary octet in QUOTED-PRINTABLE, wrapping line
- * if needed.
- */
-#define	GF_8BIT_PUT(f, c)	{ \
-				      if((++(f->n)) > QP_MAXL){ \
-					  GF_8BIT_WRAP(f); \
-					  f->n = 1L; \
-				      } \
-				      if(f->n == 1L && c == '.'){ \
-					  GF_8BIT_PUT_QUOTE(f, c); \
-					  f->n = 3; \
-				      } \
-				      else \
-					GF_PUTC(f->next, c); \
-				 }
-
-
-/*
- * default action for 8bit to quoted printable encoder
- */
-#define	GF_8BIT_DEFAULT(f, c)	if((c) == ' '){ \
-				     state = WSPACE; \
-				 } \
-				 else if(c == '\015'){ \
-				     state = CCR; \
-				 } \
-				 else if(iscntrl(c & 0x7f) || (c == 0x7f) \
-					 || (c & 0x80) || (c == '=')){ \
-				     GF_8BIT_PUT_QUOTE(f, c); \
-				 } \
-				 else{ \
-				   GF_8BIT_PUT(f, c); \
-				 }
-
-
-/*
- * 8BIT to QUOTED-PRINTABLE filter
- */
-void
-gf_8bit_qp(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    short dummy_dots = 0, dummy_dmap = 1;
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	 register unsigned char c;
-	 register int state = f->f1;
-
-	 while(GF_GETC(f, c)){
-
-	     /* keep track of "^JFrom " */
-	     Find_Froms(f->t, dummy_dots, f->f2, dummy_dmap, c);
-
-	     switch(state){
-	       case DFL :		/* handle ordinary case */
-		 GF_8BIT_DEFAULT(f, c);
-		 break;
-
-	       case CCR :		/* true line break? */
-		 state = DFL;
-		 if(c == '\012'){
-		     GF_PUTC(f->next, '\015');
-		     GF_PUTC(f->next, '\012');
-		     f->n = 0L;
-		 }
-		 else{			/* nope, quote the CR */
-		     GF_8BIT_PUT_QUOTE(f, '\015');
-		     GF_8BIT_DEFAULT(f, c); /* and don't forget about c! */
-		 }
-		 break;
-
-	       case WSPACE:
-		 state = DFL;
-		 if(c == '\015' || f->t){ /* handle the space */
-		     GF_8BIT_PUT_QUOTE(f, ' ');
-		     f->t = 0;		/* reset From flag */
-		 }
-		 else
-		   GF_8BIT_PUT(f, ' ');
-
-		 GF_8BIT_DEFAULT(f, c);	/* handle 'c' in the default way */
-		 break;
-	     }
-	 }
-
-	 f->f1 = state;
-	 GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	 switch(f->f1){
-	   case CCR :
-	     GF_8BIT_PUT_QUOTE(f, '\015'); /* write the last cr */
-	     break;
-
-	   case WSPACE :
-	     GF_8BIT_PUT_QUOTE(f, ' ');	/* write the last space */
-	     break;
-	 }
-
-	 GF_FLUSH(f->next);
-	 (*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	 dprint(9, (debugfile, "-- gf_reset 8bit_qp\n"));
-	 f->f1 = DFL;			/* state from last character        */
-	 f->f2 = 1;			/* state of "^NFrom " bitmap        */
-	 f->t  = 0;
-	 f->n  = 0L;			/* number of chars in current line  */
-    }
-}
-
-
-
-/*
- * RICHTEXT-TO-PLAINTEXT filter
- */
-
-/*
- * option to be used by rich2plain (NOTE: if this filter is ever
- * used more than once in a pipe, all instances will have the same
- * option value)
- */
-
-
-/*----------------------------------------------------------------------
-      richtext to plaintext filter
-
- Args: f --
-	flg  --
-
-  This basically removes all richtext formatting. A cute hack is used
-  to get bold and underlining to work.
-  Further work could be done to handle things like centering and right
-  and left flush, but then it could no longer be done in place. This
-  operates on text *with* CRLF's.
-
-  WARNING: does not wrap lines!
- ----*/
-void
-gf_rich2plain(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-/* BUG: qoute incoming \255 values */
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	 register unsigned char c;
-	 register int state = f->f1;
-
-	 while(GF_GETC(f, c)){
-
-	     switch(state){
-	       case TOKEN :		/* collect a richtext token */
-		 if(c == '>'){		/* what should we do with it? */
-		     state       = DFL;	/* return to default next time */
-		     *(f->linep) = '\0';	/* cap off token */
-		     if(f->line[0] == 'l' && f->line[1] == 't'){
-			 GF_PUTC(f->next, '<'); /* literal '<' */
-		     }
-		     else if(f->line[0] == 'n' && f->line[1] == 'l'){
-			 GF_PUTC(f->next, '\015');/* newline! */
-			 GF_PUTC(f->next, '\012');
-		     }
-		     else if(!strcmp("comment", f->line)){
-			 (f->f2)++;
-		     }
-		     else if(!strcmp("/comment", f->line)){
-			 f->f2 = 0;
-		     }
-		     else if(!strcmp("/paragraph", f->line)) {
-			 GF_PUTC(f->next, '\r');
-			 GF_PUTC(f->next, '\n');
-			 GF_PUTC(f->next, '\r');
-			 GF_PUTC(f->next, '\n');
-		     }
-		     else if(!f->opt /* gf_rich_plain */){
-			 if(!strcmp(f->line, "bold")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_BOLDON);
-			 } else if(!strcmp(f->line, "/bold")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_BOLDOFF);
-			 } else if(!strcmp(f->line, "italic")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_ULINEON);
-			 } else if(!strcmp(f->line, "/italic")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_ULINEOFF);
-			 } else if(!strcmp(f->line, "underline")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_ULINEON);
-			 } else if(!strcmp(f->line, "/underline")) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, TAG_ULINEOFF);
-			 }
-		     }
-		     /* else we just ignore the token! */
-
-		     f->linep = f->line;	/* reset token buffer */
-		 }
-		 else{			/* add char to token */
-		     if(f->linep - f->line > 40){
-			 /* What? rfc1341 says 40 char tokens MAX! */
-			 fs_give((void **)&(f->line));
-			 gf_error("Richtext token over 40 characters");
-			 /* NO RETURN */
-		     }
-
-		     *(f->linep)++ = isupper((unsigned char)c) ? c-'A'+'a' : c;
-		 }
-		 break;
-
-	       case CCR   :
-		 state = DFL;		/* back to default next time */
-		 if(c == '\012'){	/* treat as single space?    */
-		     GF_PUTC(f->next, ' ');
-		     break;
-		 }
-		 /* fall thru to process c */
-
-	       case DFL   :
-	       default:
-		 if(c == '<')
-		   state = TOKEN;
-		 else if(c == '\015')
-		   state = CCR;
-		 else if(!f->f2)		/* not in comment! */
-		   GF_PUTC(f->next, c);
-
-		 break;
-	     }
-	 }
-
-	 f->f1 = state;
-	 GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	 if(f->f1 = (f->linep != f->line)){
-	     /* incomplete token!! */
-	     gf_error("Incomplete token in richtext");
-	     /* NO RETURN */
-	 }
-
-	 fs_give((void **)&(f->line));
-	 GF_FLUSH(f->next);
-	 (*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	 dprint(9, (debugfile, "-- gf_reset rich2plain\n"));
-	 f->f1 = DFL;			/* state */
-	 f->f2 = 0;			/* set means we're in a comment */
-	 f->linep = f->line = (char *)fs_get(45 * sizeof(char));
-    }
-}
-
-
-/*
- * function called from the outside to set
- * richtext filter's options
- */
-void *
-gf_rich2plain_opt(plain)
-    int plain;
-{
-    return((void *) plain);
-}
-
-
-
-/*
- * ENRICHED-TO-PLAIN text filter
- */
-
-#define	TEF_QUELL	0x01
-#define	TEF_NOFILL	0x02
-
-
-
-/*----------------------------------------------------------------------
-      enriched text to plain text filter (ala rfc1523)
-
- Args: f -- state and input data
-	flg --
-
-  This basically removes all enriched formatting. A cute hack is used
-  to get bold and underlining to work.
-
-  Further work could be done to handle things like centering and right
-  and left flush, but then it could no longer be done in place. This
-  operates on text *with* CRLF's.
-
-  WARNING: does not wrap lines!
- ----*/
-void
-gf_enriched2plain(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-/* BUG: qoute incoming \255 values */
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	 register unsigned char c;
-	 register int state = f->f1;
-
-	 while(GF_GETC(f, c)){
-
-	     switch(state){
-	       case TOKEN :		/* collect a richtext token */
-		 if(c == '>'){		/* what should we do with it? */
-		     int   off   = *f->line == '/';
-		     char *token = f->line + (off ? 1 : 0);
-		     state	= DFL;
-		     *f->linep   = '\0';
-		     if(!strcmp("param", token)){
-			 if(off)
-			   f->f2 &= ~TEF_QUELL;
-			 else
-			   f->f2 |= TEF_QUELL;
-		     }
-		     else if(!strcmp("nofill", token)){
-			 if(off)
-			   f->f2 &= ~TEF_NOFILL;
-			 else
-			   f->f2 |= TEF_NOFILL;
-		     }
-		     else if(!f->opt /* gf_enriched_plain */){
-			 /* Following is a cute hack or two to get
-			    bold and underline on the screen.
-			    See Putline0n() where these codes are
-			    interpreted */
-			 if(!strcmp("bold", token)) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, off ? TAG_BOLDOFF : TAG_BOLDON);
-			 } else if(!strcmp("italic", token)) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, off ? TAG_ULINEOFF : TAG_ULINEON);
-			 } else if(!strcmp("underline", token)) {
-			     GF_PUTC(f->next, TAG_EMBED);
-			     GF_PUTC(f->next, off ? TAG_ULINEOFF : TAG_ULINEON);
-			 }
-		     }
-		     /* else we just ignore the token! */
-
-		     f->linep = f->line;	/* reset token buffer */
-		 }
-		 else if(c == '<'){		/* literal '<'? */
-		     if(f->linep == f->line){
-			 GF_PUTC(f->next, '<');
-			 state = DFL;
-		     }
-		     else{
-			 fs_give((void **)&(f->line));
-			 gf_error("Malformed Enriched text: unexpected '<'");
-			 /* NO RETURN */
-		     }
-		 }
-		 else{			/* add char to token */
-		     if(f->linep - f->line > 60){ /* rfc1523 says 60 MAX! */
-			 fs_give((void **)&(f->line));
-			 gf_error("Malformed Enriched text: token too long");
-			 /* NO RETURN */
-		     }
-
-		     *(f->linep)++ = isupper((unsigned char)c) ? c-'A'+'a' : c;
-		 }
-		 break;
-
-	       case CCR   :
-		 if(c != '\012'){	/* treat as single space?    */
-		     state = DFL;	/* lone cr? */
-		     f->f2 &= ~TEF_QUELL;
-		     GF_PUTC(f->next, '\015');
-		     goto df;
-		 }
-
-		 state = CLF;
-		 break;
-
-	       case CLF   :
-		 if(c == '\015'){	/* treat as single space?    */
-		     state = CCR;	/* repeat crlf's mean real newlines */
-		     f->f2 |= TEF_QUELL;
-		     GF_PUTC(f->next, '\r');
-		     GF_PUTC(f->next, '\n');
-		     break;
-		 }
-		 else{
-		     state = DFL;
-		     if(!((f->f2) & TEF_QUELL))
-		       GF_PUTC(f->next, ' ');
-
-		     f->f2 &= ~TEF_QUELL;
-		 }
-
-		 /* fall thru to take care of 'c' */
-
-	       case DFL   :
-	       default :
-	       df :
-		 if(c == '<')
-		   state = TOKEN;
-		 else if(c == '\015' && (!((f->f2) & TEF_NOFILL)))
-		   state = CCR;
-		 else if(!((f->f2) & TEF_QUELL))
-		   GF_PUTC(f->next, c);
-
-		 break;
-	     }
-	 }
-
-	 f->f1 = state;
-	 GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	 if(f->f1 = (f->linep != f->line)){
-	     /* incomplete token!! */
-	     gf_error("Incomplete token in richtext");
-	     /* NO RETURN */
-	 }
-
-	 /* Make sure we end with a newline so everything gets flushed */
-	 GF_PUTC(f->next, '\015');
-	 GF_PUTC(f->next, '\012');
-
-	 fs_give((void **)&(f->line));
-
-	 GF_FLUSH(f->next);
-	 (*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	 dprint(9, (debugfile, "-- gf_reset enriched2plain\n"));
-	 f->f1 = DFL;			/* state */
-	 f->f2 = 0;			/* set means we're in a comment */
-	 f->linep = f->line = (char *)fs_get(65 * sizeof(char));
-    }
-}
-
-
-/*
- * function called from the outside to set
- * richtext filter's options
- */
-void *
-gf_enriched2plain_opt(plain)
-    int plain;
-{
-    return((void *) plain);
-}
-
-
-
-/*
- * HTML-TO-PLAIN text filter
- */
-
-
-/* OK, here's the plan:
-
- * a universal output function handles writing  chars and worries
- *    about wrapping.
-
- * a unversal element collector reads chars and collects params
- * and dispatches the appropriate element handler.
-
- * element handlers are stacked.  The most recently dispatched gets
- * first crack at the incoming character stream.  It passes bytes it's
- * done with or not interested in to the next
-
- * installs that handler as the current one collecting data...
-
- * stacked handlers take their params from the element collector and
- * accept chars or do whatever they need to do.  Sort of a vertical
- * piping? recursion-like? hmmm.
-
- * at least I think this is how it'll work. tres simple, non?
-
- */
-
-
-/*
- * Some important constants
- */
-#define	HTML_BUF_LEN	1024		/* max scratch buffer length */
-#define	MAX_ENTITY	20		/* maximum length of an entity */
-#define	MAX_ELEMENT	72		/* maximum length of an element */
-#define	HTML_BADVALUE	0x0100		/* good data, but bad entity value */
-#define	HTML_BADDATA	0x0200		/* bad data found looking for entity */
-#define	HTML_LITERAL	0x0400		/* Literal character value */
-#define	HTML_NEWLINE	0x010A		/* hard newline */
-#define	HTML_DOBOLD	0x0400		/* Start Bold display */
-#define	HTML_ID_GET	0		/* indent func: return current val */
-#define	HTML_ID_SET	1		/* indent func: set to absolute val */
-#define	HTML_ID_INC	2		/* indent func: increment by val */
-#define	HTML_HX_CENTER	0x0001
-#define	HTML_HX_ULINE	0x0002
-
-
-/*
- * Types used to manage HTML parsing
- */
-typedef int (*html_f) PROTO(());
-
-/*
- * Handler data, state information including function that uses it
- */
-typedef struct handler_s {
-    FILTER_S	     *html_data;
-    struct handler_s *below;
-    html_f	      f;
-    long	      x, y, z;
-    unsigned char    *s;
-} HANDLER_S;
-
-
-/*
- * to help manage line wrapping.
- */
-typedef	struct _wrap_line {
-    char *buf;				/* buf to collect wrapped text */
-    int	  used,				/* number of chars in buf */
-	   width,			/* text's width as displayed  */
-	   len;				/* length of allocated buf */
-} WRAPLINE_S;
-
-
-/*
- * to help manage centered text
- */
-typedef	struct _center_s {
-    WRAPLINE_S line;			/* buf to assembled centered text */
-    WRAPLINE_S word;			/* word being to append to Line */
-    int	       anchor;
-    short      embedded;
-    short      space;
-} CENTER_S;
-
-
-/*
- * Collector data and state information
- */
-typedef	struct collector_s {
-    char        buf[HTML_BUF_LEN];	/* buffer to collect data */
-    int		len;			/* length of that buffer  */
-    unsigned    end_tag:1;		/* collecting a closing tag */
-    unsigned    hit_equal:1;		/* collecting right half of attrib */
-    unsigned	mkup_decl:1;		/* markup declaration */
-    unsigned	start_comment:1;	/* markup declaration comment */
-    unsigned	end_comment:1;		/* legit comment format */
-    unsigned	hyphen:1;		/* markup hyphen read */
-    unsigned	badform:1;		/* malformed markup element */
-    unsigned	overrun:1;		/* Overran buf above */
-    char	quoted;			/* quoted element param value */
-    char       *element;		/* element's collected name */
-    PARAMETER  *attribs;		/* element's collected attributes */
-    PARAMETER  *cur_attrib;		/* attribute now being collected */
-} CLCTR_S;
-
-
-/*
- * State information for all element handlers
- */
-typedef struct html_data {
-    HANDLER_S  *h_stack;		/* handler list */
-    CLCTR_S    *el_data;		/* element collector data */
-    CENTER_S   *centered;		/* struct to manage centered text */
-    int	      (*token) PROTO((FILTER_S *, int));
-    char	quoted;			/* quoted, by either ' or ", text */
-    short	indent_level;		/* levels of indention */
-    int		in_anchor;		/* text now being written to anchor */
-    int		blanks;			/* Consecutive blank line count */
-    int		wrapcol;		/* column to wrap lines on */
-    int	       *prefix;			/* buffer containing Anchor prefix */
-    int		prefix_used;
-    COLOR_PAIR *color;
-    unsigned	wrapstate:1;		/* whether or not to wrap output */
-    unsigned	li_pending:1;		/* <LI> next token expected */
-    unsigned	de_pending:1;		/* <DT> or <DD> next token expected */
-    unsigned	bold_on:1;		/* currently bolding text */
-    unsigned	uline_on:1;		/* currently underlining text */
-    unsigned	center:1;		/* center output text */
-    unsigned	bitbucket:1;		/* Ignore input */
-    unsigned	head:1;			/* In doc's HEAD */
-    unsigned	alt_entity:1;		/* use alternative entity values */
-} HTML_DATA_S;
-
-
-/*
- * HTML filter options
- */
-typedef	struct _html_opts {
-    char      *base;			/* Base URL for this html file */
-    int	       columns;			/* Display columns */
-    unsigned   strip:1;			/* Hilite TAGs allowed */
-    unsigned   handles:1;		/* Anchors as handles requested? */
-    unsigned   handles_loc:1;		/* Local handles requested? */
-} HTML_OPT_S;
-
-
-/*
- * Some macros to make life a little easier
- */
-#define	WRAP_COLS(X)	((X)->opt ? ((HTML_OPT_S *)(X)->opt)->columns : 80)
-#define	HTML_BASE(X)	((X)->opt ? ((HTML_OPT_S *)(X)->opt)->base : NULL)
-#define	STRIP(X)	((X)->opt && ((HTML_OPT_S *)(X)->opt)->strip)
-#define	HANDLES(X)	((X)->opt && ((HTML_OPT_S *)(X)->opt)->handles)
-#define	HANDLES_LOC(X)	((X)->opt && ((HTML_OPT_S *)(X)->opt)->handles_loc)
-#define	MAKE_LITERAL(C)	(HTML_LITERAL | ((C) & 0xff))
-#define	IS_LITERAL(C)	(HTML_LITERAL & (C))
-#define	HD(X)		((HTML_DATA_S *)(X)->data)
-#define	ED(X)		(HD(X)->el_data)
-#define	HTML_ISSPACE(C)	(IS_LITERAL(C) == 0 && isspace((unsigned char) (C)))
-#define	NEW_CLCTR(X)	{						\
-			   ED(X) = (CLCTR_S *)fs_get(sizeof(CLCTR_S));  \
-			   memset(ED(X), 0, sizeof(CLCTR_S));	\
-			   HD(X)->token = html_element_collector;	\
-			 }
-
-#define	FREE_CLCTR(X)	{						\
-			   if(ED(X)->attribs){				\
-			       PARAMETER *p;				\
-			       while(p = ED(X)->attribs){		\
-				   ED(X)->attribs = ED(X)->attribs->next; \
-				   if(p->attribute)			\
-				     fs_give((void **)&p->attribute);	\
-				   if(p->value)				\
-				     fs_give((void **)&p->value);	\
-				   fs_give((void **)&p);		\
-			       }					\
-			   }						\
-			   if(ED(X)->element)				\
-			     fs_give((void **) &ED(X)->element);	\
-			   fs_give((void **) &ED(X));			\
-			   HD(X)->token = NULL;				\
-			 }
-#define	HANDLERS(X)	(HD(X)->h_stack)
-#define	BOLD_BIT(X)	(HD(X)->bold_on)
-#define	ULINE_BIT(X)	(HD(X)->uline_on)
-#define	CENTER_BIT(X)	(HD(X)->center)
-#define	HTML_FLUSH(X)	{						    \
-			   html_write(X, (X)->line, (X)->linep - (X)->line); \
-			   (X)->linep = (X)->line;			    \
-			   (X)->f2 = 0L;				    \
-			 }
-#define	HTML_BOLD(X, S) if(! STRIP(X)){					\
-			   if(S){					\
-			       html_output((X), TAG_EMBED);		\
-			       html_output((X), TAG_BOLDON);		\
-			   }						\
-			   else if(!(S)){				\
-			       html_output((X), TAG_EMBED);		\
-			       html_output((X), TAG_BOLDOFF);		\
-			   }						\
-			 }
-#define	HTML_ULINE(X, S)						\
-			 if(! STRIP(X)){				\
-			   if(S){					\
-			       html_output((X), TAG_EMBED);		\
-			       html_output((X), TAG_ULINEON);		\
-			   }						\
-			   else if(!(S)){				\
-			       html_output((X), TAG_EMBED);		\
-			       html_output((X), TAG_ULINEOFF);		\
-			   }						\
-			 }
-#define WRAPPED_LEN(X)	((HD(f)->centered) \
-			    ? (HD(f)->centered->line.width \
-				+ HD(f)->centered->word.width \
-				+ ((HD(f)->centered->line.width \
-				    && HD(f)->centered->word.width) \
-				    ? 1 : 0)) \
-			    : 0)
-#define	HTML_DUMP_LIT(F, S, L)	{					    \
-				   int i, c;				    \
-				   for(i = 0; i < (L); i++){		    \
-				       c = isspace((S)[i])		    \
-					     ? (S)[i]			    \
-					     : MAKE_LITERAL((S)[i]);	    \
-				       HTML_TEXT(F, c);			    \
-				   }					    \
-				 }
-#define	HTML_PROC(F, C) {						    \
-			   if(HD(F)->token){				    \
-			       int i;					    \
-			       if(i = (*(HD(F)->token))(F, C)){		    \
-				   if(i < 0){				    \
-				       HTML_DUMP_LIT(F, "<", 1);	    \
-				       if(HD(F)->el_data->element){	    \
-					   HTML_DUMP_LIT(F,		    \
-					    HD(F)->el_data->element,	    \
-					    strlen(HD(F)->el_data->element));\
-				       }				    \
-				       if(HD(F)->el_data->len){		    \
-					   HTML_DUMP_LIT(F,		    \
-						    HD(F)->el_data->buf,    \
-						    HD(F)->el_data->len);   \
-				       }				    \
-				       HTML_TEXT(F, C);			    \
-				   }					    \
-				   FREE_CLCTR(F);			    \
-			       }					    \
-			    }						    \
-			    else if((C) == '<'){			    \
-				NEW_CLCTR(F);				    \
-			    }						    \
-			    else					    \
-			      HTML_TEXT(F, C);				    \
-			  }
-#define	HTML_TEXT(F, C)	switch((F)->f1){				    \
-			     case WSPACE :				    \
-			       if(HTML_ISSPACE(C)) /* ignore repeated WS */  \
-				 break;					    \
-			       HTML_TEXT_OUT(F, ' ');	    \
-			       (F)->f1 = DFL;/* stop sending chars here */   \
-			       /* fall thru to process 'c' */		    \
-			     case DFL:					    \
-			       if(HD(F)->bitbucket)			    \
-				 (F)->f1 = DFL;	/* no op */		    \
-			       else if(HTML_ISSPACE(C) && HD(F)->wrapstate)  \
-				 (F)->f1 = WSPACE;/* coalesce white space */ \
-			       else HTML_TEXT_OUT(F, C);		    \
-			       break;					    \
-			 }
-#define	HTML_TEXT_OUT(F, C) if(HANDLERS(F)) /* let handlers see C */	    \
-			       (*HANDLERS(F)->f)(HANDLERS(F),(C),GF_DATA);   \
-			     else					    \
-			       html_output(F, C);
-#ifdef	DEBUG
-#define	HTML_DEBUG_EL(S, D)   {						    \
-				 dprint(2, (debugfile, "-- html %s: %s\n",  \
-					    S, (D)->element		    \
-						 ? (D)->element : "NULL")); \
-				 if(debug > 5){				    \
-				     PARAMETER *p;			    \
-				     for(p = (D)->attribs;		    \
-					 p && p->attribute;		    \
-					 p = p->next)			    \
-				       dprint(6, (debugfile,		    \
-						  " PARM: %s%s%s\n",	    \
-						  p->attribute		    \
-						    ? p->attribute : "NULL",\
-						  p->value ? "=" : "",	    \
-						  p->value ? p->value : ""));\
-				 }					    \
-			       }
-#else
-#define	HTML_DEBUG_EL(S, D)
-#endif
-
-
-/*
- * Protos for Tag handlers
- */
-int	html_head PROTO((HANDLER_S *, int, int));
-int	html_base PROTO((HANDLER_S *, int, int));
-int	html_title PROTO((HANDLER_S *, int, int));
-int	html_a PROTO((HANDLER_S *, int, int));
-int	html_br PROTO((HANDLER_S *, int, int));
-int	html_hr PROTO((HANDLER_S *, int, int));
-int	html_p PROTO((HANDLER_S *, int, int));
-int	html_tr PROTO((HANDLER_S *, int, int));
-int	html_td PROTO((HANDLER_S *, int, int));
-int	html_b PROTO((HANDLER_S *, int, int));
-int	html_i PROTO((HANDLER_S *, int, int));
-int	html_img PROTO((HANDLER_S *, int, int));
-int	html_form PROTO((HANDLER_S *, int, int));
-int	html_ul PROTO((HANDLER_S *, int, int));
-int	html_ol PROTO((HANDLER_S *, int, int));
-int	html_menu PROTO((HANDLER_S *, int, int));
-int	html_dir PROTO((HANDLER_S *, int, int));
-int	html_li PROTO((HANDLER_S *, int, int));
-int	html_h1 PROTO((HANDLER_S *, int, int));
-int	html_h2 PROTO((HANDLER_S *, int, int));
-int	html_h3 PROTO((HANDLER_S *, int, int));
-int	html_h4 PROTO((HANDLER_S *, int, int));
-int	html_h5 PROTO((HANDLER_S *, int, int));
-int	html_h6 PROTO((HANDLER_S *, int, int));
-int	html_blockquote PROTO((HANDLER_S *, int, int));
-int	html_address PROTO((HANDLER_S *, int, int));
-int	html_pre PROTO((HANDLER_S *, int, int));
-int	html_center PROTO((HANDLER_S *, int, int));
-int	html_div PROTO((HANDLER_S *, int, int));
-int	html_dl PROTO((HANDLER_S *, int, int));
-int	html_dt PROTO((HANDLER_S *, int, int));
-int	html_dd PROTO((HANDLER_S *, int, int));
-
-/*
- * Proto's for support routines
- */
-void	html_pop PROTO((FILTER_S *, html_f));
-void	html_push PROTO((FILTER_S *, html_f));
-int	html_element_collector PROTO((FILTER_S *, int));
-int	html_element_flush PROTO((CLCTR_S *));
-void	html_element_comment PROTO((FILTER_S *, char *));
-void	html_element_output PROTO((FILTER_S *, int));
-int	html_entity_collector PROTO((FILTER_S *, int, char **));
-void	html_a_prefix PROTO((FILTER_S *));
-void	html_a_finish PROTO((HANDLER_S *));
-void	html_a_output_prefix PROTO((FILTER_S *, int));
-void	html_a_relative PROTO((char *, char *, HANDLE_S *));
-int	html_indent PROTO((FILTER_S *, int, int));
-void	html_blank PROTO((FILTER_S *, int));
-void	html_newline PROTO((FILTER_S *));
-void	html_output PROTO((FILTER_S *, int));
-void	html_output_flush PROTO((FILTER_S *));
-void	html_output_centered PROTO((FILTER_S *, int));
-void	html_centered_handle PROTO((int *, char *, int));
-void	html_centered_putc PROTO((WRAPLINE_S *, int));
-void	html_centered_flush PROTO((FILTER_S *));
-void	html_centered_flush_line PROTO((FILTER_S *));
-void	html_write_anchor PROTO((FILTER_S *, int));
-void	html_write_newline PROTO((FILTER_S *));
-void	html_write_indent PROTO((FILTER_S *, int));
-void	html_write PROTO((FILTER_S *, char *, int));
-void	html_putc PROTO((FILTER_S *, int));
-
-
-/*
- * Named entity table -- most from HTML 2.0 (rfc1866) plus some from
- *			 W3C doc "Additional named entities for HTML"
- */
-static struct html_entities {
-    char *name;			/* entity name */
-    unsigned char value;	/* entity value */
-    char  *plain;		/* plain text representation */
-} entity_tab[] = {
-    {"quot",	042},		/* Double quote sign */
-    {"amp",	046},		/* Ampersand */
-    {"bull",	052},		/* Bullet */
-    {"ndash",	055},		/* Dash */
-    {"mdash",	055},		/* Dash */
-    {"lt",	074},		/* Less than sign */
-    {"gt",	076},		/* Greater than sign */
-    {"nbsp",	0240, " "},	/* no-break space */
-    {"iexcl",	0241},		/* inverted exclamation mark */
-    {"cent",	0242},		/* cent sign */
-    {"pound",	0243},		/* pound sterling sign */
-    {"curren",	0244, "CUR"},	/* general currency sign */
-    {"yen",	0245},		/* yen sign */
-    {"brvbar",	0246, "|"},	/* broken (vertical) bar */
-    {"sect",	0247},		/* section sign */
-    {"uml",	0250, "\""},		/* umlaut (dieresis) */
-    {"copy",	0251, "(C)"},	/* copyright sign */
-    {"ordf",	0252, "a"},	/* ordinal indicator, feminine */
-    {"laquo",	0253, "<<"},	/* angle quotation mark, left */
-    {"not",	0254, "NOT"},	/* not sign */
-    {"shy",	0255, "-"},	/* soft hyphen */
-    {"reg",	0256, "(R)"},	/* registered sign */
-    {"macr",	0257},		/* macron */
-    {"deg",	0260, "DEG"},	/* degree sign */
-    {"plusmn",	0261, "+/-"},	/* plus-or-minus sign */
-    {"sup2",	0262},		/* superscript two */
-    {"sup3",	0263},		/* superscript three */
-    {"acute",	0264, "'"},	/* acute accent */
-    {"micro",	0265},		/* micro sign */
-    {"para",	0266},		/* pilcrow (paragraph sign) */
-    {"middot",	0267},		/* middle dot */
-    {"cedil",	0270},		/* cedilla */
-    {"sup1",	0271},		/* superscript one */
-    {"ordm",	0272, "o"},	/* ordinal indicator, masculine */
-    {"raquo",	0273, ">>"},	/* angle quotation mark, right */
-    {"frac14",	0274, " 1/4"},	/* fraction one-quarter */
-    {"frac12",	0275, " 1/2"},	/* fraction one-half */
-    {"frac34",	0276, " 3/4"},	/* fraction three-quarters */
-    {"iquest",	0277},		/* inverted question mark */
-    {"Agrave",	0300, "A"},	/* capital A, grave accent */
-    {"Aacute",	0301, "A"},	/* capital A, acute accent */
-    {"Acirc",	0302, "A"},	/* capital A, circumflex accent */
-    {"Atilde",	0303, "A"},	/* capital A, tilde */
-    {"Auml",	0304, "AE"},	/* capital A, dieresis or umlaut mark */
-    {"Aring",	0305, "A"},	/* capital A, ring */
-    {"AElig",	0306, "AE"},	/* capital AE diphthong (ligature) */
-    {"Ccedil",	0307, "C"},	/* capital C, cedilla */
-    {"Egrave",	0310, "E"},	/* capital E, grave accent */
-    {"Eacute",	0311, "E"},	/* capital E, acute accent */
-    {"Ecirc",	0312, "E"},	/* capital E, circumflex accent */
-    {"Euml",	0313, "E"},	/* capital E, dieresis or umlaut mark */
-    {"Igrave",	0314, "I"},	/* capital I, grave accent */
-    {"Iacute",	0315, "I"},	/* capital I, acute accent */
-    {"Icirc",	0316, "I"},	/* capital I, circumflex accent */
-    {"Iuml",	0317, "I"},	/* capital I, dieresis or umlaut mark */
-    {"ETH",	0320, "DH"},	/* capital Eth, Icelandic */
-    {"Ntilde",	0321, "N"},	/* capital N, tilde */
-    {"Ograve",	0322, "O"},	/* capital O, grave accent */
-    {"Oacute",	0323, "O"},	/* capital O, acute accent */
-    {"Ocirc",	0324, "O"},	/* capital O, circumflex accent */
-    {"Otilde",	0325, "O"},	/* capital O, tilde */
-    {"Ouml",	0326, "OE"},	/* capital O, dieresis or umlaut mark */
-    {"times",	0327, "x"},	/* multiply sign */
-    {"Oslash",	0330, "O"},	/* capital O, slash */
-    {"Ugrave",	0331, "U"},	/* capital U, grave accent */
-    {"Uacute",	0332, "U"},	/* capital U, acute accent */
-    {"Ucirc",	0333, "U"},	/* capital U, circumflex accent */
-    {"Uuml",	0334, "UE"},	/* capital U, dieresis or umlaut mark */
-    {"Yacute",	0335, "Y"},	/* capital Y, acute accent */
-    {"THORN",	0336, "P"},	/* capital THORN, Icelandic */
-    {"szlig",	0337, "ss"},	/* small sharp s, German (sz ligature) */
-    {"agrave",	0340, "a"},	/* small a, grave accent */
-    {"aacute",	0341, "a"},	/* small a, acute accent */
-    {"acirc",	0342, "a"},	/* small a, circumflex accent */
-    {"atilde",	0343, "a"},	/* small a, tilde */
-    {"auml",	0344, "ae"},	/* small a, dieresis or umlaut mark */
-    {"aring",	0345, "a"},	/* small a, ring */
-    {"aelig",	0346, "ae"},	/* small ae diphthong (ligature) */
-    {"ccedil",	0347, "c"},	/* small c, cedilla */
-    {"egrave",	0350, "e"},	/* small e, grave accent */
-    {"eacute",	0351, "e"},	/* small e, acute accent */
-    {"ecirc",	0352, "e"},	/* small e, circumflex accent */
-    {"euml",	0353, "e"},	/* small e, dieresis or umlaut mark */
-    {"igrave",	0354, "i"},	/* small i, grave accent */
-    {"iacute",	0355, "i"},	/* small i, acute accent */
-    {"icirc",	0356, "i"},	/* small i, circumflex accent */
-    {"iuml",	0357, "i"},	/* small i, dieresis or umlaut mark */
-    {"eth",	0360, "dh"},	/* small eth, Icelandic */
-    {"ntilde",	0361, "n"},	/* small n, tilde */
-    {"ograve",	0362, "o"},	/* small o, grave accent */
-    {"oacute",	0363, "o"},	/* small o, acute accent */
-    {"ocirc",	0364, "o"},	/* small o, circumflex accent */
-    {"otilde",	0365, "o"},	/* small o, tilde */
-    {"ouml",	0366, "oe"},	/* small o, dieresis or umlaut mark */
-    {"divide",	0367, "/"},	/* divide sign */
-    {"oslash",	0370, "o"},	/* small o, slash */
-    {"ugrave",	0371, "u"},	/* small u, grave accent */
-    {"uacute",	0372, "u"},	/* small u, acute accent */
-    {"ucirc",	0373, "u"},	/* small u, circumflex accent */
-    {"uuml",	0374, "ue"},	/* small u, dieresis or umlaut mark */
-    {"yacute",	0375, "y"},	/* small y, acute accent */
-    {"thorn",	0376, "p"},	/* small thorn, Icelandic */
-    {"yuml",	0377, "y"},	/* small y, dieresis or umlaut mark */
-    {NULL,	0}
-};
-
-
-/*
- * Table of supported elements and corresponding handlers
- */
-static struct element_table {
-    char      *element;
-    int	     (*handler) PROTO(());
-} element_table[] = {
-    {"HTML",		NULL},			/* HTML ignore if seen? */
-    {"HEAD",		html_head},		/* slurp until <BODY> ? */
-    {"TITLE",		html_title},		/* Document Title */
-    {"BASE",		html_base},		/* HREF base */
-    {"BODY",		NULL},			/* (NO OP) */
-    {"A",		html_a},		/* Anchor */
-    {"IMG",		html_img},		/* Image */
-    {"HR",		html_hr},		/* Horizontal Rule */
-    {"BR",		html_br},		/* Line Break */
-    {"P",		html_p},		/* Paragraph */
-    {"OL",		html_ol},		/* Ordered List */
-    {"UL",		html_ul},		/* Unordered List */
-    {"MENU",		html_menu},		/* Menu List */
-    {"DIR",		html_dir},		/* Directory List */
-    {"LI",		html_li},		/*  ... List Item */
-    {"DL",		html_dl},		/* Definition List */
-    {"DT",		html_dt},		/*  ... Def. Term */
-    {"DD",		html_dd},		/*  ... Def. Definition */
-    {"I",		html_i},		/* Italic Text */
-    {"EM",		html_i},		/* Typographic Emphasis */
-    {"STRONG",		html_i},		/* STRONG Typo Emphasis */
-    {"VAR",		html_i},		/* Variable Name */
-    {"B",		html_b},		/* Bold Text */
-    {"BLOCKQUOTE", 	html_blockquote}, 	/* Blockquote */
-    {"ADDRESS",		html_address},		/* Address */
-    {"CENTER",		html_center},		/* Centered Text v3.2 */
-    {"DIV",		html_div},		/* Document Division 3.2 */
-    {"H1",		html_h1},		/* Headings... */
-    {"H2",		html_h2},
-    {"H3",		html_h3},
-    {"H4",		html_h4},
-    {"H5",		html_h5},
-    {"H6",		html_h6},
-    {"PRE",		html_pre},		/* Preformatted Text */
-    {"KBD",		NULL},			/* Keyboard Input (NO OP) */
-    {"TT",		NULL},			/* Typetype (NO OP) */
-    {"SAMP",		NULL},			/* Sample Text (NO OP) */
-
-/*----- Handlers below are NOT DONE OR CHECKED OUT YET -----*/
-
-    {"CITE",		NULL},			/* Citation */
-    {"CODE",		NULL},			/* Code Text */
-
-/*----- Handlers below UNIMPLEMENTED (and won't until later) -----*/
-
-    {"FORM",		html_form},		/* form within a document */
-    {"INPUT",		NULL},			/* One input field, options */
-    {"OPTION",		NULL},			/* One option within Select */
-    {"SELECT",		NULL},			/* Selection from a set */
-    {"TEXTAREA",	NULL},			/* A multi-line input field */
-
-/*----- Handlers below provide limited support for RFC 1942 Tables -----*/
-
-    {"CAPTION",	html_center},		/* Table Caption */
-    {"TR",		html_tr},		/* Table Table Row */
-    {"TD",		html_td},		/* Table Table Data */
-
-    {NULL,		NULL}
-};
-
-
-
-/*
- * Initialize the given handler, and add it to the stack if it
- * requests it.
- */
-void
-html_push(fd, hf)
-    FILTER_S *fd;
-    html_f    hf;
-{
-    HANDLER_S *new;
-
-    new = (HANDLER_S *)fs_get(sizeof(HANDLER_S));
-    memset(new, 0, sizeof(HANDLER_S));
-    new->html_data = fd;
-    new->f	   = hf;
-    if((*hf)(new, 0, GF_RESET)){	/* stack the handler? */
-	 new->below   = HANDLERS(fd);
-	 HANDLERS(fd) = new;		/* push */
-    }
-    else
-      fs_give((void **) &new);
-}
-
-
-/*
- * Remove the most recently installed the given handler
- * after letting it accept its demise.
- */
-void
-html_pop(fd, hf)
-    FILTER_S *fd;
-    html_f    hf;
-{
-    HANDLER_S *tp;
-
-    for(tp = HANDLERS(fd); tp && hf != tp->f; tp = tp->below)
-      ;
-
-    if(tp){
-	(*tp->f)(tp, 0, GF_EOD);	/* may adjust handler list */
-	if(tp != HANDLERS(fd)){
-	    HANDLER_S *p;
-
-	    for(p = HANDLERS(fd); p->below != tp; p = p->below)
-	      ;
-
-	    if(p)
-	      p->below = tp->below;	/* remove from middle of stack */
-	    /* BUG: else programming botch and we should die */
-	}
-	else
-	  HANDLERS(fd) = tp->below;	/* pop */
-
-	fs_give((void **)&tp);
-    }
-    else if(hf == html_p || hf == html_li || hf == html_dt || hf == html_dd){
-	/*
-	 * Possible "special case" tag handling here.
-	 * It's for such tags as Paragraph (`</P>'), List Item
-	 * (`</LI>'), Definition Term (`</DT>'), and Definition Description
-	 * (`</DD>') elements, which may be omitted...
-	 */
-	HANDLER_S hd;
-
-	memset(&hd, 0, sizeof(HANDLER_S));
-	hd.html_data = fd;
-	hd.f	     = hf;
-
-	(*hf)(&hd, 0, GF_EOD);
-    }
-    /* BUG: else, we should bitch */
-}
-
-
-/*
- * Deal with data passed a hander in its GF_DATA state
- */
-html_handoff(hd, ch)
-    HANDLER_S *hd;
-    int	       ch;
-{
-    if(hd->below)
-      (*hd->below->f)(hd->below, ch, GF_DATA);
-    else
-      html_output(hd->html_data, ch);
-}
-
-
-/*
- * HTML <BR> element handler
- */
-int
-html_br(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET)
-      html_output(hd->html_data, HTML_NEWLINE);
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <HR> (Horizontal Rule) element handler
- */
-int
-html_hr(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	int	   i, old_wrap, width, align;
-	PARAMETER *p;
-
-	width = WRAP_COLS(hd->html_data);
-	align = 0;
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(p->value){
-	      if(!strucmp(p->attribute, "ALIGN")){
-		  if(!strucmp(p->value, "LEFT"))
-		    align = 1;
-		  else if(!strucmp(p->value, "RIGHT"))
-		    align = 2;
-	      }
-	      else if(!strucmp(p->attribute, "WIDTH")){
-		  char *cp;
-
-		  width = 0;
-		  for(cp = p->value; *cp; cp++)
-		    if(*cp == '%'){
-			width = (WRAP_COLS(hd->html_data)*min(100,width))/100;
-			break;
-		    }
-		    else if(isdigit((unsigned char) *cp))
-		      width = (width * 10) + (*cp - '0');
-
-		  width = min(width, WRAP_COLS(hd->html_data));
-	      }
-	  }
-
-	html_blank(hd->html_data, 1);	/* at least one blank line */
-
-	old_wrap = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	if((i = max(0, WRAP_COLS(hd->html_data) - width))
-	   && ((align == 0) ? i /= 2 : (align == 2)))
-	  for(; i > 0; i--)
-	    html_output(hd->html_data, ' ');
-
-	for(i = 0; i < width; i++)
-	  html_output(hd->html_data, '_');
-
-	html_blank(hd->html_data, 1);
-	HD(hd->html_data)->wrapstate = old_wrap;
-    }
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <P> (paragraph) element handler
- */
-int
-html_p(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	/* Make sure there's at least 1 blank line */
-	html_blank(hd->html_data, 1);
-
-	/* adjust indent level if needed */
-	if(HD(hd->html_data)->li_pending){
-	    html_indent(hd->html_data, 4, HTML_ID_INC);
-	    HD(hd->html_data)->li_pending = 0;
-	}
-    }
-    else if(cmd == GF_EOD)
-      /* Make sure there's at least 1 blank line */
-      html_blank(hd->html_data, 1);
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML Table <TR> (paragraph) table row
- */
-int
-html_tr(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET || cmd == GF_EOD)
-      /* Make sure there's at least 1 blank line */
-      html_blank(hd->html_data, 0);
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML Table <TD> (paragraph) table data
- */
-int
-html_td(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	PARAMETER *p;
-
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "nowrap")
-	     && (hd->html_data->f2 || hd->html_data->n)){
-	      HTML_DUMP_LIT(hd->html_data, " | ", 3);
-	      break;
-	  }
-    }
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <I> (italic text) element handler
- */
-int
-html_i(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	/* include LITERAL in spaceness test! */
-	if(hd->x && !isspace((unsigned char) (ch & 0xff))){
-	    HTML_ULINE(hd->html_data, 1);
-	    hd->x = 0;
-	}
-
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	hd->x = 1;
-    }
-    else if(cmd == GF_EOD){
-	if(!hd->x)
-	  HTML_ULINE(hd->html_data, 0);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <b> (Bold text) element handler
- */
-int
-html_b(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	/* include LITERAL in spaceness test! */
-	if(hd->x && !isspace((unsigned char) (ch & 0xff))){
-	    HTML_ULINE(hd->html_data, 1);
-	    hd->x = 0;
-	}
-
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	hd->x = 1;
-    }
-    else if(cmd == GF_EOD){
-	if(!hd->x)
-	  HTML_ULINE(hd->html_data, 0);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <IMG> element handler
- */
-int
-html_img(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	PARAMETER *p;
-	char	  *s = NULL;
-
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "alt")){
-	      if(p->value && p->value[0]){
-		  HTML_DUMP_LIT(hd->html_data, p->value, strlen(p->value));
-		  HTML_TEXT(hd->html_data, ' ');
-	      }
-
-	      return(0);
-	  }
-
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "src") && p->value)
-	    if((s = strrindex(p->value, '/')) && *++s != '\0'){
-		HTML_TEXT(hd->html_data, '[');
-		HTML_DUMP_LIT(hd->html_data, s, strlen(s));
-		HTML_TEXT(hd->html_data, ']');
-		HTML_TEXT(hd->html_data, ' ');
-		return(0);
-	    }
-
-	HTML_DUMP_LIT(hd->html_data, "[IMAGE] ", 7);
-    }
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <FORM> (Form) element handler
- */
-int
-html_form(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	char *p;
-
-	html_blank(hd->html_data, 0);
-
-	HTML_DUMP_LIT(hd->html_data, "[FORM]", 6);
-
-	html_blank(hd->html_data, 0);
-    }
-
-    return(0);				/* don't get linked */
-}
-
-
-/*
- * HTML <HEAD> element handler
- */
-int
-html_head(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	HD(hd->html_data)->head = 1;
-    }
-    else if(cmd == GF_EOD){
-	HD(hd->html_data)->head = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <BASE> element handler
- */
-int
-html_base(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	if(HD(hd->html_data)->head && !HTML_BASE(hd->html_data)){
-	    PARAMETER *p;
-
-	    for(p = HD(hd->html_data)->el_data->attribs;
-		p && p->attribute && strucmp(p->attribute, "HREF");
-		p = p->next)
-	      ;
-
-	    if(p && p->value && !((HTML_OPT_S *)(hd->html_data)->opt)->base)
-	      ((HTML_OPT_S *)(hd->html_data)->opt)->base = cpystr(p->value);
-	}
-    }
-
-    return(0);				/* DON'T get linked */
-}
-
-
-/*
- * HTML <TITLE> element handler
- */
-int
-html_title(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	if(hd->x + 1 >= hd->y){
-	    hd->y += 80;
-	    fs_resize((void **)&hd->s, (size_t)hd->y * sizeof(unsigned char));
-	}
-
-	hd->s[hd->x++] = (unsigned char) ch;
-    }
-    else if(cmd == GF_RESET){
-	hd->x = 0L;
-	hd->y = 80L;
-	hd->s = (unsigned char *)fs_get((size_t)hd->y * sizeof(unsigned char));
-    }
-    else if(cmd == GF_EOD){
-	/* Down the road we probably want to give these bytes to
-	 * someone...
-	 */
-	hd->s[hd->x] = '\0';
-	fs_give((void **)&hd->s);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <A> (Anchor) element handler
- */
-int
-html_a(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	int	   i, n, x;
-	char	   buf[256];
-	HANDLE_S  *h;
-	PARAMETER *p, *href = NULL, *name = NULL;
-
-	/*
-	 * Pending Anchor!?!?
-	 * space insertion/line breaking that's yet to get done...
-	 */
-	if(HD(hd->html_data)->prefix){
-	    dprint(1, (debugfile, "-- html_a: NESTED/UNTERMINATED ANCHOR!\n"));
-	    html_a_finish(hd);
-	}
-
-	/*
-	 * Look for valid Anchor data vis the filter installer's parms
-	 * (e.g., Only allow references to our internal URLs if asked)
-	 */
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "HREF")
-	     && p->value
-	     && (HANDLES_LOC(hd->html_data)
-		 || struncmp(p->value, "x-pine-", 7)))
-	    href = p;
-	  else if(!strucmp(p->attribute, "NAME"))
-	    name = p;
-
-	if(HANDLES(hd->html_data) && (href || name)){
-	    h = new_handle();
-
-	    /*
-	     * Enhancement: we might want to get fancier and parse the
-	     * href a bit further such that we can launch images using
-	     * our image viewer, or browse local files or directories
-	     * with our internal tools.  Of course, having the jump-off
-	     * point into text/html always be the defined "web-browser",
-	     * just might be the least confusing UI-wise...
-	     */
-	    h->type = URL;
-
-	    if(name && name->value)
-	      h->h.url.name = cpystr(name->value);
-
-	    /*
-	     * Prepare to build embedded prefix...
-	     */
-	    HD(hd->html_data)->prefix = (int *) fs_get(64 * sizeof(int));
-	    x = 0;
-
-	    /*
-	     * Is this something that looks like a URL?  If not and
-	     * we were giving some "base" string, proceed ala RFC1808...
-	     */
-	    if(href){
-		if(HTML_BASE(hd->html_data) && !rfc1738_scan(href->value, &n))
-		  html_a_relative(HTML_BASE(hd->html_data), href->value, h);
-		else
-		  h->h.url.path = cpystr(href->value);
-
-		if(pico_usingcolor()){
-		    char *fg = NULL, *bg = NULL, *q;
-
-		    if(ps_global->VAR_SLCTBL_FORE_COLOR
-		       && colorcmp(ps_global->VAR_SLCTBL_FORE_COLOR,
-				   ps_global->VAR_NORM_FORE_COLOR))
-		      fg = ps_global->VAR_SLCTBL_FORE_COLOR;
-
-		    if(ps_global->VAR_SLCTBL_BACK_COLOR
-		       && colorcmp(ps_global->VAR_SLCTBL_BACK_COLOR,
-				   ps_global->VAR_NORM_BACK_COLOR))
-		      bg = ps_global->VAR_SLCTBL_BACK_COLOR;
-
-		    if(fg || bg){
-			COLOR_PAIR *tmp;
-
-			/*
-			 * The blacks are just known good colors for testing
-			 * whether the other color is good.
-			 */
-			tmp = new_color_pair(fg ? fg : colorx(COL_BLACK),
-					     bg ? bg : colorx(COL_BLACK));
-			if(pico_is_good_colorpair(tmp)){
-			    q = color_embed(fg, bg);
-
-			    for(i = 0; q[i]; i++)
-			      HD(hd->html_data)->prefix[x++] = q[i];
-			}
-
-			if(tmp)
-			  free_color_pair(&tmp);
-		    }
-
-		    if(F_OFF(F_SLCTBL_ITEM_NOBOLD, ps_global))
-		      HD(hd->html_data)->prefix[x++] = HTML_DOBOLD;
-		}
-		else
-		  HD(hd->html_data)->prefix[x++] = HTML_DOBOLD;
-	    }
-
-	    HD(hd->html_data)->prefix[x++] = TAG_EMBED;
-	    HD(hd->html_data)->prefix[x++] = TAG_HANDLE;
-
-	    sprintf(buf, "%d", h->key);
-	    HD(hd->html_data)->prefix[x++] = n = strlen(buf);
-	    for(i = 0; i < n; i++)
-	      HD(hd->html_data)->prefix[x++] = buf[i];
-
-	    HD(hd->html_data)->prefix_used = x;
-	}
-    }
-    else if(cmd == GF_EOD){
-	html_a_finish(hd);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-void
-html_a_prefix(f)
-    FILTER_S *f;
-{
-    int *prefix, n;
-
-    /* Do this so we don't visit from html_output... */
-    prefix = HD(f)->prefix;
-    HD(f)->prefix = NULL;
-
-    for(n = 0; n < HD(f)->prefix_used; n++)
-      html_a_output_prefix(f, prefix[n]);
-
-    fs_give((void **) &prefix);
-}
-
-
-/*
- * html_a_finish - house keeping associated with end of link tag
- */
-void
-html_a_finish(hd)
-    HANDLER_S *hd;
-{
-    if(HANDLES(hd->html_data)){
-	if(HD(hd->html_data)->prefix)
-	  html_a_prefix(hd->html_data);
-
-	if(pico_usingcolor()){
-	    char *fg = NULL, *bg = NULL, *p;
-	    int   i;
-
-	    if(ps_global->VAR_SLCTBL_FORE_COLOR
-	       && colorcmp(ps_global->VAR_SLCTBL_FORE_COLOR,
-			   ps_global->VAR_NORM_FORE_COLOR))
-	      fg = ps_global->VAR_NORM_FORE_COLOR;
-
-	    if(ps_global->VAR_SLCTBL_BACK_COLOR
-	       && colorcmp(ps_global->VAR_SLCTBL_BACK_COLOR,
-			   ps_global->VAR_NORM_BACK_COLOR))
-	      bg = ps_global->VAR_NORM_BACK_COLOR;
-
-	    if(F_OFF(F_SLCTBL_ITEM_NOBOLD, ps_global))
-	      HTML_BOLD(hd->html_data, 0);	/* turn OFF bold */
-
-	    if(fg || bg){
-		COLOR_PAIR *tmp;
-
-		/*
-		 * The blacks are just known good colors for testing
-		 * whether the other color is good.
-		 */
-		tmp = new_color_pair(fg ? fg : colorx(COL_BLACK),
-				     bg ? bg : colorx(COL_BLACK));
-		if(pico_is_good_colorpair(tmp)){
-		    p = color_embed(fg, bg);
-
-		    for(i = 0; p[i]; i++)
-		      html_output(hd->html_data, p[i]);
-		}
-
-		if(tmp)
-		  free_color_pair(&tmp);
-	    }
-	}
-	else
-	  HTML_BOLD(hd->html_data, 0);	/* turn OFF bold */
-
-	html_output(hd->html_data, TAG_EMBED);
-	html_output(hd->html_data, TAG_HANDLEOFF);
-    }
-}
-
-
-/*
- * html_output_a_prefix - dump Anchor prefix data
- */
-void
-html_a_output_prefix(f, c)
-    FILTER_S *f;
-    int	      c;
-{
-    switch(c){
-      case HTML_DOBOLD :
-	HTML_BOLD(f, 1);
-	break;
-
-      default :
-	html_output(f, c);
-	break;
-    }
-}
-
-
-
-/*
- * relative_url - put full url path in h based on base and relative url
- */
-void
-html_a_relative(base_url, rel_url, h)
-    char     *base_url, *rel_url;
-    HANDLE_S *h;
-{
-    size_t  len;
-    char    tmp[MAILTMPLEN], *p, *q;
-    char   *scheme = NULL, *net = NULL, *path = NULL,
-	   *parms = NULL, *query = NULL, *frag = NULL,
-	   *base_scheme = NULL, *base_net_loc = NULL,
-	   *base_path = NULL, *base_parms = NULL,
-	   *base_query = NULL, *base_frag = NULL,
-	   *rel_scheme = NULL, *rel_net_loc = NULL,
-	   *rel_path = NULL, *rel_parms = NULL,
-	   *rel_query = NULL, *rel_frag = NULL;
-
-    /* Rough parse of base URL */
-    rfc1808_tokens(base_url, &base_scheme, &base_net_loc, &base_path,
-		   &base_parms, &base_query, &base_frag);
-
-    /* Rough parse of this URL */
-    rfc1808_tokens(rel_url, &rel_scheme, &rel_net_loc, &rel_path,
-		   &rel_parms, &rel_query, &rel_frag);
-
-    scheme = rel_scheme;	/* defaults */
-    net    = rel_net_loc;
-    path   = rel_path;
-    parms  = rel_parms;
-    query  = rel_query;
-    frag   = rel_frag;
-    if(!scheme && base_scheme){
-	scheme = base_scheme;
-	if(!net){
-	    net = base_net_loc;
-	    if(path){
-		if(*path != '/'){
-		    if(base_path){
-			for(p = q = base_path;	/* Drop base path's tail */
-			    p = strchr(p, '/');
-			    q = ++p)
-			  ;
-
-			len = q - base_path;
-		    }
-		    else
-		      len = 0;
-
-		    if(len + strlen(rel_path) < MAILTMPLEN - 1){
-			if(len)
-			  sprintf(path = tmp, "%.*s", len, base_path);
-
-			strcpy(tmp + len, rel_path);
-
-			/* Follow RFC 1808 "Step 6" */
-			for(p = tmp; p = strchr(p, '.'); )
-			  switch(*(p+1)){
-			      /*
-			       * a) All occurrences of "./", where "." is a
-			       *    complete path segment, are removed.
-			       */
-			    case '/' :
-			      if(p > tmp)
-				for(q = p; *q = *(q+2); q++)
-				  ;
-			      else
-				p++;
-
-			      break;
-
-			      /*
-			       * b) If the path ends with "." as a
-			       *    complete path segment, that "." is
-			       *    removed.
-			       */
-			    case '\0' :
-			      if(p == tmp || *(p-1) == '/')
-				*p = '\0';
-			      else
-				p++;
-
-			      break;
-
-			      /*
-			       * c) All occurrences of "<segment>/../",
-			       *    where <segment> is a complete path
-			       *    segment not equal to "..", are removed.
-			       *    Removal of these path segments is
-			       *    performed iteratively, removing the
-			       *    leftmost matching pattern on each
-			       *    iteration, until no matching pattern
-			       *    remains.
-			       *
-			       * d) If the path ends with "<segment>/..",
-			       *    where <segment> is a complete path
-			       *    segment not equal to "..", that
-			       *    "<segment>/.." is removed.
-			       */
-			    case '.' :
-			      if(p > tmp + 1){
-				  for(q = p - 2; q > tmp && *q != '/'; q--)
-				    ;
-
-				  if(*q == '/')
-				    q++;
-
-				  if(q + 1 == p		/* no "//.." */
-				     || (*q == '.'	/* and "../.." */
-					 && *(q+1) == '.'
-					 && *(q+2) == '/')){
-				      p += 2;
-				      break;
-				  }
-
-				  switch(*(p+2)){
-				    case '/' :
-				      len = (p - q) + 3;
-				      p = q;
-				      for(; *q = *(q+len); q++)
-					;
-
-				      break;
-
-				    case '\0':
-				      *(p = q) = '\0';
-				      break;
-
-				    default:
-				      p += 2;
-				      break;
-				  }
-			      }
-			      else
-				p += 2;
-
-			      break;
-
-			    default :
-			      p++;
-			      break;
-			  }
-		    }
-		    else
-		      path = "";		/* lame. */
-		}
-	    }
-	    else{
-		path = base_path;
-		if(!parms){
-		    parms = base_parms;
-		    if(!query)
-		      query = base_query;
-		}
-	    }
-	}
-    }
-
-    len = (scheme ? strlen(scheme) : 0) + (net ? strlen(net) : 0)
-	  + (path ? strlen(path) : 0) + (parms ? strlen(parms) : 0)
-	  + (query ? strlen(query) : 0) + (frag  ? strlen(frag ) : 0) + 8;
-
-    h->h.url.path = (char *) fs_get(len * sizeof(char));
-    sprintf(h->h.url.path, "%s%s%s%s%s%s%s%s%s%s%s%s",
-	    scheme ? scheme : "", scheme ? ":" : "",
-	    net ? "//" : "", net ? net : "",
-	    (path && *path == '/') ? "" : ((path && net) ? "/" : ""),
-	    path ? path : "",
-	    parms ? ";" : "", parms ? parms : "",
-	    query ? "?" : "", query ? query : "",
-	    frag ? "#" : "", frag ? frag : "");
-
-    if(base_scheme)
-      fs_give((void **) &base_scheme);
-
-    if(base_net_loc)
-      fs_give((void **) &base_net_loc);
-
-    if(base_path)
-      fs_give((void **) &base_path);
-
-    if(base_parms)
-      fs_give((void **) &base_parms);
-
-    if(base_query)
-      fs_give((void **) &base_query);
-
-    if(base_frag)
-      fs_give((void **) &base_frag);
-
-    if(rel_scheme)
-      fs_give((void **) &rel_scheme);
-
-    if(rel_net_loc)
-      fs_give((void **) &rel_net_loc);
-
-    if(rel_parms)
-      fs_give((void **) &rel_parms);
-
-    if(rel_query)
-      fs_give((void **) &rel_query);
-
-    if(rel_frag)
-      fs_give((void **) &rel_frag);
-
-    if(rel_path)
-      fs_give((void **) &rel_path);
-}
-
-
-/*
- * HTML <UL> (Unordered List) element handler
- */
-int
-html_ul(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	HD(hd->html_data)->li_pending = 1;
-	html_blank(hd->html_data, 0);
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 0);
-
-	if(!HD(hd->html_data)->li_pending)
-	  html_indent(hd->html_data, -4, HTML_ID_INC);
-	else
-	  HD(hd->html_data)->li_pending = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <OL> (Ordered List) element handler
- */
-int
-html_ol(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Signal that we're expecting to see <LI> as our next elemnt
-	 * and set the the initial ordered count.
-	 */
-	HD(hd->html_data)->li_pending = 1;
-	hd->x = 1L;
-	html_blank(hd->html_data, 0);
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 0);
-
-	if(!HD(hd->html_data)->li_pending)
-	  html_indent(hd->html_data, -4, HTML_ID_INC);
-	else
-	  HD(hd->html_data)->li_pending = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <MENU> (Menu List) element handler
- */
-int
-html_menu(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	HD(hd->html_data)->li_pending = 1;
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 0);
-
-	if(!HD(hd->html_data)->li_pending)
-	  html_indent(hd->html_data, -4, HTML_ID_INC);
-	else
-	  HD(hd->html_data)->li_pending = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <DIR> (Directory List) element handler
- */
-int
-html_dir(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	HD(hd->html_data)->li_pending = 1;
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 0);
-
-	if(!HD(hd->html_data)->li_pending)
-	  html_indent(hd->html_data, -4, HTML_ID_INC);
-	else
-	  HD(hd->html_data)->li_pending = 0;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <LI> (List Item) element handler
- */
-int
-html_li(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	HANDLER_S *p, *found = NULL;
-
-	/*
-	 * There better be a an unordered list, ordered list,
-	 * Menu or Directory handler installed
-	 * or else we crap out...
-	 */
-	for(p = HANDLERS(hd->html_data); p; p = p->below)
-	  if(p->f == html_ul || p->f == html_ol
-	     || p->f == html_menu || p->f == html_dir){
-	      found = p;
-	      break;
-	  }
-
-	if(found){
-	    char buf[8], *p;
-	    int  wrapstate;
-
-	    /* Start a new line */
-	    html_blank(hd->html_data, 0);
-
-	    /* adjust indent level if needed */
-	    if(HD(hd->html_data)->li_pending){
-		html_indent(hd->html_data, 4, HTML_ID_INC);
-		HD(hd->html_data)->li_pending = 0;
-	    }
-
-	    if(found->f == html_ul){
-		int l = html_indent(hd->html_data, 0, HTML_ID_GET);
-
-		strcpy(buf, "   ");
-		buf[1] = (l < 5) ? '*' : (l < 9) ? '+' : (l < 17) ? 'o' : '#';
-	    }
-	    else if(found->f == html_ol)
-	      sprintf(buf, "%2ld.", found->x++);
-	    else if(found->f == html_menu)
-	      strcpy(buf, " ->");
-
-	    html_indent(hd->html_data, -4, HTML_ID_INC);
-
-	    /* So we don't munge whitespace */
-	    wrapstate = HD(hd->html_data)->wrapstate;
-	    HD(hd->html_data)->wrapstate = 0;
-
-	    html_write_indent(hd->html_data, HD(hd->html_data)->indent_level);
-	    for(p = buf; *p; p++)
-	      html_output(hd->html_data, (int) *p);
-
-	    HD(hd->html_data)->wrapstate = wrapstate;
-	    html_indent(hd->html_data, 4, HTML_ID_INC);
-	}
-	/* BUG: should really bitch about this */
-    }
-
-    return(0);				/* DON'T get linked */
-}
-
-
-
-/*
- * HTML <DL> (Definition List) element handler
- */
-int
-html_dl(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Set indention level for definition terms and definitions...
-	 */
-	hd->x = html_indent(hd->html_data, 0, HTML_ID_GET);
-	hd->y = hd->x + 2;
-	hd->z = hd->y + 4;
-    }
-    else if(cmd == GF_EOD){
-	html_indent(hd->html_data, (int) hd->x, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <DT> (Definition Term) element handler
- */
-int
-html_dt(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	HANDLER_S *p;
-
-	/*
-	 * There better be a Definition Handler installed
-	 * or else we crap out...
-	 */
-	for(p = HANDLERS(hd->html_data); p && p->f != html_dl; p = p->below)
-	  ;
-
-	if(p){				/* adjust indent level if needed */
-	    html_indent(hd->html_data, (int) p->y, HTML_ID_SET);
-	    html_blank(hd->html_data, 1);
-	}
-	/* BUG: else should really bitch about this */
-    }
-
-    return(0);				/* DON'T get linked */
-}
-
-
-/*
- * HTML <DD> (Definition Definition) element handler
- */
-int
-html_dd(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_RESET){
-	HANDLER_S *p;
-
-	/*
-	 * There better be a Definition Handler installed
-	 * or else we crap out...
-	 */
-	for(p = HANDLERS(hd->html_data); p && p->f != html_dl; p = p->below)
-	  ;
-
-	if(p){				/* adjust indent level if needed */
-	    html_indent(hd->html_data, (int) p->z, HTML_ID_SET);
-	    html_blank(hd->html_data, 0);
-	}
-	/* BUG: should really bitch about this */
-    }
-
-    return(0);				/* DON'T get linked */
-}
-
-
-/*
- * HTML <H1> (Headings 1) element handler.
- *
- * Bold, very-large font, CENTERED. One or two blank lines
- * above and below.  For our silly character cell's that
- * means centered and ALL CAPS...
- */
-int
-html_h1(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/* turn ON the centered bit */
-	CENTER_BIT(hd->html_data) = 1;
-    }
-    else if(cmd == GF_EOD){
-	/* turn OFF the centered bit, add blank line */
-	CENTER_BIT(hd->html_data) = 0;
-	html_blank(hd->html_data, 1);
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H2> (Headings 2) element handler
- */
-int
-html_h2(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	if((hd->x & HTML_HX_ULINE) && !isspace((unsigned char) (ch & 0xff))){
-	    HTML_ULINE(hd->html_data, 1);
-	    hd->x ^= HTML_HX_ULINE;	/* only once! */
-	}
-
-	html_handoff(hd, (ch < 128 && islower((unsigned char) ch))
-			   ? toupper((unsigned char) ch) : ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Bold, large font, flush-left. One or two blank lines
-	 * above and below.
-	 */
-	if(CENTER_BIT(hd->html_data)) /* stop centering for now */
-	  hd->x = HTML_HX_CENTER;
-	else
-	  hd->x = 0;
-
-	hd->x |= HTML_HX_ULINE;
-	    
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 0, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	if(!(hd->x & HTML_HX_ULINE))
-	  HTML_ULINE(hd->html_data, 0);
-
-	html_indent(hd->html_data, hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = (hd->x & HTML_HX_CENTER) != 0;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H3> (Headings 3) element handler
- */
-int
-html_h3(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	if((hd->x & HTML_HX_ULINE) && !isspace((unsigned char) (ch & 0xff))){
-	    HTML_ULINE(hd->html_data, 1);
-	    hd->x ^= HTML_HX_ULINE;	/* only once! */
-	}
-
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Italic, large font, slightly indented from the left
-	 * margin. One or two blank lines above and below.
-	 */
-	if(CENTER_BIT(hd->html_data)) /* stop centering for now */
-	  hd->x = HTML_HX_CENTER;
-	else
-	  hd->x = 0;
-
-	hd->x |= HTML_HX_ULINE;
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 2, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	if(!(hd->x & HTML_HX_ULINE))
-	  HTML_ULINE(hd->html_data, 0);
-
-	html_indent(hd->html_data, hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = (hd->x & HTML_HX_CENTER) != 0;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H4> (Headings 4) element handler
- */
-int
-html_h4(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Bold, normal font, indented more than H3. One blank line
-	 * above and below.
-	 */
-	hd->x = CENTER_BIT(hd->html_data); /* stop centering for now */
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 4, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	html_indent(hd->html_data, (int) hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = hd->x;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H5> (Headings 5) element handler
- */
-int
-html_h5(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Italic, normal font, indented as H4. One blank line
-	 * above.
-	 */
-	hd->x = CENTER_BIT(hd->html_data); /* stop centering for now */
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 6, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	html_indent(hd->html_data, (int) hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = hd->x;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <H6> (Headings 6) element handler
- */
-int
-html_h6(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * Bold, indented same as normal text, more than H5. One
-	 * blank line above.
-	 */
-	hd->x = CENTER_BIT(hd->html_data); /* stop centering for now */
-	CENTER_BIT(hd->html_data) = 0;
-	hd->y = html_indent(hd->html_data, 8, HTML_ID_SET);
-	hd->z = HD(hd->html_data)->wrapcol;
-	HD(hd->html_data)->wrapcol = WRAP_COLS(hd->html_data) - 8;
-	html_blank(hd->html_data, 1);
-    }
-    else if(cmd == GF_EOD){
-	/*
-	 * restore previous centering, and indent level
-	 */
-	html_indent(hd->html_data, (int) hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 1);
-	CENTER_BIT(hd->html_data)  = hd->x;
-	HD(hd->html_data)->wrapcol = hd->z;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <BlockQuote> element handler
- */
-int
-html_blockquote(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    int	 j;
-#define	HTML_BQ_INDENT	6
-
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * A typical rendering might be a slight extra left and
-	 * right indent, and/or italic font. The Blockquote element
-	 * causes a paragraph break, and typically provides space
-	 * above and below the quote.
-	 */
-	html_indent(hd->html_data, HTML_BQ_INDENT, HTML_ID_INC);
-	j = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	html_blank(hd->html_data, 1);
-	HD(hd->html_data)->wrapstate = j;
-	HD(hd->html_data)->wrapcol  -= HTML_BQ_INDENT;
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 1);
-
-	j = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	html_indent(hd->html_data, -(HTML_BQ_INDENT), HTML_ID_INC);
-	HD(hd->html_data)->wrapstate = j;
-	HD(hd->html_data)->wrapcol  += HTML_BQ_INDENT;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <Address> element handler
- */
-int
-html_address(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    int	 j;
-#define	HTML_ADD_INDENT	2
-
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/*
-	 * A typical rendering might be a slight extra left and
-	 * right indent, and/or italic font. The Blockquote element
-	 * causes a paragraph break, and typically provides space
-	 * above and below the quote.
-	 */
-	html_indent(hd->html_data, HTML_ADD_INDENT, HTML_ID_INC);
-	j = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	html_blank(hd->html_data, 1);
-	HD(hd->html_data)->wrapstate = j;
-    }
-    else if(cmd == GF_EOD){
-	html_blank(hd->html_data, 1);
-
-	j = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	html_indent(hd->html_data, -(HTML_ADD_INDENT), HTML_ID_INC);
-	HD(hd->html_data)->wrapstate = j;
-    }
-
-    return(1);				/* get linked */
-}
-
-
-/*
- * HTML <PRE> (Preformatted Text) element handler
- */
-int
-html_pre(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	/*
-	 * remove CRLF after '>' in element.
-	 * We see CRLF because wrapstate is off.
-	 */
-	switch(hd->y){
-	  case 2 :
-	    if(ch == '\012'){
-		hd->y = 3;
-		return(1);
-	    }
-	    else
-	      html_handoff(hd, '\015');
-
-	    break;
-
-	  case 1 :
-	    if(ch == '\015'){
-		hd->y = 2;
-		return(1);
-	    }
-
-	  default :
-	    hd->y = 0;
-	    break;
-	}
-
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	html_blank(hd->html_data, 1);
-	hd->x = HD(hd->html_data)->wrapstate;
-	HD(hd->html_data)->wrapstate = 0;
-	hd->y = 1;
-    }
-    else if(cmd == GF_EOD){
-	HD(hd->html_data)->wrapstate = (hd->x != 0);
-	html_blank(hd->html_data, 0);
-    }
-
-    return(1);
-}
-
-
-
-
-/*
- * HTML <CENTER> (Centerd Text) element handler
- */
-int
-html_center(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	/* turn ON the centered bit */
-	CENTER_BIT(hd->html_data) = 1;
-    }
-    else if(cmd == GF_EOD){
-	/* turn OFF the centered bit */
-	CENTER_BIT(hd->html_data) = 0;
-    }
-
-    return(1);
-}
-
-
-
-/*
- * HTML <DIV> (Document Divisions) element handler
- */
-int
-html_div(hd, ch, cmd)
-    HANDLER_S *hd;
-    int	       ch, cmd;
-{
-    if(cmd == GF_DATA){
-	html_handoff(hd, ch);
-    }
-    else if(cmd == GF_RESET){
-	PARAMETER *p;
-
-	for(p = HD(hd->html_data)->el_data->attribs;
-	    p && p->attribute;
-	    p = p->next)
-	  if(!strucmp(p->attribute, "ALIGN")){
-	      if(p->value){
-		  /* remember previous values */
-		  hd->x = CENTER_BIT(hd->html_data);
-		  hd->y = html_indent(hd->html_data, 0, HTML_ID_GET);
-
-		  html_blank(hd->html_data, 0);
-		  CENTER_BIT(hd->html_data) = !strucmp(p->value, "CENTER");
-		  html_indent(hd->html_data, 0, HTML_ID_SET);
-		  /* NOTE: "RIGHT" not supported yet */
-	      }
-	  }
-    }
-    else if(cmd == GF_EOD){
-	/* restore centered bit and indentiousness */
-	CENTER_BIT(hd->html_data) = hd->y;
-	html_indent(hd->html_data, hd->y, HTML_ID_SET);
-	html_blank(hd->html_data, 0);
-    }
-
-    return(1);
-}
-
-
-
-/*
- * return the function associated with the given element name
- */
-html_f
-html_element_func(el_name)
-    char *el_name;
-{
-    register int i;
-
-    for(i = 0; element_table[i].element; i++)
-      if(!strucmp(el_name, element_table[i].element))
-	return(element_table[i].handler);
-
-    return(NULL);
-}
-
-
-/*
- * collect element's name and any attribute/value pairs then
- * dispatch to the appropriate handler.
- *
- * Returns 1 : got what we wanted
- *	   0 : we need more data
- *	  -1 : bogus input
- */
-int
-html_element_collector(fd, ch)
-    FILTER_S *fd;
-    int	      ch;
-{
-    if(ch == '>'){
-	if(ED(fd)->overrun){
-	    /*
-	     * If problem processing, don't bother doing anything
-	     * internally, just return such that none of what we've
-	     * digested is displayed.
-	     */
-	    HTML_DEBUG_EL("too long", ED(fd));
-	    return(1);			/* Let it go, Jim */
-	}
-	else if(ED(fd)->mkup_decl){
-	    if(ED(fd)->badform){
-		dprint(2, (debugfile, "-- html <!-- BAD: %.*s\n",
-			   ED(fd)->len, ED(fd)->buf));
-		/*
-		 * Invalid comment -- make some guesses as
-		 * to whether we should stop with this greater-than...
-		 */
-		if(ED(fd)->buf[0] != '-'
-		   || ED(fd)->len < 4
-		   || (ED(fd)->buf[1] == '-'
-		       && ED(fd)->buf[ED(fd)->len - 1] == '-'
-		       && ED(fd)->buf[ED(fd)->len - 2] == '-'))
-		  return(1);
-	    }
-	    else{
-		dprint(2, (debugfile, "-- html <!-- OK: %.*s\n",
-			   ED(fd)->len, ED(fd)->buf));
-		if(ED(fd)->start_comment == ED(fd)->end_comment){
-		    if(ED(fd)->len > 10){
-			ED(fd)->buf[ED(fd)->len - 2] = '\0';
-			html_element_comment(fd, ED(fd)->buf + 2);
-		    }
-
-		    return(1);
-		}
-		/* else keep collecting comment below */
-	    }
-	}
-	else if(!ED(fd)->quoted || ED(fd)->badform){
-	    html_f f;
-
-	    /*
-	     * We either have the whole thing or all that we could
-	     * salvage from it.  Try our best...
-	     */
-
-	    if(HD(fd)->bitbucket)
-	      return(1);		/* element inside chtml clause! */
-
-	    if(!ED(fd)->badform && html_element_flush(ED(fd)))
-	      return(1);		/* return without display... */
-
-	    /*
-	     * If we ran into an empty tag or we don't know how to deal
-	     * with it, just go on, ignoring it...
-	     */
-	    if(ED(fd)->element && (f = html_element_func(ED(fd)->element))){
-		/* dispatch the element's handler */
-		if(ED(fd)->end_tag)
-		  html_pop(fd, f);	/* remove it's handler */
-		else
-		  html_push(fd, f);	/* add it's handler */
-
-		HTML_DEBUG_EL(ED(fd)->end_tag ? "POP" : "PUSH", ED(fd));
-	    }
-	    else{			/* else, empty or unrecognized */
-		HTML_DEBUG_EL("?", ED(fd));
-	    }
-
-	    return(1);			/* all done! see, that didn't hurt */
-	}
-    }
-
-    if(ED(fd)->mkup_decl){
-	if((ch &= 0xff) == '-'){
-	    if(ED(fd)->hyphen){
-		ED(fd)->hyphen = 0;
-		if(ED(fd)->start_comment)
-		  ED(fd)->end_comment = 1;
-		else
-		  ED(fd)->start_comment = 1;
-	    }
-	    else
-	      ED(fd)->hyphen = 1;
-	}
-	else{
-	    if(ED(fd)->end_comment)
-	      ED(fd)->start_comment = ED(fd)->end_comment = 0;
-
-	    /*
-	     * no "--" after ! or non-whitespace between comments - bad
-	     */
-	    if(ED(fd)->len < 2 || (!ED(fd)->start_comment
-				   && !isspace((unsigned char) ch)))
-	      ED(fd)->badform = 1;	/* non-comment! */
-
-	    ED(fd)->hyphen = 0;
-	}
-
-	/*
-	 * Remember the comment for possible later processing, if
-	 * it get's too long, remember first and last few chars
-	 * so we know when to terminate (and throw some garbage
-	 * in between when we toss out what's between.
-	 */
-	if(ED(fd)->len == HTML_BUF_LEN){
-	    ED(fd)->buf[2] = ED(fd)->buf[3] = 'X';
-	    ED(fd)->buf[4] = ED(fd)->buf[ED(fd)->len - 2];
-	    ED(fd)->buf[5] = ED(fd)->buf[ED(fd)->len - 1];
-	    ED(fd)->len    = 6;
-	}
-
-	ED(fd)->buf[(ED(fd)->len)++] = ch;
-	return(0);			/* comments go in the bit bucket */
-    }
-    else if(ED(fd)->overrun || ED(fd)->badform){
-	return(0);			/* swallow char's until next '>' */
-    }
-    else if(!ED(fd)->element && !ED(fd)->len){
-	if(ch == '/'){		/* validate leading chars */
-	    ED(fd)->end_tag = 1;
-	    return(0);
-	}
-	else if(ch == '!'){
-	    ED(fd)->mkup_decl = 1;
-	    return(0);
-	}
-	else if(!isalpha((unsigned char) ch))
-	  return(-1);			/* can't be a tag! */
-    }
-    else if(ch == '\"' || ch == '\''){
-	if(!ED(fd)->hit_equal){
-	    ED(fd)->badform = 1;	/* quote in element name?!? */
-	    return(0);
-	}
-
-	if(ED(fd)->quoted){
-	    if(ED(fd)->quoted == (char) ch){
-		ED(fd)->quoted = 0;
-		return(0);		/* continue collecting chars */
-	    }
-	    /* else fall thru writing other quoting char */
-	}
-	else{
-	    ED(fd)->quoted = (char) ch;
-	    return(0);			/* need more data */
-	}
-    }
-
-    ch &= 0xff;			/* strip any "literal" high bits */
-    if(ED(fd)->quoted
-       || isalnum(ch)
-       || strchr("-.!", ch)
-       || (ED(fd)->hit_equal && !isspace((unsigned char) ch))){
-	if(ED(fd)->len < ((ED(fd)->element || !ED(fd)->hit_equal)
-			       ? HTML_BUF_LEN:MAX_ELEMENT)){
-	    ED(fd)->buf[(ED(fd)->len)++] = ch;
-	}
-	else
-	  ED(fd)->overrun = 1;		/* flag it broken */
-    }
-    else if(isspace((unsigned char) ch) || ch == '='){
-	if(html_element_flush(ED(fd))){
-	    ED(fd)->badform = 1;
-	    return(0);		/* else, we ain't done yet */
-	}
-
-	if(!ED(fd)->hit_equal)
-	  ED(fd)->hit_equal = (ch == '=');
-    }
-    else
-      ED(fd)->badform = 1;		/* unrecognized data?? */
-
-    return(0);				/* keep collecting */
-}
-
-
-/*
- * Element collector found complete string, integrate it and reset
- * internal collection buffer.
- *
- * Returns zero if element collection buffer flushed, error flag otherwise
- */
-int
-html_element_flush(el_data)
-    CLCTR_S *el_data;
-{
-    int rv = 0;
-
-    if(el_data->hit_equal){		/* adding a value */
-	el_data->hit_equal = 0;
-	if(el_data->cur_attrib){
-	    if(!el_data->cur_attrib->value){
-		el_data->cur_attrib->value = cpystr(el_data->len
-						    ? el_data->buf : "");
-	    }
-	    else{
-		dprint(2, (debugfile,
-			   "** element: unexpected value: %.10s...\n",
-			   el_data->len ? el_data->buf : "\"\""));
-		rv = 1;
-	    }
-	}
-	else{
-	    dprint(2, (debugfile,
-		       "** element: missing attribute name: %.10s...\n",
-		       el_data->len ? el_data->buf : "\"\""));
-	    rv = 2;
-	}
-
-	el_data->len = 0;
-	memset(el_data->buf, 0, HTML_BUF_LEN);
-    }
-    else if(el_data->len){
-	if(!el_data->element){
-	    el_data->element = cpystr(el_data->buf);
-	}
-	else{
-	    PARAMETER *p = (PARAMETER *)fs_get(sizeof(PARAMETER));
-	    memset(p, 0, sizeof(PARAMETER));
-	    if(el_data->attribs){
-		el_data->cur_attrib->next = p;
-		el_data->cur_attrib = p;
-	    }
-	    else
-	      el_data->attribs = el_data->cur_attrib = p;
-
-	    p->attribute = cpystr(el_data->buf);
-	}
-
-	el_data->len = 0;
-	memset(el_data->buf, 0, HTML_BUF_LEN);
-    }
-
-    return(rv);			/* report whatever happened above */
-}
-
-
-/*
- * html_element_comment - "Special" comment handling here
- */
-void
-html_element_comment(f, s)
-    FILTER_S *f;
-    char     *s;
-{
-    char *p;
-
-    while(*s && isspace((unsigned char) *s))
-      s++;
-
-    /*
-     * WARNING: "!--chtml" denotes "Conditional HTML", a UW-ism.
-     */
-    if(!struncmp(s, "chtml ", 6)){
-	s += 6;
-	if(!struncmp(s, "if ", 3)){
-	    HD(f)->bitbucket = 1;	/* default is failure! */
-	    switch(*(s += 3)){
-	      case 'P' :
-	      case 'p' :
-		if(!struncmp(s + 1, "inemode=", 8)){
-		    if(!strucmp(s = removing_quotes(s + 9), "function_key")
-		       && F_ON(F_USE_FK, ps_global))
-		      HD(f)->bitbucket = 0;
-		    else if(!strucmp(s, "running"))
-		      HD(f)->bitbucket = 0;
-		    else if(!strucmp(s, "phone_home") && ps_global->phone_home)
-		      HD(f)->bitbucket = 0;
-#ifdef	_WINDOWS
-		    else if(!strucmp(s, "os_windows"))
-		      HD(f)->bitbucket = 0;
-#endif
-		}
-
-		break;
-
-	      case '[' :	/* test */
-		if(p = strindex(++s, ']')){
-		    *p = '\0';		/* tie off test string */
-		    removing_leading_white_space(s);
-		    removing_trailing_white_space(s);
-		    if(*s == '-' && *(s+1) == 'r'){ /* readable file? */
-			for(s += 2; *s && isspace((unsigned char) *s); s++)
-			  ;
-
-
-			HD(f)->bitbucket = (can_access(removing_quotes(s),
-						       READ_ACCESS) != 0);
-		    }
-		}
-
-		break;
-
-	      default :
-		break;
-	    }
-	}
-	else if(!strucmp(s, "else")){
-	    HD(f)->bitbucket = !HD(f)->bitbucket;
-	}
-	else if(!strucmp(s, "endif")){
-	    /* Clean up after chtml here */
-	    HD(f)->bitbucket = 0;
-	}
-    }
-    else if(!HD(f)->bitbucket){
-	if(!struncmp(s, "#include ", 9)){
-	    char  buf[MAILTMPLEN], *bufp;
-	    int   len, end_of_line;
-	    FILE *fp;
-
-	    /* Include the named file */
-	    if(!struncmp(s += 9, "file=", 5)
-	       && (fp = fopen(removing_quotes(s+5), "r"))){
-		html_element_output(f, HTML_NEWLINE);
-
-		while(fgets(buf, MAILTMPLEN, fp)){
-		    if((len = strlen(buf)) && buf[len-1] == '\n'){
-			end_of_line = 1;
-			buf[--len]  = '\0';
-		    }
-		    else
-		      end_of_line = 0;
-
-		    for(bufp = buf; len; bufp++, len--)
-		      html_element_output(f, (int) *bufp);
-
-		    if(end_of_line)
-		      html_element_output(f, HTML_NEWLINE);
-		}
-
-		fclose(fp);
-		html_element_output(f, HTML_NEWLINE);
-		HD(f)->blanks = 0;
-		if(f->f1 == WSPACE)
-		  f->f1 = DFL;
-	    }
-	}
-	else if(!struncmp(s, "#echo ", 6)){
-	    if(!struncmp(s += 6, "var=", 4)){
-		char	*p, buf[MAILTMPLEN];
-		ADDRESS *adr;
-		extern char datestamp[];
-
-		if(!strcmp(s = removing_quotes(s + 4), "PINE_VERSION")){
-		    p = pine_version;
-		}
-		else if(!strcmp(s, "PINE_COMPILE_DATE")){
-		    p = datestamp;
-		}
-		else if(!strcmp(s, "PINE_TODAYS_DATE")){
-		    rfc822_date(p = buf);
-		}
-		else if(!strcmp(s, "_LOCAL_FULLNAME_")){
-		    p = (ps_global->VAR_LOCAL_FULLNAME
-			 && ps_global->VAR_LOCAL_FULLNAME[0])
-			    ? ps_global->VAR_LOCAL_FULLNAME
-			    : "Local Support";
-		}
-		else if(!strcmp(s, "_LOCAL_ADDRESS_")){
-		    p = (ps_global->VAR_LOCAL_ADDRESS
-			 && ps_global->VAR_LOCAL_ADDRESS[0])
-			   ? ps_global->VAR_LOCAL_ADDRESS
-			   : "postmaster";
-		    adr = rfc822_parse_mailbox(&p, ps_global->maildomain);
-		    sprintf(p = buf, "%s@%s", adr->mailbox, adr->host);
-		    mail_free_address(&adr);
-		}
-		else if(!strcmp(s, "_BUGS_FULLNAME_")){
-		    p = (ps_global->VAR_BUGS_FULLNAME
-			 && ps_global->VAR_BUGS_FULLNAME[0])
-			    ? ps_global->VAR_BUGS_FULLNAME
-			    : "Place to report Pine Bugs";
-		}
-		else if(!strcmp(s, "_BUGS_ADDRESS_")){
-		    p = (ps_global->VAR_BUGS_ADDRESS
-			 && ps_global->VAR_BUGS_ADDRESS[0])
-			    ? ps_global->VAR_BUGS_ADDRESS : "postmaster";
-		    adr = rfc822_parse_mailbox(&p, ps_global->maildomain);
-		    sprintf(p = buf, "%s@%s", adr->mailbox, adr->host);
-		    mail_free_address(&adr);
-		}
-		else if(!strcmp(s, "CURRENT_DIR")){
-		    getcwd(p = buf, MAILTMPLEN);
-		}
-		else if(!strcmp(s, "HOME_DIR")){
-		    p = ps_global->home_dir;
-		}
-		else
-		  p = NULL;
-
-		if(p){
-		    if(f->f1 == WSPACE){
-			html_element_output(f, ' ');
-			f->f1 = DFL;			/* clear it */
-		    }
-
-		    while(*p)
-		      html_element_output(f, (int) *p++);
-		}
-	    }
-	}
-    }
-}
-
-
-void
-html_element_output(f, ch)
-    FILTER_S *f;
-    int	      ch;
-{
-    if(HANDLERS(f))
-      (*HANDLERS(f)->f)(HANDLERS(f), ch, GF_DATA);
-    else
-      html_output(f, ch);
-}
-
-
-/*
- * collect html entities and return its value when done.
- *
- * Returns 0		 : we need more data
- *	   1-255	 : char value of entity collected
- *	   HTML_BADVALUE : good data, but no named match or out of range
- *	   HTML_BADDATA  : invalid input
- *
- * NOTES:
- *  - entity format is "'&' tag ';'" and represents a literal char
- *  - named entities are CASE SENSITIVE.
- *  - numeric char references (where the tag is prefixed with a '#')
- *    are a char with that numbers value
- *  - numeric vals are 0-255 except for the ranges: 0-8, 11-31, 127-159.
- */
-int
-html_entity_collector(f, ch, alternate)
-    FILTER_S  *f;
-    int	       ch;
-    char     **alternate;
-{
-    static char len = 0;
-    static char buf[MAX_ENTITY];
-    int rv = 0, i;
-
-    if((len == 0)
-	 ? (isalpha((unsigned char) ch) || ch == '#')
-	 : ((isdigit((unsigned char) ch)
-	     || (isalpha((unsigned char) ch) && buf[0] != '#'))
-	    && len < MAX_ENTITY - 1)){
-	buf[len++] = ch;
-    }
-    else if((isspace((unsigned char) ch) || ch == ';') && len){
-	buf[len] = '\0';		/* got something! */
-	switch(buf[0]){
-	  case '#' :
-	    rv = atoi(&buf[1]);
-	    if(F_ON(F_PASS_CONTROL_CHARS, ps_global)
-	       || (rv == '\t' || rv == '\n' || rv == '\r'
-		   || (rv > 31 && rv < 127) || (rv > 159 && rv < 256))){
-		if(alternate)
-		  for(i = 0, *alternate = NULL; entity_tab[i].name; i++)
-		    if(entity_tab[i].value == rv){
-			*alternate = entity_tab[i].plain;
-			break;
-		    }
-	    }
-	    else
-	      rv = HTML_BADVALUE;
-
-	    break;
-
-	  default :
-	    rv = HTML_BADVALUE;		/* in case we fail below */
-	    for(i = 0; entity_tab[i].name; i++)
-	      if(strcmp(entity_tab[i].name, buf) == 0){
-		  rv = entity_tab[i].value;
-		  if(alternate)
-		    *alternate = entity_tab[i].plain;
-
-		  break;
-	      }
-
-	    break;
-	}
-    }
-    else
-      rv = HTML_BADDATA;		/* bogus input! */
-
-    if(rv){				/* nonzero return, clean up */
-	if(rv > 0xff && alternate){	/* provide bogus data to caller */
-	    buf[len] = '\0';
-	    *alternate = buf;
-	}
-
-	len = 0;
-    }
-
-    return(rv);
-}
-
-
-/*----------------------------------------------------------------------
-  HTML text to plain text filter
-
-  This basically tries to do the best it can with HTML 2.0 (RFC1866)
-  with bits of RFC 1942 (plus some HTML 3.2 thrown in as well) text
-  formatting.
-
- ----*/
-void
-gf_html2plain(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-/* BUG: qoute incoming \255 values (see "yuml" above!) */
-    if(flg == GF_DATA){
-	register int c;
-	GF_INIT(f, f->next);
-
-	while(GF_GETC(f, c)){
-	    /*
-	     * First we have to collect any literal entities...
-	     * that is, IF we're not already collecting one
-	     * AND we're not in element's text or, if we are, we're
-	     * not in quoted text.  Whew.
-	     */
-	    if(f->t){
-		int   i;
-		char *alt = NULL;
-
-		switch(i = html_entity_collector(f, c, &alt)){
-		  case 0:		/* more data required? */
-		    continue;		/* go get another char */
-
-		  case HTML_BADVALUE :
-		  case HTML_BADDATA :
-		    /* if supplied, process bogus data */
-		    HTML_PROC(f, '&');
-		    for(; *alt; alt++)
-		      HTML_PROC(f, *alt);
-
-		    if(c == '&' && !HD(f)->quoted){
-			f->t = '&';
-			continue;
-		    }
-		    else
-		      f->t = 0;		/* don't come back next time */
-
-		    break;
-
-		  default :		/* thing to process */
-		    f->t = 0;		/* don't come back */
-
-		    /*
-		     * Map some of the undisplayable entities?
-		     */
-		    if(HD(f)->alt_entity && i > 127 && alt && alt[0]){
-			for(; *alt; alt++){
-			    c = MAKE_LITERAL(*alt);
-			    HTML_PROC(f, c);
-			}
-
-			continue;
-		    }
-
-		    c = MAKE_LITERAL(i);
-		    break;
-		}
-	    }
-	    else if(c == '&' && !HD(f)->quoted){
-		f->t = '&';
-		continue;
-	    }
-
-	    /*
-	     * then we process whatever we got...
-	     */
-
-	    HTML_PROC(f, c);
-	}
-
-	GF_OP_END(f);			/* clean up our input pointers */
-    }
-    else if(flg == GF_EOD){
-	while(HANDLERS(f))
-	  /* BUG: should complain about "Unexpected end of HTML text." */
-	  html_pop(f, HANDLERS(f)->f);
-
-	html_output(f, HTML_NEWLINE);
-	HTML_FLUSH(f);
-	fs_give((void **)&f->line);
-	if(HD(f)->color)
-	  free_color_pair(&HD(f)->color);
-
-	fs_give(&f->data);
-	if(f->opt){
-	    if(((HTML_OPT_S *)f->opt)->base)
-	      fs_give((void **) &((HTML_OPT_S *)f->opt)->base);
-
-	    fs_give(&f->opt);
-	}
-
-	(*f->next->f)(f->next, GF_DATA);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset html2plain\n"));
-	f->data  = (HTML_DATA_S *) fs_get(sizeof(HTML_DATA_S));
-	memset(f->data, 0, sizeof(HTML_DATA_S));
-	HD(f)->wrapstate = 1;		/* start with flowing text */
-	HD(f)->wrapcol   = WRAP_COLS(f) - 8;
-	f->f1    = DFL;			/* state */
-	f->f2    = 0;			/* chars in wrap buffer */
-	f->n     = 0L;			/* chars on line so far */
-	f->linep = f->line = (char *)fs_get(HTML_BUF_LEN * sizeof(char));
-	HD(f)->alt_entity =  (!ps_global->VAR_CHAR_SET
-			      || strucmp(ps_global->VAR_CHAR_SET,
-					 "iso-8859-1"));
-    }
-}
-
-
-
-/*
- * html_indent - do the requested indent level function with appropriate
- *		 flushing and such.
- *
- *   Returns: indent level prior to set/increment
- */
-int
-html_indent(f, val, func)
-    FILTER_S *f;
-    int	      val, func;
-{
-    int old = HD(f)->indent_level;
-
-    /* flush pending data at old indent level */
-    switch(func){
-      case HTML_ID_INC :
-	html_output_flush(f);
-	if((HD(f)->indent_level += val) < 0)
-	  HD(f)->indent_level = 0;
-
-	break;
-
-      case HTML_ID_SET :
-	html_output_flush(f);
-	HD(f)->indent_level = val;
-	break;
-
-      default :
-	break;
-    }
-
-    return(old);
-}
-
-
-
-/*
- * html_blanks - Insert n blank lines into output
- */
-void
-html_blank(f, n)
-    FILTER_S *f;
-    int	      n;
-{
-    /* Cap off any flowing text, and then write blank lines */
-    if(f->f2 || f->n || CENTER_BIT(f) || HD(f)->centered || WRAPPED_LEN(f))
-      html_output(f, HTML_NEWLINE);
-
-    if(HD(f)->wrapstate)
-      while(HD(f)->blanks < n)	/* blanks inc'd by HTML_NEWLINE */
-	html_output(f, HTML_NEWLINE);
-}
-
-
-
-/*
- *  html_newline -- insert a newline mindful of embedded tags
- */
-void
-html_newline(f)
-    FILTER_S *f;
-{
-    html_write_newline(f);		/* commit an actual newline */
-
-    if(f->n){				/* and keep track of blank lines */
-	HD(f)->blanks = 0;
-	f->n = 0L;
-    }
-    else
-      HD(f)->blanks++;
-}
-
-
-/*
- * output the given char, handling any requested wrapping.
- * It's understood that all whitespace handed us is written.  In other
- * words, junk whitespace is weeded out before it's given to us here.
- *
- */
-void
-html_output(f, ch)
-    FILTER_S *f;
-    int	      ch;
-{
-    if(CENTER_BIT(f)){			/* center incoming text */
-	html_output_centered(f, ch);
-    }
-    else{
-	static short embedded = 0; /* BUG: reset on entering filter */
-	static char *color_ptr = NULL;
-
-	if(HD(f)->centered){
-	    html_centered_flush(f);
-	    fs_give((void **) &HD(f)->centered->line.buf);
-	    fs_give((void **) &HD(f)->centered->word.buf);
-	    fs_give((void **) &HD(f)->centered);
-	}
-
-	if(HD(f)->wrapstate){
-	    if(ch == HTML_NEWLINE){		/* hard newline */
-		html_output_flush(f);
-		html_newline(f);
-	    }
-	    else
-	      HD(f)->blanks = 0;		/* reset blank line counter */
-
-	    if(ch == TAG_EMBED){	/* takes up no space */
-		embedded = 1;
-		*(f->linep)++ = TAG_EMBED;
-	    }
-	    else if(embedded){	/* ditto */
-		if(ch == TAG_HANDLE)
-		  embedded = -1;	/* next ch is length */
-		else if(ch == TAG_FGCOLOR || ch == TAG_BGCOLOR){
-		    if(!HD(f)->color)
-		      HD(f)->color = new_color_pair(NULL, NULL);
-
-		    if(ch == TAG_FGCOLOR)
-		      color_ptr = HD(f)->color->fg;
-		    else
-		      color_ptr = HD(f)->color->bg;
-
-		    embedded = 11;
-		}
-		else if(embedded < 0){
-		    embedded = ch;	/* number of embedded chars */
-		}
-		else{
-		    embedded--;
-		    if(color_ptr)
-		      *color_ptr++ = ch;
-
-		    if(embedded == 0 && color_ptr){
-			*color_ptr = '\0';
-			color_ptr = NULL;
-		    }
-		}
-
-		*(f->linep)++ = ch;
-	    }
-	    else if(HTML_ISSPACE(ch)){
-		html_output_flush(f);
-	    }
-	    else{
-		if(HD(f)->prefix)
-		  html_a_prefix(f);
-
-		if(++f->f2 >= WRAP_COLS(f)){
-		    HTML_FLUSH(f);
-		    html_newline(f);
-		    if(HD(f)->in_anchor)
-		      html_write_anchor(f, HD(f)->in_anchor);
-		}
-		else
-		  *(f->linep)++ = ch & 0xff;
-	    }
-	}
-	else{
-	    if(HD(f)->prefix)
-	      html_a_prefix(f);
-
-	    html_output_flush(f);
-
-	    switch(embedded){
-	      case 0 :
-		switch(ch){
-		  default :
-		    f->n++;			/* inc displayed char count */
-		    HD(f)->blanks = 0;		/* reset blank line counter */
-		    html_putc(f, ch & 0xff);
-		    break;
-
-		  case TAG_EMBED :	/* takes up no space */
-		    html_putc(f, TAG_EMBED);
-		    embedded = -2;
-		    break;
-
-		  case HTML_NEWLINE :		/* newline handling */
-		    if(!f->n)
-		      break;
-
-		  case '\n' :
-		    html_newline(f);
-
-		  case '\r' :
-		    break;
-		}
-
-		break;
-
-	      case -2 :
-		embedded = 0;
-		switch(ch){
-		  case TAG_HANDLE :
-		    embedded = -1;	/* next ch is length */
-		    break;
-
-		  case TAG_BOLDON :
-		    BOLD_BIT(f) = 1;
-		    break;
-
-		  case TAG_BOLDOFF :
-		    BOLD_BIT(f) = 0;
-		    break;
-
-		  case TAG_ULINEON :
-		    ULINE_BIT(f) = 1;
-		    break;
-
-		  case TAG_ULINEOFF :
-		    ULINE_BIT(f) = 0;
-		    break;
-
-		  case TAG_FGCOLOR :
-		    if(!HD(f)->color)
-		      HD(f)->color = new_color_pair(NULL, NULL);
-
-		    color_ptr = HD(f)->color->fg;
-		    embedded = 11;
-		    break;
-
-		  case TAG_BGCOLOR :
-		    if(!HD(f)->color)
-		      HD(f)->color = new_color_pair(NULL, NULL);
-
-		    color_ptr = HD(f)->color->bg;
-		    embedded = 11;
-		    break;
-
-		  case TAG_HANDLEOFF :
-		    ch = TAG_INVOFF;
-		    HD(f)->in_anchor = 0;
-		    break;
-
-		  default :
-		    break;
-		}
-
-		html_putc(f, ch);
-		break;
-
-	      case -1 :
-		embedded = ch;	/* number of embedded chars */
-		html_putc(f, ch);
-		break;
-
-	      default :
-		embedded--;
-		if(color_ptr)
-		  *color_ptr++ = ch;
-
-		if(embedded == 0 && color_ptr){
-		    *color_ptr = '\0';
-		    color_ptr = NULL;
-		}
-
-		html_putc(f, ch);
-		break;
-	    }
-	}
-    }
-}
-
-
-/*
- * flush any buffered chars waiting for wrapping.
- */
-void
-html_output_flush(f)
-    FILTER_S *f;
-{
-    if(f->f2){
-	if(f->n && ((int) f->n) + f->f2 > HD(f)->wrapcol)
-	  html_newline(f);		/* wrap? */
-
-	if(f->n){			/* text already on the line? */
-	    html_putc(f, ' ');
-	    f->n++;			/* increment count */
-	}
-	else{
-	    /* write at start of new line */
-	    html_write_indent(f, HD(f)->indent_level);
-
-	    if(HD(f)->in_anchor)
-	      html_write_anchor(f, HD(f)->in_anchor);
-	}
-
-	f->n += f->f2;
-	HTML_FLUSH(f);
-    }
-}
-
-
-
-/*
- * html_output_centered - managed writing centered text
- */
-void
-html_output_centered(f, ch)
-    FILTER_S *f;
-    int	      ch;
-{
-    if(!HD(f)->centered){		/* new text? */
-	html_output_flush(f);
-	if(f->n)			/* start on blank line */
-	  html_newline(f);
-
-	HD(f)->centered = (CENTER_S *) fs_get(sizeof(CENTER_S));
-	memset(HD(f)->centered, 0, sizeof(CENTER_S));
-	/* and grab a buf to start collecting centered text */
-	HD(f)->centered->line.len  = WRAP_COLS(f);
-	HD(f)->centered->line.buf  = (char *) fs_get(HD(f)->centered->line.len
-							      * sizeof(char));
-	HD(f)->centered->line.used = HD(f)->centered->line.width = 0;
-	HD(f)->centered->word.len  = 32;
-	HD(f)->centered->word.buf  = (char *) fs_get(HD(f)->centered->word.len
-							       * sizeof(char));
-	HD(f)->centered->word.used = HD(f)->centered->word.width = 0;
-    }
-
-    if(ch == HTML_NEWLINE){		/* hard newline */
-	html_centered_flush(f);
-    }
-    else if(ch == TAG_EMBED){		/* takes up no space */
-	HD(f)->centered->embedded = 1;
-	html_centered_putc(&HD(f)->centered->word, TAG_EMBED);
-    }
-    else if(HD(f)->centered->embedded){
-	static char *color_ptr = NULL;
-
-	if(ch == TAG_HANDLE){
-	    HD(f)->centered->embedded = -1; /* next ch is length */
-	}
-	else if(ch == TAG_FGCOLOR || ch == TAG_BGCOLOR){
-	    if(!HD(f)->color)
-	      HD(f)->color = new_color_pair(NULL, NULL);
-	    
-	    if(ch == TAG_FGCOLOR)
-	      color_ptr = HD(f)->color->fg;
-	    else
-	      color_ptr = HD(f)->color->bg;
-
-	    HD(f)->centered->embedded = 11;
-	}
-	else if(HD(f)->centered->embedded < 0){
-	    HD(f)->centered->embedded = ch; /* number of embedded chars */
-	}
-	else{
-	    HD(f)->centered->embedded--;
-	    if(color_ptr)
-	      *color_ptr++ = ch;
-	    
-	    if(HD(f)->centered->embedded == 0 && color_ptr){
-		*color_ptr = '\0';
-		color_ptr = NULL;
-	    }
-	}
-
-	html_centered_putc(&HD(f)->centered->word, ch);
-    }
-    else if(isspace((unsigned char) ch)){
-	if(!HD(f)->centered->space++){	/* end of a word? flush! */
-	    int i;
-
-	    if(WRAPPED_LEN(f) > HD(f)->wrapcol){
-		html_centered_flush_line(f);
-		/* fall thru to put current "word" on blank "line" */
-	    }
-	    else if(HD(f)->centered->line.width){
-		/* put space char between line and appended word */
-		html_centered_putc(&HD(f)->centered->line, ' ');
-		HD(f)->centered->line.width++;
-	    }
-
-	    for(i = 0; i < HD(f)->centered->word.used; i++)
-	      html_centered_putc(&HD(f)->centered->line,
-				 HD(f)->centered->word.buf[i]);
-
-	    HD(f)->centered->line.width += HD(f)->centered->word.width;
-	    HD(f)->centered->word.used  = 0;
-	    HD(f)->centered->word.width = 0;
-	}
-    }
-    else{
-	if(HD(f)->prefix)
-	  html_a_prefix(f);
-
-	/* ch is start of next word */
-	HD(f)->centered->space = 0;
-	if(HD(f)->centered->word.width >= WRAP_COLS(f))
-	  html_centered_flush(f);
-
-	html_centered_putc(&HD(f)->centered->word, ch);
-	HD(f)->centered->word.width++;
-    }
-}
-
-
-/*
- * html_centered_putc -- add given char to given WRAPLINE_S
- */
-void
-html_centered_putc(wp, ch)
-    WRAPLINE_S *wp;
-    int		ch;
-{
-    if(wp->used + 1 >= wp->len){
-	wp->len += 64;
-	fs_resize((void **) &wp->buf, wp->len * sizeof(char));
-    }
-
-    wp->buf[wp->used++] = ch;
-}
-
-
-
-/*
- * html_centered_flush - finish writing any pending centered output
- */
-void
-html_centered_flush(f)
-    FILTER_S *f;
-{
-    int i, h;
-
-    /*
-     * If word present (what about line?) we need to deal with
-     * appending it...
-     */
-    if(HD(f)->centered->word.width && WRAPPED_LEN(f) > HD(f)->wrapcol)
-      html_centered_flush_line(f);
-
-    if(WRAPPED_LEN(f)){
-	/* figure out how much to indent */
-	if((i = (WRAP_COLS(f) - WRAPPED_LEN(f))/2) > 0)
-	  html_write_indent(f, i);
-
-	if(HD(f)->centered->anchor)
-	  html_write_anchor(f, HD(f)->centered->anchor);
-
-	html_centered_handle(&HD(f)->centered->anchor,
-			     HD(f)->centered->line.buf,
-			     HD(f)->centered->line.used);
-	html_write(f, HD(f)->centered->line.buf, HD(f)->centered->line.used);
-
-	if(HD(f)->centered->word.used){
-	    if(HD(f)->centered->line.width)
-	      html_putc(f, ' ');
-
-	    html_centered_handle(&HD(f)->centered->anchor,
-				 HD(f)->centered->word.buf,
-				 HD(f)->centered->word.used);
-	    html_write(f, HD(f)->centered->word.buf,
-		       HD(f)->centered->word.used);
-	}
-
-	HD(f)->centered->line.used  = HD(f)->centered->word.used  = 0;
-	HD(f)->centered->line.width = HD(f)->centered->word.width = 0;
-    }
-    else
-      HD(f)->blanks++;			/* advance the blank line counter */
-
-    html_newline(f);			/* finish the line */
-}
-
-
-/*
- * html_centered_handle - scan the line for embedded handles
- */
-void
-html_centered_handle(h, line, len)
-    int  *h;
-    char *line;
-    int   len;
-{
-    int n;
-
-    while(len-- > 0)
-      if(*line++ == TAG_EMBED && len-- > 0)
-	switch(*line++){
-	  case TAG_HANDLE :
-	    if((n = *line++) >= --len){
-		*h = 0;
-		len -= n;
-		while(n--)
-		  *h = (*h * 10) + (*line++ - '0');
-	    }
-	    break;
-
-	  case TAG_HANDLEOFF :
-	  case TAG_INVOFF :
-	    *h = 0;		/* assumption 23,342: inverse off ends tags */
-	    break;
-
-	  default :
-	    break;
-	}
-}
-
-
-
-/*
- * html_centered_flush_line - flush the centered "line" only
- */
-void
-html_centered_flush_line(f)
-    FILTER_S *f;
-{
-    if(HD(f)->centered->line.used){
-	int i, j;
-
-	/* hide "word" from flush */
-	i = HD(f)->centered->word.used;
-	j = HD(f)->centered->word.width;
-	HD(f)->centered->word.used  = 0;
-	HD(f)->centered->word.width = 0;
-	html_centered_flush(f);
-
-	HD(f)->centered->word.used  = i;
-	HD(f)->centered->word.width = j;
-    }
-}
-
-
-/*
- * html_write_indent - write indention mindful of display attributes
- */
-void
-html_write_indent(f, indent)
-    FILTER_S *f;
-    int	      indent;
-{
-    if(! STRIP(f)){
-	if(BOLD_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_BOLDOFF);
-	}
-
-	if(ULINE_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_ULINEOFF);
-	}
-    }
-
-    f->n = indent;
-    while(indent-- > 0)
-      html_putc(f, ' ');		/* indent as needed */
-
-    /*
-     * Resume any previous embedded state
-     */
-    if(! STRIP(f)){
-	if(BOLD_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_BOLDON);
-	}
-
-	if(ULINE_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_ULINEON);
-	}
-    }
-}
-
-
-/*
- *
- */
-void
-html_write_anchor(f, anchor)
-    FILTER_S *f;
-    int	      anchor;
-{
-    char buf[256];
-    int  i;
-
-    html_putc(f, TAG_EMBED);
-    html_putc(f, TAG_HANDLE);
-    sprintf(buf, "%d", anchor);
-    html_putc(f, (int) strlen(buf));
-
-    for(i = 0; buf[i]; i++)
-      html_putc(f, buf[i]);
-}
-
-
-/*
- * html_write_newline - write a newline mindful of display attributes
- */
-void
-html_write_newline(f)
-    FILTER_S *f;
-{
-    if(! STRIP(f)){			/* First tie, off any embedded state */
-	if(HD(f)->in_anchor){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_INVOFF);
-	}
-
-	if(BOLD_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_BOLDOFF);
-	}
-
-	if(ULINE_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_ULINEOFF);
-	}
-
-	if(HD(f)->color && HD(f)->color->fg[0] && HD(f)->color->bg[0]){
-	    char        *p;
-	    int          i;
-
-	    p = color_embed(ps_global->VAR_NORM_FORE_COLOR,
-			    ps_global->VAR_NORM_BACK_COLOR);
-	    for(i = 0; i < 2 * (RGBLEN + 2); i++)
-	      html_putc(f, p[i]);
-	}
-    }
-
-    html_write(f, "\015\012", 2);
-
-    if(! STRIP(f)){			/* First tie, off any embedded state */
-	if(BOLD_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_BOLDON);
-	}
-
-	if(ULINE_BIT(f)){
-	    html_putc(f, TAG_EMBED);
-	    html_putc(f, TAG_ULINEON);
-	}
-
-	if(HD(f)->color && HD(f)->color->fg[0] && HD(f)->color->bg[0]){
-	    char        *p;
-	    int          i;
-	    COLOR_PAIR  *tmp;
-
-	    tmp = new_color_pair(HD(f)->color->fg, HD(f)->color->bg);
-	    if(pico_is_good_colorpair(tmp)){
-		p = color_embed(HD(f)->color->fg, HD(f)->color->bg);
-		for(i = 0; i < 2 * (RGBLEN + 2); i++)
-		  html_putc(f, p[i]);
-	    }
-
-	    HD(f)->color->fg[0] = '\0';
-	    HD(f)->color->bg[0] = '\0';
-
-	    if(tmp)
-	      free_color_pair(&tmp);
-	}
-    }
-}
-
-
-/*
- * html_write - write given int array to the next filter.
- */
-void
-html_write(f, s, n)
-    FILTER_S *f;
-    char     *s;
-    int	      n;
-{
-    GF_INIT(f, f->next);
-
-    while(n-- > 0){
-	/* keep track of attribute state?  Not if last char! */
-	if(*s == TAG_EMBED && n-- > 0){
-	    GF_PUTC(f->next, TAG_EMBED);
-	    switch(*++s){
-	      case TAG_BOLDON :
-		BOLD_BIT(f) = 1;
-		break;
-	      case TAG_BOLDOFF :
-		BOLD_BIT(f) = 0;
-		break;
-	      case TAG_ULINEON :
-		ULINE_BIT(f) = 1;
-		break;
-	      case TAG_ULINEOFF :
-		ULINE_BIT(f) = 0;
-		break;
-	      case TAG_HANDLEOFF :
-		HD(f)->in_anchor = 0;
-		GF_PUTC(f->next, TAG_INVOFF);
-		s++;
-		continue;
-	      case TAG_HANDLE :
-		if(n-- > 0){
-		    int i = *++s;
-
-		    GF_PUTC(f->next, TAG_HANDLE);
-		    if(i <= n){
-			n -= i;
-			GF_PUTC(f->next, i);
-			HD(f)->in_anchor = 0;
-			while(1){
-			    HD(f)->in_anchor = (HD(f)->in_anchor * 10)
-								+ (*++s - '0');
-			    if(--i)
-			      GF_PUTC(f->next, *s);
-			    else
-			      break;
-			}
-		    }
-		}
-
-		break;
-	      default:
-		break;
-	    }
-	}
-
-	GF_PUTC(f->next, (*s++) & 0xff);
-    }
-
-    GF_IP_END(f->next);			/* clean up next's input pointers */
-}
-
-
-/*
- * html_putc -- actual work of writing to next filter.
- *		NOTE: Small opt not using full GF_END since our input
- *		      pointers don't need adjusting.
- */
-void
-html_putc(f, ch)
-    FILTER_S *f;
-    int	      ch;
-{
-    GF_INIT(f, f->next);
-    GF_PUTC(f->next, ch & 0xff);
-    GF_IP_END(f->next);			/* clean up next's input pointers */
-}
-
-
-
-/*
- * Only current option is to turn on embedded data stripping for text
- * bound to a printer or composer.
- */
-void *
-gf_html2plain_opt(base, columns, flags)
-    char *base;
-    int	  columns, flags;
-{
-    HTML_OPT_S *op;
-
-    op = (HTML_OPT_S *) fs_get(sizeof(HTML_OPT_S));
-
-    op->base	    = cpystr(base);
-    op->columns	    = columns;
-    op->strip	    = ((flags & GFHP_STRIPPED) == GFHP_STRIPPED);
-    op->handles	    = ((flags & GFHP_HANDLES) == GFHP_HANDLES);
-    op->handles_loc = ((flags & GFHP_LOCAL_HANDLES) == GFHP_LOCAL_HANDLES);
-    return((void *) op);
-}
-
-
-/* END OF HTML-TO-PLAIN text filter */
-
-/*
- * ESCAPE CODE FILTER - remove unknown and possibly dangerous escape codes
- * from the text stream.
- */
-
-#define	MAX_ESC_LEN	5
-
-/*
- * the simple filter, removes unknown escape codes from the stream
- */
-void
-gf_escape_filter(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    register char *p;
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-
-	    if(state){
-		if(c == '\033' || f->n == MAX_ESC_LEN){
-		    f->line[f->n] = '\0';
-		    f->n = 0L;
-		    if(!match_escapes(f->line)){
-			GF_PUTC(f->next, '^');
-			GF_PUTC(f->next, '[');
-		    }
-		    else
-		      GF_PUTC(f->next, '\033');
-
-		    p = f->line;
-		    while(*p)
-		      GF_PUTC(f->next, *p++);
-
-		    if(c == '\033')
-		      continue;
-		    else
-		      state = 0;			/* fall thru */
-		}
-		else{
-		    f->line[f->n++] = c;		/* collect */
-		    continue;
-		}
-	    }
-
-	    if(c == '\033')
-	      state = 1;
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	if(f->f1){
-	    if(!match_escapes(f->line)){
-		GF_PUTC(f->next, '^');
-		GF_PUTC(f->next, '[');
-	    }
-	    else
-	      GF_PUTC(f->next, '\033');
-	}
-
-	for(p = f->line; f->n; f->n--, p++)
-	  GF_PUTC(f->next, *p);
-
-	fs_give((void **)&(f->line));	/* free temp line buffer */
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset escape\n"));
-	f->f1    = 0;
-	f->n     = 0L;
-	f->linep = f->line = (char *)fs_get((MAX_ESC_LEN + 1) * sizeof(char));
-    }
-}
-
-
-
-/*
- * CONTROL CHARACTER FILTER - transmogrify control characters into their
- * corresponding string representations (you know, ^blah and such)...
- */
-
-/*
- * the simple filter transforms unknown control characters in the stream
- * into harmless strings.
- */
-void
-gf_control_filter(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-
-	while(GF_GETC(f, c)){
-
-	    if(iscntrl(c & 0x7f)
-	       && !(isspace((unsigned char) c)
-		    || c == '\016' || c == '\017' || c == '\033')){
-		GF_PUTC(f->next, '^');
-		GF_PUTC(f->next, c + '@');
-	    }
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-}
-
-
-
-/*
- * LINEWRAP FILTER - insert CRLF's at end of nearest whitespace before
- * specified line width
- */
-
-
-typedef struct wrap_col_s {
-    unsigned	bold:1;
-    unsigned	uline:1;
-    unsigned	inverse:1;
-    unsigned	tags:1;
-    unsigned	do_indent:1;
-    unsigned	on_comma:1;
-    unsigned	quoted:1;
-    COLOR_PAIR *color;
-    short	embedded,
-		space_len;
-    char       *lineendp,
-		space;
-    int		anchor;
-    int		wrap_col,
-		wrap_max,
-		indent;
-    char	special[256];
-} WRAP_S;
-
-
-#define	WRAP_COL(F)	(((WRAP_S *)(F)->opt)->wrap_col)
-#define	WRAP_MAX_COL(F)	(((WRAP_S *)(F)->opt)->wrap_max)
-#define	WRAP_INDENT(F)	(((WRAP_S *)(F)->opt)->indent)
-#define	WRAP_DO_IND(F)	(((WRAP_S *)(F)->opt)->do_indent)
-#define	WRAP_COMMA(F)	(((WRAP_S *)(F)->opt)->on_comma)
-#define	WRAP_QUOTED(F)	(((WRAP_S *)(F)->opt)->quoted)
-#define	WRAP_TAGS(F)	(((WRAP_S *)(F)->opt)->tags)
-#define	WRAP_BOLD(F)	(((WRAP_S *)(F)->opt)->bold)
-#define	WRAP_ULINE(F)	(((WRAP_S *)(F)->opt)->uline)
-#define	WRAP_INVERSE(F)	(((WRAP_S *)(F)->opt)->inverse)
-#define	WRAP_COLOR(F)	(((WRAP_S *)(F)->opt)->color)
-#define	WRAP_LASTC(F)	(((WRAP_S *)(F)->opt)->lineendp)
-#define	WRAP_EMBED(F)	(((WRAP_S *)(F)->opt)->embedded)
-#define	WRAP_ANCHOR(F)	(((WRAP_S *)(F)->opt)->anchor)
-#define	WRAP_SPACE(F)	(((WRAP_S *)(F)->opt)->space)
-#define	WRAP_SPACES(F)	(WRAP_SPACE(F) ? (((WRAP_S *)(F)->opt)->space_len): 0)
-#define	WRAP_SPC_LEN(F)	(((WRAP_S *)(F)->opt)->space_len)
-#define	WRAP_SPEC(S, C)	(S)[C]
-
-#define	WRAP_EOL(F)	{						\
-			    if(WRAP_BOLD(F)){				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_BOLDOFF);	\
-			    }						\
-			    if(WRAP_ULINE(F)){				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_ULINEOFF);	\
-			    }						\
-			    if(WRAP_INVERSE(F) || WRAP_ANCHOR(F)){	\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_INVOFF);		\
-			    }						\
-			    if(WRAP_COLOR(F)){				\
-				char *p;				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_FGCOLOR);	\
-				p = color_to_asciirgb(ps_global->VAR_NORM_FORE_COLOR);\
-				for(; *p; p++)				\
-				  GF_PUTC((F)->next, *p);		\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_BGCOLOR);	\
-				p = color_to_asciirgb(ps_global->VAR_NORM_BACK_COLOR);\
-				for(; *p; p++)				\
-				  GF_PUTC((F)->next, *p);		\
-			    }						\
-			    GF_PUTC((F)->next, '\015');			\
-			    GF_PUTC((F)->next, '\012');			\
-			    f->n = 0L;					\
-			    WRAP_SPACE(F) = 0;				\
-			}
-
-#define	WRAP_BOL(F)	{						\
-			    if(WRAP_BOLD(F)){				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_BOLDON);		\
-			    }						\
-			    if(WRAP_ULINE(F)){				\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_ULINEON);	\
-			    }						\
-			    if(WRAP_INVERSE(F)){			\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_INVON);		\
-			    }						\
-			    if(WRAP_COLOR(F)){				\
-				char *p;				\
-				if(WRAP_COLOR(F)->fg[0]){		\
-				  GF_PUTC((F)->next, TAG_EMBED);	\
-				  GF_PUTC((F)->next, TAG_FGCOLOR);	\
-				  p = color_to_asciirgb(WRAP_COLOR(F)->fg);\
-				  for(; *p; p++)			\
-				    GF_PUTC((F)->next, *p);		\
-				}					\
-				if(WRAP_COLOR(F)->bg[0]){		\
-				  GF_PUTC((F)->next, TAG_EMBED);	\
-				  GF_PUTC((F)->next, TAG_BGCOLOR);	\
-				  p = color_to_asciirgb(WRAP_COLOR(F)->bg);\
-				  for(; *p; p++)			\
-				    GF_PUTC((F)->next, *p);		\
-				}					\
-			    }						\
-			    if(WRAP_ANCHOR(F)){				\
-				char buf[64]; int i;			\
-				GF_PUTC((F)->next, TAG_EMBED);		\
-				GF_PUTC((F)->next, TAG_HANDLE);		\
-				sprintf(buf, "%d", WRAP_ANCHOR(F));	\
-				GF_PUTC((F)->next, (int) strlen(buf));	\
-				for(i = 0; buf[i]; i++)			\
-				  GF_PUTC((F)->next, buf[i]);		\
-			    }						\
-			}
-
-#define	WRAP_PUTC(F,C)	{						\
-			    if((F)->linep == WRAP_LASTC(F)){		\
-				size_t offset = (F)->linep - (F)->line;	\
-				fs_resize((void **) &(F)->line,		\
-					  (2 * offset) * sizeof(char)); \
-				(F)->linep = &(F)->line[offset];	\
-				WRAP_LASTC(F) = &(F)->line[2*offset-1];	\
-			    }						\
-			    *(F)->linep++ = (C);			\
-			}
-
-#define	WRAP_FLUSH(F)	{						\
-			    register char *s = f->line;			\
-			    register int   n;				\
-			    if(!f->n){					\
-				if(WRAP_DO_IND(F)){			\
-				    if(f->n = (long)(n = WRAP_INDENT(F))) \
-				      while(n-- > 0)			\
-					GF_PUTC((F)->next, ' ');	\
-				    WRAP_DO_IND(F) = 0;			\
-				}					\
-				WRAP_BOL(F);				\
-			    }						\
-			    if(WRAP_SPACE(F)){				\
-				GF_PUTC(f->next, WRAP_SPACE(F));	\
-				WRAP_SPACE(F) = 0;			\
-				f->n += WRAP_SPC_LEN(F);		\
-			    }						\
-			    for(n = f->linep - f->line; n > 0; n--){	\
-				if(*s == TAG_EMBED){			\
-				    if(n-- > 0){			\
-					GF_PUTC(f->next, TAG_EMBED);	\
-					switch(*++s){			\
-					  case TAG_BOLDON :		\
-					    WRAP_BOLD(f) = 1;		\
-					    break;			\
-					  case TAG_BOLDOFF :		\
-					    WRAP_BOLD(f) = 0;		\
-					    break;			\
-					  case TAG_ULINEON :		\
-					    WRAP_ULINE(f) = 1;		\
-					    break;			\
-					  case TAG_ULINEOFF :		\
-					    WRAP_ULINE(f) = 0;		\
-					    break;			\
-					  case TAG_INVOFF :		\
-					    WRAP_ANCHOR(f) = 0;		\
-					    break;			\
-					  case TAG_HANDLE :		\
-					    if(n-- > 0){		\
-						int i = *++s;		\
-						GF_PUTC(f->next, TAG_HANDLE); \
-						if(i <= n){		\
-						    n -= i;		\
-						    GF_PUTC(f->next, i); \
-						    WRAP_ANCHOR(f) = 0;	\
-						    while(1){		\
-							WRAP_ANCHOR(f)	\
-							  = (WRAP_ANCHOR(f) \
-							        * 10)	\
-								+ (*++s-'0');\
-							if(--i)		\
-							  GF_PUTC(f->next,*s);\
-							else		\
-							  break;	\
-						    }			\
-						}			\
-					    }				\
-					    break;			\
-					  case TAG_FGCOLOR :		\
-					    if(pico_usingcolor()	\
-					       && n >= RGBLEN){		\
-					      if(!WRAP_COLOR(f))	\
-						WRAP_COLOR(f)=new_color_pair(NULL,NULL); \
-					      strncpy(WRAP_COLOR(f)->fg, \
-						      s+1, RGBLEN);	\
-					      WRAP_COLOR(f)->fg[RGBLEN]='\0'; \
-					      i = RGBLEN;		\
-					      n -= i;			\
-					      while(i-- > 0)		\
-						GF_PUTC(f->next,	\
-							(*s++) & 0xff);	\
-					    }				\
-					    break;			\
-					  case TAG_BGCOLOR :		\
-					    if(pico_usingcolor()	\
-					       && n >= RGBLEN){		\
-					      if(!WRAP_COLOR(f))	\
-						WRAP_COLOR(f)=new_color_pair(NULL,NULL); \
-					      strncpy(WRAP_COLOR(f)->bg,\
-						      s+1, RGBLEN);	\
-					      WRAP_COLOR(f)->bg[RGBLEN]='\0'; \
-					      i = RGBLEN;		\
-					      n -= i;			\
-					      while(i-- > 0)		\
-						GF_PUTC(f->next,	\
-							(*s++) & 0xff);	\
-					    }				\
-					    break;			\
-					  default :			\
-					    break;			\
-					}				\
-				    }					\
-				}					\
-				else					\
-				  f->n++;				\
-				GF_PUTC(f->next, (*s++) & 0xff);	\
-			    }						\
-			    f->f2    = 0;				\
-			    f->linep = f->line;				\
-			}
-
-
-
-
-/*
- * the simple filter, breaks lines at end of white space nearest
- * to global "gf_wrap_width" in length
- */
-void
-gf_wrap(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    register long i;
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-	int	     wrap_threshold = WRAP_MAX_COL(f) - WRAP_INDENT(f);
-	char	    *special = ((WRAP_S *) f->opt)->special;
-
-	while(GF_GETC(f, c)){
-
-	    switch(state){
-	      case CCR :
-		state = DFL;			/* CRLF or CR in text ? */
-		WRAP_FLUSH(f);			/* it's a newline to us */
-		WRAP_EOL(f);
-		WRAP_BOL(f);
-		if(c == '\012')			/* process anything but LF */
-		  break;
-
-	      case DFL :
-		if(WRAP_SPEC(special, c))
-		  switch(c){
-		    default :
-		      if(WRAP_QUOTED(f))
-			break;
-
-		      WRAP_FLUSH(f);		/* flush buf */
-		      switch(WRAP_SPACE(f) = c){ /* remember separator */
-			case ' ' :
-			  WRAP_SPC_LEN(f) = 1;
-			  break;
-
-			case TAB :
-			{
-			    int i = (int) f->n;
-			    while(++i & 0x07)
-			      ;
-
-			    WRAP_SPC_LEN(f) = i - (int) f->n;
-			}
-
-			break;
-
-			default :		/* some control char? */
-			  WRAP_SPC_LEN(f) = 2;
-			  break;
-		      }
-
-		      continue;
-
-		    case '\"' :
-		      WRAP_QUOTED(f) = !WRAP_QUOTED(f);
-		      break;
-
-		    case '\015' :		/* already has newline? */
-		      state = CCR;
-		      continue;
-
-		    case '\012' :		/* bare LF in text? */
-		      WRAP_FLUSH(f);		/* they must've meant */
-		      WRAP_EOL(f);		/* newline... */
-		      WRAP_BOL(f);
-		      continue;
-
-		    case (unsigned char) TAG_EMBED :
-		      WRAP_PUTC(f, TAG_EMBED);
-		      state = TAG;
-		      continue;
-
-		    case ',' :
-		      if(!WRAP_QUOTED(f)){
-			  WRAP_PUTC(f, ',');
-			  WRAP_FLUSH(f);
-			  WRAP_SPACE(f) = 0;
-			  continue;
-		      }
-
-		      break;
-		  }
-
-		if(!f->n && (f->f2 >= wrap_threshold)){
-		    char *ep, *space = NULL;
-		    int   cntr, new_f2;
-
-		    /* Flush the buf'd line up to last WS */
-		    if(WRAP_COMMA(f)){
-			char *p;
-
-			new_f2 = cntr = f->f2;
-			for(p = f->line; p < f->linep; p++){
-			    /*
-			     * Don't split at WS which is in the middle
-			     * of a tag.
-			     */
-			    switch((unsigned char)*p){
-			      case (unsigned char)TAG_EMBED:
-				if(++p >= f->linep)
-				  break;
-
-				switch(*p){
-				  case TAG_FGCOLOR:
-				  case TAG_BGCOLOR:
-				    p += RGBLEN;
-				    break;
-
-				  case TAG_HANDLE:
-				    if(++p >= f->linep)
-				      break;
-					
-				    p += (*p);
-				    break;
-
-				  default:
-				    break;
-				}
-
-				continue;
-				break;
-				
-			      default:
-				break;
-			    }
-				
-			    cntr--;
-
-			    if(p < f->linep && isspace((unsigned char)*p)){
-				space = p;
-				new_f2 = cntr;
-			    }
-			}
-
-			if(space){
-			    ep = f->linep;
-			    f->linep = space;
-			}
-		    }
-
-		    WRAP_FLUSH(f);		/* write buffered */
-		    WRAP_EOL(f);		/* write end of line */
-		    WRAP_DO_IND(f) = 1;		/* indent next line */
-
-		    if(space){
-			f->linep = f->line;
-			while(++space < ep)
-			  *f->linep++ = *space;
-
-			f->f2 = new_f2;
-		    }
-		}
-
-		WRAP_PUTC(f, c);
-
-		if(c == '\t' && WRAP_COMMA(f)){
-		    int i = (int) f->n;
-		    while(++i & 0x07)
-		      ;
-
-		    f->f2 += i - (int) f->n;
-		}
-		else
-		  f->f2++;
-
-		if(f->n && (f->n + f->f2 + WRAP_SPACES(f) >= WRAP_COL(f))){
-		    WRAP_EOL(f);		/* write end of line */
-		    WRAP_DO_IND(f) = 1;		/* indent next line */
-		}
-
-		break;
-
-	      case TAG :
-		WRAP_PUTC(f, c);
-		switch(c){
-		  case TAG_HANDLE :
-		    WRAP_EMBED(f) = -1;
-		    state = HANDLE;
-		    break;
-
-		  case TAG_FGCOLOR :
-		  case TAG_BGCOLOR :
-		    WRAP_EMBED(f) = RGBLEN;
-		    state = HDATA;
-		    break;
-
-		  default :
-		    state = DFL;
-		    break;
-		}
-
-		break;
-
-	      case HANDLE :
-		WRAP_PUTC(f, c);
-		WRAP_EMBED(f) = c;
-		state = HDATA;
-		break;
-
-	      case HDATA :
-		WRAP_PUTC(f, c);
-		if(!(WRAP_EMBED(f) -= 1))
-		  state = DFL;
-
-		break;
-	    }
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	WRAP_FLUSH(f);
-	if(WRAP_COLOR(f))
-	  free_color_pair(&WRAP_COLOR(f));
-
-	fs_give((void **) &f->line);	/* free temp line buffer */
-	fs_give((void **) &f->opt);	/* free wrap widths struct */
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset wrap\n"));
-	f->f1    = DFL;
-	f->n     = 0L;		/* displayed length of line so far */
-	f->f2	 = 0;		/* displayed length of buffered chars */
-	if(! (WRAP_S *) f->opt)
-	  f->opt = gf_wrap_filter_opt(75, 80, 0, 0);
-
-	while(WRAP_INDENT(f) >= WRAP_MAX_COL(f))
-	  WRAP_INDENT(f) /= 2;
-
-	f->line  = (char *) fs_get(WRAP_MAX_COL(f) * sizeof(char));
-	f->linep = f->line;
-	WRAP_LASTC(f) = &f->line[WRAP_MAX_COL(f) - 1];
-
-	for(i = 0; i < 256; i++)
-	  ((WRAP_S *) f->opt)->special[i] = ((i == '\"' && WRAP_COMMA(f))
-					     || i == '\015'
-					     || i == '\012'
-					     || (i == (unsigned char) TAG_EMBED
-						 && WRAP_TAGS(f))
-					     || (i == ',' && WRAP_COMMA(f)
-						 && !WRAP_QUOTED(f))
-					     || (!WRAP_COMMA(f)
-					      && isspace((unsigned char) i)));
-    }
-}
-
-
-/*
- * function called from the outside to set
- * wrap filter's width option
- */
-void *
-gf_wrap_filter_opt(width, width_max, indent, flags)
-    int width, width_max, indent, flags;
-{
-    WRAP_S *wrap;
-
-    wrap = (WRAP_S *) fs_get(sizeof(WRAP_S));
-    memset(wrap, 0, sizeof(WRAP_S));
-    wrap->wrap_col = width;
-    wrap->wrap_max = width_max;
-    wrap->indent   = indent;
-    wrap->tags	   = (GFW_HANDLES & flags) == GFW_HANDLES;
-    wrap->on_comma = (GFW_ONCOMMA & flags) == GFW_ONCOMMA;
-    return((void *) wrap);
-}
-
-
-
-
-/*
- * LINE PREFIX FILTER - insert given text at beginning of each
- * line
- */
-
-
-#define	GF_PREFIX_WRITE(s)	{ \
-				    register char *p; \
-				    if(p = (s)) \
-				      while(*p) \
-					GF_PUTC(f->next, *p++); \
-				}
-
-
-/*
- * the simple filter, prepends each line with the requested prefix.
- * if prefix is null, does nothing, and as with all filters, assumes
- * NVT end of lines.
- */
-void
-gf_prefix(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-	register int first = f->f2;
-
-	while(GF_GETC(f, c)){
-
-	    if(first){			/* write initial prefix!! */
-		first = 0;		/* but just once */
-		GF_PREFIX_WRITE((char *) f->opt);
-	    }
-	    else if(state){
-		state = 0;
-		GF_PUTC(f->next, '\015');
-		if(c == '\012'){
-		    GF_PUTC(f->next, '\012');
-		    GF_PREFIX_WRITE((char *) f->opt);
-		    continue;
-		}
-		/* else fall thru to handle 'c' */
-	    }
-
-	    if(c == '\015')		/* already has newline? */
-	      state = 1;
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	f->f1 = state;
-	f->f2 = first;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset prefix\n"));
-	f->f1   = 0;
-	f->f2   = 1;			/* nothing written yet */
-    }
-}
-
-
-/*
- * function called from the outside to set
- * prefix filter's prefix string
- */
-void *
-gf_prefix_opt(prefix)
-    char *prefix;
-{
-    return((void *) prefix);
-}
-
-
-/*
- * LINE TEST FILTER - accumulate lines and offer each to the provided
- * test function.
- */
-
-typedef struct _linetest_s {
-    linetest_t	f;
-    void       *local;
-} LINETEST_S;
-
-
-/* accumulator growth increment */
-#define	LINE_TEST_BLOCK	1024
-
-#define	GF_LINE_TEST_EOB(f) \
-			((f)->line + ((f)->f2 - 1))
-
-#define	GF_LINE_TEST_ADD(f, c) \
-			{ \
-				    if(p >= eobuf){ \
-					f->f2 += LINE_TEST_BLOCK; \
-					fs_resize((void **)&f->line, \
-					      (size_t) f->f2 * sizeof(char)); \
-					eobuf = GF_LINE_TEST_EOB(f); \
-					p = eobuf - LINE_TEST_BLOCK; \
-				    } \
-				    *p++ = c; \
-				}
-
-#define	GF_LINE_TEST_TEST(F, D) \
-			{ \
-			    unsigned char  c; \
-			    register char *cp; \
-			    register int   l; \
-			    LT_INS_S	  *ins = NULL, *insp; \
-			    *p = '\0'; \
-			    (D) = (*((LINETEST_S *) (F)->opt)->f)((F)->n++, \
-					   (F)->line, &ins, \
-					   ((LINETEST_S *) (F)->opt)->local); \
-			    if((D) < 2){ \
-				for(insp = ins, cp = (F)->line; cp < p; ){ \
-				    while(insp && cp == insp->where){ \
-					for(l = 0; l < insp->len; l++){ \
-					    c = (unsigned char) insp->text[l];\
-					    GF_PUTC((F)->next, c); \
-					} \
-					insp = insp->next; \
-				    } \
-				    GF_PUTC((F)->next, *cp); \
-				    cp++; \
-				} \
-				while(insp){ \
-				    for(l = 0; l < insp->len; l++){ \
-					c = (unsigned char) insp->text[l]; \
-					GF_PUTC((F)->next, c); \
-				    } \
-				    insp = insp->next; \
-				} \
-				gf_line_test_free_ins(&ins); \
-			    } \
-			}
-
-
-
-/*
- * this simple filter accumulates characters until a newline, offers it
- * to the provided test function, and then passes it on.  It assumes
- * NVT EOLs.
- */
-void
-gf_line_test(f, flg)
-    FILTER_S *f;
-    int	      flg;
-{
-    register char *p = f->linep;
-    register char *eobuf = GF_LINE_TEST_EOB(f);
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-
-	    if(state){
-		state = 0;
-		if(c == '\012'){
-		    int done;
-
-		    GF_LINE_TEST_TEST(f, done);
-
-		    p = (f)->line;
-
-		    if(done == 2)	/* skip this line! */
-		      continue;
-
-		    GF_PUTC(f->next, '\015');
-		    GF_PUTC(f->next, '\012');
-		    /*
-		     * if the line tester returns TRUE, it's
-		     * telling us its seen enough and doesn't
-		     * want to see any more.  Remove ourself
-		     * from the pipeline...
-		     */
-		    if(done){
-			if(gf_master == f){
-			    gf_master = f->next;
-			}
-			else{
-			    FILTER_S *fprev;
-
-			    for(fprev = gf_master;
-				fprev && fprev->next != f;
-				fprev = fprev->next)
-			      ;
-
-			    if(fprev)		/* wha??? */
-			      fprev->next = f->next;
-			    else
-			      continue;
-			}
-
-			while(GF_GETC(f, c))	/* pass input */
-			  GF_PUTC(f->next, c);
-
-			GF_FLUSH(f->next);	/* and drain queue */
-			fs_give((void **)&f->line);
-			fs_give((void **)&f);	/* wax our data */
-			return;
-		    }
-		    else
-		      continue;
-		}
-		else			/* add CR to buffer */
-		  GF_LINE_TEST_ADD(f, '\015');
-	    } /* fall thru to handle 'c' */
-
-	    if(c == '\015')		/* newline? */
-	      state = 1;
-	    else
-	      GF_LINE_TEST_ADD(f, c);
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	int i;
-
-	GF_LINE_TEST_TEST(f, i);	/* examine remaining data */
-	fs_give((void **) &f->line);	/* free line buffer */
-	fs_give((void **) &f->opt);	/* free test struct */
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset line_test\n"));
-	f->f1 = 0;			/* state */
-	f->n  = 0L;			/* line number */
-	f->f2 = LINE_TEST_BLOCK;	/* size of alloc'd line */
-	f->line = p = (char *) fs_get(f->f2 * sizeof(char));
-    }
-
-    f->linep = p;
-}
-
-
-/*
- * function called from the outside to operate on accumulated line.
- */
-void *
-gf_line_test_opt(test_f, local)
-    linetest_t  test_f;
-    void       *local;
-{
-    LINETEST_S *ltp;
-
-    ltp = (LINETEST_S *) fs_get(sizeof(LINETEST_S));
-    memset(ltp, 0, sizeof(LINETEST_S));
-    ltp->f     = test_f;
-    ltp->local = local;
-    return((void *) ltp);
-}
-
-
-
-LT_INS_S **
-gf_line_test_new_ins(ins, p, s, n)
-    LT_INS_S **ins;
-    char      *p, *s;
-    int	       n;
-{
-    *ins = (LT_INS_S *) fs_get(sizeof(LT_INS_S));
-    if((*ins)->len = n)
-      strncpy((*ins)->text = (char *) fs_get(n * sizeof(char)), s, n);
-
-    (*ins)->where = p;
-    (*ins)->next  = NULL;
-    return(&(*ins)->next);
-}
-
-
-void
-gf_line_test_free_ins(ins)
-    LT_INS_S **ins;
-{
-    if(ins && *ins){
-	if((*ins)->next)
-	  gf_line_test_free_ins(&(*ins)->next);
-
-	if((*ins)->text)
-	  fs_give((void **) &(*ins)->text);
-
-	fs_give((void **) ins);
-    }
-}
-
-
-/*
- * Network virtual terminal to local newline convention filter
- */
-void
-gf_nvtnl_local(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-	register int state = f->f1;
-
-	while(GF_GETC(f, c)){
-	    if(state){
-		state = 0;
-		if(c == '\012'){
-		    GF_PUTC(f->next, '\012');
-		    continue;
-		}
-		else
-		  GF_PUTC(f->next, '\015');
-		/* fall thru to deal with 'c' */
-	    }
-
-	    if(c == '\015')
-	      state = 1;
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	f->f1 = state;
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset nvtnl_local\n"));
-	f->f1 = 0;
-    }
-}
-
-
-/*
- * local to network newline convention filter
- */
-void
-gf_local_nvtnl(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-
-	while(GF_GETC(f, c)){
-	    if(c == '\012'){
-		GF_PUTC(f->next, '\015');
-		GF_PUTC(f->next, '\012');
-	    }
-	    else
-	      GF_PUTC(f->next, c);
-	}
-
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset local_nvtnl\n"));
-	/* no op */
-    }
-
-}
-
-#if defined(DOS) || defined(OS2)
-/*
- * DOS CodePage to Character Set Translation (and back) filters
- */
-
-/*
- * Charset and CodePage mapping table pointer and length
- */
-static unsigned char *gf_xlate_tab;
-static unsigned gf_xlate_tab_len;
-
-/*
- * the simple filter takes DOS Code Page values and maps them into
- * the indicated external CharSet mapping or vice-versa.
- */
-void
-gf_translate(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-
-	while(GF_GETC(f, c))
-	  if((unsigned long) c < ((SIZEDTEXT *) (f->opt))->size)
-	    GF_PUTC(f->next, (int) ((SIZEDTEXT *) (f->opt))->data[c]);
-
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	fs_give((void **) &f->opt);	/* free up table description */
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset translate\n"));
-    }
-}
-
-
-/*
- * function called from the outside to set
- * prefix filter's prefix string
- */
-void *
-gf_translate_opt(xlatetab, xlatetablen)
-    unsigned char *xlatetab;
-    unsigned       xlatetablen;
-{
-    SIZEDTEXT *xlate_tab = (SIZEDTEXT *) fs_get(sizeof(SIZEDTEXT));
-
-    xlate_tab->data = xlatetab;
-    xlate_tab->size = (unsigned long) xlatetablen;
-
-    return((void *) xlate_tab);
-}
-#endif
-
-/*
- * display something indicating we're chewing on something
- *
- * NOTE : IF ANY OTHER FILTERS WRITE THE DISPLAY, THIS WILL NEED FIXING
- */
-void
-gf_busy(f, flg)
-    FILTER_S *f;
-    int       flg;
-{
-    static short x = 0;
-    GF_INIT(f, f->next);
-
-    if(flg == GF_DATA){
-	register unsigned char c;
-
-	while(GF_GETC(f, c)){
-
-	    if(!((++(f->f1))&0x7ff)){ 	/* ding the bell every 2K chars */
-		MoveCursor(0, 1);
-		f->f1 = 0;
-		if((++x)&0x04) x = 0;
-		Writechar((x == 0) ? '/' : 	/* CHEATING! */
-			  (x == 1) ? '-' :
-			  (x == 2) ? '\\' : '|', 0);
-	    }
-
-	    GF_PUTC(f->next, c);
-	}
-
-	GF_END(f, f->next);
-    }
-    else if(flg == GF_EOD){
-	MoveCursor(0, 1);
-	Writechar(' ', 0);
-	EndInverse();
-	GF_FLUSH(f->next);
-	(*f->next->f)(f->next, GF_EOD);
-    }
-    else if(flg == GF_RESET){
-	dprint(9, (debugfile, "-- gf_reset busy\n"));
-	f->f1 = 0;
-        x = 0;
-	StartInverse();
-    }
-
-    fflush(stdout);
-}
diff --git a/net-mail/pine/files/os.c b/net-mail/pine/files/os.c
deleted file mode 100644
index 2fd967904207..000000000000
--- a/net-mail/pine/files/os.c
+++ /dev/null
@@ -1,5673 +0,0 @@
-/*----------------------------------------------------------------------
-
-            T H E    P I N E    M A I L   S Y S T E M
-
-   Laurence Lundblade and Mike Seibel
-   Networks and Distributed Computing
-   Computing and Communications
-   University of Washington
-   Administration Builiding, AG-44
-   Seattle, Washington, 98195, USA
-   Internet: lgl@CAC.Washington.EDU
-             mikes@CAC.Washington.EDU
-
-   Please address all bugs and comments to "pine-bugs@cac.washington.edu"
-
-
-   Pine and Pico are registered trademarks of the University of Washington.
-   No commercial use of these trademarks may be made without prior written
-   permission of the University of Washington.
-
-   Pine, Pico, and Pilot software and its included text are Copyright
-   1989-1998 by the University of Washington.
-
-   The full text of our legal notices is contained in the file called
-   CPYRIGHT, included with this distribution.
-
-
-   Pine is in part based on The Elm Mail System:
-    ***********************************************************************
-    *  The Elm Mail System  -  Revision: 2.13                             *
-    *                                                                     *
-    * 			Copyright (c) 1986, 1987 Dave Taylor              *
-    * 			Copyright (c) 1988, 1989 USENET Community Trust   *
-    ***********************************************************************
- 
-
-  ----------------------------------------------------------------------*/
-
-/*======================================================================
-
- This contains most of Pine's interface to the local operating system
-and hardware.  Hopefully this file, os-xxx.h and makefile.xxx are the
-only ones that have to be modified for most ports.  Signals.c, ttyin.c,
-and ttyout.c also have some dependencies.  See the doc/tech-notes for
-notes on porting Pine to other platforms.  Here is a list of the functions
-required for an implementation:
-
-
-  File System Access
-     can_access          -- See if a file can be accessed
-     name_file_size      -- Return the number of bytes in the file (by name)
-     fp_file_size        -- Return the number of bytes in the file (by FILE *)
-     name_file_mtime     -- Return the mtime of a file (by name)
-     fp_file_mtime       -- Return the mtime of a file (by FILE *)
-     file_attrib_copy    -- Copy attributes of one file to another.
-     is_writable_dir     -- Check to see if directory exists and is writable
-     create_mail_dir     -- Make a directory
-     rename_file         -- change name of a file
-     build_path          -- Put together a file system path
-     last_cmpnt          -- Returns pointer to last component of path
-     expand_foldername   -- Expand a folder name to full path
-     fnexpand            -- Do filename exansion for csh style "~"
-     filter_filename     -- Make sure file name hasn't got weird chars
-     cntxt_allowed       -- Check whether a pathname is allowed for read/write
-     disk_quota          -- Check the user's disk quota
-     read_file           -- Read whole file into memory (for small files)
-     create_tmpfile      -- Just like ANSI C tmpfile function
-     temp_nam            -- Almost like common tempnam function
-     fget_pos,fset_pos   -- Just like ANSI C fgetpos, fsetpos functions
-
-  Abort
-     coredump            -- Abort running Pine dumping core if possible
-
-  System Name and Domain
-     hostname            -- Figure out the system's host name, only
-                              used internally in this file.
-     getdomainnames      -- Figure out the system's domain name
-     canonical_name      -- Returns canonical form of host name
-
-  Job Control
-     have_job_control    -- Returns 1 if job control exists
-     stop_process        -- What to do to stop process when it's time to stop
-			      (only used if have_job_control returns 1)
-
-  System Error Messages (in case given one is a problem)
-     error_description   -- Returns string describing error
-
-  System Password and Accounts
-     gcos_name           -- Parses full name from system, only used
-			      locally in this file so if you don't use it you
-			      don't need it
-     get_user_info       -- Finds in login name, full name, and homedir
-     local_name_lookup   -- Get full name of user on system
-     change_passwd       -- Calls system password changer
-
-  MIME utilities
-     mime_can_display    -- Can we display this type/subtype?
-     exec_mailcap_cmd    -- Run the mailcap command to view a type/subtype.
-     exec_mailcap_test_cmd -- Run mailcap test= test command.
-
-  Other stuff
-     srandom             -- Dummy srandom if you don't have this function
-     init_debug
-     do_debug
-     save_debug_on_crash
-
-  ====*/
-
-
-#include "headers.h"
-
-
-
-/*----------------------------------------------------------------------
-       Check if we can access a file in a given way
-
-   Args: file      -- The file to check
-         mode      -- The mode ala the access() system call, see ACCESS_EXISTS
-                      and friends in pine.h.
-
- Result: returns 0 if the user can access the file according to the mode,
-         -1 if he can't (and errno is set).
- ----*/
-int
-can_access(file, mode)
-    char *file;
-    int   mode;
-{
-    return(access(file, mode));
-}
-
-
-/*----------------------------------------------------------------------
-       Check if we can access a file in a given way in the given path
-
-   Args: path     -- The path to look for "file" in
-	 file      -- The file to check
-         mode      -- The mode ala the access() system call, see ACCESS_EXISTS
-                      and friends in pine.h.
-
- Result: returns 0 if the user can access the file according to the mode,
-         -1 if he can't (and errno is set).
- ----*/
-can_access_in_path(path, file, mode)
-    char *path, *file;
-    int   mode;
-{
-    char tmp[MAXPATH], *path_copy, *p, *t;
-    int  rv = -1;
-
-    if(!path || !*path || *file == '/'){
-	rv = access(file, mode);
-    }
-    else if(*file == '~'){
-	strcpy(tmp, file);
-	rv = fnexpand(tmp, sizeof(tmp)) ? access(tmp, mode) : -1;
-    }
-    else{
-	for(p = path_copy = cpystr(path); p && *p; p = t){
-	    if(t = strindex(p, ':'))
-	      *t++ = '\0';
-
-	    sprintf(tmp, "%s/%s", p, file);
-	    if((rv = access(tmp, mode)) == 0)
-	      break;
-	}
-
-	fs_give((void **)&path_copy);
-    }
-
-    return(rv);
-}
-
-/*----------------------------------------------------------------------
-      Return the number of bytes in given file
-
-    Args: file -- file name
-
-  Result: the number of bytes in the file is returned or
-          -1 on error, in which case errno is valid
- ----*/
-long
-name_file_size(file)
-    char *file;
-{
-    struct stat buffer;
-
-    if(stat(file, &buffer) != 0)
-      return(-1L);
-
-    return((long)buffer.st_size);
-}
-
-
-/*----------------------------------------------------------------------
-      Return the number of bytes in given file
-
-    Args: fp -- FILE * for open file
-
-  Result: the number of bytes in the file is returned or
-          -1 on error, in which case errno is valid
- ----*/
-long
-fp_file_size(fp)
-    FILE *fp;
-{
-    struct stat buffer;
-
-    if(fstat(fileno(fp), &buffer) != 0)
-      return(-1L);
-
-    return((long)buffer.st_size);
-}
-
-
-/*----------------------------------------------------------------------
-      Return the modification time of given file
-
-    Args: file -- file name
-
-  Result: the time of last modification (mtime) of the file is returned or
-          -1 on error, in which case errno is valid
- ----*/
-time_t
-name_file_mtime(file)
-    char *file;
-{
-    struct stat buffer;
-
-    if(stat(file, &buffer) != 0)
-      return((time_t)(-1));
-
-    return(buffer.st_mtime);
-}
-
-
-/*----------------------------------------------------------------------
-      Return the modification time of given file
-
-    Args: fp -- FILE * for open file
-
-  Result: the time of last modification (mtime) of the file is returned or
-          -1 on error, in which case errno is valid
- ----*/
-time_t
-fp_file_mtime(fp)
-    FILE *fp;
-{
-    struct stat buffer;
-
-    if(fstat(fileno(fp), &buffer) != 0)
-      return((time_t)(-1));
-
-    return(buffer.st_mtime);
-}
-
-
-/*----------------------------------------------------------------------
-      Copy the mode, owner, and group of sourcefile to targetfile.
-
-    Args: targetfile -- 
-	  sourcefile --
-    
-    We don't bother keeping track of success or failure because we don't care.
- ----*/
-void
-file_attrib_copy(targetfile, sourcefile)
-    char *targetfile;
-    char *sourcefile;
-{
-    struct stat buffer;
-
-    if(stat(sourcefile, &buffer) == 0){
-	chmod(targetfile, buffer.st_mode);
-#if !defined(DOS) && !defined(OS2)
-	chown(targetfile, buffer.st_uid, buffer.st_gid);
-#endif
-    }
-}
-
-
-
-/*----------------------------------------------------------------------
-      Check to see if a directory exists and is writable by us
-
-   Args: dir -- directory name
-
- Result:       returns 0 if it exists and is writable
-                       1 if it is a directory, but is not writable
-                       2 if it is not a directory
-                       3 it doesn't exist.
-  ----*/
-is_writable_dir(dir)
-    char *dir;
-{
-    struct stat sb;
-
-    if(stat(dir, &sb) < 0)
-      /*--- It doesn't exist ---*/
-      return(3);
-
-    if(!(sb.st_mode & S_IFDIR))
-      /*---- it's not a directory ---*/
-      return(2);
-
-    if(can_access(dir, 07))
-      return(1);
-    else
-      return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Create the mail subdirectory.
-
-  Args: dir -- Name of the directory to create
- 
- Result: Directory is created.  Returns 0 on success, else -1 on error
-	 and errno is valid.
-  ----*/
-create_mail_dir(dir)
-    char *dir;
-{
-    if(mkdir(dir, 0700) < 0)
-      return(-1);
-
-    (void)chmod(dir, 0700);
-    /* Some systems need this, on others we don't care if it fails */
-    (void)chown(dir, getuid(), getgid());
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Rename a file
-
-  Args: tmpfname -- Old name of file
-        fname    -- New name of file
- 
- Result: File is renamed.  Returns 0 on success, else -1 on error
-	 and errno is valid.
-  ----*/
-rename_file(tmpfname, fname)
-    char *tmpfname, *fname;
-{
-    return(rename(tmpfname, fname));
-}
-
-
-
-/*----------------------------------------------------------------------
-      Paste together two pieces of a file name path
-
-  Args: pathbuf      -- Put the result here
-        first_part   -- of path name
-        second_part  -- of path name
- 
- Result: New path is in pathbuf.  No check is made for overflow.  Note that
-	 we don't have to check for /'s at end of first_part and beginning
-	 of second_part since multiple slashes are ok.
-
-BUGS:  This is a first stab at dealing with fs naming dependencies, and others 
-still exist.
-  ----*/
-void
-build_path(pathbuf, first_part, second_part)
-    char *pathbuf, *first_part, *second_part;
-{
-    if(!first_part)
-      strcpy(pathbuf, second_part);
-    else
-      sprintf(pathbuf, "%s%s%s", first_part,
-	      (*first_part && first_part[strlen(first_part)-1] != '/')
-	        ? "/" : "",
-	      second_part);
-}
-
-
-/*----------------------------------------------------------------------
-  Test to see if the given file path is absolute
-
-  Args: file -- file path to test
-
- Result: TRUE if absolute, FALSE otw
-
-  ----*/
-int
-is_absolute_path(path)
-    char *path;
-{
-    return(path && (*path == '/' || *path == '~'));
-}
-
-
-
-/*----------------------------------------------------------------------
-      Return pointer to last component of pathname.
-
-  Args: filename     -- The pathname.
- 
- Result: Returned pointer points to last component in the input argument.
-  ----*/
-char *
-last_cmpnt(filename)
-    char *filename;
-{
-    register char *p = NULL, *q = filename;
-
-    while(q = strchr(q, '/'))
-      if(*++q)
-	p = q;
-
-    return(p);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Expand a folder name, taking account of the folders_dir and `~'.
-
-  Args: filename -- The name of the file that is the folder
- 
- Result: The folder name is expanded in place.  
-         Returns 0 and queues status message if unsuccessful.
-         Input string is overwritten with expanded name.
-         Returns 1 if successful.
-
-BUG should limit length to MAXPATH
-  ----*/
-int
-expand_foldername(filename)
-    char *filename;
-{
-    char         temp_filename[MAXPATH+1];
-
-    dprint(5, (debugfile, "=== expand_foldername called (%s) ===\n",filename));
-
-    /*
-     * We used to check for valid filename chars here if "filename"
-     * didn't refer to a remote mailbox.  This has been rethought
-     */
-
-    strcpy(temp_filename, filename);
-    if(strucmp(temp_filename, "inbox") == 0) {
-        strcpy(filename, ps_global->VAR_INBOX_PATH == NULL ? "inbox" :
-               ps_global->VAR_INBOX_PATH);
-    } else if(temp_filename[0] == '{') {
-        strcpy(filename, temp_filename);
-    } else if(ps_global->restricted
-	        && (strindex("./~", temp_filename[0]) != NULL
-		    || srchstr(temp_filename,"/../"))){
-	q_status_message(SM_ORDER, 0, 3, "Can only open local folders");
-	return(0);
-    } else if(temp_filename[0] == '*') {
-        strcpy(filename, temp_filename);
-    } else if(ps_global->VAR_OPER_DIR && srchstr(temp_filename,"..")){
-	q_status_message(SM_ORDER, 0, 3,
-			 "\"..\" not allowed in folder name");
-	return(0);
-    } else if (temp_filename[0] == '~'){
-        if(fnexpand(temp_filename, sizeof(temp_filename)) == NULL) {
-            char *p = strindex(temp_filename, '/');
-    	    if(p != NULL)
-    	      *p = '\0';
-    	    q_status_message1(SM_ORDER, 3, 3,
-                    "Error expanding folder name: \"%s\" unknown user",
-    	       temp_filename);
-    	    return(0);
-        }
-        strcpy(filename, temp_filename);
-    } else if(temp_filename[0] == '/') {
-        strcpy(filename, temp_filename);
-    } else if(F_ON(F_USE_CURRENT_DIR, ps_global)){
-	strcpy(filename, temp_filename);
-    } else if(ps_global->VAR_OPER_DIR){
-	build_path(filename, ps_global->VAR_OPER_DIR, temp_filename);
-    } else {
-	build_path(filename, ps_global->home_dir, temp_filename);
-    }
-    dprint(5, (debugfile, "returning \"%s\"\n", filename));    
-    return(1);
-}
-
-
-
-struct passwd *getpwnam();
-
-/*----------------------------------------------------------------------
-       Expand the ~ in a file ala the csh (as home directory)
-
-   Args: buf --  The filename to expand (nothing happens unless begins with ~)
-         len --  The length of the buffer passed in (expansion is in place)
-
- Result: Expanded string is returned using same storage as passed in.
-         If expansion fails, NULL is returned
- ----*/
-char *
-fnexpand(buf, len)
-    char *buf;
-    int len;
-{
-    struct passwd *pw;
-    register char *x,*y;
-    char name[20];
-    
-    if(*buf == '~') {
-        for(x = buf+1, y = name; *x != '/' && *x != '\0'; *y++ = *x++);
-        *y = '\0';
-        if(x == buf + 1) 
-          pw = getpwuid(getuid());
-        else
-          pw = getpwnam(name);
-        if(pw == NULL)
-          return((char *)NULL);
-        if(strlen(pw->pw_dir) + strlen(buf) > len) {
-          return((char *)NULL);
-        }
-        rplstr(buf, x - buf, pw->pw_dir);
-    }
-    return(len ? buf : (char *)NULL);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Filter file names for strange characters
-
-   Args:  file  -- the file name to check
- 
- Result: Returns NULL if file name is OK
-         Returns formatted error message if it is not
-  ----*/
-char *
-filter_filename(file, fatal)
-    char *file;
-    int  *fatal;
-{
-#ifdef ALLOW_WEIRD
-    static char illegal[] = {'\177', '\0'};
-#else
-    static char illegal[] = {'"', '#', '$', '%', '&', '\'','(', ')','*',
-                          ',', ':', ';', '<', '=', '>', '?', '[', ']',
-                          '\\', '^', '|', '\177', '\0'};
-#endif
-    static char error[100];
-    char ill_file[MAXPATH+1], *ill_char, *ptr, e2[10];
-    int i;
-
-    for(ptr = file; *ptr == ' '; ptr++) ; /* leading spaces gone */
-
-    while(*ptr && (unsigned char)(*ptr) >= ' ' && strindex(illegal, *ptr) == 0)
-      ptr++;
-
-    *fatal = TRUE;
-    if(*ptr != '\0') {
-        if(*ptr == '\n') {
-            ill_char = "<newline>";
-        } else if(*ptr == '\r') {
-            ill_char = "<carriage return>";
-        } else if(*ptr == '\t') {
-    	    ill_char = "<tab>";
-	    *fatal = FALSE;		/* just whitespace */
-        } else if(*ptr < ' ') {
-            sprintf(e2, "control-%c", *ptr + '@');
-            ill_char = e2;
-        } else if (*ptr == '\177') {
-    	    ill_char = "<del>";
-        } else {
-    	    e2[0] = *ptr;
-    	    e2[1] = '\0';
-    	    ill_char = e2;
-	    *fatal = FALSE;		/* less offensive? */
-        }
-	if(!*fatal){
-	    strcpy(error, ill_char);
-	}
-        else if(ptr != file) {
-            strncpy(ill_file, file, ptr - file);
-            ill_file[ptr - file] = '\0';
-	    sprintf(error,
-		    "Character \"%s\" after \"%s\" not allowed in file name",
-		    ill_char, ill_file);
-        } else {
-            sprintf(error,
-                    "First character, \"%s\", not allowed in file name",
-                    ill_char);
-        }
-            
-        return(error);
-    }
-
-    if((i=is_writable_dir(file)) == 0 || i == 1){
-	sprintf(error, "\"%s\" is a directory", file);
-        return(error);
-    }
-
-    if(ps_global->restricted || ps_global->VAR_OPER_DIR){
-	for(ptr = file; *ptr == ' '; ptr++) ;	/* leading spaces gone */
-
-	if((ptr[0] == '.' && ptr[1] == '.') || srchstr(ptr, "/../")){
-	    sprintf(error, "\"..\" not allowed in filename");
-	    return(error);
-	}
-    }
-
-    return((char *)NULL);
-}
-
-
-/*----------------------------------------------------------------------
-    Check to see if user is allowed to read or write this folder.
-
-   Args:  s  -- the name to check
- 
- Result: Returns 1 if OK
-         Returns 0 and posts an error message if access is denied
-  ----*/
-int
-cntxt_allowed(s)
-    char *s;
-{
-    struct variable *vars = ps_global->vars;
-    int retval = 1;
-    MAILSTREAM stream; /* fake stream for error message in mm_notify */
-
-    if(ps_global->restricted
-         && (strindex("./~", s[0]) || srchstr(s, "/../"))){
-	stream.mailbox = s;
-	mm_notify(&stream, "Restricted mode doesn't allow operation", WARN);
-	retval = 0;
-    }
-    else if(VAR_OPER_DIR
-	    && s[0] != '{' && !(s[0] == '*' && s[1] == '{')
-	    && strucmp(s,ps_global->inbox_name) != 0
-	    && strcmp(s, ps_global->VAR_INBOX_PATH) != 0){
-	char *p, *free_this = NULL;
-
-	p = s;
-	if(strindex(s, '~')){
-	    p = strindex(s, '~');
-	    free_this = (char *)fs_get(strlen(p) + 200);
-	    strcpy(free_this, p);
-	    fnexpand(free_this, strlen(p)+200);
-	    p = free_this;
-	}
-	else if(p[0] != '/'){  /* add home dir to relative paths */
-	    free_this = p = (char *)fs_get(strlen(s)
-					    + strlen(ps_global->home_dir) + 2);
-	    build_path(p, ps_global->home_dir, s);
-	}
-	
-	if(!in_dir(VAR_OPER_DIR, p)){
-	    char err[200];
-
-	    sprintf(err, "Not allowed outside of %s", VAR_OPER_DIR);
-	    stream.mailbox = p;
-	    mm_notify(&stream, err, WARN);
-	    retval = 0;
-	}
-	else if(srchstr(p, "/../")){  /* check for .. in path */
-	    stream.mailbox = p;
-	    mm_notify(&stream, "\"..\" not allowed in name", WARN);
-	    retval = 0;
-	}
-
-	if(free_this)
-	  fs_give((void **)&free_this);
-    }
-    
-    return retval;
-}
-
-
-
-#if defined(USE_QUOTAS)
-
-/*----------------------------------------------------------------------
-   This system doesn't have disk quotas.
-   Return space left in disk quota on file system which given path is in.
-
-    Args: path - Path name of file or directory on file system of concern
-          over - pointer to flag that is set if the user is over quota
-
- Returns: If *over = 0, the number of bytes free in disk quota as per
-          the soft limit.
-	  If *over = 1, the number of bytes *over* quota.
-          -1 is returned on an error looking up quota
-           0 is returned if there is no quota
-
-BUG:  If there's more than 2.1Gb free this function will break
-  ----*/
-long
-disk_quota(path, over)
-    char *path;
-    int  *over;
-{
-    return(0L);
-}
-#endif /* USE_QUOTAS */
-
-
-
-/*----------------------------------------------------------------------
-    Read whole file into memory
-
-  Args: filename -- path name of file to read
-
-  Result: Returns pointer to malloced memory with the contents of the file
-          or NULL
-
-This won't work very well if the file has NULLs in it and is mostly
-intended for fairly small text files.
- ----*/
-char *
-read_file(filename)
-    char *filename;
-{
-    int         fd;
-    struct stat statbuf;
-    char       *buf;
-    int         nb;
-
-    fd = open(filename, O_RDONLY);
-    if(fd < 0)
-      return((char *)NULL);
-
-    fstat(fd, &statbuf);
-
-    buf = fs_get((size_t)statbuf.st_size + 1);
-
-    /*
-     * On some systems might have to loop here, if one read isn't guaranteed
-     * to get the whole thing.
-     */
-    if((nb = read(fd, buf, (int)statbuf.st_size)) < 0)
-      fs_give((void **)&buf);		/* NULL's buf */
-    else
-      buf[nb] = '\0';
-
-    close(fd);
-    return(buf);
-}
-
-
-
-/*----------------------------------------------------------------------
-   Create a temporary file, the name of which we don't care about 
-and that goes away when it is closed.  Just like ANSI C tmpfile.
-  ----*/
-FILE  *
-create_tmpfile()
-{
-    return(tmpfile());
-}
-
-
-
-/*----------------------------------------------------------------------
-     Abort with a core dump
- ----*/
-void
-coredump()
-{
-    abort();
-}
-
-
-
-/*----------------------------------------------------------------------
-       Call system gethostname
-
-  Args: hostname -- buffer to return host name in 
-        size     -- Size of buffer hostname is to be returned in
-
- Result: returns 0 if the hostname is correctly set,
-         -1 if not (and errno is set).
- ----*/
-hostname(hostname,size) 
-    char *hostname;
-    int size;
-{
-    return(gethostname(hostname, size));
-}
-
-
-
-/*----------------------------------------------------------------------
-       Get the current host and domain names
-
-    Args: hostname   -- buffer to return the hostname in
-          hsize      -- size of buffer above
-          domainname -- buffer to return domain name in
-          dsize      -- size of buffer above
-
-  Result: The system host and domain names are returned. If the full host
-          name is akbar.cac.washington.edu then the domainname is
-          cac.washington.edu.
-
-On Internet connected hosts this look up uses /etc/hosts and DNS to
-figure all this out. On other less well connected machines some other
-file may be read. If there is no notion of a domain name the domain
-name may be left blank. On a PC where there really isn't a host name
-this should return blank strings. The .pinerc will take care of
-configuring the domain names. That is, this should only return the
-native system's idea of what the names are if the system has such
-a concept.
- ----*/
-void
-getdomainnames(hostname, hsize, domainname, dsize)
-    char *hostname, *domainname;
-    int   hsize, dsize;
-{
-    char           *dn, hname[MAX_ADDRESS+1];
-    struct hostent *he;
-    char          **alias;
-    char           *maybe = NULL;
-
-    gethostname(hname, MAX_ADDRESS);
-    he = gethostbyname(hname);
-    hostname[0] = '\0';
-
-    if(he == NULL)
-      strncpy(hostname, hname, hsize-1);
-    else{
-	/*
-	 * If no dot in hostname it may be the case that there
-	 * is an alias which is really the fully-qualified
-	 * hostname. This could happen if the administrator has
-	 * (incorrectly) put the unqualified name first in the
-	 * hosts file, for example. The problem with looking for
-	 * an alias with a dot is that now we're guessing, since
-	 * the aliases aren't supposed to be the official hostname.
-	 * We'll compromise and only use an alias if the primary
-	 * name has no dot and exactly one of the aliases has a
-	 * dot.
-	 */
-	strncpy(hostname, he->h_name, hsize-1);
-	if(strindex(hostname, '.') == NULL){		/* no dot in hostname */
-	    for(alias = he->h_aliases; *alias; alias++){
-		if(strindex(*alias, '.') != NULL){	/* found one */
-		    if(maybe){		/* oops, this is the second one */
-			maybe = NULL;
-			break;
-		    }
-		    else
-		      maybe = *alias;
-		}
-	    }
-
-	    if(maybe)
-	      strncpy(hostname, maybe, hsize-1);
-	}
-    }
-
-    hostname[hsize-1] = '\0';
-
-
-    if((dn = strindex(hostname, '.')) != NULL)
-      strncpy(domainname, dn+1, dsize-1);
-    else
-      strncpy(domainname, hostname, dsize-1);
-
-    domainname[dsize-1] = '\0';
-}
-
-
-
-/*----------------------------------------------------------------------
-       Return canonical form of host name ala c-client (UNIX version).
-
-   Args: host      -- The host name
-
- Result: Canonical form, or input argument (worst case)
- ----*/
-char *
-canonical_name(host)
-    char *host;
-{
-    struct hostent *hent;
-    char hostname[MAILTMPLEN];
-    char tmp[MAILTMPLEN];
-    extern char *lcase();
-                                /* domain literal is easy */
-    if (host[0] == '[' && host[(strlen (host))-1] == ']')
-      return host;
-
-    strcpy (hostname,host);       /* UNIX requires lowercase */
-                                /* lookup name, return canonical form */
-    return (hent = gethostbyname (lcase (strcpy (tmp,host)))) ?
-      hent->h_name : host;
-}
-
-
-
-/*----------------------------------------------------------------------
-     This routine returns 1 if job control is available.  Note, thiis
-     could be some type of fake job control.  It doesn't have to be
-     real BSD-style job control.
-  ----*/
-have_job_control()
-{
-    return 1;
-}
-
-
-/*----------------------------------------------------------------------
-    If we don't have job control, this routine is never called.
-  ----*/
-stop_process()
-{
-    SigType (*save_usr2) SIG_PROTO((int));
-    
-    /*
-     * Since we can't respond to KOD while stopped, the process that sent 
-     * the KOD is going to go read-only.  Therefore, we can safely ignore
-     * any KODs that come in before we are ready to respond...
-     */
-    save_usr2 = signal(SIGUSR2, SIG_IGN);
-    kill(0, SIGSTOP); 
-    (void)signal(SIGUSR2, save_usr2);
-}
-
-
-
-/*----------------------------------------------------------------------
-       Return string describing the error
-
-   Args: errnumber -- The system error number (errno)
-
- Result:  long string describing the error is returned
-  ----*/
-char *
-error_description(errnumber)
-    int errnumber;
-{
-    static char buffer[50+1];
-
-    if(errnumber >= 0 && errnumber < sys_nerr)
-      sprintf(buffer, "%.*s", 50, sys_errlist[errnumber]);
-    else
-      sprintf(buffer, "Unknown error #%d", errnumber);
-
-    return ( (char *) buffer);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Pull the name out of the gcos field if we have that sort of /etc/passwd
-
-   Args: gcos_field --  The long name or GCOS field to be parsed
-         logname    --  Replaces occurances of & with logname string
-
- Result: returns pointer to buffer with name
-  ----*/
-static char *
-gcos_name(gcos_field, logname)
-    char *logname, *gcos_field;
-{
-    static char fullname[MAX_FULLNAME+1];
-    register char *fncp, *gcoscp, *lncp, *end;
-
-    /* full name is all chars up to first ',' (or whole gcos, if no ',') */
-    /* replace any & with logname in upper case */
-
-    for(fncp = fullname, gcoscp= gcos_field, end = fullname + MAX_FULLNAME - 1;
-        (*gcoscp != ',' && *gcoscp != '\0' && fncp != end);
-	gcoscp++) {
-
-	if(*gcoscp == '&') {
-	    for(lncp = logname; *lncp; fncp++, lncp++)
-		*fncp = toupper((unsigned char)(*lncp));
-	} else {
-	    *fncp++ = *gcoscp;
-	}
-    }
-    
-    *fncp = '\0';
-    return(fullname);
-}
-
-
-/*----------------------------------------------------------------------
-      Fill in homedir, login, and fullname for the logged in user.
-      These are all pointers to static storage so need to be copied
-      in the caller.
-
- Args: ui    -- struct pointer to pass back answers
-
- Result: fills in the fields
-  ----*/
-void
-get_user_info(ui)
-    struct user_info *ui;
-{
-    struct passwd *unix_pwd;
-
-    unix_pwd = getpwuid(getuid());
-    if(unix_pwd == NULL) {
-      ui->homedir = cpystr("");
-      ui->login = cpystr("");
-      ui->fullname = cpystr("");
-    }else {
-      ui->homedir = cpystr(unix_pwd->pw_dir);
-      ui->login = cpystr(unix_pwd->pw_name);
-      ui->fullname = cpystr(gcos_name(unix_pwd->pw_gecos, unix_pwd->pw_name));
-    }
-}
-
-
-/*----------------------------------------------------------------------
-      Look up a userid on the local system and return rfc822 address
-
- Args: name  -- possible login name on local system
-
- Result: returns NULL or pointer to alloc'd string rfc822 address.
-  ----*/
-char *
-local_name_lookup(name)
-    char *name;
-{
-    struct passwd *pw = getpwnam(name);
-
-    if(pw == NULL){
-	char *p;
-
-	for(p = name; *p; p++)
-	  if(isupper((unsigned char)*p))
-	    break;
-
-	/* try changing it to all lower case */
-	if(p && *p){
-	    char *lcase;
-
-	    lcase = cpystr(name);
-	    for(p = lcase; *p; p++)
-	      if(isupper((unsigned char)*p))
-		*p = tolower((unsigned char)*p);
-
-	    pw = getpwnam(lcase);
-
-	    if(pw)
-	      strcpy(name, lcase);
-
-	    fs_give((void **)&lcase);
-	}
-    }
-
-    if(pw == NULL)
-      return((char *)NULL);
-
-    return(cpystr(gcos_name(pw->pw_gecos, name)));
-}
-
-
-
-/*----------------------------------------------------------------------
-       Call the system to change the passwd
- 
-It would be nice to talk to the passwd program via a pipe or ptty so the
-user interface could be consistent, but we can't count on the the prompts
-and responses from the passwd program to be regular so we just let the user 
-type at the passwd program with some screen space, hope he doesn't scroll 
-off the top and repaint when he's done.
- ----*/        
-change_passwd()
-{
-    char cmd_buf[100];
-
-    ClearLines(1, ps_global->ttyo->screen_rows - 1);
-
-    MoveCursor(5, 0);
-    fflush(stdout);
-
-    PineRaw(0);
-    strcpy(cmd_buf, PASSWD_PROG);
-    system(cmd_buf);
-    sleep(3);
-    PineRaw(1);
-}
-
-
-
-/*----------------------------------------------------------------------
-       Can we display this type/subtype?
-
-   Args: type       -- the MIME type to check
-         subtype    -- the MIME subtype
-         params     -- parameters
-	 use_viewer -- tell caller he should run external viewer cmd to view
-
- Result: Returns:
-
-	 MCD_NONE	if we can't display this type at all
-	 MCD_INTERNAL	if we can display it internally
-	 MCD_EXTERNAL	if it can be displayed via an external viewer
-
- ----*/
-mime_can_display(type, subtype, params)
-    int       type;
-    char      *subtype;
-    PARAMETER *params;
-{
-    return((mailcap_can_display(type, subtype, params)
-	      ? MCD_EXTERNAL : MCD_NONE)
-	   | ((type == TYPETEXT || type == TYPEMESSAGE
-	       || MIME_VCARD(type,subtype))
-	        ? MCD_INTERNAL : MCD_NONE));
-}
-
-
-
-/*======================================================================
-    pipe
-    
-    Initiate I/O to and from a process.  These functions are similar to 
-    popen and pclose, but both an incoming stream and an output file are 
-    provided.
-   
- ====*/
-
-#ifndef	STDIN_FILENO
-#define	STDIN_FILENO	0
-#endif
-#ifndef	STDOUT_FILENO
-#define	STDOUT_FILENO	1
-#endif
-#ifndef	STDERR_FILENO
-#define	STDERR_FILENO	2
-#endif
-
-
-/*
- * Defs to help fish child's exit status out of wait(2)
- */
-#ifdef	HAVE_WAIT_UNION
-#define WaitType	union wait
-#ifndef	WIFEXITED
-#define	WIFEXITED(X)	(!(X).w_termsig)	/* child exit by choice */
-#endif
-#ifndef	WEXITSTATUS
-#define	WEXITSTATUS(X)	(X).w_retcode		/* childs chosen exit value */
-#endif
-#else
-#define	WaitType	int
-#ifndef	WIFEXITED
-#define	WIFEXITED(X)	(!((X) & 0xff))		/* low bits tell how it died */
-#endif
-#ifndef	WEXITSTATUS
-#define	WEXITSTATUS(X)	(((X) >> 8) & 0xff)	/* high bits tell exit value */
-#endif
-#endif
-
-
-/*
- * Global's to helpsignal handler tell us child's status has changed...
- */
-short	child_signalled;
-short	child_jump = 0;
-jmp_buf child_state;
-int	child_pid;
-
-
-/*
- * Internal Protos
- */
-void pipe_error_cleanup PROTO((PIPE_S **, char *, char *, char *));
-void zot_pipe PROTO((PIPE_S **));
-static SigType pipe_alarm SIG_PROTO((int));
-
-
-
-
-/*----------------------------------------------------------------------
-     Spawn a child process and optionally connect read/write pipes to it
-
-  Args: command -- string to hand the shell
-	outfile -- address of pointer containing file to receive output
-	errfile -- address of pointer containing file to receive error output
-	mode -- mode for type of shell, signal protection etc...
-  Returns: pointer to alloc'd PIPE_S on success, NULL otherwise
-
-  The outfile is either NULL, a pointer to a NULL value, or a pointer
-  to the requested name for the output file.  In the pointer-to-NULL case
-  the caller doesn't care about the name, but wants to see the pipe's
-  results so we make one up.  It's up to the caller to make sure the
-  free storage containing the name is cleaned up.
-
-  Mode bits serve several purposes.
-    PIPE_WRITE tells us we need to open a pipe to write the child's
-	stdin.
-    PIPE_READ tells us we need to open a pipe to read from the child's
-	stdout/stderr.  *NOTE*  Having neither of the above set means 
-	we're not setting up any pipes, just forking the child and exec'ing
-	the command.  Also, this takes precedence over any named outfile.
-    PIPE_STDERR means we're to tie the childs stderr to the same place
-	stdout is going.  *NOTE* This only makes sense then if PIPE_READ
-	or an outfile is provided.  Also, this takes precedence over any
-	named errfile.
-    PIPE_PROT means to protect the child from the usual nasty signals
-	that might cause premature death.  Otherwise, the default signals are
-	set so the child can deal with the nasty signals in its own way.     
-    PIPE_NOSHELL means we're to exec the command without the aid of
-	a system shell.  *NOTE* This negates the affect of PIPE_USER.
-    PIPE_USER means we're to try executing the command in the user's
-	shell.  Right now we only look in the environment, but that may get
-	more sophisticated later.
-    PIPE_RESET means we reset the terminal mode to what it was before
-	we started pine and then exec the command.
- ----*/
-PIPE_S *
-open_system_pipe(command, outfile, errfile, mode, timeout)
-    char  *command;
-    char **outfile, **errfile;
-    int    mode, timeout;
-{
-    PIPE_S *syspipe = NULL;
-    char    shellpath[32], *shell;
-    int     p[2], oparentd = -1, ochildd = -1, iparentd = -1, ichildd = -1;
-
-    dprint(5, (debugfile, "Opening pipe: \"%s\" (%s%s%s%s%s%s)\n", command,
-	       (mode & PIPE_WRITE)   ? "W":"", (mode & PIPE_READ)  ? "R":"",
-	       (mode & PIPE_NOSHELL) ? "N":"", (mode & PIPE_PROT)  ? "P":"",
-	       (mode & PIPE_USER)    ? "U":"", (mode & PIPE_RESET) ? "T":""));
-
-    syspipe = (PIPE_S *)fs_get(sizeof(PIPE_S));
-    memset(syspipe, 0, sizeof(PIPE_S));
-
-    /*
-     * If we're not using the shell's command parsing smarts, build
-     * argv by hand...
-     */
-    if(mode & PIPE_NOSHELL){
-	char   **ap, *p;
-	size_t   n;
-
-	/* parse the arguments into argv */
-	for(p = command; *p && isspace((unsigned char)(*p)); p++)
-	  ;					/* swallow leading ws */
-
-	if(*p){
-	    syspipe->args = cpystr(p);
-	}
-	else{
-	    pipe_error_cleanup(&syspipe, "<null>", "execute",
-			       "No command name found");
-	    return(NULL);
-	}
-
-	for(p = syspipe->args, n = 2; *p; p++)	/* count the args */
-	  if(isspace((unsigned char)(*p))
-	     && *(p+1) && !isspace((unsigned char)(*(p+1))))
-	    n++;
-
-	syspipe->argv = ap = (char **)fs_get(n * sizeof(char *));
-	memset(syspipe->argv, 0, n * sizeof(char *));
-
-	for(p = syspipe->args; *p; ){		/* collect args */
-	    while(*p && isspace((unsigned char)(*p)))
-	      *p++ = '\0';
-
-	    *ap++ = (*p) ? p : NULL;
-	    while(*p && !isspace((unsigned char)(*p)))
-	      p++;
-	}
-
-	/* make sure argv[0] exists in $PATH */
-	if(can_access_in_path(getenv("PATH"), syspipe->argv[0],
-			      EXECUTE_ACCESS) < 0){
-	    pipe_error_cleanup(&syspipe, syspipe->argv[0], "access",
-			       error_description(errno));
-	    return(NULL);
-	}
-    }
-
-    /* fill in any output filenames */
-    if(!(mode & PIPE_READ)){
-	if(outfile && !*outfile)
-	  *outfile = temp_nam(NULL, "pine_p");	/* asked for, but not named? */
-
-	if(errfile && !*errfile)
-	  *errfile = temp_nam(NULL, "pine_p");	/* ditto */
-    }
-
-    /* create pipes */
-    if(mode & (PIPE_WRITE | PIPE_READ)){
-	if(mode & PIPE_WRITE){
-	    pipe(p);				/* alloc pipe to write child */
-	    oparentd = p[STDOUT_FILENO];
-	    ichildd  = p[STDIN_FILENO];
-	}
-
-	if(mode & PIPE_READ){
-	    pipe(p);				/* alloc pipe to read child */
-	    iparentd = p[STDIN_FILENO];
-	    ochildd  = p[STDOUT_FILENO];
-	}
-    }
-    else if(!(mode & PIPE_SILENT)){
-	flush_status_messages(0);		/* just clean up display */
-	ClearScreen();
-	fflush(stdout);
-    }
-
-    if((syspipe->mode = mode) & PIPE_RESET)
-      PineRaw(0);
-
-#ifdef	SIGCHLD
-    /*
-     * Prepare for demise of child.  Use SIGCHLD if it's available so
-     * we can do useful things, like keep the IMAP stream alive, while
-     * we're waiting on the child.
-     */
-    child_signalled = child_jump = 0;
-#endif
-
-    if((syspipe->pid = vfork()) == 0){
- 	/* reset child's handlers in requested fashion... */
-	(void)signal(SIGINT,  (mode & PIPE_PROT) ? SIG_IGN : SIG_DFL);
-	(void)signal(SIGQUIT, (mode & PIPE_PROT) ? SIG_IGN : SIG_DFL);
-	(void)signal(SIGHUP,  (mode & PIPE_PROT) ? SIG_IGN : SIG_DFL);
-#ifdef	SIGCHLD
-	(void) signal(SIGCHLD,  SIG_DFL);
-#endif
-
-	/* if parent isn't reading, and we have a filename to write */
-	if(!(mode & PIPE_READ) && outfile){	/* connect output to file */
-	    int output = creat(*outfile, 0600);
-	    dup2(output, STDOUT_FILENO);
-	    if(mode & PIPE_STDERR)
-	      dup2(output, STDERR_FILENO);
-	    else if(errfile)
-	      dup2(creat(*errfile, 0600), STDERR_FILENO);
-	}
-
-	if(mode & PIPE_WRITE){			/* connect process input */
-	    close(oparentd);
-	    dup2(ichildd, STDIN_FILENO);	/* tie stdin to pipe */
-	    close(ichildd);
-	}
-
-	if(mode & PIPE_READ){			/* connect process output */
-	    close(iparentd);
-	    dup2(ochildd, STDOUT_FILENO);	/* tie std{out,err} to pipe */
-	    if(mode & PIPE_STDERR)
-	      dup2(ochildd, STDERR_FILENO);
-	    else if(errfile)
-	      dup2(creat(*errfile, 0600), STDERR_FILENO);
-
-	    close(ochildd);
-	}
-
-	if(mode & PIPE_NOSHELL){
-	    execvp(syspipe->argv[0], syspipe->argv);
-	}
-	else{
-	    if(mode & PIPE_USER){
-		char *env, *sh;
-		if((env = getenv("SHELL")) && (sh = strrchr(env, '/'))){
-		    shell = sh + 1;
-		    strcpy(shellpath, env);
-		}
-		else{
-		    shell = "csh";
-		    strcpy(shellpath, "/bin/csh");
-		}
-	    }
-	    else{
-		shell = "sh";
-		strcpy(shellpath, "/bin/sh");
-	    }
-
-	    execl(shellpath, shell, command ? "-c" : 0, command, 0);
-	}
-
-	fprintf(stderr, "Can't exec %s\nReason: %s",
-		command, error_description(errno));
-	_exit(-1);
-    }
-
-    if((child_pid = syspipe->pid) > 0){
-	syspipe->isig = signal(SIGINT,  SIG_IGN); /* Reset handlers to make */
-	syspipe->qsig = signal(SIGQUIT, SIG_IGN); /* sure we don't come to  */
-	syspipe->hsig = signal(SIGHUP,  SIG_IGN); /* a premature end...     */
-	if((syspipe->timeout = timeout) != 0){
-	    syspipe->alrm      = signal(SIGALRM,  pipe_alarm);
-	    syspipe->old_timeo = alarm(timeout);
-	}
-
-	if(mode & PIPE_WRITE){
-	    close(ichildd);
-	    if(mode & PIPE_DESC)
-	      syspipe->out.d = oparentd;
-	    else
-	      syspipe->out.f = fdopen(oparentd, "w");
-	}
-
-	if(mode & PIPE_READ){
-	    close(ochildd);
-	    if(mode & PIPE_DESC)
-	      syspipe->in.d = iparentd;
-	    else
-	      syspipe->in.f = fdopen(iparentd, "r");
-	}
-
-	dprint(5, (debugfile, "PID: %d, COMMAND: %s\n",syspipe->pid,command));
-    }
-    else{
-	if(mode & (PIPE_WRITE | PIPE_READ)){
-	    if(mode & PIPE_WRITE){
-		close(oparentd);
-		close(ichildd);
-	    }
-
-	    if(mode & PIPE_READ){
-		close(iparentd);
-		close(ochildd);
-	    }
-	}
-	else if(!(mode & PIPE_SILENT)){
-	    ClearScreen();
-	    ps_global->mangled_screen = 1;
-	}
-
-	if(mode & PIPE_RESET)
-	  PineRaw(1);
-
-#ifdef	SIGCHLD
-	(void) signal(SIGCHLD,  SIG_DFL);
-#endif
-	if(outfile)
-	  fs_give((void **) outfile);
-
-	pipe_error_cleanup(&syspipe, command, "fork",error_description(errno));
-    }
-
-    return(syspipe);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Write appropriate error messages and cleanup after pipe error
-
-  Args: syspipe -- address of pointer to struct to clean up
-	cmd -- command we were trying to exec
-	op -- operation leading up to the exec
-	res -- result of that operation
-
- ----*/
-void
-pipe_error_cleanup(syspipe, cmd, op, res)
-    PIPE_S **syspipe;
-    char    *cmd, *op, *res;
-{
-    q_status_message3(SM_ORDER, 3, 3, "Pipe can't %s \"%.20s\": %s",
-		      op, cmd, res);
-    dprint(1, (debugfile, "* * PIPE CAN'T %s(%s): %s\n", op, cmd, res));
-    zot_pipe(syspipe);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Free resources associated with the given pipe struct
-
-  Args: syspipe -- address of pointer to struct to clean up
-
- ----*/
-void
-zot_pipe(syspipe)
-    PIPE_S **syspipe;
-{
-    if((*syspipe)->args)
-      fs_give((void **) &(*syspipe)->args);
-
-    if((*syspipe)->argv)
-      fs_give((void **) &(*syspipe)->argv);
-
-    if((*syspipe)->tmp)
-      fs_give((void **) &(*syspipe)->tmp);
-
-    fs_give((void **)syspipe);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Close pipe previously allocated and wait for child's death
-
-  Args: syspipe -- address of pointer to struct returned by open_system_pipe
-  Returns: returns exit status of child or -1 if invalid syspipe
- ----*/
-int
-close_system_pipe(syspipe)
-    PIPE_S **syspipe;
-{
-    WaitType stat;
-    int	     status;
-
-    if(!(syspipe && *syspipe))
-      return(-1);
-
-    if(((*syspipe)->mode) & PIPE_WRITE){
-	if(((*syspipe)->mode) & PIPE_DESC){
-	    if((*syspipe)->out.d >= 0)
-	      close((*syspipe)->out.d);
-	}
-	else if((*syspipe)->out.f)
-	  fclose((*syspipe)->out.f);
-    }
-
-    if(((*syspipe)->mode) & PIPE_READ){
-	if(((*syspipe)->mode) & PIPE_DESC){
-	    if((*syspipe)->in.d >= 0)
-	      close((*syspipe)->in.d);
-	}
-	else if((*syspipe)->in.f)
-	  fclose((*syspipe)->in.f);
-    }
-
-#ifdef	SIGCHLD
-    {
-	SigType (*alarm_sig)();
-	int	old_cue = F_ON(F_SHOW_DELAY_CUE, ps_global);
-
-	/*
-	 * remember the current SIGALRM handler, and make sure it's
-	 * installed when we're finished just in case the longjmp
-	 * out of the SIGCHLD handler caused sleep() to lose it.
-	 * Don't pay any attention to that man behind the curtain.
-	 */
-	alarm_sig = signal(SIGALRM, SIG_IGN);
-	F_SET(F_SHOW_DELAY_CUE, ps_global, 0);
-	ps_global->noshow_timeout = 1;
-	while(!child_signalled){
-	    /* wake up and prod server */
-	    new_mail(0, 2, ((*syspipe)->mode & PIPE_RESET)
-			      ? NM_NONE : NM_DEFER_SORT);
-
-	    if(!child_signalled){
-		if(setjmp(child_state) == 0){
-		    child_jump = 1;	/* prepare to wake up */
-		    sleep(600);		/* give it 5mins to happend */
-		}
-		else
-		  our_sigunblock(SIGCHLD);
-	    }
-
-	    child_jump = 0;
-	}
-
-	ps_global->noshow_timeout = 0;
-	F_SET(F_SHOW_DELAY_CUE, ps_global, old_cue);
-	(void) signal(SIGALRM, alarm_sig);
-    }
-#endif
-
-    /*
-     * Call c-client's pid reaper to wait() on the demise of our child,
-     * then fish out its exit status...
-     */
-    grim_pid_reap_status((*syspipe)->pid, 0, &stat);
-    status = WIFEXITED(stat) ? WEXITSTATUS(stat) : -1;
-
-    /*
-     * restore original handlers...
-     */
-    (void)signal(SIGINT,  (*syspipe)->isig);
-    (void)signal(SIGHUP,  (*syspipe)->hsig);
-    (void)signal(SIGQUIT, (*syspipe)->qsig);
-
-    if((*syspipe)->timeout){
-	(void)signal(SIGALRM, (*syspipe)->alrm);
-	alarm((*syspipe)->old_timeo);
-	child_pid = 0;
-    }
-
-    if((*syspipe)->mode & PIPE_RESET)		/* restore our tty modes */
-      PineRaw(1);
-
-    if(!((*syspipe)->mode & (PIPE_WRITE | PIPE_READ | PIPE_SILENT))){
-	ClearScreen();				/* No I/O to forked child */
-	ps_global->mangled_screen = 1;
-    }
-
-    zot_pipe(syspipe);
-
-    return(status);
-}
-
-
-
-static SigType
-pipe_alarm SIG_PROTO((int sig))
-{
-    if(child_pid)
-      kill(child_pid, SIGINT);
-}
-
-/*======================================================================
-    post_reap
-    
-    Manage exit status collection of a child spawned to handle posting
- ====*/
-
-
-
-#if	defined(BACKGROUND_POST) && defined(SIGCHLD)
-/*----------------------------------------------------------------------
-    Check to see if we have any posting processes to clean up after
-
-  Args: none
-  Returns: any finished posting process reaped
- ----*/
-post_reap()
-{
-    WaitType stat;
-    int	     r;
-
-    if(ps_global->post && ps_global->post->pid){
-	r = waitpid(ps_global->post->pid, &stat, WNOHANG);
-	if(r == ps_global->post->pid){
-	    ps_global->post->status = WIFEXITED(stat) ? WEXITSTATUS(stat) : -1;
-	    ps_global->post->pid = 0;
-	    return(1);
-	}
-	else if(r < 0 && errno != EINTR){ /* pid's become bogus?? */
-	    fs_give((void **) &ps_global->post);
-	}
-    }
-
-    return(0);
-}
-#endif
-
-/*----------------------------------------------------------------------
-    Routines used to hand off messages to local agents for sending/posting
-
- The two exported routines are:
-
-    1) smtp_command()  -- used to get local transport agent to invoke
-    2) post_handoff()  -- used to pass messages to local posting agent
-
- ----*/
-
-
-
-/*
- * Protos for "sendmail" internal functions
- */
-static char *mta_parse_post PROTO((METAENV *, BODY *, char *, char *));
-static long  pine_pipe_soutr_nl PROTO((void *, char *));
-
-
-
-/* ----------------------------------------------------------------------
-   Figure out command to start local SMTP agent
-
-  Args: errbuf   -- buffer for reporting errors (assumed non-NULL)
-
-  Returns an alloc'd copy of the local SMTP agent invocation or NULL
-
-  ----*/
-char *
-smtp_command(errbuf)
-    char *errbuf;
-{
-#if	defined(SENDMAIL) && defined(SENDMAILFLAGS)
-    char tmp[256];
-
-    sprintf(tmp, "%s %s", SENDMAIL, SENDMAILFLAGS);
-    return(cpystr(tmp));
-#else
-    strcpy(errbuf, "No default posting command.");
-    return(NULL);
-#endif
-}
-
-
-
-/*----------------------------------------------------------------------
-   Hand off given message to local posting agent
-
-  Args: envelope -- The envelope for the BCC and debugging
-        header   -- The text of the message header
-        errbuf   -- buffer for reporting errors (assumed non-NULL)
-     
-   ----*/
-int
-mta_handoff(header, body, errbuf)
-    METAENV    *header;
-    BODY       *body;
-    char       *errbuf;
-{
-    char cmd_buf[256], *cmd = NULL;
-
-    /*
-     * A bit of complicated policy implemented here.
-     * There are two posting variables sendmail-path and smtp-server.
-     * Precedence is in that order.
-     * They can be set one of 4 ways: fixed, command-line, user, or globally.
-     * Precedence is in that order.
-     * Said differently, the order goes something like what's below.
-     * 
-     * NOTE: the fixed/command-line/user precendence handling is also
-     *	     indicated by what's pointed to by ps_global->VAR_*, but since
-     *	     that also includes the global defaults, it's not sufficient.
-     */
-
-    if(ps_global->FIX_SENDMAIL_PATH
-       && ps_global->FIX_SENDMAIL_PATH[0]){
-	cmd = ps_global->FIX_SENDMAIL_PATH;
-    }
-    else if(!(ps_global->FIX_SMTP_SERVER
-	      && ps_global->FIX_SMTP_SERVER[0])){
-	if(ps_global->COM_SENDMAIL_PATH
-	   && ps_global->COM_SENDMAIL_PATH[0]){
-	    cmd = ps_global->COM_SENDMAIL_PATH;
-	}
-	else if(!(ps_global->COM_SMTP_SERVER
-		  && ps_global->COM_SMTP_SERVER[0])){
-	    if(ps_global->USR_SENDMAIL_PATH
-	       && ps_global->USR_SENDMAIL_PATH[0]){
-		cmd = ps_global->USR_SENDMAIL_PATH;
-	    }
-	    else if(!(ps_global->USR_SMTP_SERVER
-		      && ps_global->USR_SMTP_SERVER[0])){
-		if(ps_global->GLO_SENDMAIL_PATH
-		   && ps_global->GLO_SENDMAIL_PATH[0]){
-		    cmd = ps_global->GLO_SENDMAIL_PATH;
-		}
-#ifdef	DF_SENDMAIL_PATH
-		/*
-		 * This defines the default method of posting.  So,
-		 * unless we're told otherwise use it...
-		 */
-		else if(!(ps_global->GLO_SMTP_SERVER
-			  && ps_global->GLO_SMTP_SERVER[0])){
-		    strcpy(cmd = cmd_buf, DF_SENDMAIL_PATH);
-		}
-#endif
-	    }
-	}
-    }
-
-    *errbuf = '\0';
-    if(cmd){
-	dprint(4, (debugfile, "call_mailer via cmd: %s\n", cmd));
-
-	(void) mta_parse_post(header, body, cmd, errbuf);
-	return(1);
-    }
-    else
-      return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-   Hand off given message to local posting agent
-
-  Args: envelope -- The envelope for the BCC and debugging
-        header   -- The text of the message header
-        errbuf   -- buffer for reporting errors (assumed non-NULL)
-     
-  Fork off mailer process and pipe the message into it
-  Called to post news via Inews when NNTP is unavailable
-  
-   ----*/
-char *
-post_handoff(header, body, errbuf)
-    METAENV    *header;
-    BODY       *body;
-    char       *errbuf;
-{
-    char *err = NULL;
-#ifdef	SENDNEWS
-    char *s;
-
-    if(s = strstr(header->env->date," (")) /* fix the date format for news */
-      *s = '\0';
-
-    if(err = mta_parse_post(header, body, SENDNEWS, errbuf))
-      sprintf(err = errbuf, "News not posted: \"%s\": %s", SENDNEWS, err);
-
-    if(s)
-      *s = ' ';				/* restore the date */
-
-#else /* !SENDNEWS */  /* this is the default case */
-    sprintf(err = errbuf, "Can't post, NNTP-server must be defined!");
-#endif /* !SENDNEWS */
-    return(err);
-}
-
-
-
-/*----------------------------------------------------------------------
-   Hand off message to local MTA; it parses recipients from 822 header
-
-  Args: header -- struct containing header data
-        body  -- struct containing message body data
-	cmd -- command to use for handoff (%s says where file should go)
-	errs -- pointer to buf to hold errors
-
-   ----*/
-static char *
-mta_parse_post(header, body, cmd, errs)
-    METAENV *header;
-    BODY    *body;
-    char    *cmd;
-    char    *errs;
-{
-    char   *result = NULL;
-    PIPE_S *pipe;
-
-    dprint(1, (debugfile, "=== mta_parse_post(%s) ===\n", cmd));
-
-    if(pipe = open_system_pipe(cmd, &result, NULL,
-		 PIPE_STDERR|PIPE_WRITE|PIPE_PROT|PIPE_NOSHELL|PIPE_DESC, 0)){
-	if(!pine_rfc822_output(header, body, pine_pipe_soutr_nl,
-			       (TCPSTREAM *) pipe))
-	  strcpy(errs, "Error posting.");
-
-	if(close_system_pipe(&pipe) && !*errs){
-	    sprintf(errs, "Posting program %s returned error", cmd);
-	    if(result)
-	      display_output_file(result, "POSTING ERRORS", errs, 1);
-	}
-    }
-    else
-      sprintf(errs, "Error running \"%s\"", cmd);
-
-    if(result){
-	unlink(result);
-	fs_give((void **)&result);
-    }
-
-    return(*errs ? errs : NULL);
-}
-
-
-/* 
- * pine_pipe_soutr - Replacement for tcp_soutr that writes one of our
- *		     pipes rather than a tcp stream
- */
-static long
-pine_pipe_soutr_nl (stream,s)
-     void *stream;
-     char *s;
-{
-    long    rv = T;
-    char   *p;
-    size_t  n;
-
-    while(*s && rv){
-	if(n = (p = strstr(s, "\015\012")) ? p - s : strlen(s))
-	  while((rv = write(((PIPE_S *)stream)->out.d, s, n)) != n)
-	    if(rv < 0){
-		if(errno != EINTR){
-		    rv = 0;
-		    break;
-		}
-	    }
-	    else{
-		s += rv;
-		n -= rv;
-	    }
-
-	if(p && rv){
-	    s = p + 2;			/* write UNIX EOL */
-	    while((rv = write(((PIPE_S *)stream)->out.d,"\n",1)) != 1)
-	      if(rv < 0 && errno != EINTR){
-		  rv = 0;
-		  break;
-	      }
-	}
-	else
-	  break;
-    }
-
-    return(rv);
-}
-
-/* ----------------------------------------------------------------------
-   Execute the given mailcap command
-
-  Args: cmd           -- the command to execute
-	image_file    -- the file the data is in
-	needsterminal -- does this command want to take over the terminal?
-  ----*/
-void
-exec_mailcap_cmd(cmd, image_file, needsterminal)
-char *cmd;
-char *image_file;
-int   needsterminal;
-{
-    char   *command = NULL,
-	   *result_file = NULL,
-	   *p;
-    char  **r_file_h;
-    PIPE_S *syspipe;
-    int     mode;
-
-    p = command = (char *)fs_get((32 + strlen(cmd) + (2*strlen(image_file)))
-			     * sizeof(char));
-    if(!needsterminal)  /* put in background if it doesn't need terminal */
-      *p++ = '(';
-    sprintf(p, "%s ; rm -f %s", cmd, image_file);
-    p += strlen(p);
-    if(!needsterminal){
-	*p++ = ')';
-	*p++ = ' ';
-	*p++ = '&';
-    }
-    *p++ = '\n';
-    *p   = '\0';
-    dprint(9, (debugfile, "exec_mailcap_cmd: command=%s\n", command));
-
-    mode = PIPE_RESET;
-    if(needsterminal == 1)
-      r_file_h = NULL;
-    else{
-	mode       |= PIPE_WRITE | PIPE_STDERR;
-	result_file = temp_nam(NULL, "pine_cmd");
-	r_file_h    = &result_file;
-    }
-
-    if(syspipe = open_system_pipe(command, r_file_h, NULL, mode, 0)){
-	close_system_pipe(&syspipe);
-	if(needsterminal == 1)
-	  q_status_message(SM_ORDER, 0, 4, "VIEWER command completed");
-	else if(needsterminal == 2)
-	  display_output_file(result_file, "VIEWER", " command result", 1);
-	else
-	  display_output_file(result_file, "VIEWER", " command launched", 1);
-    }
-    else
-      q_status_message1(SM_ORDER, 3, 4, "Cannot spawn command : %s", cmd);
-
-    fs_give((void **)&command);
-    if(result_file)
-      fs_give((void **)&result_file);
-}
-
-
-/* ----------------------------------------------------------------------
-   Execute the given mailcap test= cmd
-
-  Args: cmd -- command to execute
-  Returns exit status
-  
-  ----*/
-int
-exec_mailcap_test_cmd(cmd)
-    char *cmd;
-{
-    PIPE_S *syspipe;
-
-    return((syspipe = open_system_pipe(cmd, NULL, NULL, PIPE_SILENT, 0))
-	     ? close_system_pipe(&syspipe) : -1);
-}
-
-
-
-/*======================================================================
-    print routines
-   
-    Functions having to do with printing on paper and forking of spoolers
-
-    In general one calls open_printer() to start printing. One of
-    the little print functions to send a line or string, and then
-    call print_end() when complete. This takes care of forking off a spooler
-    and piping the stuff down it. No handles or anything here because there's
-    only one printer open at a time.
-
- ====*/
-
-
-
-static char *trailer;  /* so both open and close_printer can see it */
-
-/*----------------------------------------------------------------------
-       Open the printer
-
-  Args: desc -- Description of item to print. Should have one trailing blank.
-
-  Return value: < 0 is a failure.
-		0 a success.
-
-This does most of the work of popen so we can save the standard output of the
-command we execute and send it back to the user.
-  ----*/
-int
-open_printer(desc)
-    char     *desc;
-{
-    char command[201], prompt[200];
-    int  cmd, rc, just_one;
-    char *p, *init, *nick;
-    char aname[100];
-    char *printer;
-    int	 done = 0, i, lastprinter, cur_printer = 0;
-    HelpType help;
-    char   **list;
-    static ESCKEY_S ekey[] = {
-	{'y', 'y', "Y", "Yes"},
-	{'n', 'n', "N", "No"},
-	{ctrl('P'), 10, "^P", "Prev Printer"},
-	{ctrl('N'), 11, "^N", "Next Printer"},
-	{-2,   0,   NULL, NULL},
-	{'c', 'c', "C", "CustomPrint"},
-	{KEY_UP,    10, "", ""},
-	{KEY_DOWN,  11, "", ""},
-	{-1, 0, NULL, NULL}};
-#define PREV_KEY   2
-#define NEXT_KEY   3
-#define CUSTOM_KEY 5
-#define UP_KEY     6
-#define DOWN_KEY   7
-
-    trailer      = NULL;
-    init         = NULL;
-    nick         = NULL;
-    command[200] = '\0';
-
-    if(ps_global->VAR_PRINTER == NULL){
-        q_status_message(SM_ORDER | SM_DING, 3, 5,
-	"No printer has been chosen.  Use SETUP on main menu to make choice.");
-	return(-1);
-    }
-
-    /* Is there just one print command available? */
-    just_one = (ps_global->printer_category!=3&&ps_global->printer_category!=2)
-	       || (ps_global->printer_category == 2
-		   && !(ps_global->VAR_STANDARD_PRINTER
-			&& ps_global->VAR_STANDARD_PRINTER[0]
-			&& ps_global->VAR_STANDARD_PRINTER[1]))
-	       || (ps_global->printer_category == 3
-		   && !(ps_global->VAR_PERSONAL_PRINT_COMMAND
-			&& ps_global->VAR_PERSONAL_PRINT_COMMAND[0]
-			&& ps_global->VAR_PERSONAL_PRINT_COMMAND[1]));
-
-    if(F_ON(F_CUSTOM_PRINT, ps_global))
-      ekey[CUSTOM_KEY].ch = 'c'; /* turn this key on */
-    else
-      ekey[CUSTOM_KEY].ch = -2;  /* turn this key off */
-
-    if(just_one){
-	ekey[PREV_KEY].ch = -2;  /* turn these keys off */
-	ekey[NEXT_KEY].ch = -2;
-	ekey[UP_KEY].ch   = -2;
-	ekey[DOWN_KEY].ch = -2;
-    }
-    else{
-	ekey[PREV_KEY].ch = ctrl('P'); /* turn these keys on */
-	ekey[NEXT_KEY].ch = ctrl('N');
-	ekey[UP_KEY].ch   = KEY_UP;
-	ekey[DOWN_KEY].ch = KEY_DOWN;
-	/*
-	 * count how many printers in list and find the default in the list
-	 */
-	if(ps_global->printer_category == 2)
-	  list = ps_global->VAR_STANDARD_PRINTER;
-	else
-	  list = ps_global->VAR_PERSONAL_PRINT_COMMAND;
-
-	for(i = 0; list[i]; i++)
-	  if(strcmp(ps_global->VAR_PRINTER, list[i]) == 0)
-	    cur_printer = i;
-	
-	lastprinter = i - 1;
-    }
-
-    help = NO_HELP;
-    ps_global->mangled_footer = 1;
-
-    while(!done){
-	if(init)
-	  fs_give((void **)&init);
-
-	if(trailer)
-	  fs_give((void **)&trailer);
-
-	if(just_one)
-	  printer = ps_global->VAR_PRINTER;
-	else
-	  printer = list[cur_printer];
-
-	parse_printer(printer, &nick, &p, &init, &trailer, NULL, NULL);
-	strncpy(command, p, 200);
-	fs_give((void **)&p);
-	sprintf(prompt, "Print %.50s%susing \"%.50s\" ? ",
-		desc ? desc : "",
-		(desc && *desc && desc[strlen(desc) - 1] != ' ') ? " " : "",
-		*nick ? nick : command);
-
-	fs_give((void **)&nick);
-	
-	cmd = radio_buttons(prompt, -FOOTER_ROWS(ps_global),
-				 ekey, 'y', 'x', help, RB_NORM);
-	
-	switch(cmd){
-	  case 'y':
-	    q_status_message1(SM_ORDER, 0, 9,
-		"Printing with command \"%s\"", command);
-	    done++;
-	    break;
-
-	  case 10:
-	    cur_printer = (cur_printer>0)
-				? (cur_printer-1)
-				: lastprinter;
-	    break;
-
-	  case 11:
-	    cur_printer = (cur_printer<lastprinter)
-				? (cur_printer+1)
-				: 0;
-	    break;
-
-	  case 'n':
-	  case 'x':
-	    done++;
-	    break;
-
-	  case 'c':
-	    done++;
-	    break;
-
-	  default:
-	    break;
-	}
-    }
-
-    if(cmd == 'c'){
-	if(init)
-	  fs_give((void **)&init);
-
-	if(trailer)
-	  fs_give((void **)&trailer);
-
-	sprintf(prompt, "Enter custom command : ");
-	command[0] = '\0';
-	rc = 1;
-	help = NO_HELP;
-	while(rc){
-	    int flags = OE_APPEND_CURRENT;
-
-	    rc = optionally_enter(command, -FOOTER_ROWS(ps_global), 0,
-		200, prompt, NULL, help, &flags);
-	    
-	    if(rc == 1){
-		cmd = 'x';
-		rc = 0;
-	    }
-	    else if(rc == 3)
-	      help = (help == NO_HELP) ? h_custom_print : NO_HELP;
-	    else if(rc == 0){
-		removing_trailing_white_space(command);
-		removing_leading_white_space(command);
-		q_status_message1(SM_ORDER, 0, 9,
-		    "Printing with command \"%s\"", command);
-	    }
-	}
-    }
-
-    if(cmd == 'x' || cmd == 'n'){
-	q_status_message(SM_ORDER, 0, 2, "Print cancelled");
-	if(init)
-	  fs_give((void **)&init);
-
-	if(trailer)
-	  fs_give((void **)&trailer);
-
-	return(-1);
-    }
-
-    display_message('x');
-
-    ps_global->print = (PRINT_S *)fs_get(sizeof(PRINT_S));
-    memset(ps_global->print, 0, sizeof(PRINT_S));
-
-    strcat(strcpy(aname, ANSI_PRINTER), "-no-formfeed");
-    if(strucmp(command, ANSI_PRINTER) == 0
-       || strucmp(command, aname) == 0){
-        /*----------- Printer attached to ansi device ---------*/
-        q_status_message(SM_ORDER, 0, 9,
-	    "Printing to attached desktop printer...");
-        display_message('x');
-	xonxoff_proc(1);			/* make sure XON/XOFF used */
-	crlf_proc(1);				/* AND LF->CR xlation */
-        fputs("\033[5i", stdout);
-        ps_global->print->fp = stdout;
-        if(strucmp(command, ANSI_PRINTER) == 0){
-	    /* put formfeed at the end of the trailer string */
-	    if(trailer){
-		int len = strlen(trailer);
-
-		fs_resize((void **)&trailer, len+2);
-		trailer[len] = '\f';
-		trailer[len+1] = '\0';
-	    }
-	    else
-	      trailer = cpystr("\f");
-	}
-    }
-    else{
-        /*----------- Print by forking off a UNIX command ------------*/
-        dprint(4, (debugfile, "Printing using command \"%s\"\n", command));
-	ps_global->print->result = temp_nam(NULL, "pine_prt");
-	if(ps_global->print->pipe = open_system_pipe(command,
-					 &ps_global->print->result, NULL,
-					 PIPE_WRITE | PIPE_STDERR, 0)){
-	    ps_global->print->fp = ps_global->print->pipe->out.f;
-	}
-	else{
-	    fs_give((void **)&ps_global->print->result);
-            q_status_message1(SM_ORDER | SM_DING, 3, 4,
-			      "Error opening printer: %s",
-                              error_description(errno));
-            dprint(2, (debugfile, "Error popening printer \"%s\"\n",
-                      error_description(errno)));
-	    if(init)
-	      fs_give((void **)&init);
-
-	    if(trailer)
-	      fs_give((void **)&trailer);
-	    
-	    return(-1);
-        }
-    }
-
-    ps_global->print->err = 0;
-    if(init){
-	if(*init)
-	  fputs(init, ps_global->print->fp);
-
-	fs_give((void **)&init);
-    }
-
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-     Close printer
-  
-  If we're piping to a spooler close down the pipe and wait for the process
-to finish. If we're sending to an attached printer send the escape sequence.
-Also let the user know the result of the print
- ----*/
-void
-close_printer()
-{
-    if(trailer){
-	if(*trailer)
-	  fputs(trailer, ps_global->print->fp);
-
-	fs_give((void **)&trailer);
-    }
-
-    if(ps_global->print->fp == stdout) {
-        fputs("\033[4i", stdout);
-        fflush(stdout);
-	if(F_OFF(F_PRESERVE_START_STOP, ps_global))
-	  xonxoff_proc(0);			/* turn off XON/XOFF */
-
-	crlf_proc(0);				/* turn off CF->LF xlantion */
-    } else {
-	(void) close_system_pipe(&ps_global->print->pipe);
-	display_output_file(ps_global->print->result, "PRINT", NULL, 1);
-	fs_give((void **)&ps_global->print->result);
-    }
-
-    fs_give((void **)&ps_global->print);
-
-    q_status_message(SM_ASYNC, 0, 3, "Print command completed");
-    display_message('x');
-}
-
-
-
-/*----------------------------------------------------------------------
-     Print a single character
-
-  Args: c -- char to print
-  Returns: 1 on success, 0 on ps_global->print->err
- ----*/
-int
-print_char(c)
-    int c;
-{
-    if(!ps_global->print->err && putc(c, ps_global->print->fp) == EOF)
-      ps_global->print->err = 1;
-
-    return(!ps_global->print->err);
-}
-
-
-
-/*----------------------------------------------------------------------
-     Send a line of text to the printer
-
-  Args:  line -- Text to print
-
-  ----*/
-    
-void
-print_text(line)
-    char *line;
-{
-    if(!ps_global->print->err && fputs(line, ps_global->print->fp) == EOF)
-      ps_global->print->err = 1;
-}
-
-
-
-/*----------------------------------------------------------------------
-      printf style formatting with one arg for printer
-
- Args: line -- The printf control string
-       a1   -- The 1st argument for printf
- ----*/
-void
-print_text1(line, a1)
-    char *line, *a1;
-{
-    if(!ps_global->print->err
-       && fprintf(ps_global->print->fp, line, a1) < 0)
-      ps_global->print->err = 1;
-}
-
-
-
-/*----------------------------------------------------------------------
-      printf style formatting with one arg for printer
-
- Args: line -- The printf control string
-       a1   -- The 1st argument for printf
-       a2   -- The 2nd argument for printf
- ----*/
-void
-print_text2(line, a1, a2)
-    char *line, *a1, *a2;
-{
-    if(!ps_global->print->err
-       && fprintf(ps_global->print->fp, line, a1, a2) < 0)
-      ps_global->print->err = 1;
-}
-
-
-
-/*----------------------------------------------------------------------
-      printf style formatting with one arg for printer
-
- Args: line -- The printf control string
-       a1   -- The 1st argument for printf
-       a2   -- The 2nd argument for printf
-       a3   -- The 3rd argument for printf
- ----*/
-void
-print_text3(line, a1, a2, a3)
-    char *line, *a1, *a2, *a3;
-{
-    if(!ps_global->print->err
-       && fprintf(ps_global->print->fp, line, a1, a2, a3) < 0)
-      ps_global->print->err = 1;
-}
-
-#ifdef DEBUG
-/*----------------------------------------------------------------------
-     Initialize debugging - open the debug log file
-
-  Args: none
-
- Result: opens the debug logfile for dprints
-
-   Opens the file "~/.pine-debug1. Also maintains .pine-debug[2-4]
-   by renaming them each time so the last 4 sessions are saved.
-  ----*/
-void
-init_debug()
-{
-    char nbuf[5];
-    char newfname[MAXPATH+1], filename[MAXPATH+1];
-    int i, fd;
-
-    if(!(debug || ps_global->debug_imap))
-      return;
-
-    for(i = ps_global->debug_nfiles - 1; i > 0; i--){
-        build_path(filename, ps_global->home_dir, DEBUGFILE);
-        strcpy(newfname, filename);
-        sprintf(nbuf, "%d", i);
-        strcat(filename, nbuf);
-        sprintf(nbuf, "%d", i+1);
-        strcat(newfname, nbuf);
-        (void)rename_file(filename, newfname);
-    }
-
-    build_path(filename, ps_global->home_dir, DEBUGFILE);
-    strcat(filename, "1");
-
-    debugfile = NULL;
-    if((fd = open(filename, O_TRUNC|O_RDWR|O_CREAT, 0600)) >= 0)
-      debugfile = fdopen(fd, "w+");
-
-    if(debugfile != NULL){
-	time_t now = time((time_t *)0);
-	if(ps_global->debug_flush)
-	  setbuf(debugfile, NULL);
-
-	if(ps_global->debug_nfiles == 0){
-	    /*
-	     * If no debug files are asked for, make filename a tempfile
-	     * to be used for a record should pine later crash...
-	     */
-	    if(debug < 9 && !ps_global->debug_flush && ps_global->debug_imap<4)
-	      unlink(filename);
-	}
-
-	dprint(0, (debugfile,
-  "Debug output of the Pine program (debug=%d debug_imap=%d). Version %s\n%s\n",
-	       debug, ps_global->debug_imap, pine_version, ctime(&now)));
-    }
-}
-
-
-/*----------------------------------------------------------------------
-     Try to save the debug file if we crash in a controlled way
-
-  Args: dfile:  pointer to open debug file
-
- Result: tries to move the appropriate .pine-debugx file to .pine-crash
-
-   Looks through the four .pine-debug files hunting for the one that is
-   associated with this pine, and then renames it.
-  ----*/
-void
-save_debug_on_crash(dfile)
-FILE *dfile;
-{
-    char nbuf[5], crashfile[MAXPATH+1], filename[MAXPATH+1];
-    int i;
-    struct stat dbuf, tbuf;
-    time_t now = time((time_t *)0);
-
-    if(!(dfile && fstat(fileno(dfile), &dbuf) != 0))
-      return;
-
-    fprintf(dfile, "\nsave_debug_on_crash: Version %s: debug level %d\n",
-	pine_version, debug);
-    fprintf(dfile, "\n                   : %s\n", ctime(&now));
-
-    build_path(crashfile, ps_global->home_dir, ".pine-crash");
-
-    fprintf(dfile, "\nAttempting to save debug file to %s\n", crashfile);
-    fprintf(stderr,
-	"\n\n       Attempting to save debug file to %s\n\n", crashfile);
-
-    /* Blat out last n keystrokes */
-    fputs("========== Latest keystrokes ==========\n", dfile);
-    while((i = key_playback(0)) != -1)
-      fprintf(dfile, "\t%s\t(0x%04.4x)\n", pretty_command(i), i);
-
-    /* look for existing debug file */
-    for(i = 1; i <= ps_global->debug_nfiles; i++){
-	build_path(filename, ps_global->home_dir, DEBUGFILE);
-	sprintf(nbuf, "%d", i);
-	strcat(filename, nbuf);
-	if(stat(filename, &tbuf) != 0)
-	  continue;
-
-	/* This must be the current debug file */
-	if(tbuf.st_dev == dbuf.st_dev && tbuf.st_ino == dbuf.st_ino){
-	    rename_file(filename, crashfile);
-	    break;
-	}
-    }
-
-    /* if current debug file name not found, write it by hand */
-    if(i > ps_global->debug_nfiles){
-	FILE *cfp;
-	char  buf[1025];
-
-	/*
-	 * Copy the debug temp file into the 
-	 */
-	if(cfp = fopen(crashfile, "w")){
-	    buf[1024] = '\0';
-	    fseek(dfile, 0L, 0);
-	    while(fgets(buf, 1025, dfile) && fputs(buf, cfp) != EOF)
-	      ;
-
-	    fclose(cfp);
-	}
-    }
-
-    fclose(dfile);
-}
-
-
-#define CHECK_EVERY_N_TIMES 100
-#define MAX_DEBUG_FILE_SIZE 200000L
-/*
- * This is just to catch runaway Pines that are looping spewing out
- * debugging (and filling up a file system).  The stop doesn't have to be
- * at all precise, just soon enough to hopefully prevent filling the
- * file system.  If the debugging level is high (9 for now), then we're
- * presumably looking for some problem, so don't truncate.
- */
-int
-do_debug(debug_fp)
-FILE *debug_fp;
-{
-    static int counter = CHECK_EVERY_N_TIMES;
-    static int ok = 1;
-    long filesize;
-
-    if(debug == DEFAULT_DEBUG
-       && !ps_global->debug_flush
-       && !ps_global->debug_timestamp
-       && ps_global->debug_imap < 2
-       && ok
-       && --counter <= 0){
-	if((filesize = fp_file_size(debug_fp)) != -1L)
-	  ok = (unsigned long)filesize < (unsigned long)MAX_DEBUG_FILE_SIZE;
-
-	counter = CHECK_EVERY_N_TIMES;
-	if(!ok){
-	    fprintf(debug_fp, "\n\n --- No more debugging ---\n");
-	    fprintf(debug_fp,
-		"     (debug file growing too large - over %ld bytes)\n\n",
-		MAX_DEBUG_FILE_SIZE);
-	    fflush(debug_fp);
-	}
-    }
-
-    if(ok && ps_global->debug_timestamp)
-      fprintf(debug_fp, "\n%s\n", debug_time(0));
-
-    return(ok);
-}
-
-
-/*
- * Returns a pointer to static string for a timestamp.
- *
- * If timestamp is set .subseconds are added if available.
- * If include_date is set the date is appended.
- */
-char *
-debug_time(include_date)
-    int include_date;
-{
-    time_t          t;
-    struct tm      *tm_now;
-    struct timeval  tp;
-    struct timezone tzp;
-    static char     timestring[23];
-    char            subsecond[8];
-    char            datestr[7];
-
-    if(gettimeofday(&tp, &tzp) == 0){
-	t = (time_t)tp.tv_sec;
-	if(include_date){
-	    tm_now = localtime(&t);
-	    sprintf(datestr, " %d/%d", tm_now->tm_mon+1, tm_now->tm_mday);
-	}
-	else
-	  datestr[0] = '\0';
-
-	if(ps_global->debug_timestamp)
-	  sprintf(subsecond, ".%06ld", tp.tv_usec);
-	else
-	  subsecond[0] = '\0';
-
-	sprintf(timestring, "%.8s%s%s", ctime(&t)+11, subsecond, datestr);
-    }
-    else
-      timestring[0] = '\0';
-
-    return(timestring);
-}
-#endif /* DEBUG */
-
-
-/*
- * Fills in the passed in structure with the current time.
- *
- * Returns 0 if ok
- *        -1 if can't do it
- */
-int
-get_time(our_time_val)
-    TIMEVAL_S *our_time_val;
-{
-    struct timeval  tp;
-    struct timezone tzp;
-
-    if(gettimeofday(&tp, &tzp) == 0){
-	our_time_val->sec  = tp.tv_sec;
-	our_time_val->usec = tp.tv_usec;
-	return 0;
-    }
-    else
-      return -1;
-}
-
-
-/*
- * Returns the difference between the two values, in microseconds.
- * Value returned is first - second.
- */
-long
-time_diff(first, second)
-    TIMEVAL_S *first,
-              *second;
-{
-    return(1000000L*(first->sec - second->sec) + (first->usec - second->usec));
-}
-
-
-
-/*======================================================================
-       Things having to do with reading from the tty driver and keyboard
-          - initialize tty driver and reset tty driver
-          - read a character from terminal with keyboard escape seqence mapping
-          - initialize keyboard (keypad or such) and reset keyboard
-          - prompt user for a line of input
-          - read a command from keyboard with timeouts.
-
- ====*/
-
-
-/*
- * Helpful definitions
- */
-#define	RETURN_CH(X)	return(key_recorder((X)))
-/*
- * Should really be using pico's TERM's t_getchar to read a character but
- * we're just calling ttgetc directly for now. Ttgetc is the same as
- * t_getchar whenever we use it so we're avoiding the trouble of initializing
- * the TERM struct and calling ttgetc directly.
- */
-#define READ_A_CHAR()	ttgetc(NO_OP_COMMAND, key_recorder, read_bail)
-
-
-/*
- * Internal prototypes
- */
-int  pine_simple_ttgetc PROTO((int (*)(), void (*)()));
-void line_paint PROTO((int, int *));
-int  process_config_input PROTO((int *));
-int  check_for_timeout PROTO((int));
-void read_bail PROTO((void));
-
-
-/*----------------------------------------------------------------------
-    Initialize the tty driver to do single char I/O and whatever else  (UNIX)
-
-   Args:  struct pine
-
- Result: tty driver is put in raw mode so characters can be read one
-         at a time. Returns -1 if unsuccessful, 0 if successful.
-
-Some file descriptor voodoo to allow for pipes across vforks. See 
-open_mailer for details.
-  ----------------------------------------------------------------------*/
-init_tty_driver(ps)
-     struct pine *ps;
-{
-#ifdef	MOUSE
-    if(F_ON(F_ENABLE_MOUSE, ps_global))
-      init_mouse();
-#endif	/* MOUSE */
-
-    /* turn off talk permission by default */
-    
-    if(F_ON(F_ALLOW_TALK, ps))
-      allow_talk(ps);
-    else
-      disallow_talk(ps);
-
-    return(PineRaw(1));
-}
-
-
-
-/*----------------------------------------------------------------------
-   Set or clear the specified tty mode
-
-   Args: ps --  struct pine
-	 mode -- mode bits to modify
-	 clear -- whether or not to clear or set
-
- Result: tty driver mode change. 
-  ----------------------------------------------------------------------*/
-void
-tty_chmod(ps, mode, func)
-    struct pine *ps;
-    int		 mode;
-    int		 func;
-{
-    char	*tty_name;
-    int		 new_mode;
-    struct stat  sbuf;
-    static int   saved_mode = -1;
-
-    /* if no problem figuring out tty's name & mode? */
-    if((((tty_name = (char *) ttyname(STDIN_FD)) != NULL
-	 && fstat(STDIN_FD, &sbuf) == 0)
-	|| ((tty_name = (char *) ttyname(STDOUT_FD)) != NULL
-	    && fstat(STDOUT_FD, &sbuf) == 0))
-       && !(func == TMD_RESET && saved_mode < 0)){
-	new_mode = (func == TMD_RESET)
-		     ? saved_mode
-		     : (func == TMD_CLEAR)
-			? (sbuf.st_mode & ~mode)
-			: (sbuf.st_mode | mode);
-	/* assign tty new mode */
-	if(chmod(tty_name, new_mode) == 0){
-	    if(func == TMD_RESET)		/* forget we knew */
-	      saved_mode = -1;
-	    else if(saved_mode < 0)
-	      saved_mode = sbuf.st_mode;	/* remember original */
-	}
-    }
-}
-
-
-
-/*----------------------------------------------------------------------
-       End use of the tty, put it back into it's normal mode     (UNIX)
-
-   Args: ps --  struct pine
-
- Result: tty driver mode change. 
-  ----------------------------------------------------------------------*/
-void
-end_tty_driver(ps)
-     struct pine *ps;
-{
-    ps = ps; /* get rid of unused parameter warning */
-
-#ifdef	MOUSE
-    end_mouse();
-#endif	/* MOUSE */
-    fflush(stdout);
-    dprint(2, (debugfile, "about to end_tty_driver\n"));
-
-    tty_chmod(ps, 0, TMD_RESET);
-    PineRaw(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Actually set up the tty driver                             (UNIX)
-
-   Args: state -- which state to put it in. 1 means go into raw, 0 out of
-
-  Result: returns 0 if successful and < 0 if not.
-  ----*/
-
-PineRaw(state)
-int state;
-{
-    int result;
-
-    result = Raw(state);
-    
-    if(result == 0 && state == 1){
-	/*
-	 * Only go into 8 bit mode if we are doing something other
-	 * than plain ASCII. This will save the folks that have
-	 * their parity on their serial lines wrong thr trouble of
-	 * getting it right
-	 */
-        if(ps_global->VAR_CHAR_SET && ps_global->VAR_CHAR_SET[0] &&
-	   strucmp(ps_global->VAR_CHAR_SET, "us-ascii"))
-	  bit_strip_off();
-
-#ifdef	DEBUG
-	if(debug < 9)			/* only on if full debugging set */
-#endif
-	quit_char_off();
-	ps_global->low_speed = ttisslow();
-	crlf_proc(0);
-	xonxoff_proc(F_ON(F_PRESERVE_START_STOP, ps_global));
-    }
-
-    return(result);
-}
-
-
-#ifdef RESIZING
-jmp_buf winch_state;
-int     winch_occured = 0;
-int     ready_for_winch = 0;
-#endif
-
-/*----------------------------------------------------------------------
-     This checks whether or not a character			(UNIX)
-     is ready to be read, or it times out.
-
-    Args:  time_out --  number of seconds before it will timeout
-
-  Result: Returns a NO_OP_IDLE or a NO_OP_COMMAND if the timeout expires
-	  before input is available, or a KEY_RESIZE if a resize event
-	  occurs, or READY_TO_READ if input is available before the timeout.
-  ----*/
-int
-check_for_timeout(time_out)
-    int time_out;
-{
-    int res;
-
-    fflush(stdout);
-
-#ifdef RESIZING
-    if(!winch_occured){
-	if(setjmp(winch_state) != 0){
-	    winch_occured = 1;
-	    ready_for_winch = 0;
-
-	    /*
-	     * Need to unblock signal after longjmp from handler, because
-	     * signal is normally unblocked upon routine exit from the handler.
-	     */
-	    our_sigunblock(SIGWINCH);
-	}
-	else
-	  ready_for_winch = 1;
-    }
-
-    if(winch_occured){
-	winch_occured = ready_for_winch = 0;
-	fix_windsize(ps_global);
-	return(KEY_RESIZE);
-    }
-#endif /* RESIZING */
-
-    switch(res = input_ready(time_out)){
-      case BAIL_OUT:
-	read_bail();			/* non-tragic exit */
-	/* NO RETURN */
-
-      case PANIC_NOW:
-	panic1("Select error: %s\n", error_description(errno));
-	/* NO RETURN */
-
-      case READ_INTR:
-	res = NO_OP_COMMAND;
-	/* fall through */
-
-      case NO_OP_IDLE:
-      case NO_OP_COMMAND:
-      case READY_TO_READ:
-#ifdef RESIZING
-	ready_for_winch = 0;
-#endif
-	return(res);
-    }
-}
-
-
-
-/*----------------------------------------------------------------------
-  Read input characters with lots of processing for arrow keys and such  (UNIX)
-
- Args:  time_out -- The timeout to for the reads 
-
- Result: returns the character read. Possible special chars.
-
-    This deals with function and arrow keys as well. 
-
-  The idea is that this routine handles all escape codes so it done in
-  only one place. Especially so the back arrow key can work when entering
-  things on a line. Also so all function keys can be disabled and not
-  cause weird things to happen.
-  ---*/
-int
-read_char(time_out)
-    int time_out;
-{
-    int ch, status, cc;
-
-    /* Get input from initial-keystrokes */
-    if(process_config_input(&ch))
-      return(ch);
-
-    /*
-     * We only check for timeouts at the start of read_char, not in the
-     * middle of escape sequences.
-     */
-    if((ch = check_for_timeout(time_out)) != READY_TO_READ)
-      goto done;
-    
-    ps_global->time_of_last_input = time((time_t *)0);
-
-    switch(status = kbseq(pine_simple_ttgetc, key_recorder, read_bail, &ch)){
-      case KEY_DOUBLE_ESC:
-	/*
-	 * Special hack to get around comm devices eating control characters.
-	 */
-	if(check_for_timeout(5) != READY_TO_READ){
-	    ch = KEY_JUNK;		/* user typed ESC ESC, then stopped */
-	    goto done;
-	}
-	else
-	  ch = READ_A_CHAR();
-
-	ch &= 0x7f;
-	if(isdigit((unsigned char)ch)){
-	    int n = 0, i = ch - '0';
-
-	    if(i < 0 || i > 2){
-		ch = KEY_JUNK;
-		goto done;		/* bogus literal char value */
-	    }
-
-	    while(n++ < 2){
-		if(check_for_timeout(5) != READY_TO_READ
-		   || (!isdigit((unsigned char) (ch = READ_A_CHAR()))
-		       || (n == 1 && i == 2 && ch > '5')
-		       || (n == 2 && i == 25 && ch > '5'))){
-		    ch = KEY_JUNK;	/* user typed ESC ESC #, stopped */
-		    goto done;
-		}
-
-		i = (i * 10) + (ch - '0');
-	    }
-
-	    ch = i;
-	}
-	else{
-	    if(islower((unsigned char)ch))	/* canonicalize if alpha */
-	      ch = toupper((unsigned char)ch);
-
-	    ch = (isalpha((unsigned char)ch) || ch == '@'
-		  || (ch >= '[' && ch <= '_'))
-		   ? ctrl(ch) : ((ch == SPACE) ? ctrl('@'): ch);
-	}
-
-	goto done;
-
-#ifdef MOUSE
-      case KEY_XTERM_MOUSE:
-	if(mouseexist()){
-	    /*
-	     * Special hack to get mouse events from an xterm.
-	     * Get the details, then pass it past the keymenu event
-	     * handler, and then to the installed handler if there
-	     * is one...
-	     */
-	    static int down = 0;
-	    int        x, y, button;
-	    unsigned   cmd;
-
-	    clear_cursor_pos();
-	    button = READ_A_CHAR() & 0x03;
-
-	    x = READ_A_CHAR() - '!';
-	    y = READ_A_CHAR() - '!';
-
-	    ch = NO_OP_COMMAND;
-	    if(button == 0){		/* xterm button 1 down */
-		down = 1;
-		if(checkmouse(&cmd, 1, x, y))
-		  ch = (int)cmd;
-	    }
-	    else if (down && button == 3){
-		down = 0;
-		if(checkmouse(&cmd, 0, x, y))
-		  ch = (int)cmd;
-	    }
-
-	    goto done;
-	}
-
-	break;
-#endif /* MOUSE */
-
-      case  KEY_UP	:
-      case  KEY_DOWN	:
-      case  KEY_RIGHT	:
-      case  KEY_LEFT	:
-      case  KEY_PGUP	:
-      case  KEY_PGDN	:
-      case  KEY_HOME	:
-      case  KEY_END	:
-      case  KEY_DEL	:
-      case  PF1		:
-      case  PF2		:
-      case  PF3		:
-      case  PF4		:
-      case  PF5		:
-      case  PF6		:
-      case  PF7		:
-      case  PF8		:
-      case  PF9		:
-      case  PF10	:
-      case  PF11	:
-      case  PF12	:
-        dprint(9, (debugfile, "Read char returning: %d %s\n",
-                   status, pretty_command(status)));
-	return(status);
-
-      case KEY_SWALLOW_Z:
-	status = KEY_JUNK;
-      case KEY_SWAL_UP:
-      case KEY_SWAL_DOWN:
-      case KEY_SWAL_LEFT:
-      case KEY_SWAL_RIGHT:
-	do
-	  if(check_for_timeout(2) != READY_TO_READ){
-	      status = KEY_JUNK;
-	      break;
-	  }
-	while(!strchr("~qz", READ_A_CHAR()));
-	ch = (status == KEY_JUNK) ? status : status - (KEY_SWAL_UP - KEY_UP);
-	goto done;
-
-      case KEY_KERMIT:
-	do{
-	    cc = ch;
-	    if(check_for_timeout(2) != READY_TO_READ){
-		status = KEY_JUNK;
-		break;
-	    }
-	    else
-	      ch = READ_A_CHAR();
-	}while(cc != '\033' && ch != '\\');
-
-	ch = KEY_JUNK;
-	goto done;
-
-      case BADESC:
-	ch = KEY_JUNK;
-	goto done;
-
-      case 0: 	/* regular character */
-      default:
-	/*
-	 * we used to strip (ch &= 0x7f;), but this seems much cleaner
-	 * in the face of line noise and has the benefit of making it
-	 * tougher to emit mistakenly labeled MIME...
-	 */
-	if((ch & 0x80) && (!ps_global->VAR_CHAR_SET
-			   || !strucmp(ps_global->VAR_CHAR_SET, "US-ASCII"))){
-	    dprint(9, (debugfile, "Read char returning: %d %s\n",
-		       status, pretty_command(status)));
-	    return(KEY_JUNK);
-	}
-	else if(ch == ctrl('Z')){
-	    dprint(9, (debugfile, "Read char calling do_suspend\n"));
-	    return(do_suspend());
-	}
-
-
-      done:
-        dprint(9, (debugfile, "Read char returning: %d %s\n",
-                   ch, pretty_command(ch)));
-        return(ch);
-    }
-}
-
-
-/*----------------------------------------------------------------------
-  Reading input somehow failed and we need to shutdown now
-
- Args:  none
-
- Result: pine exits
-
-  ---*/
-void
-read_bail()
-{
-    end_signals(1);
-    if(ps_global->inbox_stream){
-	if(ps_global->inbox_stream == ps_global->mail_stream)
-	  ps_global->mail_stream = NULL;
-
-	if(!ps_global->inbox_stream->lock)		/* shouldn't be... */
-	  pine_close_stream(ps_global->inbox_stream);
-    }
-
-    if(ps_global->mail_stream && !ps_global->mail_stream->lock)
-      pine_close_stream(ps_global->mail_stream);
-
-    end_keyboard(F_ON(F_USE_FK,ps_global));
-    end_tty_driver(ps_global);
-    if(filter_data_file(0))
-      unlink(filter_data_file(0));
-
-    exit(0);
-}
-
-
-int
-pine_simple_ttgetc(fi, fv)
-    int	 (*fi)();
-    void (*fv)();
-{
-    int ch;
-
-#ifdef RESIZING
-    if(!winch_occured){
-	if(setjmp(winch_state) != 0){
-	    winch_occured = 1;
-	    ready_for_winch = 0;
-
-	    /*
-	     * Need to unblock signal after longjmp from handler, because
-	     * signal is normally unblocked upon routine exit from the handler.
-	     */
-	    our_sigunblock(SIGWINCH);
-	}
-	else
-	  ready_for_winch = 1;
-    }
-
-    if(winch_occured){
-	winch_occured = ready_for_winch = 0;
-	fix_windsize(ps_global);
-	return(KEY_RESIZE);
-    }
-#endif /* RESIZING */
-
-    ch = simple_ttgetc(fi, fv);
-
-#ifdef RESIZING
-    ready_for_winch = 0;
-#endif
-
-    return(ch);
-}
-
-
-
-extern char term_name[];
-/* -------------------------------------------------------------------
-     Set up the keyboard -- usually enable some function keys  (UNIX)
-
-    Args: struct pine 
-
-So far all we do here is turn on keypad mode for certain terminals
-
-Hack for NCSA telnet on an IBM PC to put the keypad in the right mode.
-This is the same for a vtXXX terminal or [zh][12]9's which we have 
-a lot of at UW
-  ----*/
-void
-init_keyboard(use_fkeys)
-     int use_fkeys;
-{
-    if(use_fkeys && (!strucmp(term_name,"vt102")
-		     || !strucmp(term_name,"vt100")))
-      printf("\033\133\071\071\150");
-}
-
-
-
-/*----------------------------------------------------------------------
-     Clear keyboard, usually disable some function keys           (UNIX)
-
-   Args:  pine state (terminal type)
-
- Result: keyboard state reset
-  ----*/
-void
-end_keyboard(use_fkeys)
-     int use_fkeys;
-{
-    if(use_fkeys && (!strcmp(term_name, "vt102")
-		     || !strcmp(term_name, "vt100"))){
-	printf("\033\133\071\071\154");
-	fflush(stdout);
-    }
-}
-
-
-#ifdef	_WINDOWS
-#line 3 "osdep/termin.gen"
-
-static int g_mc_row, g_mc_col;
-
-int	pcpine_oe_cursor PROTO((int, long));
-#endif
-
-
-/*
- *     Generic tty input routines
- */
-
-
-/*----------------------------------------------------------------------
-        Read a character from keyboard with timeout
- Input:  none
-
- Result: Returns command read via read_char
-         Times out and returns a null command every so often
-
-  Calculates the timeout for the read, and does a few other house keeping 
-things.  The duration of the timeout is set in pine.c.
-  ----------------------------------------------------------------------*/
-int
-read_command()
-{
-    int ch, tm = 0;
-    long dtime; 
-
-    cancel_busy_alarm(-1);
-    tm = (messages_queued(&dtime) > 1) ? (int)dtime : timeo;
-
-    /*
-     * Before we sniff at the input queue, make sure no external event's
-     * changed our picture of the message sequence mapping.  If so,
-     * recalculate the dang thing and run thru whatever processing loop
-     * we're in again...
-     */
-    if(ps_global->expunge_count){
-	q_status_message3(SM_ORDER, 3, 3,
-			  "%s message%s expunged from folder \"%s\"",
-			  long2string(ps_global->expunge_count),
-			  plural(ps_global->expunge_count),
-			  pretty_fn(ps_global->cur_folder));
-	ps_global->expunge_count = 0L;
-	display_message('x');
-    }
-
-    if(ps_global->inbox_expunge_count){
-	q_status_message3(SM_ORDER, 3, 3,
-			  "%s message%s expunged from folder \"%s\"",
-			  long2string(ps_global->inbox_expunge_count),
-			  plural(ps_global->inbox_expunge_count),
-			  pretty_fn(ps_global->inbox_name));
-	ps_global->inbox_expunge_count = 0L;
-	display_message('x');
-    }
-
-    if(ps_global->mail_box_changed && ps_global->new_mail_count){
-        dprint(2, (debugfile, "Noticed %ld new msgs! \n",
-		   ps_global->new_mail_count));
-	return(NO_OP_COMMAND);		/* cycle thru so caller can update */
-    }
-
-    ch = read_char(tm);
-    dprint(9, (debugfile, "Read command returning: %d %s\n", ch,
-              pretty_command(ch)));
-    if(ch != NO_OP_COMMAND && ch != NO_OP_IDLE && ch != KEY_RESIZE)
-      zero_new_mail_count();
-
-#ifdef	BACKGROUND_POST
-    /*
-     * Any expired children to report on?
-     */
-    if(ps_global->post && ps_global->post->pid == 0){
-	int   winner = 0;
-
-	if(ps_global->post->status < 0){
-	    q_status_message(SM_ORDER | SM_DING, 3, 3, "Abysmal failure!");
-	}
-	else{
-	    (void) pine_send_status(ps_global->post->status,
-				    ps_global->post->fcc, tmp_20k_buf,
-				    &winner);
-	    q_status_message(SM_ORDER | (winner ? 0 : SM_DING), 3, 3,
-			     tmp_20k_buf);
-
-	}
-
-	if(!winner)
-	  q_status_message(SM_ORDER, 0, 3,
-	  "Re-send via \"Compose\" then \"Yes\" to \"Continue INTERRUPTED?\"");
-
-	if(ps_global->post->fcc)
-	  fs_give((void **) &ps_global->post->fcc);
-
-	fs_give((void **) &ps_global->post);
-    }
-#endif
-
-    return(ch);
-}
-
-
-
-
-/*
- *
- */
-static struct display_line {
-    int   row, col;			/* where display starts		 */
-    int   dlen;				/* length of display line	 */
-    char *dl;				/* line on display		 */
-    char *vl;				/* virtual line 		 */
-    int   vlen;				/* length of virtual line        */
-    int   vused;			/* length of virtual line in use */
-    int   vbase;			/* first virtual char on display */
-} dline;
-
-
-
-static struct key oe_keys[] =
-       {{"^G","Help",KS_SCREENHELP},	{"^C","Cancel",KS_NONE},
-	{"^T","xxx",KS_NONE},		{"Ret","Accept",KS_NONE},
-	{NULL,NULL,KS_NONE},		{NULL,NULL,KS_NONE},
-	{NULL,NULL,KS_NONE},		{NULL,NULL,KS_NONE},
-	{NULL,NULL,KS_NONE},		{NULL,NULL,KS_NONE},
-	{NULL,NULL,KS_NONE},		{NULL,NULL,KS_NONE}};
-INST_KEY_MENU(oe_keymenu, oe_keys);
-#define	OE_HELP_KEY	0
-#define	OE_CANCEL_KEY	1
-#define	OE_CTRL_T_KEY	2
-#define	OE_ENTER_KEY	3
-
-
-/*---------------------------------------------------------------------- 
-       Prompt user for a string in status line with various options
-
-  Args: string -- the buffer result is returned in, and original string (if 
-                   any) is passed in.
-        y_base -- y position on screen to start on. 0,0 is upper left
-                    negative numbers start from bottom
-        x_base -- column position on screen to start on. 0,0 is upper left
-        field_len -- Maximum length of string to accept
-        prompt -- The string to prompt with
-	escape_list -- pointer to array of ESCKEY_S's.  input chars matching
-                       those in list return value from list.
-        help   -- Arrary of strings for help text in bottom screen lines
-        flags  -- pointer (because some are return values) to flags
-		  OE_USER_MODIFIED       - Set on return if user modified buffer
-		  OE_DISALLOW_CANCEL     - No cancel in menu.
-		  OE_DISALLOW_HELP       - No help in menu.
-		  OE_KEEP_TRAILING_SPACE - Allow trailing space.
-		  OE_SEQ_SENSITIVE       - Caller is sensitive to sequence
-					   number changes.
-		  OE_APPEND_CURRENT      - String should not be truncated
-					   before accepting user input.
-		  OE_PASSWD              - Don't echo on screen.
-
-  Result:  editing input string
-            returns -1 unexpected errors
-            returns 0  normal entry typed (editing and return or PF2)
-            returns 1  typed ^C or PF2 (cancel)
-            returns 3  typed ^G or PF1 (help)
-            returns 4  typed ^L for a screen redraw
-
-  WARNING: Care is required with regard to the escape_list processing.
-           The passed array is terminated with an entry that has ch = -1.
-           Function key labels and key strokes need to be setup externally!
-	   Traditionally, a return value of 2 is used for ^T escapes.
-
-   Unless in escape_list, tabs are trapped by isprint().
-This allows near full weemacs style editing in the line
-   ^A beginning of line
-   ^E End of line
-   ^R Redraw line
-   ^G Help
-   ^F forward
-   ^B backward
-   ^D delete
-----------------------------------------------------------------------*/
-
-optionally_enter(string, y_base, x_base, field_len,
-                 prompt, escape_list, help, flags)
-     char       *string, *prompt;
-     ESCKEY_S   *escape_list;
-     HelpType	 help;
-     int         x_base, y_base, field_len;
-     int	*flags;
-{
-    register char *s2;
-    register int   field_pos;
-    int            i, j, return_v, cols, ch, prompt_len, too_thin,
-                   real_y_base, km_popped, passwd;
-    char          *saved_original = NULL, *k, *kb;
-    char          *kill_buffer = NULL;
-    char         **help_text;
-    int		   fkey_table[12];
-    struct	   key_menu *km;
-    bitmap_t	   bitmap;
-    COLOR_PAIR    *lastc = NULL, *promptc = NULL;
-    struct variable *vars = ps_global->vars;
-#ifdef	_WINDOWS
-    int		   cursor_shown;
-#endif
-
-    dprint(5, (debugfile, "=== optionally_enter called ===\n"));
-    dprint(9, (debugfile, "string:\"%s\"  y:%d  x:%d  length: %d append: %d\n",
-               string, x_base, y_base, field_len,
-	       (flags && *flags & OE_APPEND_CURRENT)));
-    dprint(9, (debugfile, "passwd:%d   prompt:\"%s\"   label:\"%s\"\n",
-               (flags && *flags & OE_PASSWD),
-	       prompt, (escape_list && escape_list[0].ch != -1)
-				 ? escape_list[0].label: ""));
-
-#ifdef _WINDOWS
-    if (mswin_usedialog ()) {
-	MDlgButton		button_list[12];
-	int			b;
-	int			i;
-
-	memset (&button_list, 0, sizeof (MDlgButton) * 12);
-	b = 0;
-	for (i = 0; escape_list && escape_list[i].ch != -1 && i < 11; ++i) {
-	    if (escape_list[i].name != NULL
-		&& escape_list[i].ch > 0 && escape_list[i].ch < 256) {
-		button_list[b].ch = escape_list[i].ch;
-		button_list[b].rval = escape_list[i].rval;
-		button_list[b].name = escape_list[i].name;
-		button_list[b].label = escape_list[i].label;
-		++b;
-	    }
-	}
-	button_list[b].ch = -1;
-
-
-	help_text = get_help_text (help);
-	return_v = mswin_dialog (prompt, string, field_len, 
-				 (flags && *flags & OE_APPEND_CURRENT),
-				 (flags && *flags & OE_PASSWD),
-				 button_list,
-				 help_text, flags ? *flags : OE_NONE);
-	free_list_array (&help_text);
-        return (return_v);
-    }
-#endif
-
-    suspend_busy_alarm();
-    cols       = ps_global->ttyo->screen_cols;
-    prompt_len = strlen(prompt);
-    too_thin   = 0;
-    km_popped  = 0;
-    if(y_base > 0) {
-        real_y_base = y_base;
-    } else {
-        real_y_base=  y_base + ps_global->ttyo->screen_rows;
-        if(real_y_base < 2)
-          real_y_base = ps_global->ttyo->screen_rows;
-    }
-
-    flush_ordered_messages();
-    mark_status_dirty();
-    if(flags && *flags & OE_APPEND_CURRENT) /* save a copy in case of cancel */
-      saved_original = cpystr(string);
-
-    /*
-     * build the function key mapping table, skipping predefined keys...
-     */
-    memset(fkey_table, NO_OP_COMMAND, 12 * sizeof(int));
-    for(i = 0, j = 0; escape_list && escape_list[i].ch != -1 && i+j < 12; i++){
-	if(i+j == OE_HELP_KEY)
-	  j++;
-
-	if(i+j == OE_CANCEL_KEY)
-	  j++;
-
-	if(i+j == OE_ENTER_KEY)
-	  j++;
-
-	fkey_table[i+j] = escape_list[i].ch;
-    }
-
-#if defined(HELPFILE)
-    help_text = (help != NO_HELP) ? get_help_text(help) : (char **)NULL;
-#else
-    help_text = help;
-#endif
-    if(help_text){			/*---- Show help text -----*/
-	int width = ps_global->ttyo->screen_cols - x_base;
-
-	if(FOOTER_ROWS(ps_global) == 1){
-	    km_popped++;
-	    FOOTER_ROWS(ps_global) = 3;
-	    clearfooter(ps_global);
-
-	    y_base = -3;
-	    real_y_base = y_base + ps_global->ttyo->screen_rows;
-	}
-
-	for(j = 0; j < 2 && help_text[j]; j++){
-	    MoveCursor(real_y_base + 1 + j, x_base);
-	    CleartoEOLN();
-
-	    if(width < strlen(help_text[j])){
-		char *tmp = fs_get((width + 1) * sizeof(char));
-		strncpy(tmp, help_text[j], width);
-		tmp[width] = '\0';
-		PutLine0(real_y_base + 1 + j, x_base, tmp);
-		fs_give((void **)&tmp);
-	    }
-	    else
-	      PutLine0(real_y_base + 1 + j, x_base, help_text[j]);
-	}
-
-#if defined(HELPFILE)
-	free_list_array(&help_text);
-#endif
-
-    } else {
-	clrbitmap(bitmap);
-	clrbitmap((km = &oe_keymenu)->bitmap);		/* force formatting */
-	if(!(flags && (*flags) & OE_DISALLOW_HELP))
-	  setbitn(OE_HELP_KEY, bitmap);
-
-	setbitn(OE_ENTER_KEY, bitmap);
-	if(!(flags && (*flags) & OE_DISALLOW_CANCEL))
-	  setbitn(OE_CANCEL_KEY, bitmap);
-
-	setbitn(OE_CTRL_T_KEY, bitmap);
-
-        /*---- Show the usual possible keys ----*/
-	for(i=0,j=0; escape_list && escape_list[i].ch != -1 && i+j < 12; i++){
-	    if(i+j == OE_HELP_KEY)
-	      j++;
-
-	    if(i+j == OE_CANCEL_KEY)
-	      j++;
-
-	    if(i+j == OE_ENTER_KEY)
-	      j++;
-
-	    oe_keymenu.keys[i+j].label = escape_list[i].label;
-	    oe_keymenu.keys[i+j].name = escape_list[i].name;
-	    setbitn(i+j, bitmap);
-	}
-
-	for(i = i+j; i < 12; i++)
-	  if(!(i == OE_HELP_KEY || i == OE_ENTER_KEY || i == OE_CANCEL_KEY))
-	    oe_keymenu.keys[i].name = NULL;
-
-	draw_keymenu(km, bitmap, cols, 1-FOOTER_ROWS(ps_global), 0, FirstMenu);
-    }
-    
-    if(pico_usingcolor() && VAR_PROMPT_FORE_COLOR &&
-       VAR_PROMPT_BACK_COLOR &&
-       pico_is_good_color(VAR_PROMPT_FORE_COLOR) &&
-       pico_is_good_color(VAR_PROMPT_BACK_COLOR)){
-	lastc = pico_get_cur_color();
-	if(lastc){
-	    promptc = new_color_pair(VAR_PROMPT_FORE_COLOR,
-				     VAR_PROMPT_BACK_COLOR);
-	    (void)pico_set_colorp(promptc, PSC_NONE);
-	}
-    }
-    else
-      StartInverse();
-
-    /*
-     * if display length isn't wide enough to support input,
-     * shorten up the prompt...
-     */
-    if((dline.dlen = cols - (x_base + prompt_len + 1)) < 5){
-	prompt_len += (dline.dlen - 5);	/* adding negative numbers */
-	prompt     -= (dline.dlen - 5);	/* subtracting negative numbers */
-	dline.dlen  = 5;
-    }
-
-    dline.dl    = fs_get((size_t)dline.dlen + 1);
-    memset((void *)dline.dl, 0, (size_t)(dline.dlen + 1) * sizeof(char));
-    dline.row   = real_y_base;
-    dline.col   = x_base + prompt_len;
-    dline.vl    = string;
-    dline.vlen  = --field_len;		/* -1 for terminating NULL */
-    dline.vbase = field_pos = 0;
-
-#ifdef	_WINDOWS
-    cursor_shown = mswin_showcaret(1);
-#endif
-    
-    PutLine0(real_y_base, x_base, prompt);
-    /* make sure passed in string is shorter than field_len */
-    /* and adjust field_pos..                               */
-
-    while((flags && *flags & OE_APPEND_CURRENT) &&
-          field_pos < field_len && string[field_pos] != '\0')
-      field_pos++;
-
-    string[field_pos] = '\0';
-    dline.vused = (int)(&string[field_pos] - string);
-    passwd = (flags && *flags & OE_PASSWD) ? 1 : 0;
-    line_paint(field_pos, &passwd);
-
-    /*----------------------------------------------------------------------
-      The main loop
-   
-    here field_pos is the position in the string.
-    s always points to where we are in the string.
-    loops until someone sets the return_v.
-      ----------------------------------------------------------------------*/
-    return_v = -10;
-
-    while(return_v == -10) {
-
-#ifdef	MOUSE
-	mouse_in_content(KEY_MOUSE, -1, -1, 0x5, 0);
-	register_mfunc(mouse_in_content, 
-		       real_y_base, x_base + prompt_len,
-		       real_y_base, ps_global->ttyo->screen_cols);
-#endif
-#ifdef	_WINDOWS
-	mswin_allowpaste(MSWIN_PASTE_LINE);
-	g_mc_row = real_y_base;
-	g_mc_col = x_base + prompt_len;
-	mswin_mousetrackcallback(pcpine_oe_cursor);
-#endif
-
-	/* Timeout 10 min to keep imap mail stream alive */
-        ch = read_char(600);
-
-#ifdef	MOUSE
-	clear_mfunc(mouse_in_content);
-#endif
-#ifdef	_WINDOWS
-	mswin_allowpaste(MSWIN_PASTE_DISABLE);
-	mswin_mousetrackcallback(NULL);
-#endif
-
-	/*
-	 * Don't want to intercept all characters if typing in passwd.
-	 * We select an ad hoc set that we will catch and let the rest
-	 * through.  We would have caught the set below in the big switch
-	 * but we skip the switch instead.  Still catch things like ^K,
-	 * DELETE, ^C, RETURN.
-	 */
-	if(passwd)
-	  switch(ch) {
-            case ctrl('F'):  
-	    case KEY_RIGHT:
-            case ctrl('B'):
-	    case KEY_LEFT:
-            case ctrl('U'):
-            case ctrl('A'):
-	    case KEY_HOME:
-            case ctrl('E'):
-	    case KEY_END:
-	    case TAB:
-	      goto ok_for_passwd;
-	  }
-
-        if(too_thin && ch != KEY_RESIZE && ch != ctrl('Z') && ch != ctrl('C'))
-          goto bleep;
-
-	switch(ch) {
-
-	    /*--------------- KEY RIGHT ---------------*/
-          case ctrl('F'):  
-	  case KEY_RIGHT:
-	    if(field_pos >= field_len || string[field_pos] == '\0')
-              goto bleep;
-
-	    line_paint(++field_pos, &passwd);
-	    break;
-
-	    /*--------------- KEY LEFT ---------------*/
-          case ctrl('B'):
-	  case KEY_LEFT:
-	    if(field_pos <= 0)
-	      goto bleep;
-
-	    line_paint(--field_pos, &passwd);
-	    break;
-
-          /*-------------------- WORD SKIP --------------------*/
-	  case ctrl('@'):
-	    /*
-	     * Note: read_char *can* return NO_OP_COMMAND which is
-	     * the def'd with the same value as ^@ (NULL), BUT since
-	     * read_char has a big timeout (>25 secs) it won't.
-	     */
-
-	    /* skip thru current word */
-	    while(string[field_pos]
-		  && isalnum((unsigned char) string[field_pos]))
-	      field_pos++;
-
-	    /* skip thru current white space to next word */
-	    while(string[field_pos]
-		  && !isalnum((unsigned char) string[field_pos]))
-	      field_pos++;
-
-	    line_paint(field_pos, &passwd);
-	    break;
-
-          /*--------------------  RETURN --------------------*/
-	  case PF4:
-	    if(F_OFF(F_USE_FK,ps_global)) goto bleep;
-	  case ctrl('J'): 
-	  case ctrl('M'): 
-	    return_v = 0;
-	    break;
-
-          /*-------------------- Destructive backspace --------------------*/
-	  case '\177': /* DEL */
-	  case ctrl('H'):
-            /*   Try and do this with by telling the terminal to delete a
-                 a character. If that fails, then repaint the rest of the
-                 line, acheiving the same much less efficiently
-             */
-	    if(field_pos <= 0)
-	      goto bleep;
-
-	    field_pos--;
-	    /* drop thru to pull line back ... */
-
-          /*-------------------- Delete char --------------------*/
-	  case ctrl('D'): 
-	  case KEY_DEL: 
-            if(field_pos >= field_len || !string[field_pos])
-	      goto bleep;
-
-	    dline.vused--;
-	    for(s2 = &string[field_pos]; *s2 != '\0'; s2++)
-	      *s2 = s2[1];
-
-	    *s2 = '\0';			/* Copy last NULL */
-	    line_paint(field_pos, &passwd);
-	    if(flags)		/* record change if requested  */
-	      *flags |= OE_USER_MODIFIED;
-
-	    break;
-
-
-            /*--------------- Kill line -----------------*/
-          case ctrl('K'):
-            if(kill_buffer != NULL)
-              fs_give((void **)&kill_buffer);
-
-	    if(field_pos != 0 || string[0]){
-		if(!passwd && F_ON(F_DEL_FROM_DOT, ps_global))
-		  dline.vused -= strlen(&string[i = field_pos]);
-		else
-		  dline.vused = i = 0;
-
-		kill_buffer = cpystr(&string[field_pos = i]);
-		string[field_pos] = '\0';
-		line_paint(field_pos, &passwd);
-		if(flags)		/* record change if requested  */
-		  *flags |= OE_USER_MODIFIED;
-
-	    }
-
-            break;
-
-            /*------------------- Undelete line --------------------*/
-          case ctrl('U'):
-            if(kill_buffer == NULL)
-              goto bleep;
-
-            /* Make string so it will fit */
-            kb = cpystr(kill_buffer);
-            dprint(2, (debugfile,
-		       "Undelete: %d %d\n", strlen(string), field_len));
-            if(strlen(kb) + strlen(string) > field_len) 
-                kb[field_len - strlen(string)] = '\0';
-            dprint(2, (debugfile,
-		       "Undelete: %d %d\n", field_len - strlen(string),
-		       strlen(kb)));
-                       
-            if(string[field_pos] == '\0') {
-                /*--- adding to the end of the string ----*/
-                for(k = kb; *k; k++)
-		  string[field_pos++] = *k;
-
-                string[field_pos] = '\0';
-            } else {
-                goto bleep;
-                /* To lazy to do insert in middle of string now */
-            }
-
-	    if(*kb && flags)		/* record change if requested  */
-	      *flags |= OE_USER_MODIFIED;
-
-	    dline.vused = strlen(string);
-            fs_give((void **)&kb);
-	    line_paint(field_pos, &passwd);
-            break;
-            
-
-	    /*-------------------- Interrupt --------------------*/
-	  case ctrl('C'): /* ^C */ 
-	    if(F_ON(F_USE_FK,ps_global)
-	       || (flags && ((*flags) & OE_DISALLOW_CANCEL)))
-	      goto bleep;
-
-	    goto cancel;
-
-	  case PF2:
-	    if(F_OFF(F_USE_FK,ps_global)
-	       || (flags && ((*flags) & OE_DISALLOW_CANCEL)))
-	      goto bleep;
-
-	  cancel:
-	    return_v = 1;
-	    if(saved_original)
-	      strcpy(string, saved_original);
-
-	    break;
-	    
-
-          case ctrl('A'):
-	  case KEY_HOME:
-            /*-------------------- Start of line -------------*/
-	    line_paint(field_pos = 0, &passwd);
-            break;
-
-
-          case ctrl('E'):
-	  case KEY_END:
-            /*-------------------- End of line ---------------*/
-	    line_paint(field_pos = dline.vused, &passwd);
-            break;
-
-
-	    /*-------------------- Help --------------------*/
-	  case ctrl('G') : 
-	  case PF1:
-	    if(flags && ((*flags) & OE_DISALLOW_HELP))
-	      goto bleep;
-	    else if(FOOTER_ROWS(ps_global) == 1 && km_popped == 0){
-		km_popped++;
-		FOOTER_ROWS(ps_global) = 3;
-		clearfooter(ps_global);
-		if(lastc)
-		  (void)pico_set_colorp(lastc, PSC_NONE);
-		else
-		  EndInverse();
-
-		draw_keymenu(km, bitmap, cols, 1-FOOTER_ROWS(ps_global),
-			     0, FirstMenu);
-
-		if(promptc)
-		  (void)pico_set_colorp(promptc, PSC_NONE);
-		else
-		  StartInverse();
-
-		mark_keymenu_dirty();
-		y_base = -3;
-		dline.row = real_y_base = y_base + ps_global->ttyo->screen_rows;
-		PutLine0(real_y_base, x_base, prompt);
-		fs_resize((void **)&dline.dl, (size_t)dline.dlen + 1);
-		memset((void *)dline.dl, 0, (size_t)(dline.dlen + 1));
-		line_paint(field_pos, &passwd);
-		break;
-	    }
-
-	    if(FOOTER_ROWS(ps_global) > 1){
-		mark_keymenu_dirty();
-		return_v = 3;
-	    }
-	    else
-	      goto bleep;
-
-	    break;
-
-#ifdef	MOUSE
-	  case KEY_MOUSE :
-	    {
-	      MOUSEPRESS mp;
-
-	      mouse_get_last (NULL, &mp);
-
-	      /* The clicked line have anything special on it? */
-	      switch(mp.button){
-		case M_BUTTON_LEFT :			/* position cursor */
-		  mp.col -= x_base + prompt_len;	/* normalize column */
-		  if(dline.vbase + mp.col <= dline.vused)
-		    line_paint(field_pos = dline.vbase + mp.col, &passwd);
-
-		  break;
-
-		case M_BUTTON_RIGHT :
-#ifdef	_WINDOWS
-		  mp.col -= x_base + prompt_len;	/* normalize column */
-		  if(dline.vbase + mp.col <= dline.vused)
-		    line_paint(field_pos = dline.vbase + mp.col, &passwd);
-
-		  mswin_allowpaste(MSWIN_PASTE_LINE);
-		  mswin_paste_popup();
-		  mswin_allowpaste(MSWIN_PASTE_DISABLE);
-		  break;
-#endif
-
-		case M_BUTTON_MIDDLE :			/* NO-OP for now */
-		default:				/* just ignore */
-		  break;
-	      }
-	    }
-
-	    break;
-#endif
-
-          case NO_OP_IDLE:
-	    /* Keep mail stream alive */
-	    i = new_mail(0, 2, NM_DEFER_SORT);
-	    if(ps_global->expunge_count &&
-	       flags && ((*flags) & OE_SEQ_SENSITIVE))
-	      goto cancel;
-
-	    if(i < 0){
-	      line_paint(field_pos, &passwd);
-	      break;			/* no changes, get on with life */
-	    }
-	    /* Else fall into redraw */
-
-	    /*-------------------- Redraw --------------------*/
-	  case ctrl('L'):
-            /*---------------- re size ----------------*/
-          case KEY_RESIZE:
-            
-	    dline.row = real_y_base = y_base > 0 ? y_base :
-					 y_base + ps_global->ttyo->screen_rows;
-	    if(lastc)
-	      (void)pico_set_colorp(lastc, PSC_NONE);
-	    else
-	      EndInverse();
-
-            ClearScreen();
-            redraw_titlebar();
-            if(ps_global->redrawer != (void (*)())NULL)
-              (*ps_global->redrawer)();
-
-            redraw_keymenu();
-	    if(promptc)
-	      (void)pico_set_colorp(promptc, PSC_NONE);
-	    else
-	      StartInverse();
-            
-            PutLine0(real_y_base, x_base, prompt);
-            cols     =  ps_global->ttyo->screen_cols;
-            too_thin = 0;
-            if(cols < x_base + prompt_len + 4) {
-		Writechar(BELL, 0);
-                PutLine0(real_y_base, 0, "Screen's too thin. Ouch!");
-                too_thin = 1;
-            } else {
-		dline.col   = x_base + prompt_len;
-		dline.dlen  = cols - (x_base + prompt_len + 1);
-		fs_resize((void **)&dline.dl, (size_t)dline.dlen + 1);
-		memset((void *)dline.dl, 0, (size_t)(dline.dlen + 1));
-		line_paint(field_pos, &passwd);
-            }
-            fflush(stdout);
-
-            dprint(9, (debugfile,
-                    "optionally_enter  RESIZE new_cols:%d  too_thin: %d\n",
-                       cols, too_thin));
-            break;
-
-	  case PF3 :		/* input to potentially remap */
-	  case PF5 :
-	  case PF6 :
-	  case PF7 :
-	  case PF8 :
-	  case PF9 :
-	  case PF10 :
-	  case PF11 :
-	  case PF12 :
-	      if(F_ON(F_USE_FK,ps_global)
-		 && fkey_table[ch - PF1] != NO_OP_COMMAND)
-		ch = fkey_table[ch - PF1]; /* remap function key input */
-  
-          default:
-	    if(escape_list){		/* in the escape key list? */
-		for(j=0; escape_list[j].ch != -1; j++){
-		    if(escape_list[j].ch == ch){
-			return_v = escape_list[j].rval;
-			break;
-		    }
-		}
-
-		if(return_v != -10)
-		  break;
-	    }
-
-	    if(iscntrl(ch & 0x7f)){
-       bleep:
-		putc(BELL, stdout);
-		continue;
-	    }
-
-       ok_for_passwd:
-	    /*--- Insert a character -----*/
-	    if(dline.vused >= field_len)
-	      goto bleep;
-
-	    /*---- extending the length of the string ---*/
-	    for(s2 = &string[++dline.vused]; s2 - string > field_pos; s2--)
-	      *s2 = *(s2-1);
-
-	    string[field_pos++] = ch;
-	    line_paint(field_pos, &passwd);
-	    if(flags)		/* record change if requested  */
-	      *flags |= OE_USER_MODIFIED;
-		    
-	}   /*---- End of switch on char ----*/
-    }
-
-#ifdef	_WINDOWS
-    if(!cursor_shown)
-      mswin_showcaret(0);
-#endif
-
-    fs_give((void **)&dline.dl);
-    if(saved_original) 
-      fs_give((void **)&saved_original);
-
-    if(kill_buffer)
-      fs_give((void **)&kill_buffer);
-
-    if (!(flags && (*flags) & OE_KEEP_TRAILING_SPACE))
-      removing_trailing_white_space(string);
-
-    if(lastc){
-	(void)pico_set_colorp(lastc, PSC_NONE);
-	free_color_pair(&lastc);
-	if(promptc)
-	  free_color_pair(&promptc);
-    }
-    else
-      EndInverse();
-
-    MoveCursor(real_y_base, x_base); /* Move the cursor to show we're done */
-    fflush(stdout);
-    resume_busy_alarm(0);
-    if(km_popped){
-	FOOTER_ROWS(ps_global) = 1;
-	clearfooter(ps_global);
-	ps_global->mangled_body = 1;
-    }
-
-    return(return_v);
-}
-
-
-/*
- * line_paint - where the real work of managing what is displayed gets done.
- *              The passwd variable is overloaded: if non-zero, don't
- *              output anything, else only blat blank chars across line
- *              once and use this var to tell us we've already written the 
- *              line.
- */
-void
-line_paint(offset, passwd)
-    int   offset;			/* current dot offset into line */
-    int  *passwd;			/* flag to hide display of chars */
-{
-    register char *pfp, *pbp;
-    register char *vfp, *vbp;
-    int            extra = 0;
-#define DLEN	(dline.vbase + dline.dlen)
-
-    /*
-     * for now just leave line blank, but maybe do '*' for each char later
-     */
-    if(*passwd){
-	if(*passwd > 1)
-	  return;
-	else
-	  *passwd = 2;		/* only blat once */
-
-	extra = 0;
-	MoveCursor(dline.row, dline.col);
-	while(extra++ < dline.dlen)
-	  Writechar(' ', 0);
-
-	MoveCursor(dline.row, dline.col);
-	return;
-    }
-
-    /* adjust right margin */
-    while(offset >= DLEN + ((dline.vused > DLEN) ? -1 : 1))
-      dline.vbase += dline.dlen/2;
-
-    /* adjust left margin */
-    while(offset < dline.vbase + ((dline.vbase) ? 2 : 0))
-      dline.vbase = max(dline.vbase - (dline.dlen/2), 0);
-
-    if(dline.vbase){				/* off screen cue left */
-	vfp = &dline.vl[dline.vbase+1];
-	pfp = &dline.dl[1];
-	if(dline.dl[0] != '<'){
-	    MoveCursor(dline.row, dline.col);
-	    Writechar(dline.dl[0] = '<', 0);
-	}
-    }
-    else{
-	vfp = dline.vl;
-	pfp = dline.dl;
-	if(dline.dl[0] == '<'){
-	    MoveCursor(dline.row, dline.col);
-	    Writechar(dline.dl[0] = ' ', 0);
-	}
-    }
-
-    if(dline.vused > DLEN){			/* off screen right... */
-	vbp = vfp + (long)(dline.dlen-(dline.vbase ? 2 : 1));
-	pbp = pfp + (long)(dline.dlen-(dline.vbase ? 2 : 1));
-	if(pbp[1] != '>'){
-	    MoveCursor(dline.row, dline.col+dline.dlen);
-	    Writechar(pbp[1] = '>', 0);
-	}
-    }
-    else{
-	extra = dline.dlen - (dline.vused - dline.vbase);
-	vbp = &dline.vl[max(0, dline.vused-1)];
-	pbp = &dline.dl[dline.dlen];
-	if(pbp[0] == '>'){
-	    MoveCursor(dline.row, dline.col+dline.dlen);
-	    Writechar(pbp[0] = ' ', 0);
-	}
-    }
-
-    while(*pfp == *vfp && vfp < vbp)			/* skip like chars */
-      pfp++, vfp++;
-
-    if(pfp == pbp && *pfp == *vfp){			/* nothing to paint! */
-	MoveCursor(dline.row, dline.col + (offset - dline.vbase));
-	return;
-    }
-
-    /* move backward thru like characters */
-    if(extra){
-	while(extra >= 0 && *pbp == ' ') 		/* back over spaces */
-	  extra--, pbp--;
-
-	while(extra >= 0)				/* paint new ones    */
-	  pbp[-(extra--)] = ' ';
-    }
-
-    if((vbp - vfp) == (pbp - pfp)){			/* space there? */
-	while((*pbp == *vbp) && pbp != pfp)		/* skip like chars */
-	  pbp--, vbp--;
-    }
-
-    if(pfp != pbp || *pfp != *vfp){			/* anything to paint?*/
-	MoveCursor(dline.row, dline.col + (int)(pfp - dline.dl));
-
-	do
-	  Writechar((unsigned char)((vfp <= vbp && *vfp)
-		      ? ((*pfp = *vfp++) == TAB) ? ' ' : *pfp
-		      : (*pfp = ' ')), 0);
-	while(++pfp <= pbp);
-    }
-
-    MoveCursor(dline.row, dline.col + (offset - dline.vbase));
-}
-
-
-
-/*----------------------------------------------------------------------
-    Check to see if the given command is reasonably valid
-  
-  Args:  ch -- the character to check
-
- Result:  A valid command is returned, or a well know bad command is returned.
- 
- ---*/
-validatekeys(ch)
-     int  ch;
-{
-#ifndef _WINDOWS
-    if(F_ON(F_USE_FK,ps_global)) {
-	if(ch >= 'a' && ch <= 'z')
-	  return(KEY_JUNK);
-    } else {
-	if(ch >= PF1 && ch <= PF12)
-	  return(KEY_JUNK);
-    }
-#else
-    /*
-     * In windows menu items are bound to a single key command which
-     * gets inserted into the input stream as if the user had typed
-     * that key.  But all the menues are bonund to alphakey commands,
-     * not PFkeys.  to distinguish between a keyboard command and a
-     * menu command we insert a flag (KEY_MENU_FLAG) into the
-     * command value when setting up the bindings in
-     * configure_menu_items().  Here we strip that flag.
-     */
-    if(F_ON(F_USE_FK,ps_global)) {
-	if(ch >= 'a' && ch <= 'z' && !(ch & KEY_MENU_FLAG))
-	  return(KEY_JUNK);
-	ch &= ~ KEY_MENU_FLAG;
-    } else {
-	ch &= ~ KEY_MENU_FLAG;
-	if(ch >= PF1 && ch <= PF12)
-	  return(KEY_JUNK);
-    }
-#endif
-
-    return(ch);
-}
-
-
-
-/*----------------------------------------------------------------------
-  Prepend config'd commands to keyboard input
-  
-  Args:  ch -- pointer to storage for returned command
-
- Returns: TRUE if we're passing back a useful command, FALSE otherwise
- 
- ---*/
-int
-process_config_input(ch)
-    int *ch;
-{
-    static char firsttime = (char) 1;
-
-    /* commands in config file */
-    if(ps_global->initial_cmds && *ps_global->initial_cmds) {
-	/*
-	 * There are a few commands that may require keyboard input before
-	 * we enter the main command loop.  That input should be interactive,
-	 * not from our list of initial keystrokes.
-	 */
-	if(ps_global->dont_use_init_cmds)
-	  return(0);
-
-	*ch = *ps_global->initial_cmds++;
-	if(!*ps_global->initial_cmds && ps_global->free_initial_cmds){
-	    fs_give((void **)&(ps_global->free_initial_cmds));
-	    ps_global->initial_cmds = 0;
-	}
-
-	return(1);
-    }
-
-    if(firsttime) {
-	firsttime = 0;
-	if(ps_global->in_init_seq) {
-	    ps_global->in_init_seq = 0;
-	    ps_global->save_in_init_seq = 0;
-	    clear_cursor_pos();
-	    F_SET(F_USE_FK,ps_global,ps_global->orig_use_fkeys);
-	    /* draw screen */
-	    *ch = ctrl('L');
-	    return(1);
-	}
-    }
-
-    return(0);
-}
-
-
-#define	TAPELEN	256
-static int   tape[TAPELEN];
-static long  recorded = 0L;
-static short length  = 0;
-
-
-/*
- * record user keystrokes
- *
- * Args:  ch -- the character to record
- *
- * Returns: character recorded
- */
-int
-key_recorder(ch)
-    int ch;
-{
-    tape[recorded++ % TAPELEN] = ch;
-    if(length < TAPELEN)
-      length++;
-
-    return(ch);
-}
-
-
-/*
- * playback user keystrokes
- *
- * Args:  ch -- ignored
- *
- * Returns: character played back or -1 to indicate end of tape
- */
-int
-key_playback(ch)
-    int ch;
-{
-    ch = length ? tape[(recorded + TAPELEN - length--) % TAPELEN] : -1;
-    return(ch);
-}
-
-
-#ifdef	_WINDOWS
-int
-pcpine_oe_cursor(col, row)
-    int  col;
-    long row;
-{
-    return((row == g_mc_row
-	    && col >= g_mc_col
-	    && col < ps_global->ttyo->screen_cols)
-	    ? MSWIN_CURSOR_IBEAM
-	    : MSWIN_CURSOR_ARROW);
-}
-#endif
-
-/*======================================================================
-       Routines for painting the screen
-          - figure out what the terminal type is
-          - deal with screen size changes
-          - save special output sequences
-          - the usual screen clearing, cursor addressing and scrolling
-
-
-     This library gives programs the ability to easily access the
-     termcap information and write screen oriented and raw input
-     programs.  The routines can be called as needed, except that
-     to use the cursor / screen routines there must be a call to
-     InitScreen() first.  The 'Raw' input routine can be used
-     independently, however. (Elm comment)
-
-     Not sure what the original source of this code was. It got to be
-     here as part of ELM. It has been changed significantly from the
-     ELM version to be more robust in the face of inconsistent terminal
-     autowrap behaviour. Also, the unused functions were removed, it was
-     made to pay attention to the window size, and some code was made nicer
-     (in my opinion anyways). It also outputs the terminal initialization
-     strings and provides for minimal scrolling and detects terminals
-     with out enough capabilities. (Pine comment, 1990)
-
-
-This code used to pay attention to the "am" auto margin and "xn"
-new line glitch fields, but they were so often incorrect because many
-terminals can be configured to do either that we've taken it out. It
-now assumes it dosn't know where the cursor is after outputing in the
-80th column.
-*/
-
-#define	PUTLINE_BUFLEN	256
-
-static int   _lines, _columns;
-static int   _line  = FARAWAY;
-static int   _col   = FARAWAY;
-static int   _in_inverse;
-
-
-/*
- * Internal prototypes
- */
-static void moveabsolute PROTO((int, int));
-static void CursorUp PROTO((int));
-static void CursorDown PROTO((int));
-static void CursorLeft PROTO((int));
-static void CursorRight PROTO((int));
-
-
-extern char *_clearscreen, *_moveto, *_up, *_down, *_right, *_left,
-            *_setinverse, *_clearinverse,
-            *_cleartoeoln, *_cleartoeos,
-            *_startinsert, *_endinsert, *_insertchar, *_deletechar,
-            *_deleteline, *_insertline,
-            *_scrollregion, *_scrollup, *_scrolldown,
-            *_termcap_init, *_termcap_end;
-extern char term_name[];
-extern int  _tlines, _tcolumns, _bce;
-
-static enum  {NoScroll,UseScrollRegion,InsertDelete} _scrollmode;
-
-char  *tgoto();				/* and the goto stuff    */
-
-
-
-/*----------------------------------------------------------------------
-      Initialize the screen for output, set terminal type, etc
-
-   Args: tt -- Pointer to variable to store the tty output structure.
-
- Result:  terminal size is discovered and set in pine state
-          termcap entry is fetched and stored
-          make sure terminal has adequate capabilites
-          evaluate scrolling situation
-          returns status of indicating the state of the screen/termcap entry
-
-      Returns:
-        -1 indicating no terminal name associated with this shell,
-        -2..-n  No termcap for this terminal type known
-	-3 Can't open termcap file 
-        -4 Terminal not powerful enough - missing clear to eoln or screen
-	                                       or cursor motion
-  ----*/
-int
-config_screen(tt)
-     struct ttyo **tt;
-{
-    struct ttyo *ttyo;
-    int          err;
-
-    ttyo = (struct ttyo *)fs_get(sizeof (struct ttyo));
-
-    _line  =  0;		/* where are we right now?? */
-    _col   =  0;		/* assume zero, zero...     */
-
-    /*
-     * This is an ugly hack to let vtterminalinfo know it's being called
-     * from pine.
-     */
-    Pmaster = (PICO *)1;
-    if(err = vtterminalinfo(F_ON(F_TCAP_WINS, ps_global)))
-      return(err);
-
-    Pmaster = NULL;
-
-    if(_tlines <= 0)
-      _lines = DEFAULT_LINES_ON_TERMINAL;
-    else
-      _lines = _tlines;
-
-    if(_tcolumns <= 0)
-      _columns = DEFAULT_COLUMNS_ON_TERMINAL;
-    else
-      _columns = _tcolumns;
-
-    get_windsize(ttyo);
-
-    ttyo->header_rows = 2;
-    ttyo->footer_rows = 3;
-
-    /*---- Make sure this terminal has the capability.
-        All we need is cursor address, clear line, and 
-        reverse video.
-      ---*/
-    if(_moveto == NULL || _cleartoeoln == NULL ||
-       _setinverse == NULL || _clearinverse == NULL) {
-          return(-4);
-    }
-
-    dprint(1, (debugfile, "Terminal type: %s\n", term_name));
-
-    /*------ Figure out scrolling mode -----*/
-    if(_scrollregion != NULL && _scrollregion[0] != '\0' &&
-    	  _scrollup != NULL && _scrollup[0] != '\0'){
-        _scrollmode = UseScrollRegion;
-    } else if(_insertline != NULL && _insertline[0] != '\0' &&
-       _deleteline != NULL && _deleteline[0] != '\0') {
-        _scrollmode = InsertDelete;
-    } else {
-        _scrollmode = NoScroll;
-    }
-    dprint(7, (debugfile, "Scroll mode: %s\n",
-               _scrollmode==NoScroll ? "No Scroll" :
-               _scrollmode==InsertDelete ? "InsertDelete" : "Scroll Regions"));
-
-    if (!_left) {
-    	_left = "\b";
-    }
-
-    *tt = ttyo;
-
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-   Initialize the screen with the termcap string 
-  ----*/
-void
-init_screen()
-{
-    if(_termcap_init)			/* init using termcap's rule */
-      tputs(_termcap_init, 1, outchar);
-
-    /* and make sure there are no scrolling surprises! */
-    BeginScroll(0, ps_global->ttyo->screen_rows - 1);
-
-    pico_toggle_color(0);
-    switch(ps_global->color_style){
-      case COL_NONE:
-      case COL_TERMDEF:
-	pico_set_color_options(0);
-	break;
-      case COL_ANSI8:
-	pico_set_color_options(COLOR_ANSI8_OPT);
-	break;
-      case COL_ANSI16:
-	pico_set_color_options(COLOR_ANSI16_OPT);
-	break;
-    }
-
-    if(ps_global->color_style != COL_NONE)
-      pico_toggle_color(1);
-
-    /* set colors */
-    if(pico_usingcolor()){
-	if(ps_global->VAR_NORM_FORE_COLOR)
-	  pico_nfcolor(ps_global->VAR_NORM_FORE_COLOR);
-
-	if(ps_global->VAR_NORM_BACK_COLOR)
-	  pico_nbcolor(ps_global->VAR_NORM_BACK_COLOR);
-
-	if(ps_global->VAR_REV_FORE_COLOR)
-	  pico_rfcolor(ps_global->VAR_REV_FORE_COLOR);
-
-	if(ps_global->VAR_REV_BACK_COLOR)
-	  pico_rbcolor(ps_global->VAR_REV_BACK_COLOR);
-
-	pico_set_normal_color();
-    }
-
-    /* and make sure icon text starts out consistent */
-    icon_text(NULL);
-    fflush(stdout);
-}
-        
-
-
-
-/*----------------------------------------------------------------------
-       Get the current window size
-  
-   Args: ttyo -- pointer to structure to store window size in
-
-  NOTE: we don't override the given values unless we know better
- ----*/
-int
-get_windsize(ttyo)
-struct ttyo *ttyo;     
-{
-#ifdef RESIZING 
-    struct winsize win;
-
-    /*
-     * Get the window size from the tty driver.  If we can't fish it from
-     * stdout (pine's output is directed someplace else), try stdin (which
-     * *must* be associated with the terminal; see init_tty_driver)...
-     */
-    if(ioctl(1, TIOCGWINSZ, &win) >= 0			/* 1 is stdout */
-	|| ioctl(0, TIOCGWINSZ, &win) >= 0){		/* 0 is stdin */
-	if(win.ws_row)
-	  _lines = min(win.ws_row, MAX_SCREEN_ROWS);
-
-	if(win.ws_col)
-	  _columns  = min(win.ws_col, MAX_SCREEN_COLS);
-
-        dprint(2, (debugfile, "new win size -----<%d %d>------\n",
-                   _lines, _columns));
-    }
-    else
-      /* Depending on the OS, the ioctl() may have failed because
-	 of a 0 rows, 0 columns setting.  That happens on DYNIX/ptx 1.3
-	 (with a kernel patch that happens to involve the negotiation
-	 of window size in the telnet streams module.)  In this case
-	 the error is EINVARG.  Leave the default settings. */
-      dprint(1, (debugfile, "ioctl(TIOCWINSZ) failed :%s\n",
-		 error_description(errno)));
-#endif
-
-    ttyo->screen_cols = min(_columns, MAX_SCREEN_COLS);
-    ttyo->screen_rows = min(_lines, MAX_SCREEN_ROWS);
-    return(0);
-}
-
-
-/*----------------------------------------------------------------------
-      End use of the screen.
-      Print status message, if any.
-      Flush status messages.
-  ----*/
-void
-end_screen(message)
-    char *message;
-{
-    int footer_rows_was_one = 0;
-
-    dprint(9, (debugfile, "end_screen called\n"));
-
-    if(FOOTER_ROWS(ps_global) == 1){
-	footer_rows_was_one++;
-	FOOTER_ROWS(ps_global) = 3;
-	mark_status_unknown();
-    }
-
-    flush_status_messages(1);
-    blank_keymenu(_lines - 2, 0);
-    MoveCursor(_lines - 2, 0);
-
-    /* unset colors */
-    if(pico_hascolor())
-      pico_endcolor();
-
-    if(_termcap_end != NULL)
-      tputs(_termcap_end, 1, outchar);
-
-    if(message){
-	printf("%s\r\n", message);
-    }
-
-    if(F_ON(F_ENABLE_XTERM_NEWMAIL, ps_global) && getenv("DISPLAY"))
-      icon_text("xterm");
-
-    fflush(stdout);
-
-    if(footer_rows_was_one){
-	FOOTER_ROWS(ps_global) = 1;
-	mark_status_unknown();
-    }
-}
-    
-
-
-/*----------------------------------------------------------------------
-     Clear the terminal screen
-
- Result: The screen is cleared
-         internal cursor position set to 0,0
-  ----*/
-void
-ClearScreen()
-{
-    _line = 0;	/* clear leaves us at top... */
-    _col  = 0;
-
-    if(ps_global->in_init_seq)
-      return;
-
-    mark_status_unknown();
-    mark_keymenu_dirty();
-    mark_titlebar_dirty();
-
-    /*
-     * If the terminal doesn't have back color erase, then we have to
-     * erase manually to preserve the background color.
-     */
-    if(pico_usingcolor() && (!_bce || !_clearscreen)){
-	ClearLines(0, _lines-1);
-        MoveCursor(0, 0);
-    }
-    else if(_clearscreen){
-	tputs(_clearscreen, 1, outchar);
-        moveabsolute(0, 0);	/* some clearscreens don't move correctly */
-    }
-}
-
-
-/*----------------------------------------------------------------------
-            Internal move cursor to absolute position
-
-  Args: col -- column to move cursor to
-        row -- row to move cursor to
-
- Result: cursor is moved (variables, not updates)
-  ----*/
-
-static void
-moveabsolute(col, row)
-{
-
-	char *stuff, *tgoto();
-
-	stuff = tgoto(_moveto, col, row);
-	tputs(stuff, 1, outchar);
-}
-
-
-/*----------------------------------------------------------------------
-        Move the cursor to the row and column number
-  Args:  row number
-         column number
-
- Result: Cursor moves
-         internal position updated
-  ----*/
-void
-MoveCursor(row, col)
-     int row, col;
-{
-    /** move cursor to the specified row column on the screen.
-        0,0 is the top left! **/
-
-    int scrollafter = 0;
-
-    /* we don't want to change "rows" or we'll mangle scrolling... */
-
-    if(ps_global->in_init_seq)
-      return;
-
-    if (col < 0)
-      col = 0;
-    if (col >= ps_global->ttyo->screen_cols)
-      col = ps_global->ttyo->screen_cols - 1;
-    if (row < 0)
-      row = 0;
-    if (row > ps_global->ttyo->screen_rows) {
-      if (col == 0)
-        scrollafter = row - ps_global->ttyo->screen_rows;
-      row = ps_global->ttyo->screen_rows;
-    }
-
-    if (!_moveto)
-    	return;
-
-    if (row == _line) {
-      if (col == _col)
-        return;				/* already there! */
-
-      else if (abs(col - _col) < 5) {	/* within 5 spaces... */
-        if (col > _col && _right)
-          CursorRight(col - _col);
-        else if (col < _col &&  _left)
-          CursorLeft(_col - col);
-        else
-          moveabsolute(col, row);
-      }
-      else 		/* move along to the new x,y loc */
-        moveabsolute(col, row);
-    }
-    else if (col == _col && abs(row - _line) < 5) {
-      if (row < _line && _up)
-        CursorUp(_line - row);
-      else if (_line > row && _down)
-        CursorDown(row - _line);
-      else
-        moveabsolute(col, row);
-    }
-    else if (_line == row-1 && col == 0) {
-      putchar('\n');	/* that's */
-      putchar('\r');	/*  easy! */
-    }
-    else 
-      moveabsolute(col, row);
-
-    _line = row;	/* to ensure we're really there... */
-    _col  = col;
-
-    if (scrollafter) {
-      while (scrollafter--) {
-        putchar('\n');
-        putchar('\r');
-
-      }
-    }
-
-    return;
-}
-
-
-
-/*----------------------------------------------------------------------
-         Newline, move the cursor to the start of next line
-
- Result: Cursor moves
-  ----*/
-void
-NewLine()
-{
-   /** move the cursor to the beginning of the next line **/
-
-    Writechar('\n', 0);
-    Writechar('\r', 0);
-}
-
-
-
-/*----------------------------------------------------------------------
-        Move cursor up n lines with terminal escape sequence
- 
-   Args:  n -- number of lines to go up
-
- Result: cursor moves, 
-         internal position updated
-
- Only for ttyout use; not outside callers
-  ----*/
-static void
-CursorUp(n)
-int n;
-{
-	/** move the cursor up 'n' lines **/
-	/** Calling function must check that _up is not null before calling **/
-
-    _line = (_line-n > 0? _line - n: 0);	/* up 'n' lines... */
-
-    while (n-- > 0)
-      tputs(_up, 1, outchar);
-}
-
-
-
-/*----------------------------------------------------------------------
-        Move cursor down n lines with terminal escape sequence
- 
-    Arg: n -- number of lines to go down
-
- Result: cursor moves, 
-         internal position updated
-
- Only for ttyout use; not outside callers
-  ----*/
-static void
-CursorDown(n)
-     int          n;
-{
-    /** move the cursor down 'n' lines **/
-    /** Caller must check that _down is not null before calling **/
-
-    _line = (_line+n < ps_global->ttyo->screen_rows ? _line + n
-             : ps_global->ttyo->screen_rows);
-                                               /* down 'n' lines... */
-
-    while (n-- > 0)
-    	tputs(_down, 1, outchar);
-}
-
-
-
-/*----------------------------------------------------------------------
-        Move cursor left n lines with terminal escape sequence
- 
-   Args:  n -- number of lines to go left
-
- Result: cursor moves, 
-         internal position updated
-
- Only for ttyout use; not outside callers
-  ----*/
-static void 
-CursorLeft(n)
-int n;
-{
-    /** move the cursor 'n' characters to the left **/
-    /** Caller must check that _left is not null before calling **/
-
-    _col = (_col - n> 0? _col - n: 0);	/* left 'n' chars... */
-
-    while (n-- > 0)
-      tputs(_left, 1, outchar);
-}
-
-
-/*----------------------------------------------------------------------
-        Move cursor right n lines with terminal escape sequence
- 
-   Args:  number of lines to go right
-
- Result: cursor moves, 
-         internal position updated
-
- Only for ttyout use; not outside callers
-  ----*/
-static void 
-CursorRight(n)
-int n;
-{
-    /** move the cursor 'n' characters to the right (nondestructive) **/
-    /** Caller must check that _right is not null before calling **/
-
-    _col = (_col+n < ps_global->ttyo->screen_cols? _col + n :
-             ps_global->ttyo->screen_cols);	/* right 'n' chars... */
-
-    while (n-- > 0)
-      tputs(_right, 1, outchar);
-
-}
-
-
-
-/*----------------------------------------------------------------------
-       Insert character on screen pushing others right
-
-   Args: c --  character to insert
-
- Result: charcter is inserted if possible
-         return -1 if it can't be done
-  ----------------------------------------------------------------------*/
-InsertChar(c)
-     int c;
-{
-    if(_insertchar != NULL && *_insertchar != '\0') {
-	tputs(_insertchar, 1, outchar);
-	Writechar(c, 0);
-    } else if(_startinsert != NULL && *_startinsert != '\0') {
-	tputs(_startinsert, 1, outchar);
-	Writechar(c, 0);
-	tputs(_endinsert, 1, outchar);
-    } else {
-	return(-1);
-    }
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-         Delete n characters from line, sliding rest of line left
-
-   Args: n -- number of characters to delete
-
-
- Result: characters deleted on screen
-         returns -1 if it wasn't done
-  ----------------------------------------------------------------------*/
-DeleteChar(n)
-     int n;
-{
-    if(_deletechar == NULL || *_deletechar == '\0')
-      return(-1);
-
-    while(n) {
-	tputs(_deletechar, 1, outchar);
-	n--;
-    }
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-  Go into scrolling mode, that is set scrolling region if applicable
-
-   Args: top    -- top line of region to scroll
-         bottom -- bottom line of region to scroll
-	 (These are zero-origin numbers)
-
- Result: either set scrolling region or
-         save values for later scrolling
-         returns -1 if we can't scroll
-
- Unfortunately this seems to leave the cursor in an unpredictable place
- at least the manuals don't say where, so we force it here.
------*/
-static int __t, __b;
-
-BeginScroll(top, bottom)
-     int top, bottom;
-{
-    char *stuff;
-
-    if(_scrollmode == NoScroll)
-      return(-1);
-
-    __t = top;
-    __b = bottom;
-    if(_scrollmode == UseScrollRegion){
-        stuff = tgoto(_scrollregion, bottom, top);
-        tputs(stuff, 1, outchar);
-        /*-- a location  very far away to force a cursor address --*/
-        _line = FARAWAY;
-        _col  = FARAWAY;
-    }
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-   End scrolling -- clear scrolling regions if necessary
-
- Result: Clear scrolling region on terminal
-  -----*/
-void
-EndScroll()
-{
-    if(_scrollmode == UseScrollRegion && _scrollregion != NULL){
-	/* Use tgoto even though we're not cursor addressing because
-           the format of the capability is the same.
-         */
-        char *stuff = tgoto(_scrollregion, ps_global->ttyo->screen_rows -1, 0);
-	tputs(stuff, 1, outchar);
-        /*-- a location  very far away to force a cursor address --*/
-        _line = FARAWAY;
-        _col  = FARAWAY;
-    }
-}
-
-
-/* ----------------------------------------------------------------------
-    Scroll the screen using insert/delete or scrolling regions
-
-   Args:  lines -- number of lines to scroll, positive forward
-
- Result: Screen scrolls
-         returns 0 if scroll succesful, -1 if not
-
- positive lines goes foward (new lines come in at bottom
- Leaves cursor at the place to insert put new text
-
- 0,0 is the upper left
- -----*/
-ScrollRegion(lines)
-    int lines;
-{
-    int l;
-
-    if(lines == 0)
-      return(0);
-
-    if(_scrollmode == UseScrollRegion) {
-	if(lines > 0) {
-	    MoveCursor(__b, 0);
-	    for(l = lines ; l > 0 ; l--)
-	      tputs((_scrolldown == NULL || _scrolldown[0] =='\0') ? "\n" :
-		    _scrolldown, 1, outchar);
-	} else {
-	    MoveCursor(__t, 0);
-	    for(l = -lines; l > 0; l--)
-	      tputs(_scrollup, 1, outchar);
-	}
-    } else if(_scrollmode == InsertDelete) {
-	if(lines > 0) {
-	    MoveCursor(__t, 0);
-	    for(l = lines; l > 0; l--) 
-	      tputs(_deleteline, 1, outchar);
-	    MoveCursor(__b, 0);
-	    for(l = lines; l > 0; l--) 
-	      tputs(_insertline, 1, outchar);
-	} else {
-	    for(l = -lines; l > 0; l--) {
-	        MoveCursor(__b, 0);
-	        tputs(_deleteline, 1, outchar);
-		MoveCursor(__t, 0);
-		tputs(_insertline, 1, outchar);
-	    }
-	}
-    } else {
-	return(-1);
-    }
-    fflush(stdout);
-    return(0);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Write a character to the screen, keeping track of cursor position
-
-   Args: ch -- character to output
-
- Result: character output
-         cursor position variables updated
-  ----*/
-void
-Writechar(ch, new_esc_len)
-     register unsigned int ch;
-     int      new_esc_len;
-{
-    static   int esc_len = 0;
-
-    if(ps_global->in_init_seq				/* silent */
-       || (F_ON(F_BLANK_KEYMENU, ps_global)		/* or bottom, */
-	   && !esc_len					/* right cell */
-	   && _line + 1 == ps_global->ttyo->screen_rows
-	   && _col + 1 == ps_global->ttyo->screen_cols))
-      return;
-
-    if(!iscntrl(ch & 0x7f)){
-	putchar(ch);
-	if(esc_len > 0)
-	  esc_len--;
-	else
-	  _col++;
-    }
-    else{
-	switch(ch){
-	  case LINE_FEED:
-	    /*-- Don't have to watch out for auto wrap or newline glitch
-	      because we never let it happen. See below
-	      ---*/
-	    putchar('\n');
-	    _line = min(_line+1,ps_global->ttyo->screen_rows);
-	    esc_len = 0;
-	    break;
-
-	  case RETURN :		/* move to column 0 */
-	    putchar('\r');
-	    _col = 0;
-	    esc_len = 0;
-	    break;
-
-	  case BACKSPACE :	/* move back a space if not in column 0 */
-	    if(_col != 0) {
-		putchar('\b');
-		_col--;
-	    }			/* else BACKSPACE does nothing */
-
-	    break;
-
-	  case BELL :		/* ring the bell but don't advance _col */
-	    putchar(ch);
-	    break;
-
-	  case TAB :		/* if a tab, output it */
-	    do			/* BUG? ignores tty driver's spacing */
-	      putchar(' ');
-	    while(_col < ps_global->ttyo->screen_cols - 1
-		  && ((++_col)&0x07) != 0);
-	    break;
-
-	  case ESCAPE :
-	    /* If we're outputting an escape here, it may be part of an iso2022
-	       escape sequence in which case take up no space on the screen.
-	       Unfortunately such sequences are variable in length.
-	       */
-	    esc_len = new_esc_len - 1;
-	    putchar(ch);
-	    break;
-
-	  default :		/* Change remaining control characters to ? */
-	    if(F_ON(F_PASS_CONTROL_CHARS, ps_global))
-	      putchar(ch);
-	    else
-	      putchar('?');
-
-	    if(esc_len > 0)
-	      esc_len--;
-	    else
-	      _col++;
-
-	    break;
-	}
-    }
-
-
-    /* Here we are at the end of the line. We've decided to make no
-       assumptions about how the terminal behaves at this point.
-       What can happen now are the following
-           1. Cursor is at start of next line, and next character will
-              apear there. (autowrap, !newline glitch)
-           2. Cursor is at start of next line, and if a newline is output
-              it'll be ignored. (autowrap, newline glitch)
-           3. Cursor is still at end of line and next char will apear
-              there over the top of what is there now (no autowrap).
-       We ignore all this and force the cursor to the next line, just 
-       like case 1. A little expensive but worth it to avoid problems
-       with terminals configured so they don't match termcap
-       */
-    if(_col == ps_global->ttyo->screen_cols) {
-        _col = 0;
-        if(_line + 1 < ps_global->ttyo->screen_rows)
-	  _line++;
-
-	moveabsolute(_col, _line);
-    }
-}
-
-
-
-/*----------------------------------------------------------------------
-       Write string to screen at current cursor position
-
-   Args: string -- string to be output
-
- Result: String written to the screen
-  ----*/
-void
-Write_to_screen(string)				/* UNIX */
-      register char *string; 
-{
-    while(*string)
-      Writechar((unsigned char) *string++, 0);
-}
-
-
-/*----------------------------------------------------------------------
-       Write no more than n chars of string to screen at current cursor position
-
-   Args: string -- string to be output
-	      n -- number of chars to output
-
- Result: String written to the screen
-  ----*/
-void
-Write_to_screen_n(string, n)				/* UNIX */
-      register char *string; 
-      int            n;
-{
-    while(n-- && *string)
-      Writechar((unsigned char) *string++, 0);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Clear screen to end of line on current line
-
- Result: Line is cleared
-  ----*/
-void
-CleartoEOLN()
-{
-    int   c, starting_col, starting_line;
-    char *last_bg_color;
-
-    /*
-     * If the terminal doesn't have back color erase, then we have to
-     * erase manually to preserve the background color.
-     */
-    if(pico_usingcolor() && (!_bce || !_cleartoeoln)){
-	starting_col  = _col;
-	starting_line = _line;
-	last_bg_color = pico_get_last_bg_color();
-	pico_set_nbg_color();
-	for(c = _col; c < _columns; c++)
-	  Writechar(' ', 0);
-	
-        MoveCursor(starting_line, starting_col);
-	if(last_bg_color){
-	    (void)pico_set_bg_color(last_bg_color);
-	    fs_give((void **)&last_bg_color);
-	}
-    }
-    else if(_cleartoeoln)
-      tputs(_cleartoeoln, 1, outchar);
-}
-
-
-
-/*----------------------------------------------------------------------
-     Clear screen to end of screen from current point
-
- Result: screen is cleared
-  ----*/
-CleartoEOS()
-{
-    int starting_col, starting_line;
-
-    /*
-     * If the terminal doesn't have back color erase, then we have to
-     * erase manually to preserve the background color.
-     */
-    if(pico_usingcolor() && (!_bce || !_cleartoeos)){
-	starting_col  = _col;
-	starting_line = _line;
-        CleartoEOLN();
-	ClearLines(_line+1, _lines-1);
-        MoveCursor(starting_line, starting_col);
-    }
-    else if(_cleartoeos)
-      tputs(_cleartoeos, 1, outchar);
-}
-
-
-
-/*----------------------------------------------------------------------
-     function to output character used by termcap
-
-   Args: c -- character to output
-
- Result: character output to screen via stdio
-  ----*/
-void
-outchar(c)
-int c;
-{
-	/** output the given character.  From tputs... **/
-	/** Note: this CANNOT be a macro!              **/
-
-	putc((unsigned char)c, stdout);
-}
-
-
-
-/*----------------------------------------------------------------------
-     function to output string such that it becomes icon text
-
-   Args: s -- string to write
-
- Result: string indicated become our "icon" text
-  ----*/
-void
-icon_text(s)
-    char *s;
-{
-    static char *old_s;
-    static enum {ukn, yes, no} xterm;
-
-    if(xterm == ukn)
-      xterm = (getenv("DISPLAY") != NULL) ? yes : no;
-
-    if(F_ON(F_ENABLE_XTERM_NEWMAIL,ps_global) && xterm == yes && (s || old_s)){
-	fputs("\033]1;", stdout);
-	fputs((old_s = s) ? s : ps_global->pine_name, stdout);
-	fputs("\007", stdout);
-	fflush(stdout);
-    }
-}
-
-
-#ifdef	_WINDOWS
-#line 3 "osdep/termout.gen"
-#endif
-
-/*
- * Generic tty output routines...
- */
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 0 args
-
-  Args:  x -- column position on the screen
-         y -- row position on the screen
-         line -- line of text to output
-
- Result: text is output
-         cursor position is update
-  ----*/
-void
-PutLine0(x, y, line)
-    int            x,y;
-    register char *line;
-{
-    MoveCursor(x,y);
-    Write_to_screen(line);
-}
-
-
-
-/*----------------------------------------------------------------------
-  Output line of length len to the display observing embedded attributes
-
- Args:  x      -- column position on the screen
-        y      -- column position on the screen
-        line   -- text to be output
-        length -- length of text to be output
-
- Result: text is output
-         cursor position is updated
-  ----------------------------------------------------------------------*/
-void
-PutLine0n8b(x, y, line, length, handles)
-    int            x, y, length;
-    register char *line;
-    HANDLE_S	  *handles;
-{
-    unsigned char c;
-#ifdef	_WINDOWS
-    int hkey = 0;
-#endif
-
-    MoveCursor(x,y);
-    while(length-- && (c = (unsigned char)*line++)){
-
-	if(c == (unsigned char)TAG_EMBED && length){
-	    length--;
-	    switch(*line++){
-	      case TAG_INVON :
-		StartInverse();
-		break;
-	      case TAG_INVOFF :
-		EndInverse();
-		break;
-	      case TAG_BOLDON :
-		StartBold();
-		break;
-	      case TAG_BOLDOFF :
-		EndBold();
-		break;
-	      case TAG_ULINEON :
-		StartUnderline();
-		break;
-	      case TAG_ULINEOFF :
-		EndUnderline();
-		break;
-	      case TAG_HANDLE :
-		length -= *line + 1;	/* key length plus length tag */
-		if(handles){
-		    int  key, n;
-
-		    for(key = 0, n = *line++; n; n--) /* forget Horner? */
-		      key = (key * 10) + (*line++ - '0');
-
-#if	_WINDOWS
-		    hkey = key;
-#endif
-
-		    if(key == handles->key){
-			if(pico_usingcolor() &&
-			   ps_global->VAR_SLCTBL_FORE_COLOR &&
-			   ps_global->VAR_SLCTBL_BACK_COLOR){
-			    pico_set_normal_color();
-			}
-			else
-			  EndBold();
-
-			StartInverse();
-		    }
-		}
-		else{
-		    /* BUG: complain? */
-		    line += *line + 1;
-		}
-
-		break;
-	      case TAG_FGCOLOR :
-		if(length < RGBLEN){
-		    Writechar(TAG_EMBED, 0);
-		    Writechar(*(line-1), 0);
-		    break;
-		}
-
-		(void)pico_set_fg_color(line);
-		length -= RGBLEN;
-		line += RGBLEN;
-		break;
-	      case TAG_BGCOLOR :
-		if(length < RGBLEN){
-		    Writechar(TAG_EMBED, 0);
-		    Writechar(*(line-1), 0);
-		    break;
-		}
-
-		(void)pico_set_bg_color(line);
-		length -= RGBLEN;
-		line += RGBLEN;
-		break;
-	      default :		/* literal "embed" char? */
-		Writechar(TAG_EMBED, 0);
-		Writechar(*(line-1), 0);
-		break;
-	    }					/* tag with handle, skip it */
-	}	
-	else if(c == '\033')			/* check for iso-2022 escape */
-	  Writechar(c, match_escapes(line));
-	else
-	  Writechar(c, 0);
-    }
-
-
-#if	_WINDOWS_X
-    if(hkey) {
-	char *tmp_file = NULL, ext[32], mtype[128];
-	HANDLE_S *h;
-	extern HANDLE_S *get_handle (HANDLE_S *, int);
-
-	if((h = get_handle(handles, hkey)) && h->type == Attach){
-	    ext[0] = '\0';
-	    strcpy(mtype, body_type_names(h->h.attach->body->type));
-	    if (h->h.attach->body->subtype) {
-		strcat (mtype, "/");
-		strcat (mtype, h->h.attach->body->subtype);
-	    }
-
-	    if(!set_mime_extension_by_type(ext, mtype)){
-		char *namep, *dotp, *p;
-
-		if(namep = rfc2231_get_param(h->h.attach->body->parameter,
-					     "name", NULL, NULL)){
-		    for(dotp = NULL, p = namep; *p; p++)
-		      if(*p == '.')
-			dotp = p + 1;
-
-		    if(dotp && strlen(dotp) < sizeof(ext) - 1)
-		      strcpy(ext, dotp);
-
-		    fs_give((void **) &namep);
-		}
-	    }
-
-	    if(ext[0] && (tmp_file = temp_nam_ext(NULL, "im", ext))){
-		FILE *f = fopen(tmp_file, "w");
-
-		mswin_registericon(x, h->key, tmp_file);
-
-		fclose(f);
-		unlink(tmp_file);
-		fs_give((void **)&tmp_file);
-	    }
-	}
-    }
-#endif
-}
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 1 arg
-
- Input:  position on the screen
-         line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS2*/
-PutLine1(x, y, line, arg1)
-    int   x, y;
-    char *line;
-    void *arg1;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1);
-    PutLine0(x, y, buffer);
-}
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 2 args
-
- Input:  position on the screen
-         line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS3*/
-PutLine2(x, y, line, arg1, arg2)
-    int   x, y;
-    char *line;
-    void *arg1, *arg2;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1, arg2);
-    PutLine0(x, y, buffer);
-}
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 3 args
-
- Input:  position on the screen
-         line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS4*/
-PutLine3(x, y, line, arg1, arg2, arg3)
-    int   x, y;
-    char *line;
-    void *arg1, *arg2, *arg3;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1, arg2, arg3);
-    PutLine0(x, y, buffer);
-}
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 4 args
-
- Args:  x -- column position on the screen
-        y -- column position on the screen
-        line -- printf style line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS5*/
-PutLine4(x, y, line, arg1, arg2, arg3, arg4)
-     int   x, y;
-     char *line;
-     void *arg1, *arg2, *arg3, *arg4;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1, arg2, arg3, arg4);
-    PutLine0(x, y, buffer);
-}
-
-
-
-/*----------------------------------------------------------------------
-      Printf style output line to the screen at given position, 5 args
-
- Args:  x -- column position on the screen
-        y -- column position on the screen
-        line -- printf style line of text to output
-
- Result: text is output
-         cursor position is update
-  ----------------------------------------------------------------------*/
-void
-/*VARARGS6*/
-PutLine5(x, y, line, arg1, arg2, arg3, arg4, arg5)
-     int   x, y;
-     char *line;
-     void *arg1, *arg2, *arg3, *arg4, *arg5;
-{
-    char buffer[PUTLINE_BUFLEN];
-
-    sprintf(buffer, line, arg1, arg2, arg3, arg4, arg5);
-    PutLine0(x, y, buffer);
-}
-
-
-
-/*----------------------------------------------------------------------
-       Output a line to the screen, centered
-
-  Input:  Line number to print on, string to output
-  
- Result:  String is output to screen
-          Returns column number line is output on
-  ----------------------------------------------------------------------*/
-int
-Centerline(line, string)
-    int   line;
-    char *string;
-{
-    register int length, col;
-
-    length = strlen(string);
-
-    if (length > ps_global->ttyo->screen_cols)
-      col = 0;
-    else
-      col = (ps_global->ttyo->screen_cols - length) / 2;
-
-    PutLine0(line, col, string);
-    return(col);
-}
-
-
-
-/*----------------------------------------------------------------------
-     Clear specified line on the screen
-
- Result: The line is blanked and the cursor is left at column 0.
-
-  ----*/
-void
-ClearLine(n)
-    int n;
-{
-    if(ps_global->in_init_seq)
-      return;
-
-    MoveCursor(n, 0);
-    CleartoEOLN();
-}
-
-
-
-/*----------------------------------------------------------------------
-     Clear specified lines on the screen
-
- Result: The lines starting at 'x' and ending at 'y' are blanked
-	 and the cursor is left at row 'x', column 0
-
-  ----*/
-void
-ClearLines(x, y)
-    int x, y;
-{
-    int i;
-
-    for(i = x; i <= y; i++)
-      ClearLine(i);
-
-    MoveCursor(x, 0);
-}
-
-
-
-/*----------------------------------------------------------------------
-    Indicate to the screen painting here that the position of the cursor
- has been disturbed and isn't where these functions might think.
- ----*/
-void
-clear_cursor_pos()
-{
-    _line = FARAWAY;
-    _col  = FARAWAY;
-}
-
-
diff --git a/net-mail/pine/pine-4.21-r2.ebuild b/net-mail/pine/pine-4.21-r2.ebuild
deleted file mode 100644
index a3400d115f17..000000000000
--- a/net-mail/pine/pine-4.21-r2.ebuild
+++ /dev/null
@@ -1,60 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Achim Gottinger <achim@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/pine/pine-4.21-r2.ebuild,v 1.2 2001/04/29 22:44:00 achim Exp $
-
-P=pine-4.21
-A=pine4.21.tar.gz
-S=${WORKDIR}/pine4.21
-DESCRIPTION="Pine, Pico, Pilot, imapd"
-SRC_URI="ftp://ftp.cac.washington.edu/pine/"${A}
-HOMEPAGE="http://www.washington.edu/pine/"
-
-DEPEND=">=sys-libs/glibc-2.1.3
-	>=sys-libs/gpm-1.19.3
-	>=sys-libs/ncurses-5.1
-	>=sys-libs/pam-0.72"
-
-src_unpack() {
-  unpack ${A}
-  cd ${S}/pine
-  cp makefile.lnx makefile.orig
-  sed -e "s:-g -DDEBUG:${CFLAGS}:" makefile.orig > makefile.lnx
-
-     cp ${FILESDIR}/os.c osdep/os-lnx.c
-     cp ${FILESDIR}/filter.c filter.c
-
-  cd ${S}/pico
-  cp makefile.lnx makefile.orig
-  sed -e "s:-g -DDEBUG:${CFLAGS}:" makefile.orig > makefile.lnx
-
-  
-}
-
-src_compile() {                           
-  try ./build lnp
-}
-
-src_install() {                               
-  cd ${S}
-  into /usr
-  dobin bin/pine bin/pico bin/pilot bin/mtest
-  dosbin bin/imapd
-
-  doman doc/pico.1 doc/pine.1
-
-  insinto /etc
-  doins doc/mime.types
-  donewins doc/mailcap.unx mailcap
-
-  dodoc CPYRIGHT README doc/brochure.txt doc/tech-notes.txt
-  docinto imap
-  dodoc imap/docs/*.txt imap/docs/CONFIG imap/docs/FAQ imap/docs/RELNOTES
-  docinto imap/rfc
-  dodoc imap/docs/rfc/*.txt
-  docinto html/tech-notes
-  dodoc doc/tech-notes/*.html
-}
-
-
-
diff --git a/net-mail/postfix/files/digest-postfix-20010204 b/net-mail/postfix/files/digest-postfix-20010204
deleted file mode 100644
index 265956d476a7..000000000000
--- a/net-mail/postfix/files/digest-postfix-20010204
+++ /dev/null
@@ -1 +0,0 @@
-MD5 a034b7c13d306bc1ab208996be886e5b snapshot-20010204.tar.gz
diff --git a/net-mail/postfix/postfix-20010204.ebuild b/net-mail/postfix/postfix-20010204.ebuild
deleted file mode 100644
index f92071c259c6..000000000000
--- a/net-mail/postfix/postfix-20010204.ebuild
+++ /dev/null
@@ -1,137 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Jerry Alexandratos <jerry@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/postfix/postfix-20010204.ebuild,v 1.1 2001/02/19 22:53:57 jerry Exp $
-
-P=snapshot-${PV}
-A=${P}.tar.gz
-S=${WORKDIR}/${P}
-DESCRIPTION="A fast and secure drop-in replacement for sendmail"
-SRC_URI="ftp://ftp.porcupine.org/mirrors/postfix-release/experimental/${A}"
-HOMEPAGE="http://www.postfix.org/"
-
-DEPEND=">=net-mail/mailbase-0.00
-        >=dev-libs/libpcre-3.4
-        >=sys-libs/glibc-2.1.3"
-
-RDEPEND="!virtual/mta"
-
-TLS_DEP=">=dev-libs/openssl-0.9.6"
-LDAP_DEP=">=net-nds/openldap-2.0.7"
-MYSQL_DEP=">=dev-db/mysql-3.23.28"
-
-#TLS_URI=
-
-#if [ -n "`use mta-tls`" ]; then
-#    DEPEND="${DEPEND} ${TLS_DEP}"
-#    echo $DEPEND
-#fi
-
-if [ -n "`use mta-ldap`" ]; then
-    DEPEND="${DEPEND} ${LDAP_DEP}"
-    echo $DEPEND
-fi
-
-if [ -n "`use mta-mysql`" ]; then
-    DEPEND="${DEPEND} ${MYSQL_DEP}"
-    echo $DEPEND
-fi
-
-PROVIDE="virtual/mta"
-
-src_unpack() {
-    unpack ${A}
-    cd ${S}
-
-    CCARGS="-I/usr/include -DHAS_PCRE"
-    AUXLIBS="-L/usr/lib -lpcre"
-
-#    if [ -n "`use mta-tls`" ]; then
-#        CCARGS="${CCARGS} -DUSE_SASL_AUTH"
-#        AUXLIBS="${AUXLIBS} -lsasl"
-#    fi
-
-    if [ -n "`use mta-ldap`" ]; then
-        CCARGS="${CCARGS} -DHAS_LDAP"
-        AUXLIBS="${AUXLIBS} -lldap -lbre"
-    fi
-
-    if [ -n "`use mta-mysql`" ]; then
-        CCARGS="${CCARGS} -DHAS_MYSQL"
-        AUXLIBS="${AUXLIBS} -lmysqlclient -lm"
-    fi
-
-    make makefiles CC="cc ${CFLAGS} ${CCARGS} ${AUXLIBS}"
-}
-
-src_compile() {
-    cd ${S}
-    try make
-}
-
-src_install () {
-    cd ${S}/bin
-    insopts -o root -g root -m 0755
-    insinto /usr/sbin
-    doins post* sendmail
-
-    dodir /usr/bin /usr/sbin /usr/lib
-    dosym /usr/sbin/sendmail /usr/bin/mail
-    dosym /usr/sbin/sendmail /usr/bin/mailq
-    dosym /usr/sbin/sendmail /usr/bin/newaliases
-    dosym /usr/sbin/sendmail /usr/lib/sendmail
-
-    cd ${S}/libexec
-    dodir /usr/libexec/postfix
-    insopts -o root -g root -m 0755
-    insinto /usr/libexec/postfix
-    doins *
-
-    cd ${S}
-    dodir /etc/postfix
-    insopts -o root -g root -m 0644
-    insinto /etc/postfix
-    doins ${FILESDIR}/main.cf
-    doins ${FILESDIR}/master.cf
-
-    cd ${S}/conf
-    dodir /etc/postfix/sample
-    insopts -o root -g root -m 0644
-    insinto /etc/postfix/sample
-    doins *.cf access aliases canonical relocated transport \
-        pcre_table regexp_table postfix-script*
-
-    insopts -o root -g root -m 0755
-    insinto /etc/postfix
-    donewins postfix-script-sgid postfix-script
-
-    cd ${S}/man
-    for i in man*
-    do
-        doman $i/*
-    done
-
-    cd ${S}
-    dodoc *README BEWARE COMPATIBILITY HISTORY LICENSE PORTING \
-        RELEASE_NOTES RESTRICTION_CLASS TODO
-
-    cd ${S}/html
-    docinto html
-    dodoc *
-
-    dodir /var/spool/postfix
-    fperms 0755 /var/spool/postfix
-    fowners root.root /var/spool/postfix
-
-    dodir /var/spool/postfix/maildrop
-    fperms 1733 /var/spool/postfix/maildrop
-    fowners postfix.root /var/spool/postfix/maildrop
-
-    insopts -o root -g root -m 0755
-    insinto /etc/rc.d/init.d
-    doins ${FILESDIR}/postfix
-}
-
-pkg_config() {
-    ${ROOT}/usr/sbin/rc-update add postfix
-}
diff --git a/net-mail/qmail-ldap/files/Makefile b/net-mail/qmail-ldap/files/Makefile
deleted file mode 100644
index 70ada3d92941..000000000000
--- a/net-mail/qmail-ldap/files/Makefile
+++ /dev/null
@@ -1,2387 +0,0 @@
-# Edit this few lines to configure your ldap stuff and checkpassword
-
-# to enable some additional for qmail-ldap stuff put it on the LDAPFLAGS line
-# -DLDAP_ESCAPE_BUG should be added as long as the ldap servers have 
-# problems with the escapeing of LDAP filters (fixed with OpenLDAP 1.2.7)
-# -DQLDAP_CLUSTER for enabling cluster support
-# to use cleartext passwords (a bad idea on production systems) add
-# -DCLEARTEXTPASSWD to the LDAPFLAGS
-#LDAPFLAGS=-DQLDAP_CLUSTER
-
-# Perhaps you have different ldap libraries, change them here
-LDAPLIBS=-L/usr/lib -lldap -llber
-# and change the location of the include files here
-LDAPINCLUDES=-I/usr/include
-# for example on my Linux box I use:
-#LDAPLIBS=-L/opt/OpenLDAP/lib -lldap -llber
-# if you need a special include-directory for ldap headers enable this
-#LDAPINCLUDES=-I/opt/OpenLDAP/include
-
-# TLS (SMTP encryption) in qmail-smtpd and qmail-remote, see TLS.readme
-# You need OpenSSL for this
-# TLS enable
-TLSON=-DTLS
-# Path to OpenSSL includes
-TLSINCLUDES=-I/usr/include/openssl
-# Path to OpenSSL libraries
-TLSLIBS=-L/usr/lib -lssl -lcrypto
-# Path to OpenSSL binary
-OPENSSLBIN=/usr/bin/openssl
-
-# to make the Netscape download progress bar work with qmail-pop3d
-# uncomment the next line (allready done)
-MNW=-DMAKE_NETSCAPE_WORK 
-
-# to enable the auto-maildir-make feature uncomment the next line
-MDIRMAKE=-DAUTOMAILDIRMAKE
-
-# to enable the auto-homedir-make feature uncomment the next line
-HDIRMAKE=-DAUTOHOMEDIRMAKE
-
-# on most systems we need this to make checkpassword
-SHADOWLIBS=-lcrypt -lshadow
-# OpenBSD Systems seems to have no libcrypt, so comment the line out if you
-# get linking problems
-# To use shadow passwords under some Linux OS, uncomment the next two lines.
-#SHADOWLIBS=-lcrypt -lshadow
-SHADOWOPTS=-DPW_SHADOW
-# To use shadow passwords under Solaris, uncomment the SHADOWOPTS line.
-
-# to enable the possibility to log and debug imap and pop uncoment the
-# next line
-DEBUG=-DDEBUG
-# WARNING: you need NONE DEBUG auth_* to run with inetd
-
-# Just for me, make from time to time a backup
-BACKUPPATH=/backup/qmail-backup/qmail-ldap.`date "+%Y%m%d-%H%M"`.tar
-# STOP editing HERE !!!
-
-# Don't edit Makefile! Use conf-* for configuration.
-
-SHELL=/bin/sh
-
-default: it qldap
-
-qldap: qmail-quotawarn qmail-reply auth_pop auth_imap digest qmail-ldaplookup
-
-addresses.0: \
-addresses.5
-	nroff -man addresses.5 > addresses.0
-
-alloc.a: \
-makelib alloc.o alloc_re.o
-	./makelib alloc.a alloc.o alloc_re.o
-
-alloc.o: \
-compile alloc.c alloc.h error.h
-	./compile alloc.c
-
-alloc_re.o: \
-compile alloc_re.c alloc.h byte.h
-	./compile alloc_re.c
-
-auth_imap.o: \
-compile auth_imap.c error.h qldap-errno.h readwrite.h stralloc.h env.h \
-str.h timeoutread.h auth_mod.h qldap-mdm.h exit.h
-	./compile $(LDAPFLAGS) $(HDIRMAKE) $(DEBUG) auth_imap.c
-
-auth_imap: \
-load auth_imap.o checkpassword.o check.o control.o getln.a qldap-debug.o \
-fs.a open.a stralloc.a alloc.a substdio.a error.a env.a auto_qmail.o \
-str.a base64.o digest_md4.o digest_md5.o digest_rmd160.o digest_sha1.o \
-dns.o timeoutconn.o ndelay.a ipalloc.o dns.lib socket.lib qldap-ldaplib.o \
-timeoutread.o qldap-mdm.o wait.a sig.a prot.o qldap-errno.o
-	./load auth_imap checkpassword.o check.o control.o qldap-ldaplib.o \
-	qldap-debug.o auto_qmail.o dns.o timeoutconn.o timeoutread.o ip.o \
-	ipalloc.o getln.a open.a env.a stralloc.a alloc.a substdio.a str.a \
-	base64.o digest_md4.o digest_md5.o digest_rmd160.o digest_sha1.o \
-	qldap-mdm.o wait.a qldap-errno.o error.a fs.a ndelay.a sig.a prot.o \
-	$(LDAPLIBS) $(SHADOWLIBS) `cat dns.lib` `cat socket.lib`
-
-auth_pop.o: \
-compile auth_pop.c error.h qldap-errno.h readwrite.h stralloc.h env.h \
-str.h timeoutread.h auth_mod.h qldap-mdm.h exit.h fmt.h sig.h wait.h \
-scan.h alloc.h
-	./compile $(LDAPFLAGS) $(HDIRMAKE) $(DEBUG) auth_pop.c
-
-auth_pop: \
-load auth_pop.o checkpassword.o check.o control.o getln.a qldap-debug.o \
-fs.a open.a stralloc.a alloc.a substdio.a error.a env.a auto_qmail.o \
-str.a base64.o digest_md4.o digest_md5.o digest_rmd160.o digest_sha1.o \
-dns.o timeoutconn.o ndelay.a ipalloc.o dns.lib socket.lib qldap-ldaplib.o \
-timeoutread.o qldap-mdm.o wait.a prot.o qldap-errno.o
-	./load auth_pop checkpassword.o check.o control.o qldap-ldaplib.o \
-	qldap-debug.o auto_qmail.o dns.o timeoutconn.o timeoutread.o ip.o \
-	ipalloc.o getln.a open.a env.a stralloc.a alloc.a substdio.a str.a \
-	base64.o digest_md4.o digest_md5.o digest_rmd160.o digest_sha1.o \
-	qldap-mdm.o wait.a qldap-errno.o error.a fs.a ndelay.a prot.o \
-	$(LDAPLIBS) $(SHADOWLIBS) `cat dns.lib` `cat socket.lib`
-
-auto-ccld.sh: \
-conf-cc conf-ld warn-auto.sh
-	( cat warn-auto.sh; \
-	echo CC=\'`head -1 conf-cc`\'; \
-	echo LD=\'`head -1 conf-ld`\' \
-	) > auto-ccld.sh
-
-auto-gid: \
-load auto-gid.o substdio.a error.a str.a fs.a
-	./load auto-gid substdio.a error.a str.a fs.a 
-
-auto-gid.o: \
-compile auto-gid.c subfd.h substdio.h substdio.h readwrite.h exit.h \
-scan.h fmt.h
-	./compile auto-gid.c
-
-auto-int: \
-load auto-int.o substdio.a error.a str.a fs.a
-	./load auto-int substdio.a error.a str.a fs.a 
-
-auto-int.o: \
-compile auto-int.c substdio.h readwrite.h exit.h scan.h fmt.h
-	./compile auto-int.c
-
-auto-int8: \
-load auto-int8.o substdio.a error.a str.a fs.a
-	./load auto-int8 substdio.a error.a str.a fs.a 
-
-auto-int8.o: \
-compile auto-int8.c substdio.h readwrite.h exit.h scan.h fmt.h
-	./compile auto-int8.c
-
-auto-str: \
-load auto-str.o substdio.a error.a str.a
-	./load auto-str substdio.a error.a str.a 
-
-auto-str.o: \
-compile auto-str.c substdio.h readwrite.h exit.h
-	./compile auto-str.c
-
-auto-uid: \
-load auto-uid.o substdio.a error.a str.a fs.a
-	./load auto-uid substdio.a error.a str.a fs.a 
-
-auto-uid.o: \
-compile auto-uid.c subfd.h substdio.h substdio.h readwrite.h exit.h \
-scan.h fmt.h
-	./compile auto-uid.c
-
-auto_break.c: \
-auto-str conf-break
-	./auto-str auto_break \
-	"`head -1 conf-break`" > auto_break.c
-
-auto_break.o: \
-compile auto_break.c
-	./compile auto_break.c
-
-auto_patrn.c: \
-auto-int8 conf-patrn
-	./auto-int8 auto_patrn `head -1 conf-patrn` > auto_patrn.c
-
-auto_patrn.o: \
-compile auto_patrn.c
-	./compile auto_patrn.c
-
-auto_qmail.c: \
-auto-str conf-qmail
-	./auto-str auto_qmail `head -1 conf-qmail` > auto_qmail.c
-
-auto_qmail.o: \
-compile auto_qmail.c
-	./compile auto_qmail.c
-
-auto_spawn.c: \
-auto-int conf-spawn
-	./auto-int auto_spawn `head -1 conf-spawn` > auto_spawn.c
-
-auto_spawn.o: \
-compile auto_spawn.c
-	./compile auto_spawn.c
-
-auto_split.c: \
-auto-int conf-split
-	./auto-int auto_split `head -1 conf-split` > auto_split.c
-
-auto_split.o: \
-compile auto_split.c
-	./compile auto_split.c
-
-auto_uids.c: \
-auto-uid auto-gid conf-users conf-groups
-	( ./auto-uid auto_uida `head -1 conf-users` \
-	&&./auto-uid auto_uidd `head -2 conf-users | tail -1` \
-	&&./auto-uid auto_uidl `head -3 conf-users | tail -1` \
-	&&./auto-uid auto_uido `head -4 conf-users | tail -1` \
-	&&./auto-uid auto_uidp `head -5 conf-users | tail -1` \
-	&&./auto-uid auto_uidq `head -6 conf-users | tail -1` \
-	&&./auto-uid auto_uidr `head -7 conf-users | tail -1` \
-	&&./auto-uid auto_uids `head -8 conf-users | tail -1` \
-	&&./auto-gid auto_gidq `head -1 conf-groups` \
-	&&./auto-gid auto_gidn `head -2 conf-groups | tail -1` \
-	) > auto_uids.c.tmp && mv auto_uids.c.tmp auto_uids.c
-
-auto_uids.o: \
-compile auto_uids.c
-	./compile auto_uids.c
-
-auto_usera.c: \
-auto-str conf-users
-	./auto-str auto_usera `head -1 conf-users` > auto_usera.c
-
-auto_usera.o: \
-compile auto_usera.c
-	./compile auto_usera.c
-
-base64.o: \
-compile base64.c base64.h
-	./compile $(LDAPFLAGS) base64.c
-
-binm1: \
-binm1.sh conf-qmail
-	cat binm1.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> binm1
-	chmod 755 binm1
-
-binm1+df: \
-binm1+df.sh conf-qmail
-	cat binm1+df.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> binm1+df
-	chmod 755 binm1+df
-
-binm2: \
-binm2.sh conf-qmail
-	cat binm2.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> binm2
-	chmod 755 binm2
-
-binm2+df: \
-binm2+df.sh conf-qmail
-	cat binm2+df.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> binm2+df
-	chmod 755 binm2+df
-
-binm3: \
-binm3.sh conf-qmail
-	cat binm3.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> binm3
-	chmod 755 binm3
-
-binm3+df: \
-binm3+df.sh conf-qmail
-	cat binm3+df.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> binm3+df
-	chmod 755 binm3+df
-
-bouncesaying: \
-load bouncesaying.o strerr.a error.a substdio.a str.a wait.a
-	./load bouncesaying strerr.a error.a substdio.a str.a \
-	wait.a 
-
-bouncesaying.0: \
-bouncesaying.1
-	nroff -man bouncesaying.1 > bouncesaying.0
-
-bouncesaying.o: \
-compile bouncesaying.c fork.h strerr.h error.h wait.h sig.h exit.h
-	./compile bouncesaying.c
-
-byte_chr.o: \
-compile byte_chr.c byte.h
-	./compile byte_chr.c
-
-byte_copy.o: \
-compile byte_copy.c byte.h
-	./compile byte_copy.c
-
-byte_cr.o: \
-compile byte_cr.c byte.h
-	./compile byte_cr.c
-
-byte_diff.o: \
-compile byte_diff.c byte.h
-	./compile byte_diff.c
-
-byte_rchr.o: \
-compile byte_rchr.c byte.h
-	./compile byte_rchr.c
-
-byte_zero.o: \
-compile byte_zero.c byte.h
-	./compile byte_zero.c
-
-case.a: \
-makelib case_diffb.o case_diffs.o case_lowerb.o case_lowers.o \
-case_starts.o
-	./makelib case.a case_diffb.o case_diffs.o case_lowerb.o \
-	case_lowers.o case_starts.o
-
-case_diffb.o: \
-compile case_diffb.c case.h
-	./compile case_diffb.c
-
-case_diffs.o: \
-compile case_diffs.c case.h
-	./compile case_diffs.c
-
-case_lowerb.o: \
-compile case_lowerb.c case.h
-	./compile case_lowerb.c
-
-case_lowers.o: \
-compile case_lowers.c case.h
-	./compile case_lowers.c
-
-case_starts.o: \
-compile case_starts.c case.h
-	./compile case_starts.c
-
-cdb.a: \
-makelib cdb_hash.o cdb_unpack.o cdb_seek.o
-	./makelib cdb.a cdb_hash.o cdb_unpack.o cdb_seek.o
-
-cdb_hash.o: \
-compile cdb_hash.c cdb.h uint32.h
-	./compile cdb_hash.c
-
-cdb_seek.o: \
-compile cdb_seek.c cdb.h uint32.h
-	./compile cdb_seek.c
-
-cdb_unpack.o: \
-compile cdb_unpack.c cdb.h uint32.h
-	./compile cdb_unpack.c
-
-cdbmake.a: \
-makelib cdbmake_pack.o cdbmake_hash.o cdbmake_add.o
-	./makelib cdbmake.a cdbmake_pack.o cdbmake_hash.o \
-	cdbmake_add.o
-
-cdbmake_add.o: \
-compile cdbmake_add.c cdbmake.h uint32.h
-	./compile cdbmake_add.c
-
-cdbmake_hash.o: \
-compile cdbmake_hash.c cdbmake.h uint32.h
-	./compile cdbmake_hash.c
-
-cdbmake_pack.o: \
-compile cdbmake_pack.c cdbmake.h uint32.h
-	./compile cdbmake_pack.c
-
-cdbmss.o: \
-compile cdbmss.c readwrite.h seek.h alloc.h cdbmss.h cdbmake.h \
-uint32.h substdio.h
-	./compile cdbmss.c
-
-check: \
-it man qldap
-	./instcheck
-
-check.o: \
-compile check.c check.h str.h str_len.c
-	./compile $(LDAPFLAGS) check.c
-
-checkpassword.o: \
-compile checkpassword.c qmail-ldap.h stralloc.h auth_mod.h qldap-ldaplib.h \
-qldap-errno.h readwrite.h error.h str.h open.h substdio.h getln.h select.h \
-compatibility.h digest_md4.h digest_md5.h digest_rmd160.h digest_sha1.h dns.h \
-ipalloc.h timeoutconn.h byte.h scan.h fmt.h alloc.h qldap-debug.h
-	./compile $(LDAPFLAGS) $(SHADOWOPTS) $(LDAPINCLUDES) checkpassword.c
-
-chkshsgr: \
-load chkshsgr.o
-	./load chkshsgr 
-
-chkshsgr.o: \
-compile chkshsgr.c exit.h
-	./compile chkshsgr.c
-
-chkspawn: \
-load chkspawn.o substdio.a error.a str.a fs.a auto_spawn.o
-	./load chkspawn substdio.a error.a str.a fs.a auto_spawn.o 
-
-chkspawn.o: \
-compile chkspawn.c substdio.h subfd.h substdio.h fmt.h select.h \
-exit.h auto_spawn.h
-	./compile chkspawn.c
-
-clean: \
-TARGETS
-	rm -f `cat TARGETS`
-
-coe.o: \
-compile coe.c coe.h
-	./compile coe.c
-
-commands.o: \
-compile commands.c commands.h substdio.h stralloc.h gen_alloc.h str.h \
-case.h
-	./compile commands.c
-
-compile: \
-make-compile warn-auto.sh systype
-	( cat warn-auto.sh; ./make-compile "`cat systype`" ) > \
-	compile
-	chmod 755 compile
-
-condredirect: \
-load condredirect.o qmail.o strerr.a fd.a sig.a wait.a seek.a env.a \
-substdio.a error.a str.a fs.a auto_qmail.o
-	./load condredirect qmail.o strerr.a fd.a sig.a wait.a \
-	seek.a env.a substdio.a error.a str.a fs.a auto_qmail.o 
-
-condredirect.0: \
-condredirect.1
-	nroff -man condredirect.1 > condredirect.0
-
-condredirect.o: \
-compile condredirect.c sig.h readwrite.h exit.h env.h error.h fork.h \
-wait.h seek.h qmail.h substdio.h strerr.h substdio.h fmt.h
-	./compile condredirect.c
-
-config: \
-warn-auto.sh config.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh config.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> config
-	chmod 755 config
-
-config-fast: \
-warn-auto.sh config-fast.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh config-fast.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> config-fast
-	chmod 755 config-fast
-
-constmap.o: \
-compile constmap.c constmap.h alloc.h case.h
-	./compile constmap.c
-
-control.o: \
-compile control.c readwrite.h open.h getln.h stralloc.h gen_alloc.h \
-substdio.h error.h control.h alloc.h scan.h
-	./compile control.c
-
-date822fmt.o: \
-compile date822fmt.c datetime.h fmt.h date822fmt.h
-	./compile date822fmt.c
-
-datemail: \
-warn-auto.sh datemail.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh datemail.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> datemail
-	chmod 755 datemail
-
-datetime.a: \
-makelib datetime.o datetime_un.o
-	./makelib datetime.a datetime.o datetime_un.o
-
-datetime.o: \
-compile datetime.c datetime.h
-	./compile datetime.c
-
-datetime_un.o: \
-compile datetime_un.c datetime.h
-	./compile datetime_un.c
-
-digest: \
-load digest.o digest_md4.o digest_md5.o digest_rmd160.o \
-digest_sha1.o base64.o
-	./load digest digest_md4.o digest_md5.o digest_rmd160.o \
-	digest_sha1.o base64.o
-
-digest.o: \
-compile digest.c compatibility.h
-	./compile $(LDAPFLAGS) digest.c
-
-digest_md4.o: \
-compile endian digest_md4.c digest_md4.h compatibility.h
-	./compile $(LDAPFLAGS) `./endian` digest_md4.c
-
-digest_md5.o: \
-compile endian digest_md5.c digest_md5.h compatibility.h
-	./compile $(LDAPFLAGS) `./endian` digest_md5.c
-
-digest_rmd160.o: \
-compile endian digest_rmd160.c digest_rmd160.h compatibility.h
-	./compile $(LDAPFLAGS) `./endian` digest_rmd160.c
-
-digest_sha1.o: \
-compile endian digest_sha1.c digest_sha1.h compatibility.h
-	./compile $(LDAPFLAGS) `./endian` digest_sha1.c
-
-direntry.h: \
-compile trydrent.c direntry.h1 direntry.h2
-	( ./compile trydrent.c >/dev/null 2>&1 \
-	&& cat direntry.h2 || cat direntry.h1 ) > direntry.h
-	rm -f trydrent.o
-
-dns.lib: \
-tryrsolv.c compile load socket.lib dns.o ipalloc.o ip.o stralloc.a \
-alloc.a error.a fs.a str.a
-	( ( ./compile tryrsolv.c && ./load tryrsolv dns.o \
-	ipalloc.o ip.o stralloc.a alloc.a error.a fs.a str.a \
-	-lresolv `cat socket.lib` ) >/dev/null 2>&1 \
-	&& echo -lresolv || exit 0 ) > dns.lib
-	rm -f tryrsolv.o tryrsolv
-
-dns.o: \
-compile dns.c ip.h ipalloc.h ip.h gen_alloc.h fmt.h alloc.h str.h \
-stralloc.h gen_alloc.h dns.h case.h
-	./compile ${TLSON} dns.c
-
-dnscname: \
-load dnscname.o dns.o dnsdoe.o ip.o ipalloc.o stralloc.a alloc.a \
-substdio.a error.a str.a fs.a dns.lib socket.lib
-	./load dnscname dns.o dnsdoe.o ip.o ipalloc.o stralloc.a \
-	alloc.a substdio.a error.a str.a fs.a  `cat dns.lib` `cat \
-	socket.lib`
-
-dnscname.o: \
-compile dnscname.c substdio.h subfd.h substdio.h stralloc.h \
-gen_alloc.h dns.h dnsdoe.h readwrite.h exit.h
-	./compile dnscname.c
-
-dnsdoe.o: \
-compile dnsdoe.c substdio.h subfd.h substdio.h exit.h dns.h dnsdoe.h
-	./compile dnsdoe.c
-
-dnsfq: \
-load dnsfq.o dns.o dnsdoe.o ip.o ipalloc.o stralloc.a alloc.a \
-substdio.a error.a str.a fs.a dns.lib socket.lib
-	./load dnsfq dns.o dnsdoe.o ip.o ipalloc.o stralloc.a \
-	alloc.a substdio.a error.a str.a fs.a  `cat dns.lib` `cat \
-	socket.lib`
-
-dnsfq.o: \
-compile dnsfq.c substdio.h subfd.h substdio.h stralloc.h gen_alloc.h \
-dns.h dnsdoe.h ip.h ipalloc.h ip.h gen_alloc.h exit.h
-	./compile ${TLSON} dnsfq.c
-
-dnsip: \
-load dnsip.o dns.o dnsdoe.o ip.o ipalloc.o stralloc.a alloc.a \
-substdio.a error.a str.a fs.a dns.lib socket.lib
-	./load dnsip dns.o dnsdoe.o ip.o ipalloc.o stralloc.a \
-	alloc.a substdio.a error.a str.a fs.a  `cat dns.lib` `cat \
-	socket.lib`
-
-dnsip.o: \
-compile dnsip.c substdio.h subfd.h substdio.h stralloc.h gen_alloc.h \
-dns.h dnsdoe.h ip.h ipalloc.h ip.h gen_alloc.h exit.h
-	./compile ${TLSON} dnsip.c
-
-dnsmxip: \
-load dnsmxip.o dns.o dnsdoe.o ip.o ipalloc.o now.o stralloc.a alloc.a \
-substdio.a error.a str.a fs.a dns.lib socket.lib
-	./load dnsmxip dns.o dnsdoe.o ip.o ipalloc.o now.o \
-	stralloc.a alloc.a substdio.a error.a str.a fs.a  `cat \
-	dns.lib` `cat socket.lib`
-
-dnsmxip.o: \
-compile dnsmxip.c substdio.h subfd.h substdio.h stralloc.h \
-gen_alloc.h fmt.h dns.h dnsdoe.h ip.h ipalloc.h ip.h gen_alloc.h \
-now.h datetime.h exit.h
-	./compile ${TLSON} dnsmxip.c
-
-dnsptr: \
-load dnsptr.o dns.o dnsdoe.o ip.o ipalloc.o stralloc.a alloc.a \
-substdio.a error.a str.a fs.a dns.lib socket.lib
-	./load dnsptr dns.o dnsdoe.o ip.o ipalloc.o stralloc.a \
-	alloc.a substdio.a error.a str.a fs.a  `cat dns.lib` `cat \
-	socket.lib`
-
-dnsptr.o: \
-compile dnsptr.c substdio.h subfd.h substdio.h stralloc.h gen_alloc.h \
-str.h scan.h dns.h dnsdoe.h ip.h exit.h
-	./compile dnsptr.c
-
-dot-qmail.0: \
-dot-qmail.5
-	nroff -man dot-qmail.5 > dot-qmail.0
-
-dot-qmail.5: \
-dot-qmail.9 conf-break conf-spawn
-	cat dot-qmail.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> dot-qmail.5
-
-elq: \
-warn-auto.sh elq.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh elq.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> elq
-	chmod 755 elq
-
-endian: \
-load endian.o
-	./load endian
-
-endian.o: \
-compile endian.c
-	./compile $(LDAPFLAGS) endian.c
-
-env.a: \
-makelib env.o envread.o
-	./makelib env.a env.o envread.o
-
-env.o: \
-compile env.c str.h alloc.h env.h
-	./compile env.c
-
-envelopes.0: \
-envelopes.5
-	nroff -man envelopes.5 > envelopes.0
-
-envread.o: \
-compile envread.c env.h str.h
-	./compile envread.c
-
-error.a: \
-makelib error.o error_str.o error_temp.o
-	./makelib error.a error.o error_str.o error_temp.o
-
-error.o: \
-compile error.c error.h
-	./compile error.c
-
-error_str.o: \
-compile error_str.c error.h
-	./compile error_str.c
-
-error_temp.o: \
-compile error_temp.c error.h
-	./compile error_temp.c
-
-except: \
-load except.o strerr.a error.a substdio.a str.a wait.a
-	./load except strerr.a error.a substdio.a str.a wait.a 
-
-except.0: \
-except.1
-	nroff -man except.1 > except.0
-
-except.o: \
-compile except.c fork.h strerr.h wait.h error.h exit.h
-	./compile except.c
-
-fd.a: \
-makelib fd_copy.o fd_move.o
-	./makelib fd.a fd_copy.o fd_move.o
-
-fd_copy.o: \
-compile fd_copy.c fd.h
-	./compile fd_copy.c
-
-fd_move.o: \
-compile fd_move.c fd.h
-	./compile fd_move.c
-
-fifo.o: \
-compile fifo.c hasmkffo.h fifo.h
-	./compile fifo.c
-
-find-systype: \
-find-systype.sh auto-ccld.sh
-	cat auto-ccld.sh find-systype.sh > find-systype
-	chmod 755 find-systype
-
-fmt_str.o: \
-compile fmt_str.c fmt.h
-	./compile fmt_str.c
-
-fmt_strn.o: \
-compile fmt_strn.c fmt.h
-	./compile fmt_strn.c
-
-fmt_uint.o: \
-compile fmt_uint.c fmt.h
-	./compile fmt_uint.c
-
-fmt_uint0.o: \
-compile fmt_uint0.c fmt.h
-	./compile fmt_uint0.c
-
-fmt_ulong.o: \
-compile fmt_ulong.c fmt.h
-	./compile fmt_ulong.c
-
-fmtqfn.o: \
-compile fmtqfn.c fmtqfn.h fmt.h auto_split.h
-	./compile fmtqfn.c
-
-forgeries.0: \
-forgeries.7
-	nroff -man forgeries.7 > forgeries.0
-
-fork.h: \
-compile load tryvfork.c fork.h1 fork.h2
-	( ( ./compile tryvfork.c && ./load tryvfork ) >/dev/null \
-	2>&1 \
-	&& cat fork.h2 || cat fork.h1 ) > fork.h
-	rm -f tryvfork.o tryvfork
-
-forward: \
-load forward.o qmail.o strerr.a alloc.a fd.a wait.a sig.a env.a \
-substdio.a error.a str.a fs.a auto_qmail.o
-	./load forward qmail.o strerr.a alloc.a fd.a wait.a sig.a \
-	env.a substdio.a error.a str.a fs.a auto_qmail.o 
-
-forward.0: \
-forward.1
-	nroff -man forward.1 > forward.0
-
-forward.o: \
-compile forward.c sig.h readwrite.h exit.h env.h qmail.h substdio.h \
-strerr.h substdio.h fmt.h
-	./compile forward.c
-
-fs.a: \
-makelib fmt_str.o fmt_strn.o fmt_uint.o fmt_uint0.o fmt_ulong.o \
-scan_ulong.o scan_8long.o
-	./makelib fs.a fmt_str.o fmt_strn.o fmt_uint.o fmt_uint0.o \
-	fmt_ulong.o scan_ulong.o scan_8long.o
-
-getln.a: \
-makelib getln.o getln2.o
-	./makelib getln.a getln.o getln2.o
-
-getln.o: \
-compile getln.c substdio.h byte.h stralloc.h gen_alloc.h getln.h
-	./compile getln.c
-
-getln2.o: \
-compile getln2.c substdio.h stralloc.h gen_alloc.h byte.h getln.h
-	./compile getln2.c
-
-getopt.a: \
-makelib subgetopt.o sgetopt.o
-	./makelib getopt.a subgetopt.o sgetopt.o
-
-gfrom.o: \
-compile gfrom.c str.h gfrom.h
-	./compile gfrom.c
-
-hasflock.h: \
-tryflock.c compile load
-	( ( ./compile tryflock.c && ./load tryflock ) >/dev/null \
-	2>&1 \
-	&& echo \#define HASFLOCK 1 || exit 0 ) > hasflock.h
-	rm -f tryflock.o tryflock
-
-hasmkffo.h: \
-trymkffo.c compile load
-	( ( ./compile trymkffo.c && ./load trymkffo ) >/dev/null \
-	2>&1 \
-	&& echo \#define HASMKFIFO 1 || exit 0 ) > hasmkffo.h
-	rm -f trymkffo.o trymkffo
-
-hasnpbg1.h: \
-trynpbg1.c compile load open.h open.a fifo.h fifo.o select.h
-	( ( ./compile trynpbg1.c \
-	&& ./load trynpbg1 fifo.o open.a && ./trynpbg1 ) \
-	>/dev/null 2>&1 \
-	&& echo \#define HASNAMEDPIPEBUG1 1 || exit 0 ) > \
-	hasnpbg1.h
-	rm -f trynpbg1.o trynpbg1
-
-hassalen.h: \
-trysalen.c compile
-	( ./compile trysalen.c >/dev/null 2>&1 \
-	&& echo \#define HASSALEN 1 || exit 0 ) > hassalen.h
-	rm -f trysalen.o
-
-hassgact.h: \
-trysgact.c compile load
-	( ( ./compile trysgact.c && ./load trysgact ) >/dev/null \
-	2>&1 \
-	&& echo \#define HASSIGACTION 1 || exit 0 ) > hassgact.h
-	rm -f trysgact.o trysgact
-
-hassgprm.h: \
-trysgprm.c compile load
-	( ( ./compile trysgprm.c && ./load trysgprm ) >/dev/null \
-	2>&1 \
-	&& echo \#define HASSIGPROCMASK 1 || exit 0 ) > hassgprm.h
-	rm -f trysgprm.o trysgprm
-
-hasshsgr.h: \
-chkshsgr warn-shsgr tryshsgr.c compile load
-	./chkshsgr || ( cat warn-shsgr; exit 1 )
-	( ( ./compile tryshsgr.c \
-	&& ./load tryshsgr && ./tryshsgr ) >/dev/null 2>&1 \
-	&& echo \#define HASSHORTSETGROUPS 1 || exit 0 ) > \
-	hasshsgr.h
-	rm -f tryshsgr.o tryshsgr
-
-haswaitp.h: \
-trywaitp.c compile load
-	( ( ./compile trywaitp.c && ./load trywaitp ) >/dev/null \
-	2>&1 \
-	&& echo \#define HASWAITPID 1 || exit 0 ) > haswaitp.h
-	rm -f trywaitp.o trywaitp
-
-headerbody.o: \
-compile headerbody.c stralloc.h gen_alloc.h substdio.h getln.h \
-hfield.h headerbody.h
-	./compile headerbody.c
-
-hfield.o: \
-compile hfield.c hfield.h
-	./compile hfield.c
-
-hier.o: \
-compile hier.c auto_qmail.h auto_split.h auto_uids.h fmt.h fifo.h
-	./compile $(LDAPFLAGS) $(DEBUG) hier.c
-
-home: \
-home.sh conf-qmail
-	cat home.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> home
-	chmod 755 home
-
-home+df: \
-home+df.sh conf-qmail
-	cat home+df.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> home+df
-	chmod 755 home+df
-
-hostname: \
-load hostname.o substdio.a error.a str.a dns.lib socket.lib
-	./load hostname substdio.a error.a str.a  `cat dns.lib` \
-	`cat socket.lib`
-
-hostname.o: \
-compile hostname.c substdio.h subfd.h substdio.h readwrite.h exit.h
-	./compile hostname.c
-
-idedit: \
-load idedit.o strerr.a substdio.a error.a str.a fs.a wait.a open.a \
-seek.a
-	./load idedit strerr.a substdio.a error.a str.a fs.a \
-	wait.a open.a seek.a 
-
-idedit.o: \
-compile idedit.c readwrite.h exit.h scan.h fmt.h strerr.h open.h \
-seek.h fork.h
-	./compile idedit.c
-
-install: \
-load install.o fifo.o hier.o auto_qmail.o auto_split.o auto_uids.o \
-strerr.a substdio.a open.a error.a str.a fs.a
-	./load install fifo.o hier.o auto_qmail.o auto_split.o \
-	auto_uids.o strerr.a substdio.a open.a error.a str.a fs.a 
-
-install-big: \
-load install-big.o fifo.o install.o auto_qmail.o auto_split.o \
-auto_uids.o strerr.a substdio.a open.a error.a str.a fs.a
-	./load install-big fifo.o install.o auto_qmail.o \
-	auto_split.o auto_uids.o strerr.a substdio.a open.a error.a \
-	str.a fs.a 
-
-install-big.o: \
-compile install-big.c auto_qmail.h auto_split.h auto_uids.h fmt.h \
-fifo.h
-	./compile $(LDAPFLAGS) $(DEBUG) install-big.c
-
-install.o: \
-compile install.c substdio.h strerr.h error.h open.h readwrite.h \
-exit.h
-	./compile install.c
-
-instcheck: \
-load instcheck.o fifo.o hier.o auto_qmail.o auto_split.o auto_uids.o \
-strerr.a substdio.a error.a str.a fs.a
-	./load instcheck fifo.o hier.o auto_qmail.o auto_split.o \
-	auto_uids.o strerr.a substdio.a error.a str.a fs.a 
-
-instcheck.o: \
-compile instcheck.c strerr.h error.h readwrite.h exit.h
-	./compile instcheck.c
-
-ip.o: \
-compile ip.c fmt.h scan.h ip.h
-	./compile ip.c
-
-ipalloc.o: \
-compile ipalloc.c alloc.h gen_allocdefs.h ip.h ipalloc.h ip.h \
-gen_alloc.h
-	./compile ${TLSON} ipalloc.c
-
-ipme.o: \
-compile ipme.c hassalen.h byte.h ip.h ipalloc.h ip.h gen_alloc.h \
-stralloc.h gen_alloc.h ipme.h ip.h ipalloc.h
-	./compile ${TLSON} ipme.c
-
-ipmeprint: \
-load ipmeprint.o ipme.o ip.o ipalloc.o stralloc.a alloc.a substdio.a \
-error.a str.a fs.a socket.lib
-	./load ipmeprint ipme.o ip.o ipalloc.o stralloc.a alloc.a \
-	substdio.a error.a str.a fs.a  `cat socket.lib`
-
-ipmeprint.o: \
-compile ipmeprint.c subfd.h substdio.h substdio.h ip.h ipme.h ip.h \
-ipalloc.h ip.h gen_alloc.h exit.h
-	./compile ${TLSON} ipmeprint.c
-
-it: \
-qmail-local qmail-lspawn qmail-getpw qmail-remote qmail-rspawn \
-qmail-clean qmail-send qmail-start splogger qmail-queue qmail-inject \
-predate datemail mailsubj qmail-upq qmail-showctl qmail-newu \
-qmail-pw2u qmail-qread qmail-qstat qmail-tcpto qmail-tcpok \
-qmail-pop3d qmail-popup qmail-qmqpc qmail-qmqpd qmail-qmtpd \
-qmail-smtpd sendmail tcp-env qmail-newmrh config config-fast dnscname \
-dnsptr dnsip dnsmxip dnsfq hostname ipmeprint qreceipt qsmhook qbiff \
-forward preline condredirect bouncesaying except maildirmake \
-maildir2mbox maildirwatch qail elq pinq idedit install-big \
-install instcheck home home+df proc proc+df binm1 \
-binm1+df binm2 binm2+df binm3 binm3+df \
-qmail-quotawarn auth_pop auth_imap digest qmail-ldaplookup qmail-reply
-
-load: \
-make-load warn-auto.sh systype
-	( cat warn-auto.sh; ./make-load "`cat systype`" ) > load
-	chmod 755 load
-
-lock.a: \
-makelib lock_ex.o lock_exnb.o lock_un.o
-	./makelib lock.a lock_ex.o lock_exnb.o lock_un.o
-
-lock_ex.o: \
-compile lock_ex.c hasflock.h lock.h
-	./compile lock_ex.c
-
-lock_exnb.o: \
-compile lock_exnb.c hasflock.h lock.h
-	./compile lock_exnb.c
-
-lock_un.o: \
-compile lock_un.c hasflock.h lock.h
-	./compile lock_un.c
-
-maildir.0: \
-maildir.5
-	nroff -man maildir.5 > maildir.0
-
-maildir.o: \
-compile maildir.c prioq.h datetime.h gen_alloc.h env.h stralloc.h \
-gen_alloc.h direntry.h datetime.h now.h datetime.h str.h maildir.h \
-strerr.h
-	./compile maildir.c
-
-maildir++.o: \
-compile maildir++.c maildir++.h readwrite.h stralloc.h error.h str.h \
-open.h substdio.h getln.h error.h strerr.h fmt.h scan.h now.h seek.h \
-sig.h
-	./compile maildir++.c
-
-maildir2mbox: \
-load maildir2mbox.o maildir.o prioq.o now.o myctime.o gfrom.o lock.a \
-getln.a env.a open.a strerr.a stralloc.a alloc.a substdio.a error.a \
-str.a fs.a datetime.a
-	./load maildir2mbox maildir.o prioq.o now.o myctime.o \
-	gfrom.o lock.a getln.a env.a open.a strerr.a stralloc.a \
-	alloc.a substdio.a error.a str.a fs.a datetime.a 
-
-maildir2mbox.0: \
-maildir2mbox.1
-	nroff -man maildir2mbox.1 > maildir2mbox.0
-
-maildir2mbox.o: \
-compile maildir2mbox.c readwrite.h prioq.h datetime.h gen_alloc.h \
-env.h stralloc.h gen_alloc.h subfd.h substdio.h substdio.h getln.h \
-error.h open.h lock.h gfrom.h str.h exit.h myctime.h maildir.h \
-strerr.h
-	./compile maildir2mbox.c
-
-maildirmake: \
-load maildirmake.o strerr.a substdio.a error.a str.a
-	./load maildirmake strerr.a substdio.a error.a str.a 
-
-maildirmake.0: \
-maildirmake.1
-	nroff -man maildirmake.1 > maildirmake.0
-
-maildirmake.o: \
-compile maildirmake.c strerr.h exit.h
-	./compile maildirmake.c
-
-maildirwatch: \
-load maildirwatch.o hfield.o headerbody.o maildir.o prioq.o now.o \
-getln.a env.a open.a strerr.a stralloc.a alloc.a substdio.a error.a \
-str.a
-	./load maildirwatch hfield.o headerbody.o maildir.o \
-	prioq.o now.o getln.a env.a open.a strerr.a stralloc.a \
-	alloc.a substdio.a error.a str.a 
-
-maildirwatch.0: \
-maildirwatch.1
-	nroff -man maildirwatch.1 > maildirwatch.0
-
-maildirwatch.o: \
-compile maildirwatch.c getln.h substdio.h subfd.h substdio.h prioq.h \
-datetime.h gen_alloc.h stralloc.h gen_alloc.h str.h exit.h hfield.h \
-readwrite.h open.h headerbody.h maildir.h strerr.h
-	./compile maildirwatch.c
-
-mailsubj: \
-warn-auto.sh mailsubj.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh mailsubj.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> mailsubj
-	chmod 755 mailsubj
-
-mailsubj.0: \
-mailsubj.1
-	nroff -man mailsubj.1 > mailsubj.0
-
-make-compile: \
-make-compile.sh auto-ccld.sh
-	cat auto-ccld.sh make-compile.sh > make-compile
-	chmod 755 make-compile
-
-make-load: \
-make-load.sh auto-ccld.sh
-	cat auto-ccld.sh make-load.sh > make-load
-	chmod 755 make-load
-
-make-makelib: \
-make-makelib.sh auto-ccld.sh
-	cat auto-ccld.sh make-makelib.sh > make-makelib
-	chmod 755 make-makelib
-
-makelib: \
-make-makelib warn-auto.sh systype
-	( cat warn-auto.sh; ./make-makelib "`cat systype`" ) > \
-	makelib
-	chmod 755 makelib
-
-man: \
-qmail-local.0 qmail-lspawn.0 qmail-getpw.0 qmail-remote.0 \
-qmail-rspawn.0 qmail-clean.0 qmail-send.0 qmail-start.0 splogger.0 \
-qmail-queue.0 qmail-inject.0 mailsubj.0 qmail-showctl.0 qmail-newu.0 \
-qmail-pw2u.0 qmail-qread.0 qmail-qstat.0 qmail-tcpto.0 qmail-tcpok.0 \
-qmail-pop3d.0 qmail-popup.0 qmail-qmqpc.0 qmail-qmqpd.0 qmail-qmtpd.0 \
-qmail-smtpd.0 tcp-env.0 qmail-newmrh.0 qreceipt.0 qbiff.0 forward.0 \
-preline.0 condredirect.0 bouncesaying.0 except.0 maildirmake.0 \
-maildir2mbox.0 maildirwatch.0 qmail.0 qmail-limits.0 qmail-log.0 \
-qmail-control.0 qmail-header.0 qmail-users.0 dot-qmail.0 \
-qmail-command.0 tcp-environ.0 maildir.0 mbox.0 addresses.0 \
-envelopes.0 forgeries.0
-
-mbox.0: \
-mbox.5
-	nroff -man mbox.5 > mbox.0
-
-myctime.o: \
-compile myctime.c datetime.h fmt.h myctime.h
-	./compile myctime.c
-
-ndelay.a: \
-makelib ndelay.o ndelay_off.o
-	./makelib ndelay.a ndelay.o ndelay_off.o
-
-ndelay.o: \
-compile ndelay.c ndelay.h
-	./compile ndelay.c
-
-ndelay_off.o: \
-compile ndelay_off.c ndelay.h
-	./compile ndelay_off.c
-
-newfield.o: \
-compile newfield.c fmt.h datetime.h stralloc.h gen_alloc.h \
-date822fmt.h newfield.h stralloc.h
-	./compile newfield.c
-
-now.o: \
-compile now.c datetime.h now.h datetime.h
-	./compile now.c
-
-open.a: \
-makelib open_append.o open_excl.o open_read.o open_trunc.o \
-open_write.o
-	./makelib open.a open_append.o open_excl.o open_read.o \
-	open_trunc.o open_write.o
-
-open_append.o: \
-compile open_append.c open.h
-	./compile open_append.c
-
-open_excl.o: \
-compile open_excl.c open.h
-	./compile open_excl.c
-
-open_read.o: \
-compile open_read.c open.h
-	./compile open_read.c
-
-open_trunc.o: \
-compile open_trunc.c open.h
-	./compile open_trunc.c
-
-open_write.o: \
-compile open_write.c open.h
-	./compile open_write.c
-
-pinq: \
-warn-auto.sh pinq.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh pinq.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> pinq
-	chmod 755 pinq
-
-predate: \
-load predate.o datetime.a strerr.a sig.a fd.a wait.a substdio.a \
-error.a str.a fs.a
-	./load predate datetime.a strerr.a sig.a fd.a wait.a \
-	substdio.a error.a str.a fs.a 
-
-predate.o: \
-compile predate.c datetime.h fork.h wait.h fd.h fmt.h strerr.h \
-substdio.h subfd.h substdio.h readwrite.h exit.h
-	./compile predate.c
-
-preline: \
-load preline.o strerr.a fd.a wait.a sig.a env.a getopt.a substdio.a \
-error.a str.a
-	./load preline strerr.a fd.a wait.a sig.a env.a getopt.a \
-	substdio.a error.a str.a 
-
-preline.0: \
-preline.1
-	nroff -man preline.1 > preline.0
-
-preline.o: \
-compile preline.c fd.h sgetopt.h subgetopt.h readwrite.h strerr.h \
-substdio.h exit.h fork.h wait.h env.h sig.h error.h
-	./compile preline.c
-
-prioq.o: \
-compile prioq.c alloc.h gen_allocdefs.h prioq.h datetime.h \
-gen_alloc.h
-	./compile prioq.c
-
-proc: \
-proc.sh conf-qmail
-	cat proc.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> proc
-	chmod 755 proc
-
-proc+df: \
-proc+df.sh conf-qmail
-	cat proc+df.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	> proc+df
-	chmod 755 proc+df
-
-prot.o: \
-compile prot.c hasshsgr.h prot.h
-	./compile prot.c
-
-qail: \
-warn-auto.sh qail.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh qail.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> qail
-	chmod 755 qail
-
-qbiff: \
-load qbiff.o headerbody.o hfield.o getln.a env.a open.a stralloc.a \
-alloc.a substdio.a error.a str.a
-	./load qbiff headerbody.o hfield.o getln.a env.a open.a \
-	stralloc.a alloc.a substdio.a error.a str.a 
-
-qbiff.0: \
-qbiff.1
-	nroff -man qbiff.1 > qbiff.0
-
-qbiff.o: \
-compile qbiff.c readwrite.h stralloc.h gen_alloc.h substdio.h subfd.h \
-substdio.h open.h byte.h str.h headerbody.h hfield.h env.h exit.h
-	./compile qbiff.c
-
-qldap-debug.o: \
-compile qldap-debug.c stralloc.h substdio.h fmt.h str.h readwrite.h \
-error.h qldap-errno.h env.h scan.h qldap-debug.h
-	./compile $(LDAPFLAGS) $(DEBUG) qldap-debug.c
-
-qldap-errno.o: \
-compile qldap-errno.c qldap-errno.h error.h
-	./compile $(LDAPFLAGS) qldap-errno.c
-
-qldap-ldaplib.o: \
-compile qmail-ldap.h qldap-errno.h qldap-ldaplib.h alloc.h stralloc.h \
-error.h control.h auto_qmail.h str.h qldap-ldaplib.c byte.h fmt.h
-	./compile $(LDAPFLAGS) $(LDAPINCLUDES) $(DEBUG) qldap-ldaplib.c
-
-qldap-mdm.o: \
-compile qldap-mdm.c qldap-errno.h wait.h
-	./compile $(LDAPFLAGS) $(HDIRMAKE) $(MDIRMAKE) $(DEBUG) qldap-mdm.c
-
-qmail-clean: \
-load qmail-clean.o fmtqfn.o now.o getln.a sig.a stralloc.a alloc.a \
-substdio.a error.a str.a fs.a auto_qmail.o auto_split.o
-	./load qmail-clean fmtqfn.o now.o getln.a sig.a stralloc.a \
-	alloc.a substdio.a error.a str.a fs.a auto_qmail.o \
-	auto_split.o 
-
-qmail-clean.0: \
-qmail-clean.8
-	nroff -man qmail-clean.8 > qmail-clean.0
-
-qmail-clean.o: \
-compile qmail-clean.c readwrite.h sig.h now.h datetime.h str.h \
-direntry.h getln.h stralloc.h gen_alloc.h substdio.h subfd.h \
-substdio.h byte.h scan.h fmt.h error.h exit.h fmtqfn.h auto_qmail.h
-	./compile qmail-clean.c
-
-qmail-command.0: \
-qmail-command.8
-	nroff -man qmail-command.8 > qmail-command.0
-
-qmail-control.0: \
-qmail-control.5
-	nroff -man qmail-control.5 > qmail-control.0
-
-qmail-control.5: \
-qmail-control.9 conf-break conf-spawn
-	cat qmail-control.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-control.5
-
-qmail-getpw: \
-load qmail-getpw.o case.a substdio.a error.a str.a fs.a auto_break.o \
-auto_usera.o
-	./load qmail-getpw case.a substdio.a error.a str.a fs.a \
-	auto_break.o auto_usera.o 
-
-qmail-getpw.0: \
-qmail-getpw.8
-	nroff -man qmail-getpw.8 > qmail-getpw.0
-
-qmail-getpw.8: \
-qmail-getpw.9 conf-break conf-spawn
-	cat qmail-getpw.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-getpw.8
-
-qmail-getpw.o: \
-compile qmail-getpw.c readwrite.h substdio.h subfd.h substdio.h \
-error.h exit.h byte.h str.h case.h fmt.h auto_usera.h auto_break.h \
-qlx.h
-	./compile qmail-getpw.c
-
-qmail-header.0: \
-qmail-header.5
-	nroff -man qmail-header.5 > qmail-header.0
-
-qmail-inject: \
-load qmail-inject.o headerbody.o hfield.o newfield.o quote.o now.o \
-control.o date822fmt.o constmap.o qmail.o case.a fd.a wait.a open.a \
-getln.a sig.a getopt.a datetime.a token822.o env.a stralloc.a alloc.a \
-substdio.a error.a str.a fs.a auto_qmail.o
-	./load qmail-inject headerbody.o hfield.o newfield.o \
-	quote.o now.o control.o date822fmt.o constmap.o qmail.o \
-	case.a fd.a wait.a open.a getln.a sig.a getopt.a datetime.a \
-	token822.o env.a stralloc.a alloc.a substdio.a error.a \
-	str.a fs.a auto_qmail.o 
-
-qmail-inject.0: \
-qmail-inject.8
-	nroff -man qmail-inject.8 > qmail-inject.0
-
-qmail-inject.o: \
-compile qmail-inject.c sig.h substdio.h stralloc.h gen_alloc.h \
-subfd.h substdio.h sgetopt.h subgetopt.h getln.h alloc.h str.h fmt.h \
-hfield.h token822.h gen_alloc.h control.h env.h gen_alloc.h \
-gen_allocdefs.h error.h qmail.h substdio.h now.h datetime.h exit.h \
-quote.h headerbody.h auto_qmail.h newfield.h stralloc.h constmap.h
-	./compile qmail-inject.c
-
-qmail-limits.0: \
-qmail-limits.7
-	nroff -man qmail-limits.7 > qmail-limits.0
-
-qmail-limits.7: \
-qmail-limits.9 conf-break conf-spawn
-	cat qmail-limits.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-limits.7
-
-qmail-local: \
-load qmail-local.o qmail.o quote.o now.o gfrom.o myctime.o qldap-mdm.o \
-slurpclose.o case.a getln.a getopt.a sig.a open.a seek.a lock.a fd.a \
-wait.a env.a stralloc.a alloc.a strerr.a substdio.a error.a str.a \
-fs.a datetime.a auto_qmail.o auto_patrn.o control.o socket.lib \
-maildir++.o qldap-errno.o
-	./load qmail-local qmail.o quote.o maildir++.o now.o gfrom.o myctime.o \
-	qldap-mdm.o slurpclose.o case.a getln.a getopt.a sig.a open.a seek.a \
-	lock.a fd.a wait.a env.a stralloc.a alloc.a strerr.a substdio.a \
-	qldap-errno.o error.a str.a fs.a datetime.a auto_qmail.o \
-	auto_patrn.o `cat socket.lib`
-
-qmail-local.0: \
-qmail-local.8
-	nroff -man qmail-local.8 > qmail-local.0
-
-qmail-local.o: \
-compile qmail-local.c readwrite.h sig.h env.h byte.h exit.h fork.h \
-open.h wait.h lock.h seek.h substdio.h getln.h strerr.h subfd.h \
-substdio.h sgetopt.h subgetopt.h alloc.h error.h stralloc.h case.h \
-gen_alloc.h fmt.h str.h now.h datetime.h qmail-ldap.h quote.h qmail.h \
-substdio.h slurpclose.h myctime.h gfrom.h auto_patrn.h auto_qmail.h \
-qldap-errno.h qldap-mdm.h
-	./compile $(LDAPFLAGS) $(MDIRMAKE) $(HDIRMAKE) qmail-local.c
-
-qmail-log.0: \
-qmail-log.5
-	nroff -man qmail-log.5 > qmail-log.0
-
-qmail-ldaplookup: \
-load qmail-ldaplookup.o stralloc.a error.a qldap-ldaplib.o qldap-debug.o \
-qldap-errno.o str.a alloc.a check.o control.o env.a fs.a open.a \
-base64.o digest_md4.o digest_md5.o digest_rmd160.o digest_sha1.o \
-auto_qmail.o getln.a substdio.a strerr.a
-	./load qmail-ldaplookup qldap-ldaplib.o  control.o error.a \
-	getln.a stralloc.a qldap-debug.o qldap-errno.o check.o fs.a \
-	open.a env.a strerr.a substdio.a str.a alloc.a \
-	base64.o digest_md4.o digest_md5.o digest_rmd160.o digest_sha1.o \
-	auto_qmail.o $(LDAPLIBS) $(SHADOWLIBS)
-
-qmail-ldaplookup.o: \
-compile qmail-ldaplookup.c qmail-ldap.h qldap-errno.h stralloc.h \
-alloc.h error.h str.h qldap-debug.h qldap-ldaplib.h check.h substdio.h \
-fmt.h scan.h readwrite.h byte.h getln.h compatibility.h digest_md4.h \
-digest_md5.h digest_rmd160.h digest_sha1.h open.h 
-	./compile $(LDAPFLAGS) $(SHADOWOPTS) qmail-ldaplookup.c
-
-qmail-lspawn: \
-load qmail-lspawn.o spawn.o prot.o slurpclose.o coe.o control.o check.o \
-sig.a strerr.a getln.a wait.a case.a cdb.a fd.a open.a stralloc.a \
-alloc.a substdio.a error.a str.a fs.a auto_qmail.o auto_uids.o \
-auto_spawn.o auto_usera.o env.a qldap-ldaplib.o qldap-debug.o \
-qldap-errno.o
-	./load qmail-lspawn spawn.o prot.o slurpclose.o coe.o control.o \
-	check.o qldap-ldaplib.o qldap-debug.o sig.a strerr.a getln.a \
-	wait.a case.a cdb.a fd.a open.a env.a stralloc.a alloc.a \
-	substdio.a str.a qldap-errno.o error.a fs.a auto_qmail.o \
-	auto_uids.o auto_usera.o auto_spawn.o $(LDAPLIBS)
-
-qmail-lspawn.0: \
-qmail-lspawn.8
-	nroff -man qmail-lspawn.8 > qmail-lspawn.0
-
-qmail-lspawn.o: \
-compile qmail-lspawn.c fd.h wait.h prot.h substdio.h stralloc.h \
-gen_alloc.h scan.h exit.h fork.h error.h cdb.h uint32.h case.h \
-slurpclose.h auto_qmail.h auto_uids.h qlx.h qmail-ldap.h check.h \
-qldap-ldaplib.h qldap-errno.h qldap-debug.h env.h auto_usera.h \
-auto_uids.h fmt.h sig.h  
-	./compile $(LDAPFLAGS) $(HDIRMAKE) $(LDAPINCLUDES) qmail-lspawn.c
-
-qmail-newmrh: \
-load qmail-newmrh.o cdbmss.o getln.a open.a cdbmake.a seek.a case.a \
-stralloc.a alloc.a strerr.a substdio.a error.a str.a auto_qmail.o
-	./load qmail-newmrh cdbmss.o getln.a open.a cdbmake.a \
-	seek.a case.a stralloc.a alloc.a strerr.a substdio.a \
-	error.a str.a auto_qmail.o 
-
-qmail-newmrh.0: \
-qmail-newmrh.8
-	nroff -man qmail-newmrh.8 > qmail-newmrh.0
-
-qmail-newmrh.8: \
-qmail-newmrh.9 conf-break conf-spawn
-	cat qmail-newmrh.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-newmrh.8
-
-qmail-newmrh.o: \
-compile qmail-newmrh.c strerr.h stralloc.h gen_alloc.h substdio.h \
-getln.h exit.h readwrite.h open.h auto_qmail.h cdbmss.h cdbmake.h \
-uint32.h substdio.h
-	./compile qmail-newmrh.c
-
-qmail-newu: \
-load qmail-newu.o cdbmss.o getln.a open.a seek.a cdbmake.a case.a \
-stralloc.a alloc.a substdio.a error.a str.a auto_qmail.o
-	./load qmail-newu cdbmss.o getln.a open.a seek.a cdbmake.a \
-	case.a stralloc.a alloc.a substdio.a error.a str.a \
-	auto_qmail.o 
-
-qmail-newu.0: \
-qmail-newu.8
-	nroff -man qmail-newu.8 > qmail-newu.0
-
-qmail-newu.8: \
-qmail-newu.9 conf-break conf-spawn
-	cat qmail-newu.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-newu.8
-
-qmail-newu.o: \
-compile qmail-newu.c stralloc.h gen_alloc.h subfd.h substdio.h \
-getln.h substdio.h cdbmss.h cdbmake.h uint32.h substdio.h exit.h \
-readwrite.h open.h error.h case.h auto_qmail.h
-	./compile qmail-newu.c
-
-qmail-pop3d: \
-load qmail-pop3d.o commands.o case.a timeoutread.o timeoutwrite.o \
-maildir.o prioq.o now.o env.a strerr.a sig.a open.a getln.a str.a \
-stralloc.a alloc.a substdio.a error.a fs.a socket.lib maildir++.o \
-seek.a
-	./load qmail-pop3d commands.o maildir++.o case.a timeoutread.o \
-	timeoutwrite.o maildir.o prioq.o now.o env.a strerr.a sig.a \
-	open.a getln.a stralloc.a alloc.a substdio.a error.a str.a \
-	fs.a  seek.a `cat socket.lib`
-
-qmail-pop3d.0: \
-qmail-pop3d.8
-	nroff -man qmail-pop3d.8 > qmail-pop3d.0
-
-qmail-pop3d.o: \
-compile qmail-pop3d.c commands.h sig.h getln.h stralloc.h gen_alloc.h \
-substdio.h alloc.h open.h prioq.h datetime.h gen_alloc.h scan.h fmt.h \
-str.h exit.h maildir.h strerr.h readwrite.h timeoutread.h \
-timeoutwrite.h maildir++.h
-	./compile $(LDAPFLAGS) $(MNW) $(MDIRMAKE) qmail-pop3d.c
-
-qmail-popup: \
-load qmail-popup.o commands.o timeoutread.o timeoutwrite.o now.o \
-case.a fd.a sig.a wait.a stralloc.a alloc.a substdio.a error.a str.a \
-fs.a socket.lib
-	./load qmail-popup commands.o timeoutread.o timeoutwrite.o \
-	now.o case.a fd.a sig.a wait.a stralloc.a alloc.a \
-	substdio.a error.a str.a fs.a  `cat socket.lib`
-
-qmail-popup.0: \
-qmail-popup.8
-	nroff -man qmail-popup.8 > qmail-popup.0
-
-qmail-popup.o: \
-compile qmail-popup.c commands.h fd.h sig.h stralloc.h gen_alloc.h \
-substdio.h alloc.h wait.h str.h byte.h now.h datetime.h fmt.h exit.h \
-readwrite.h timeoutread.h timeoutwrite.h
-	./compile $(DEBUG) qmail-popup.c
-
-qmail-pw2u: \
-load qmail-pw2u.o constmap.o control.o open.a getln.a case.a getopt.a \
-stralloc.a alloc.a substdio.a error.a str.a fs.a auto_usera.o \
-auto_break.o auto_qmail.o
-	./load qmail-pw2u constmap.o control.o open.a getln.a \
-	case.a getopt.a stralloc.a alloc.a substdio.a error.a str.a \
-	fs.a auto_usera.o auto_break.o auto_qmail.o 
-
-qmail-pw2u.0: \
-qmail-pw2u.8
-	nroff -man qmail-pw2u.8 > qmail-pw2u.0
-
-qmail-pw2u.8: \
-qmail-pw2u.9 conf-break conf-spawn
-	cat qmail-pw2u.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-pw2u.8
-
-qmail-pw2u.o: \
-compile qmail-pw2u.c substdio.h readwrite.h subfd.h substdio.h \
-sgetopt.h subgetopt.h control.h constmap.h stralloc.h gen_alloc.h \
-fmt.h str.h scan.h open.h error.h getln.h auto_break.h auto_qmail.h \
-auto_usera.h
-	./compile qmail-pw2u.c
-
-qmail-qmqpc: \
-load qmail-qmqpc.o slurpclose.o timeoutread.o timeoutwrite.o \
-timeoutconn.o ip.o control.o auto_qmail.o sig.a ndelay.a open.a \
-getln.a substdio.a stralloc.a alloc.a error.a str.a fs.a socket.lib
-	./load qmail-qmqpc slurpclose.o timeoutread.o \
-	timeoutwrite.o timeoutconn.o ip.o control.o auto_qmail.o \
-	sig.a ndelay.a open.a getln.a substdio.a stralloc.a alloc.a \
-	error.a fs.a dns.o str.a ipalloc.o `cat dns.lib` `cat socket.lib`
-
-qmail-qmqpc.0: \
-qmail-qmqpc.8
-	nroff -man qmail-qmqpc.8 > qmail-qmqpc.0
-
-qmail-qmqpc.o: \
-compile qmail-qmqpc.c substdio.h getln.h readwrite.h exit.h \
-stralloc.h gen_alloc.h slurpclose.h error.h sig.h ip.h timeoutconn.h \
-timeoutread.h timeoutwrite.h auto_qmail.h control.h fmt.h
-	./compile $(LDAPFLAGS) qmail-qmqpc.c
-
-qmail-qmqpd: \
-load qmail-qmqpd.o received.o now.o date822fmt.o qmail.o auto_qmail.o \
-env.a substdio.a sig.a error.a wait.a fd.a str.a datetime.a fs.a
-	./load qmail-qmqpd received.o now.o date822fmt.o qmail.o \
-	auto_qmail.o env.a substdio.a sig.a error.a wait.a fd.a \
-	str.a datetime.a fs.a 
-
-qmail-qmqpd.0: \
-qmail-qmqpd.8
-	nroff -man qmail-qmqpd.8 > qmail-qmqpd.0
-
-qmail-qmqpd.o: \
-compile qmail-qmqpd.c auto_qmail.h qmail.h substdio.h received.h \
-sig.h substdio.h readwrite.h exit.h now.h datetime.h fmt.h env.h
-	./compile qmail-qmqpd.c
-
-qmail-qmtpd: \
-load qmail-qmtpd.o rcpthosts.o control.o constmap.o received.o \
-date822fmt.o now.o qmail.o cdb.a fd.a wait.a datetime.a open.a \
-getln.a sig.a case.a env.a stralloc.a alloc.a substdio.a error.a \
-str.a fs.a auto_qmail.o
-	./load qmail-qmtpd rcpthosts.o control.o constmap.o \
-	received.o date822fmt.o now.o qmail.o cdb.a fd.a wait.a \
-	datetime.a open.a getln.a sig.a case.a env.a stralloc.a \
-	alloc.a substdio.a error.a str.a fs.a auto_qmail.o 
-
-qmail-qmtpd.0: \
-qmail-qmtpd.8
-	nroff -man qmail-qmtpd.8 > qmail-qmtpd.0
-
-qmail-qmtpd.o: \
-compile qmail-qmtpd.c stralloc.h gen_alloc.h substdio.h qmail.h \
-substdio.h now.h datetime.h str.h fmt.h env.h sig.h rcpthosts.h \
-auto_qmail.h readwrite.h control.h received.h
-	./compile qmail-qmtpd.c
-
-qmail-qread: \
-load qmail-qread.o fmtqfn.o readsubdir.o date822fmt.o datetime.a \
-open.a getln.a stralloc.a alloc.a substdio.a error.a str.a fs.a \
-auto_qmail.o auto_split.o
-	./load qmail-qread fmtqfn.o readsubdir.o date822fmt.o \
-	datetime.a open.a getln.a stralloc.a alloc.a substdio.a \
-	error.a str.a fs.a auto_qmail.o auto_split.o 
-
-qmail-qread.0: \
-qmail-qread.8
-	nroff -man qmail-qread.8 > qmail-qread.0
-
-qmail-qread.o: \
-compile qmail-qread.c stralloc.h gen_alloc.h substdio.h subfd.h \
-substdio.h fmt.h str.h getln.h fmtqfn.h readsubdir.h direntry.h \
-auto_qmail.h open.h datetime.h date822fmt.h readwrite.h error.h \
-exit.h
-	./compile qmail-qread.c
-
-qmail-qstat: \
-warn-auto.sh qmail-qstat.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh qmail-qstat.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> qmail-qstat
-	chmod 755 qmail-qstat
-
-qmail-qstat.0: \
-qmail-qstat.8
-	nroff -man qmail-qstat.8 > qmail-qstat.0
-
-qmail-queue: \
-load qmail-queue.o triggerpull.o fmtqfn.o now.o date822fmt.o \
-datetime.a seek.a ndelay.a open.a sig.a alloc.a substdio.a error.a \
-str.a fs.a auto_qmail.o auto_split.o auto_uids.o
-	./load qmail-queue triggerpull.o fmtqfn.o now.o \
-	date822fmt.o datetime.a seek.a ndelay.a open.a sig.a \
-	alloc.a substdio.a error.a str.a fs.a auto_qmail.o \
-	auto_split.o auto_uids.o 
-
-qmail-queue.0: \
-qmail-queue.8
-	nroff -man qmail-queue.8 > qmail-queue.0
-
-qmail-queue.o: \
-compile qmail-queue.c readwrite.h sig.h exit.h open.h seek.h fmt.h \
-alloc.h substdio.h datetime.h now.h datetime.h triggerpull.h extra.h \
-auto_qmail.h auto_uids.h date822fmt.h fmtqfn.h
-	./compile qmail-queue.c
-
-qmail-quotawarn: \
-load qmail-quotawarn.o newfield.o now.o date822fmt.o case.a fd.a wait.a \
-open.a myctime.o case.a getln.a sig.a open.a seek.a lock.a datetime.a \
-env.a stralloc.a alloc.a strerr.a substdio.a error.a str.a fs.a
-	./load qmail-quotawarn newfield.o now.o date822fmt.o case.a \
-	fd.a wait.a open.a myctime.o case.a getln.a sig.a open.a seek.a \
-	lock.a datetime.a env.a stralloc.a alloc.a strerr.a substdio.a \
-	error.a str.a fs.a
-
-qmail-quotawarn.o: \
-compile qmail-quotawarn.c readwrite.h sig.h byte.h case.h datetime.h \
-env.h error.h exit.h newfield.h open.h seek.h str.h strerr.h stralloc.h \
-substdio.h wait.h qmail-ldap.h
-	./compile qmail-quotawarn.c
-
-qmail-remote: \
-load qmail-remote.o control.o constmap.o timeoutread.o timeoutwrite.o \
-timeoutconn.o tcpto.o now.o dns.o ip.o ipalloc.o ipme.o quote.o \
-ndelay.a case.a sig.a open.a lock.a seek.a getln.a stralloc.a alloc.a \
-substdio.a error.a str.a fs.a auto_qmail.o dns.lib socket.lib
-	./load qmail-remote control.o constmap.o timeoutread.o \
-	timeoutwrite.o timeoutconn.o tcpto.o now.o dns.o ip.o \
-	ipalloc.o ipme.o quote.o ndelay.a case.a sig.a open.a \
-	lock.a seek.a getln.a stralloc.a alloc.a substdio.a error.a \
-	str.a fs.a auto_qmail.o  `cat dns.lib` `cat socket.lib` ${TLSLIBS}
-
-qmail-remote.0: \
-qmail-remote.8
-	nroff -man qmail-remote.8 > qmail-remote.0
-
-qmail-remote.o: \
-compile qmail-remote.c sig.h stralloc.h gen_alloc.h substdio.h \
-subfd.h substdio.h scan.h case.h error.h auto_qmail.h control.h dns.h \
-alloc.h quote.h ip.h ipalloc.h ip.h gen_alloc.h ipme.h ip.h ipalloc.h \
-gen_alloc.h gen_allocdefs.h str.h now.h datetime.h exit.h constmap.h \
-tcpto.h readwrite.h timeoutconn.h timeoutread.h timeoutwrite.h
-	./compile ${TLSON} ${TLSINCLUDES} qmail-remote.c
-
-qmail-reply: \
-load qmail-reply.o case.a getln.a sig.a open.a seek.a env.a fd.a \
-wait.a stralloc.a alloc.a strerr.a substdio.a error.a str.a auto_qmail.o
-	./load qmail-reply case.a getln.a sig.a open.a seek.a env.a \
-	fd.a wait.a stralloc.a alloc.a strerr.a substdio.a error.a \
-	str.a auto_qmail.o
-
-qmail-reply.o: \
-compile qmail-reply.c case.h env.h error.h exit.h getln.h qlx.h \
-readwrite.h seek.h sig.h str.h strerr.h stralloc.h substdio.h \
-wait.h auto_qmail.h qmail-ldap.h
-	./compile $(LDAPFLAGS) qmail-reply.c
-
-qmail-rspawn: \
-load qmail-rspawn.o spawn.o tcpto_clean.o now.o coe.o sig.a open.a \
-seek.a lock.a wait.a fd.a stralloc.a alloc.a substdio.a error.a str.a \
-auto_qmail.o auto_uids.o auto_spawn.o
-	./load qmail-rspawn spawn.o tcpto_clean.o now.o coe.o \
-	sig.a open.a seek.a lock.a wait.a fd.a stralloc.a alloc.a \
-	substdio.a error.a str.a auto_qmail.o auto_uids.o \
-	auto_spawn.o 
-
-qmail-rspawn.0: \
-qmail-rspawn.8
-	nroff -man qmail-rspawn.8 > qmail-rspawn.0
-
-qmail-rspawn.o: \
-compile qmail-rspawn.c fd.h wait.h substdio.h exit.h fork.h error.h \
-tcpto.h
-	./compile qmail-rspawn.c
-
-qmail-send: \
-load qmail-send.o qsutil.o control.o constmap.o newfield.o prioq.o \
-trigger.o fmtqfn.o quote.o now.o readsubdir.o qmail.o date822fmt.o \
-datetime.a case.a ndelay.a getln.a wait.a seek.a fd.a sig.a open.a \
-lock.a stralloc.a alloc.a substdio.a error.a str.a fs.a auto_qmail.o \
-auto_split.o
-	./load qmail-send qsutil.o control.o constmap.o newfield.o \
-	prioq.o trigger.o fmtqfn.o quote.o now.o readsubdir.o \
-	qmail.o date822fmt.o datetime.a case.a ndelay.a getln.a \
-	wait.a seek.a fd.a sig.a open.a lock.a stralloc.a alloc.a \
-	substdio.a error.a str.a fs.a auto_qmail.o auto_split.o 
-
-qmail-send.0: \
-qmail-send.8
-	nroff -man qmail-send.8 > qmail-send.0
-
-qmail-send.8: \
-qmail-send.9 conf-break conf-spawn
-	cat qmail-send.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-send.8
-
-qmail-send.o: \
-compile qmail-send.c readwrite.h sig.h direntry.h control.h select.h \
-open.h seek.h exit.h lock.h ndelay.h now.h datetime.h getln.h \
-substdio.h alloc.h error.h stralloc.h gen_alloc.h str.h byte.h fmt.h \
-scan.h case.h auto_qmail.h trigger.h newfield.h stralloc.h quote.h \
-qmail.h substdio.h qsutil.h prioq.h datetime.h gen_alloc.h constmap.h \
-fmtqfn.h readsubdir.h direntry.h
-	./compile $(LDAPFLAGS) qmail-send.c
-
-qmail-showctl: \
-load qmail-showctl.o auto_uids.o control.o open.a getln.a stralloc.a \
-alloc.a substdio.a error.a str.a fs.a auto_qmail.o auto_break.o \
-auto_patrn.o auto_spawn.o auto_split.o
-	./load qmail-showctl auto_uids.o control.o open.a getln.a \
-	stralloc.a alloc.a substdio.a error.a str.a fs.a \
-	auto_qmail.o auto_break.o auto_patrn.o auto_spawn.o \
-	auto_split.o 
-
-qmail-showctl.0: \
-qmail-showctl.8
-	nroff -man qmail-showctl.8 > qmail-showctl.0
-
-qmail-showctl.o: \
-compile qmail-showctl.c substdio.h subfd.h substdio.h exit.h fmt.h \
-str.h control.h constmap.h stralloc.h gen_alloc.h direntry.h \
-auto_uids.h auto_qmail.h auto_break.h auto_patrn.h auto_spawn.h \
-auto_split.h
-	./compile qmail-showctl.c
-
-qmail-smtpd: \
-load qmail-smtpd.o rcpthosts.o commands.o timeoutread.o \
-timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o received.o \
-date822fmt.o now.o qmail.o cdb.a fd.a wait.a datetime.a getln.a \
-open.a sig.a case.a env.a stralloc.a alloc.a substdio.a error.a str.a \
-fs.a auto_qmail.o dns.lib socket.lib
-	./load qmail-smtpd rcpthosts.o commands.o timeoutread.o \
-	timeoutwrite.o ip.o ipme.o ipalloc.o control.o constmap.o \
-	received.o date822fmt.o now.o qmail.o cdb.a fd.a wait.a \
-	datetime.a getln.a open.a sig.a case.a env.a stralloc.a \
-	alloc.a substdio.a error.a fs.a auto_qmail.o dns.o str.a \
-	`cat dns.lib` `cat socket.lib` ${TLSLIBS}
-
-qmail-smtpd.0: \
-qmail-smtpd.8
-	nroff -man qmail-smtpd.8 > qmail-smtpd.0
-
-qmail-smtpd.o: \
-compile qmail-smtpd.c sig.h readwrite.h stralloc.h gen_alloc.h \
-substdio.h alloc.h auto_qmail.h control.h received.h constmap.h \
-error.h ipme.h ip.h ipalloc.h ip.h gen_alloc.h ip.h qmail.h \
-substdio.h str.h fmt.h scan.h byte.h case.h env.h now.h datetime.h \
-exit.h rcpthosts.h timeoutread.h timeoutwrite.h commands.h
-	./compile ${TLSON} ${TLSINCLUDES} qmail-smtpd.c
-
-qmail-start: \
-load qmail-start.o prot.o fd.a auto_uids.o
-	./load qmail-start prot.o fd.a auto_uids.o 
-
-qmail-start.0: \
-qmail-start.8
-	nroff -man qmail-start.8 > qmail-start.0
-
-qmail-start.8: \
-qmail-start.9 conf-break conf-spawn
-	cat qmail-start.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-start.8
-
-qmail-start.o: \
-compile qmail-start.c fd.h prot.h exit.h fork.h auto_uids.h
-	./compile qmail-start.c
-
-qmail-tcpok: \
-load qmail-tcpok.o open.a lock.a strerr.a substdio.a error.a str.a \
-auto_qmail.o
-	./load qmail-tcpok open.a lock.a strerr.a substdio.a \
-	error.a str.a auto_qmail.o 
-
-qmail-tcpok.0: \
-qmail-tcpok.8
-	nroff -man qmail-tcpok.8 > qmail-tcpok.0
-
-qmail-tcpok.o: \
-compile qmail-tcpok.c strerr.h substdio.h lock.h open.h readwrite.h \
-auto_qmail.h exit.h
-	./compile qmail-tcpok.c
-
-qmail-tcpto: \
-load qmail-tcpto.o ip.o now.o open.a lock.a substdio.a error.a str.a \
-fs.a auto_qmail.o
-	./load qmail-tcpto ip.o now.o open.a lock.a substdio.a \
-	error.a str.a fs.a auto_qmail.o 
-
-qmail-tcpto.0: \
-qmail-tcpto.8
-	nroff -man qmail-tcpto.8 > qmail-tcpto.0
-
-qmail-tcpto.o: \
-compile qmail-tcpto.c substdio.h subfd.h substdio.h auto_qmail.h \
-fmt.h ip.h lock.h error.h exit.h datetime.h now.h datetime.h
-	./compile qmail-tcpto.c
-
-qmail-upq: \
-warn-auto.sh qmail-upq.sh conf-qmail conf-break conf-split
-	cat warn-auto.sh qmail-upq.sh \
-	| sed s}QMAIL}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPLIT}"`head -1 conf-split`"}g \
-	> qmail-upq
-	chmod 755 qmail-upq
-
-qmail-users.0: \
-qmail-users.5
-	nroff -man qmail-users.5 > qmail-users.0
-
-qmail-users.5: \
-qmail-users.9 conf-break conf-spawn
-	cat qmail-users.9 \
-	| sed s}QMAILHOME}"`head -1 conf-qmail`"}g \
-	| sed s}BREAK}"`head -1 conf-break`"}g \
-	| sed s}SPAWN}"`head -1 conf-spawn`"}g \
-	> qmail-users.5
-
-qmail.0: \
-qmail.7
-	nroff -man qmail.7 > qmail.0
-
-qmail.o: \
-compile qmail.c substdio.h readwrite.h wait.h exit.h fork.h fd.h \
-qmail.h substdio.h auto_qmail.h
-	./compile qmail.c
-
-qreceipt: \
-load qreceipt.o headerbody.o hfield.o quote.o token822.o qmail.o \
-getln.a fd.a wait.a sig.a env.a stralloc.a alloc.a substdio.a error.a \
-str.a auto_qmail.o
-	./load qreceipt headerbody.o hfield.o quote.o token822.o \
-	qmail.o getln.a fd.a wait.a sig.a env.a stralloc.a alloc.a \
-	substdio.a error.a str.a auto_qmail.o 
-
-qreceipt.0: \
-qreceipt.1
-	nroff -man qreceipt.1 > qreceipt.0
-
-qreceipt.o: \
-compile qreceipt.c sig.h env.h substdio.h stralloc.h gen_alloc.h \
-subfd.h substdio.h getln.h alloc.h str.h hfield.h token822.h \
-gen_alloc.h error.h gen_alloc.h gen_allocdefs.h headerbody.h exit.h \
-open.h quote.h qmail.h substdio.h
-	./compile qreceipt.c
-
-qsmhook: \
-load qsmhook.o sig.a case.a fd.a wait.a getopt.a env.a stralloc.a \
-alloc.a substdio.a error.a str.a
-	./load qsmhook sig.a case.a fd.a wait.a getopt.a env.a \
-	stralloc.a alloc.a substdio.a error.a str.a 
-
-qsmhook.o: \
-compile qsmhook.c fd.h stralloc.h gen_alloc.h readwrite.h sgetopt.h \
-subgetopt.h wait.h env.h byte.h str.h alloc.h exit.h fork.h case.h \
-subfd.h substdio.h error.h substdio.h sig.h
-	./compile qsmhook.c
-
-qsutil.o: \
-compile qsutil.c stralloc.h gen_alloc.h readwrite.h substdio.h \
-qsutil.h
-	./compile qsutil.c
-
-quote.o: \
-compile quote.c stralloc.h gen_alloc.h str.h quote.h
-	./compile quote.c
-
-rcpthosts.o: \
-compile rcpthosts.c cdb.h uint32.h byte.h open.h error.h control.h \
-constmap.h stralloc.h gen_alloc.h rcpthosts.h
-	./compile rcpthosts.c
-
-readsubdir.o: \
-compile readsubdir.c readsubdir.h direntry.h fmt.h scan.h str.h \
-auto_split.h
-	./compile readsubdir.c
-
-received.o: \
-compile received.c fmt.h qmail.h substdio.h now.h datetime.h \
-datetime.h date822fmt.h received.h
-	./compile received.c
-
-remoteinfo.o: \
-compile remoteinfo.c byte.h substdio.h ip.h fmt.h timeoutconn.h \
-timeoutread.h timeoutwrite.h remoteinfo.h
-	./compile remoteinfo.c
-
-scan_8long.o: \
-compile scan_8long.c scan.h
-	./compile scan_8long.c
-
-scan_ulong.o: \
-compile scan_ulong.c scan.h
-	./compile scan_ulong.c
-
-seek.a: \
-makelib seek_cur.o seek_end.o seek_set.o seek_trunc.o
-	./makelib seek.a seek_cur.o seek_end.o seek_set.o \
-	seek_trunc.o
-
-seek_cur.o: \
-compile seek_cur.c seek.h
-	./compile seek_cur.c
-
-seek_end.o: \
-compile seek_end.c seek.h
-	./compile seek_end.c
-
-seek_set.o: \
-compile seek_set.c seek.h
-	./compile seek_set.c
-
-seek_trunc.o: \
-compile seek_trunc.c seek.h
-	./compile seek_trunc.c
-
-select.h: \
-compile trysysel.c select.h1 select.h2
-	( ./compile trysysel.c >/dev/null 2>&1 \
-	&& cat select.h2 || cat select.h1 ) > select.h
-	rm -f trysysel.o trysysel
-
-sendmail: \
-load sendmail.o env.a getopt.a alloc.a substdio.a error.a str.a \
-auto_qmail.o
-	./load sendmail env.a getopt.a alloc.a substdio.a error.a \
-	str.a auto_qmail.o 
-
-sendmail.o: \
-compile sendmail.c sgetopt.h subgetopt.h substdio.h subfd.h \
-substdio.h alloc.h auto_qmail.h exit.h env.h str.h
-	./compile sendmail.c
-
-setup: \
-it man qldap
-	./install
-
-sgetopt.o: \
-compile sgetopt.c substdio.h subfd.h substdio.h sgetopt.h subgetopt.h \
-subgetopt.h
-	./compile sgetopt.c
-
-shar: \
-FILES BLURB BLURB2 BLURB3 BLURB4 README FAQ INSTALL INSTALL.alias \
-INSTALL.ctl INSTALL.ids INSTALL.maildir INSTALL.mbox INSTALL.vsm \
-REMOVE.sendmail REMOVE.binmail TEST.deliver TEST.receive UPGRADE \
-THOUGHTS TODO THANKS CHANGES SECURITY INTERNALS SENDMAIL \
-PIC.local2alias PIC.local2ext PIC.local2local PIC.local2rem \
-PIC.local2virt PIC.nullclient PIC.relaybad PIC.relaygood \
-PIC.rem2local FILES VERSION SYSDEPS TARGETS Makefile BIN.README \
-BIN.Makefile BIN.setup idedit.c conf-break auto_break.h conf-spawn \
-auto_spawn.h chkspawn.c conf-split auto_split.h conf-patrn \
-auto_patrn.h conf-users conf-groups auto_uids.h auto_usera.h extra.h \
-addresses.5 except.1 bouncesaying.1 condredirect.1 dot-qmail.9 \
-envelopes.5 forgeries.7 forward.1 maildir2mbox.1 maildirmake.1 \
-maildirwatch.1 mailsubj.1 mbox.5 preline.1 qbiff.1 qmail-clean.8 \
-qmail-command.8 qmail-control.9 qmail-getpw.9 qmail-header.5 \
-qmail-inject.8 qmail-limits.9 qmail-local.8 qmail-log.5 \
-qmail-lspawn.8 qmail-newmrh.9 qmail-newu.9 qmail-pop3d.8 \
-qmail-popup.8 qmail-pw2u.9 qmail-qmqpc.8 qmail-qmqpd.8 qmail-qmtpd.8 \
-qmail-qread.8 qmail-qstat.8 qmail-queue.8 qmail-remote.8 \
-qmail-rspawn.8 qmail-send.9 qmail-showctl.8 qmail-smtpd.8 \
-qmail-start.9 qmail-tcpok.8 qmail-tcpto.8 qmail-users.9 qmail.7 \
-qreceipt.1 splogger.8 tcp-env.1 config.sh config-fast.sh \
-qmail-clean.c qmail-getpw.c qmail-inject.c qmail-local.c \
-qmail-lspawn.c qmail-newmrh.c qmail-newu.c qmail-pop3d.c \
-qmail-popup.c qmail-pw2u.c qmail-qmqpc.c qmail-qmqpd.c qmail-qmtpd.c \
-qmail-qread.c qmail-qstat.sh qmail-queue.c qmail-remote.c \
-qmail-rspawn.c qmail-send.c qmail-showctl.c qmail-smtpd.c \
-qmail-start.c qmail-tcpok.c qmail-tcpto.c spawn.c dnscname.c dnsfq.c \
-dnsip.c dnsmxip.c dnsptr.c hostname.c ipmeprint.c tcp-env.c \
-sendmail.c qreceipt.c qsmhook.c qbiff.c forward.c preline.c predate.c \
-except.c bouncesaying.c condredirect.c maildirmake.c maildir2mbox.c \
-maildirwatch.c splogger.c qail.sh elq.sh pinq.sh qmail-upq.sh \
-datemail.sh mailsubj.sh qlx.h rcpthosts.h rcpthosts.c commands.h \
-commands.c dnsdoe.h dnsdoe.c fmtqfn.h fmtqfn.c gfrom.h gfrom.c \
-myctime.h myctime.c newfield.h newfield.c qsutil.h qsutil.c \
-readsubdir.h readsubdir.c received.h received.c tcpto.h tcpto.c \
-tcpto_clean.c trigger.h trigger.c triggerpull.h triggerpull.c \
-trynpbg1.c trysyslog.c conf-cc conf-ld home.sh home+df.sh proc.sh \
-proc+df.sh binm1.sh binm2.sh binm3.sh binm1+df.sh binm2+df.sh \
-binm3+df.sh find-systype.sh make-compile.sh make-load.sh \
-make-makelib.sh trycpp.c warn-auto.sh auto-str.c auto-int.c \
-auto-int8.c auto-gid.c auto-uid.c hier.c install.c instcheck.c \
-install-big.c alloc.3 alloc.h alloc.c alloc_re.c case.3 case.h \
-case_diffb.c case_diffs.c case_lowerb.c case_lowers.c case_starts.c \
-cdb.3 cdb.h cdb_hash.c cdb_seek.c cdb_unpack.c cdbmake.h \
-cdbmake_add.c cdbmake_hash.c cdbmake_pack.c cdbmss.h cdbmss.c coe.3 \
-coe.h coe.c fd.h fd_copy.3 fd_copy.c fd_move.3 fd_move.c fifo_make.3 \
-fifo.h fifo.c trymkffo.c fork.h1 fork.h2 tryvfork.c now.3 now.h now.c \
-open.h open_append.c open_excl.c open_read.c open_trunc.c \
-open_write.c seek.h seek_cur.c seek_end.c seek_set.c seek_trunc.c \
-conf-qmail auto_qmail.h qmail.h qmail.c gen_alloc.h gen_allocdefs.h \
-stralloc.3 stralloc.h stralloc_eady.c stralloc_pend.c stralloc_copy.c \
-stralloc_opyb.c stralloc_opys.c stralloc_cat.c stralloc_catb.c \
-stralloc_cats.c stralloc_arts.c strerr.h strerr_sys.c strerr_die.c \
-substdio.h substdio.c substdi.c substdo.c substdio_copy.c subfd.h \
-subfderr.c subfdouts.c subfdout.c subfdins.c subfdin.c readwrite.h \
-exit.h timeoutconn.h timeoutconn.c timeoutread.h timeoutread.c \
-timeoutwrite.h timeoutwrite.c remoteinfo.h remoteinfo.c uint32.h1 \
-uint32.h2 tryulong32.c wait.3 wait.h wait_pid.c wait_nohang.c \
-trywaitp.c sig.h sig_alarm.c sig_block.c sig_catch.c sig_pause.c \
-sig_pipe.c sig_child.c sig_term.c sig_hup.c sig_misc.c sig_bug.c \
-trysgact.c trysgprm.c env.3 env.h env.c envread.c byte.h byte_chr.c \
-byte_copy.c byte_cr.c byte_diff.c byte_rchr.c byte_zero.c str.h \
-str_chr.c str_cpy.c str_diff.c str_diffn.c str_len.c str_rchr.c \
-str_start.c lock.h lock_ex.c lock_exnb.c lock_un.c tryflock.c getln.3 \
-getln.h getln.c getln2.3 getln2.c sgetopt.3 sgetopt.h sgetopt.c \
-subgetopt.3 subgetopt.h subgetopt.c error.3 error_str.3 error_temp.3 \
-error.h error.c error_str.c error_temp.c fmt.h fmt_str.c fmt_strn.c \
-fmt_uint.c fmt_uint0.c fmt_ulong.c scan.h scan_ulong.c scan_8long.c \
-slurpclose.h slurpclose.c quote.h quote.c hfield.h hfield.c \
-headerbody.h headerbody.c token822.h token822.c control.h control.c \
-datetime.3 datetime.h datetime.c datetime_un.c prioq.h prioq.c \
-date822fmt.h date822fmt.c dns.h dns.c trylsock.c tryrsolv.c ip.h ip.c \
-ipalloc.h ipalloc.c select.h1 select.h2 trysysel.c ndelay.h ndelay.c \
-ndelay_off.c direntry.3 direntry.h1 direntry.h2 trydrent.c prot.h \
-prot.c chkshsgr.c warn-shsgr tryshsgr.c ipme.h ipme.c trysalen.c \
-maildir.5 maildir.h maildir.c tcp-environ.5 constmap.h constmap.c
-	shar -m `cat FILES` > shar
-	chmod 400 shar
-
-sig.a: \
-makelib sig_alarm.o sig_block.o sig_catch.o sig_pause.o sig_pipe.o \
-sig_child.o sig_hup.o sig_term.o sig_bug.o sig_misc.o
-	./makelib sig.a sig_alarm.o sig_block.o sig_catch.o \
-	sig_pause.o sig_pipe.o sig_child.o sig_hup.o sig_term.o \
-	sig_bug.o sig_misc.o
-
-sig_alarm.o: \
-compile sig_alarm.c sig.h
-	./compile sig_alarm.c
-
-sig_block.o: \
-compile sig_block.c sig.h hassgprm.h
-	./compile sig_block.c
-
-sig_bug.o: \
-compile sig_bug.c sig.h
-	./compile sig_bug.c
-
-sig_catch.o: \
-compile sig_catch.c sig.h hassgact.h
-	./compile sig_catch.c
-
-sig_child.o: \
-compile sig_child.c sig.h
-	./compile sig_child.c
-
-sig_hup.o: \
-compile sig_hup.c sig.h
-	./compile sig_hup.c
-
-sig_misc.o: \
-compile sig_misc.c sig.h
-	./compile sig_misc.c
-
-sig_pause.o: \
-compile sig_pause.c sig.h hassgprm.h
-	./compile sig_pause.c
-
-sig_pipe.o: \
-compile sig_pipe.c sig.h
-	./compile sig_pipe.c
-
-sig_term.o: \
-compile sig_term.c sig.h
-	./compile sig_term.c
-
-slurpclose.o: \
-compile slurpclose.c stralloc.h gen_alloc.h readwrite.h slurpclose.h \
-error.h
-	./compile slurpclose.c
-
-socket.lib: \
-trylsock.c compile load
-	( ( ./compile trylsock.c && \
-	./load trylsock -lsocket -lnsl ) >/dev/null 2>&1 \
-	&& echo -lsocket -lnsl || exit 0 ) > socket.lib
-	rm -f trylsock.o trylsock
-
-spawn.o: \
-compile chkspawn spawn.c sig.h wait.h substdio.h byte.h str.h \
-stralloc.h gen_alloc.h select.h exit.h coe.h open.h error.h \
-auto_qmail.h auto_uids.h auto_spawn.h
-	./chkspawn
-	./compile spawn.c
-
-splogger: \
-load splogger.o substdio.a error.a str.a fs.a syslog.lib socket.lib
-	./load splogger substdio.a error.a str.a fs.a  `cat \
-	syslog.lib` `cat socket.lib`
-
-splogger.0: \
-splogger.8
-	nroff -man splogger.8 > splogger.0
-
-splogger.o: \
-compile splogger.c error.h substdio.h subfd.h substdio.h exit.h str.h \
-scan.h fmt.h
-	./compile splogger.c
-
-str.a: \
-makelib str_len.o str_diff.o str_diffn.o str_cpy.o str_chr.o \
-str_rchr.o str_start.o byte_chr.o byte_rchr.o byte_diff.o byte_copy.o \
-byte_cr.o byte_zero.o
-	./makelib str.a str_len.o str_diff.o str_diffn.o str_cpy.o \
-	str_chr.o str_rchr.o str_start.o byte_chr.o byte_rchr.o \
-	byte_diff.o byte_copy.o byte_cr.o byte_zero.o
-
-str_chr.o: \
-compile str_chr.c str.h
-	./compile str_chr.c
-
-str_cpy.o: \
-compile str_cpy.c str.h
-	./compile str_cpy.c
-
-str_diff.o: \
-compile str_diff.c str.h
-	./compile str_diff.c
-
-str_diffn.o: \
-compile str_diffn.c str.h
-	./compile str_diffn.c
-
-str_len.o: \
-compile str_len.c str.h
-	./compile str_len.c
-
-str_rchr.o: \
-compile str_rchr.c str.h
-	./compile str_rchr.c
-
-str_start.o: \
-compile str_start.c str.h
-	./compile str_start.c
-
-stralloc.a: \
-makelib stralloc_eady.o stralloc_pend.o stralloc_copy.o \
-stralloc_opys.o stralloc_opyb.o stralloc_cat.o stralloc_cats.o \
-stralloc_catb.o stralloc_arts.o
-	./makelib stralloc.a stralloc_eady.o stralloc_pend.o \
-	stralloc_copy.o stralloc_opys.o stralloc_opyb.o \
-	stralloc_cat.o stralloc_cats.o stralloc_catb.o \
-	stralloc_arts.o
-
-stralloc_arts.o: \
-compile stralloc_arts.c byte.h str.h stralloc.h gen_alloc.h
-	./compile stralloc_arts.c
-
-stralloc_cat.o: \
-compile stralloc_cat.c byte.h stralloc.h gen_alloc.h
-	./compile stralloc_cat.c
-
-stralloc_catb.o: \
-compile stralloc_catb.c stralloc.h gen_alloc.h byte.h
-	./compile stralloc_catb.c
-
-stralloc_cats.o: \
-compile stralloc_cats.c byte.h str.h stralloc.h gen_alloc.h
-	./compile stralloc_cats.c
-
-stralloc_copy.o: \
-compile stralloc_copy.c byte.h stralloc.h gen_alloc.h
-	./compile stralloc_copy.c
-
-stralloc_eady.o: \
-compile stralloc_eady.c alloc.h stralloc.h gen_alloc.h \
-gen_allocdefs.h
-	./compile stralloc_eady.c
-
-stralloc_opyb.o: \
-compile stralloc_opyb.c stralloc.h gen_alloc.h byte.h
-	./compile stralloc_opyb.c
-
-stralloc_opys.o: \
-compile stralloc_opys.c byte.h str.h stralloc.h gen_alloc.h
-	./compile stralloc_opys.c
-
-stralloc_pend.o: \
-compile stralloc_pend.c alloc.h stralloc.h gen_alloc.h \
-gen_allocdefs.h
-	./compile stralloc_pend.c
-
-strerr.a: \
-makelib strerr_sys.o strerr_die.o
-	./makelib strerr.a strerr_sys.o strerr_die.o
-
-strerr_die.o: \
-compile strerr_die.c substdio.h subfd.h substdio.h exit.h strerr.h
-	./compile strerr_die.c
-
-strerr_sys.o: \
-compile strerr_sys.c error.h strerr.h
-	./compile strerr_sys.c
-
-subfderr.o: \
-compile subfderr.c readwrite.h substdio.h subfd.h substdio.h
-	./compile subfderr.c
-
-subfdin.o: \
-compile subfdin.c readwrite.h substdio.h subfd.h substdio.h
-	./compile subfdin.c
-
-subfdins.o: \
-compile subfdins.c readwrite.h substdio.h subfd.h substdio.h
-	./compile subfdins.c
-
-subfdout.o: \
-compile subfdout.c readwrite.h substdio.h subfd.h substdio.h
-	./compile subfdout.c
-
-subfdouts.o: \
-compile subfdouts.c readwrite.h substdio.h subfd.h substdio.h
-	./compile subfdouts.c
-
-subgetopt.o: \
-compile subgetopt.c subgetopt.h
-	./compile subgetopt.c
-
-substdi.o: \
-compile substdi.c substdio.h byte.h error.h
-	./compile substdi.c
-
-substdio.a: \
-makelib substdio.o substdi.o substdo.o subfderr.o subfdout.o \
-subfdouts.o subfdin.o subfdins.o substdio_copy.o
-	./makelib substdio.a substdio.o substdi.o substdo.o \
-	subfderr.o subfdout.o subfdouts.o subfdin.o subfdins.o \
-	substdio_copy.o
-
-substdio.o: \
-compile substdio.c substdio.h
-	./compile substdio.c
-
-substdio_copy.o: \
-compile substdio_copy.c substdio.h
-	./compile substdio_copy.c
-
-substdo.o: \
-compile substdo.c substdio.h str.h byte.h error.h
-	./compile substdo.c
-
-syslog.lib: \
-trysyslog.c compile load
-	( ( ./compile trysyslog.c && \
-	./load trysyslog -lgen ) >/dev/null 2>&1 \
-	&& echo -lgen || exit 0 ) > syslog.lib
-	rm -f trysyslog.o trysyslog
-
-systype: \
-find-systype trycpp.c
-	./find-systype > systype
-
-tcp-env: \
-load tcp-env.o dns.o remoteinfo.o timeoutread.o timeoutwrite.o \
-timeoutconn.o ip.o ipalloc.o case.a ndelay.a sig.a env.a getopt.a \
-stralloc.a alloc.a substdio.a error.a str.a fs.a dns.lib socket.lib
-	./load tcp-env dns.o remoteinfo.o timeoutread.o \
-	timeoutwrite.o timeoutconn.o ip.o ipalloc.o case.a ndelay.a \
-	sig.a env.a getopt.a stralloc.a alloc.a substdio.a error.a \
-	str.a fs.a  `cat dns.lib` `cat socket.lib`
-
-tcp-env.0: \
-tcp-env.1
-	nroff -man tcp-env.1 > tcp-env.0
-
-tcp-env.o: \
-compile tcp-env.c sig.h stralloc.h gen_alloc.h str.h env.h fmt.h \
-scan.h subgetopt.h ip.h dns.h byte.h remoteinfo.h exit.h case.h
-	./compile tcp-env.c
-
-tcp-environ.0: \
-tcp-environ.5
-	nroff -man tcp-environ.5 > tcp-environ.0
-
-tcpto.o: \
-compile tcpto.c tcpto.h open.h lock.h seek.h now.h datetime.h ip.h \
-byte.h datetime.h readwrite.h
-	./compile tcpto.c
-
-tcpto_clean.o: \
-compile tcpto_clean.c tcpto.h open.h substdio.h readwrite.h
-	./compile tcpto_clean.c
-
-timeoutconn.o: \
-compile timeoutconn.c ndelay.h select.h error.h readwrite.h ip.h \
-byte.h timeoutconn.h
-	./compile timeoutconn.c
-
-timeoutread.o: \
-compile timeoutread.c timeoutread.h select.h error.h readwrite.h
-	./compile timeoutread.c
-
-timeoutwrite.o: \
-compile timeoutwrite.c timeoutwrite.h select.h error.h readwrite.h
-	./compile timeoutwrite.c
-
-token822.o: \
-compile token822.c stralloc.h gen_alloc.h alloc.h str.h token822.h \
-gen_alloc.h gen_allocdefs.h
-	./compile token822.c
-
-trigger.o: \
-compile trigger.c select.h open.h trigger.h hasnpbg1.h
-	./compile trigger.c
-
-triggerpull.o: \
-compile triggerpull.c ndelay.h open.h triggerpull.h
-	./compile triggerpull.c
-
-uint32.h: \
-tryulong32.c compile load uint32.h1 uint32.h2
-	( ( ./compile tryulong32.c && ./load tryulong32 && \
-	./tryulong32 ) >/dev/null 2>&1 \
-	&& cat uint32.h2 || cat uint32.h1 ) > uint32.h
-	rm -f tryulong32.o tryulong32
-
-wait.a: \
-makelib wait_pid.o wait_nohang.o
-	./makelib wait.a wait_pid.o wait_nohang.o
-
-wait_nohang.o: \
-compile wait_nohang.c haswaitp.h
-	./compile wait_nohang.c
-
-wait_pid.o: \
-compile wait_pid.c error.h haswaitp.h
-	./compile wait_pid.c
-
-cert:
-	${OPENSSLBIN} req -new -x509 -nodes \
-	-out `head -1 conf-qmail`/control/cert.pem -days 366 \
-	-keyout `head -1 conf-qmail`/control/cert.pem
-	chmod 640 `head -1 conf-qmail`/control/cert.pem
-	chown qmaild:qmail `head -1 conf-qmail`/control/cert.pem
-
-cert-req:
-	${OPENSSLBIN} req -new -nodes \
-	-out req.pem \
-	-keyout `head -1 conf-qmail`/control/cert.pem
-	chmod 640 `head -1 conf-qmail`/control/cert.pem
-	chown qmaild:qmail `head -1 conf-qmail`/control/cert.pem
-	@echo
-	@echo "Send req.pem to your CA to obtain signed_req.pem, and do:"
-	@echo "cat signed_req.pem >> `head -1 conf-qmail`/control/cert.pem"
-
-backup: \
-clean
-	tar cf $(BACKUPPATH) .
diff --git a/net-mail/qmail-ldap/files/digest-qmail-ldap-1.03.20000701-r2 b/net-mail/qmail-ldap/files/digest-qmail-ldap-1.03.20000701-r2
deleted file mode 100644
index e622d15b02de..000000000000
--- a/net-mail/qmail-ldap/files/digest-qmail-ldap-1.03.20000701-r2
+++ /dev/null
@@ -1,2 +0,0 @@
-MD5 622f65f982e380dbe86e6574f3abcb7c qmail-1.03.tar.gz
-MD5 15bc80f2180dbaacf4286dcd3d3014f6 qmail-ldap-1.03-20000701.patch.gz
diff --git a/net-mail/qmail-ldap/files/index.html b/net-mail/qmail-ldap/files/index.html
deleted file mode 100644
index a5ecc2daf243..000000000000
--- a/net-mail/qmail-ldap/files/index.html
+++ /dev/null
@@ -1,95 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-<title>www.nrg4u.com - Andre's Homepage</title>
-</head>
-
-<body bgcolor="#FFFFFF">
-
-<h2 align="center">Welcome to NRG4U</h2>
-
-<h3 align="center">The big qmail picture</h3>
-
-<p align="center">
-The big qmail picture Page [<a href="/qmail/the-big-qmail-picture-103-p1.gif"> 1 
-</a>|<a href="/qmail/the-big-qmail-picture-103-p2.gif"> 2 </a>|<a 
-href="/qmail/the-big-qmail-picture-103-p3.gif"> 3 </a>|<a 
-href="/qmail/the-big-qmail-picture-103-p4.gif"> 4 </a>] (each 47K, GIF, 19980814 V1.03)</a><br>
-<br>
-<a href="/qmail/the-big-qmail-picture-103.ppt">The big qmail picture (271K, PowerPoint95, 980814 V1.03)</a><br>
-<br>
-<!a href="/qmail/the-big-qmail-picture-103.vis">The big qmail picture (??K, Visio9x, who can convert it?, 980814 V1.03)</a><br>
-<br>
-The big qmail picture in A4 paper size (~100-180K, 980814 V1.03) in <br>color 
-<a href="/qmail/the-big-qmail-picture-103-a4.ps">PS</a> / 
-<a href="/qmail/the-big-qmail-picture-103-a4.pdf">PDF</a> or <br>black&white
-<a href="/qmail/the-big-qmail-picture-103-bw-a4.ps">PS</a> / 
-<a href="/qmail/the-big-qmail-picture-103-bw-a4.pdf">PDF</a> (for printing)
-<br>
-<br>
-The big qmail picture in US letter paper size (~100-180K, 980814 V1.03) in <br>color
-<a href="/qmail/the-big-qmail-picture-103-letter.ps">PS</a> /
-<a href="/qmail/the-big-qmail-picture-103-letter.pdf">PDF</a> or <br>black&white
-<a href="/qmail/the-big-qmail-picture-103-bw-letter.ps">PS</a> /
-<a href="/qmail/the-big-qmail-picture-103-bw-letter.pdf">PDF</a> (for printing)
-<br>
-</p>
-
-<h3 align="center">&nbsp;</h3>
-<h3 align="center">qmail-ldap</h3>
-<p align="center"><pre>
-What is is:
-
- A patch to stock qmail-1.03 to get all user account information
- from an LDAP database. It primary target are POP toaster with
- huge numbers of users (from thousands up to millions).
-
-Some of it's greatest features:
-
- - Users and virtual domains in an LDAP database
- - No local accounts needed
- - Perfect for ISP's to build POP toasters
- - Native mail server clustering
- - Supports size quotas on user maildirs and mbox
- - Automatic creation of home- and maildir's
- - Handles replies with new qmail-reply
- - Extensive logging in qmail-smtpd and qmail-pop3d
- - Supports tarpitting (based on a patch by Chris Johnson)
- - Supports OpenLDAP 1.2.X and Mozilla Directory SDK
- - Includes Antispam-Features (based on a patch by Lindsay Haisley,
-   Rask Lambertsen and Lionel Widdifield)
- - Supports automatic maildir creation when the first mail arrives
- - Support for SHA, MD5, MD4, RIPE-MD160 and clear text passwords
- - Support for NS-MTA-MD5 encrypted passwords used by Netscape Mailserver
-   up to version 2.xx (and later if you simply upgraded).
- - Support for TLS (SSL) encrytion of SMTP mail transport (based on a patch
-   by Frederik Vermeulen)
- - It also supports the password format used by Software.com's
-   Post.Office
- - Fix for qmail-pop3d to make Netscape's mail download status bar
-   working (based on a patch by sven@megabit.net)
- - Fix for oversized DNS packets (based on a patch by Christopher
-   K. Davis)
-
-What's still to do:
- - The big Qmail-LDAP picture
-
-</pre></p>
-
-<p align="center">
-The qmail-LDAP documentation is <a href="/qmail/QLDAPINSTALL">here</a> (well, sort of).
-<br><br>
-This is the fourth 'official' release of qmail-ldap, grab the diff <a 
-href="/qmail/qmail-ldap-1.03-20000601.patch.gz">here</a> (<i>release 
-qmail-ldap-1.03-20000601</i> and please direct all questions to the qmail-ldap mailing-list <a href="mailto:qmail-ldap@argus.pipeline.ch">qmail-ldap@argus.pipeline.ch</a>. <a href="mailto:opi@nrg4u.com">This</a> is my email address.<br>
-A mailing list for discussion of this patch is available, send mail to <a href="mailto:qmail-ldap-subscribe@argus.pipeline.ch">qmail-ldap-subscribe@argus.pipeline.ch</a><br><br>
-There are great differences to the previous (<a href="/qmail/qmail-ldap-1.03-19991007.patch.gz">19991007</a>) patch.<br>
-If you still need the previous patch you can get it <a href="/qmail/">here</a> 
-together with even more older stuff.<br><br>
-<b>Note: This is NOT point-and-click-and-then-it-works ware!<br>
-You should have fairly good prior knowledge of qmail and LDAP.</b>
-</p>
-</body>
-</html>
diff --git a/net-mail/qmail-ldap/files/qmail b/net-mail/qmail-ldap/files/qmail
deleted file mode 100755
index 403d1e061915..000000000000
--- a/net-mail/qmail-ldap/files/qmail
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/bin/sh
-
-##########################################################################################
-#RCUPDATE:3 4:72:Required for rc-update
-. /etc/rc.d/config/functions
-
-. /etc/rc.d/config/basic
-
-SERVICE=qmail
-EXE="/var/qmail/bin/qmail-start"
-opts="start stop restart"
-export PATH="/var/qmail/bin:$PATH"
-
-start()	{
-		einfo "Starting ${SERVICE}.."
-		export DEBUGLEVEL=255
-		exec $EXE ./Maildir/ splogger qmail &
-		eend $? "Error starting ${SERVICE}."
-}
-
-stop ()	{
-		einfo "Stopping ${SERVICE}..."
-		start-stop-daemon --stop --quiet -u root -n qmail-lspawn 1>&2
-		eend $? "Error stopping ${SERVICE}."
-}
-
-restart () {
-
-		stop
-		start
-
-}
-
-doservice ${@}
-
-
diff --git a/net-mail/qmail-ldap/qmail-ldap-1.03.20000701-r2.ebuild b/net-mail/qmail-ldap/qmail-ldap-1.03.20000701-r2.ebuild
deleted file mode 100644
index 6a51bd1c1ef3..000000000000
--- a/net-mail/qmail-ldap/qmail-ldap-1.03.20000701-r2.ebuild
+++ /dev/null
@@ -1,160 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Achim Gottinger <achim@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/qmail-ldap/qmail-ldap-1.03.20000701-r2.ebuild,v 1.1 2000/12/15 09:17:20 jerry Exp $
-
-P=qmail-ldap-1.03-20000701
-A="qmail-1.03.tar.gz qmail-ldap-1.03-20000701.patch.gz"
-S=${WORKDIR}/qmail-1.03
-DESCRIPTION="QMail with LDAP-Support"
-
-SRC_URI="http://cr.yp.to/software/qmail-1.03.tar.gz
-	 http://www.nrg4u.com/qmail/qmail-ldap-1.03-20000701.patch.gz"
-
-HOMEPAGE="http://www.qmail.org http://www.nrg4u.com"
-
-PROVIDE="virtual/mta"
-
-src_compile() {
-  cd ${WORKDIR}/qmail-1.03
-  cp ${O}/files/Makefile .
-  try make it man
-}
-
-src_unpack() {
-    unpack qmail-1.03.tar.gz
-    cd ${WORKDIR}/qmail-1.03
-    gzip -dc ${DISTDIR}/qmail-ldap-1.03-20000701.patch.gz | patch -p1 
-}
-
-doins2() {
-  if [ ${#} -ne 1 ]
-    then
-        echo "${0}: one argument needed"
-        return
-    fi
-    install $INSOPTIONS ${D}${1}
-}            
-
-src_install() {                 
-	cd ${WORKDIR}/qmail-1.03
-	insopts -d -o root -g qmail -m 755
-	doins2 /var/qmail
-	doins2 /var/qmail/control
-	doins2 /var/qmail/users
-	doins2 /var/qmail/bin
-	doins2 /var/qmail/boot
-	doins2 /var/qmail/alias
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue
-	doins2 /var/qmail/queue/todo
-	insopts -d -o qmailq -g qmail -m 700
-	doins2 /var/qmail/queue/pid
-	doins2 /var/qmail/queue/intd
-	insopts -d -o qmails -g qmail -m 700
-	doins2 /var/qmail/queue/bounce
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue/mess
-	for i in 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-	do
-	  doins2 /var/qmail/queue/mess/$i
-        done
-
-	insopts -d -o qmails -g qmail -m 700
-	doins2 /var/qmail/queue/info
-	doins2 /var/qmail/queue/local
-	doins2 /var/qmail/queue/remote
-	for i in 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-	do
-	  doins2 /var/qmail/queue/info/$i
-	  doins2 /var/qmail/queue/local/$i
-	  doins2 /var/qmail/queue/remote/$i
-        done
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue/lock
-
-	dd if=/dev/zero of=${D}/var/qmail/queue/lock/tcpto bs=1024 count=1
-	fperms 644 /var/qmail/queue/lock/tcpto
-	fowners qmailr.qmail /var/qmail/queue/lock/tcpto
-
-	touch ${D}/var/qmail/queue/lock/sendmutex
-	fperms 600 /var/qmail/queue/lock/sendmutex
-	fowners qmails.qmail /var/qmail/queue/lock/sendmutex
-
-	mkfifo ${D}/var/qmail/queue/lock/trigger
-	fperms 622 /var/qmail/queue/lock/trigger
-	fowners qmails.qmail /var/qmail/queue/lock/trigger
-
-	insopts -o root -g qmail -m 755
-	insinto /var/qmail/boot
-	for i in home home+df proc proc+df binm1 binm1+df binm2 binm2+df binm3 binm3+df
-	do
-	  doins $i $i
-	done
-
-	into /usr
-	dodoc  FAQ UPGRADE SENDMAIL INSTALL* TEST* REMOVE* PIC* QLDAP* SECURITY
-	dodoc SYSDEPS TARGETS THANKS THOUGHTS TODO VERSION
-	docinto html
-	dodoc ${O}/files/index.html
-	insopts -o qmailq -g qmail -m 4711
-	insinto /var/qmail/bin
-	doins qmail-queue qmail-queue
-	
-	insopts -o root -g qmail -m 700
-	for i in qmail-lspawn qmail-start qmail-newu qmail-newmrh auth_imap auth_pop
-	do
-	  doins $i $i
-	done
-	
-	insopts -o root -g qmail -m 711
-	for i in qmail-getpw qmail-local qmail-remote qmail-rspawn qmail-clean qmail-send splogger qmail-pw2u
-	do
-	  doins $i $i
-	done
-
-	insopts -o root -g qmail -m 755
-	for i in qmail-inject predate datemail mailsubj qmail-showctl \
-	qmail-qread qmail-qstat qmail-tcpto qmail-tcpok qmail-pop3d \
-	qmail-popup qmail-qmqpc qmail-qmqpd qmail-qmtpd qmail-smtpd \
-	sendmail tcp-env qreceipt qsmhook qbiff forward preline \
-	condredirect bouncesaying except maildirmake maildir2mbox \
-	maildirwatch qail elq pinq config-fast qmail-reply qmail-quotawarn
-	do
-	  doins $i $i
-	done
-
-        insopts -o root -g qmail -m 000
-        doins qmail-ldaplookup
-
-	into /usr
-	for i in addresses envelopes maildir mbox dot-qmail qmail-control \
-	qmail-header qmail-log qmail-users tcp-environ 
-	do
-	  doman $i.5
-	done
-
-	for i in forward condredirect bouncesaying except maildirmake \
-	maildir2mbox maildirwatch mailsubj qreceipt qbiff preline tcp-env
-	do
-	  doman $i.1
-	done
-
-	doman splogger.8
-	for i in local lspawn getpw remote rspawn clean send start queue \
-	inject showctl newmrh newu pw2u qread qstat tcpok tcpto pop3d \
-	popup qmqpc qmqpd qmtpd smtpd command
-	do
-	  doman qmail-$i.8
-	done
-
-	insinto /etc/rc.d/init.d
-	insopts -m755
-	doins ${O}/files/qmail
-}
-
-
-
diff --git a/net-mail/qmail-mysql/files/checkpassword-mysql.patch.gz b/net-mail/qmail-mysql/files/checkpassword-mysql.patch.gz
deleted file mode 100644
index 7b419f06e269..000000000000
--- a/net-mail/qmail-mysql/files/checkpassword-mysql.patch.gz
+++ /dev/null
diff --git a/net-mail/qmail-mysql/files/digest-qmail-mysql-1.03-r2 b/net-mail/qmail-mysql/files/digest-qmail-mysql-1.03-r2
deleted file mode 100644
index 031b4e219dd0..000000000000
--- a/net-mail/qmail-mysql/files/digest-qmail-mysql-1.03-r2
+++ /dev/null
@@ -1,2 +0,0 @@
-MD5 622f65f982e380dbe86e6574f3abcb7c qmail-1.03.tar.gz
-MD5 29c8b98a26b4f0a1a24a5b4fb28d7757 checkpassword-0.81.tar.gz
diff --git a/net-mail/qmail-mysql/files/mysqldump b/net-mail/qmail-mysql/files/mysqldump
deleted file mode 100644
index dc206ffeb5db..000000000000
--- a/net-mail/qmail-mysql/files/mysqldump
+++ /dev/null
@@ -1,37 +0,0 @@
-CREATE TABLE alias (
-  username varchar(32) DEFAULT '' NOT NULL,
-  alias varchar(128) DEFAULT '' NOT NULL,
-  alias_username varchar(32) DEFAULT '' NOT NULL,
-  alias_host varchar(128) DEFAULT '' NOT NULL,
-  KEY username (username),
-  KEY alias (alias),
-  UNIQUE user_alias (username,alias,alias_username,alias_host)
-);
-
-CREATE TABLE mailbox (
-  username varchar(32) DEFAULT '' NOT NULL,
-  uid mediumint(9) DEFAULT '0' NOT NULL,
-  gid mediumint(9) DEFAULT '0' NOT NULL,
-  home varchar(128) DEFAULT '' NOT NULL,
-  password varchar(16) DEFAULT '' NOT NULL,
-  PRIMARY KEY (username),
-  UNIQUE home (home),
-  KEY password (password)
-);
-
-CREATE TABLE rcpthosts (
-  host varchar(128) DEFAULT '' NOT NULL,
-  PRIMARY KEY (host)
-);
-
-CREATE TABLE virtual (
-  username varchar(32) DEFAULT '' NOT NULL,
-  ext varchar(128) DEFAULT '' NOT NULL,
-  virtual_username varchar(32) DEFAULT '' NOT NULL,
-  virtual_host varchar(128) DEFAULT '' NOT NULL,
-  PRIMARY KEY (virtual_username,virtual_host),
-  KEY (virtual_username),
-  KEY (virtual_host),
-  UNIQUE virtual (username,ext,virtual_username,virtual_host)
-);
-
diff --git a/net-mail/qmail-mysql/files/qmail b/net-mail/qmail-mysql/files/qmail
deleted file mode 100755
index 540d2522b2b7..000000000000
--- a/net-mail/qmail-mysql/files/qmail
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/bin/sh
-
-##########################################################################################
-#RCUPDATE:3 4:72:Required for rc-update
-. /etc/rc.d/config/functions
-
-. /etc/rc.d/config/basic
-
-SERVICE=qmail
-EXE="/var/qmail/bin/qmail-start"
-opts="start stop restart"
-export PATH="/var/qmail/bin:$PATH"
-
-start()	{
-		einfo "Starting ${SERVICE}.."
-		export DEBUGLEVEL=255
-		exec $EXE ./Maildir/ splogger qmail &
-		eend $? "Error starting ${SERVICE}."
-}
-
-stop ()	{
-		einfo "Stopping ${SERVICE}..."
-		start-stop-daemon --stop --quiet -u root -n qmail-lspawn 1>&2
-		eend $? "Error stopping ${SERVICE}."
-}
-
-restart () {
-		stop
-		start
-}
-
-doservice ${@}
-
-
diff --git a/net-mail/qmail-mysql/files/qmail-mysql.patch.gz b/net-mail/qmail-mysql/files/qmail-mysql.patch.gz
deleted file mode 100644
index d0fb2db5756c..000000000000
--- a/net-mail/qmail-mysql/files/qmail-mysql.patch.gz
+++ /dev/null
diff --git a/net-mail/qmail-mysql/qmail-mysql-1.03-r2.ebuild b/net-mail/qmail-mysql/qmail-mysql-1.03-r2.ebuild
deleted file mode 100644
index f9533d46eda4..000000000000
--- a/net-mail/qmail-mysql/qmail-mysql-1.03-r2.ebuild
+++ /dev/null
@@ -1,216 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Achim Gottinger <achim@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/qmail-mysql/qmail-mysql-1.03-r2.ebuild,v 1.1 2000/12/15 09:17:20 jerry Exp $
-
-P=qmail-mysql-1.03
-A="qmail-1.03.tar.gz checkpassword-0.81.tar.gz"
-A0=qmail-mysql.patch
-A1=checkpassword-mysql.patch
-S=${WORKDIR}/qmail-1.03
-DESCRIPTION="QMail with MySQL Support"
-SRC_URI="http://cr.yp.to/software/qmail-1.03.tar.gz
-	 http://cr.yp.to/software/checkpassword-0.81.tar.gz"
-HOMEPAHE="http://www.qmail.org iain.cx/unix/qmail/mysql.php"
-
-PROVIDE="virtual/mta"
-
-src_compile() {
-  cd ${S}
-  cp Makefile Makefile.orig
-  sed -e "s:MYSQL_LIBS=.*:MYSQL_LIBS=/usr/lib/mysql/libmysqlclient.a -lm:" \
-      -e "s:MYSQL_INCLUDE=.*:MYSQL_INCLUDE=-I/usr/include/mysql:" Makefile.orig > Makefile
-  try make it man
-  cd checkpassword-0.81
-  cp Makefile Makefile.orig
-  sed -e "s:MYSQL_LIBS=.*:MYSQL_LIBS=/usr/lib/mysql/libmysqlclient.a -lm:" \
-      -e "s:MYSQL_INCLUDE=.*:MYSQL_INCLUDE=-I/usr/include/mysql:" Makefile.orig > Makefile
-  try make it man
-}
-
-src_unpack() {
-    unpack qmail-1.03.tar.gz
-    cd ${S}
-    gzip -dc ${O}/files/${A0} | patch -p0
-    unpack checkpassword-0.81.tar.gz
-    cd checkpassword-0.81
-    gzip -dc ${O}/files/${A1} | patch -p0
-}
-
-doins2() {
-  if [ ${#} -ne 1 ]
-    then
-        echo "${0}: one argument needed"
-        return
-    fi
-    install $INSOPTIONS ${D}${1}
-}            
-
-src_install() {                 
-	cd ${S}
-	insopts -d -o root -g qmail -m 755
-	doins2 /var/qmail
-	doins2 /var/qmail/control
-	doins2 /var/qmail/users
-	doins2 /var/qmail/bin
-	doins2 /var/qmail/boot
-	doins2 /var/qmail/alias
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue
-	doins2 /var/qmail/queue/todo
-	insopts -d -o qmailq -g qmail -m 700
-	doins2 /var/qmail/queue/pid
-	doins2 /var/qmail/queue/intd
-	insopts -d -o qmails -g qmail -m 700
-	doins2 /var/qmail/queue/bounce
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue/mess
-	for i in 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-	do
-	  doins2 /var/qmail/queue/mess/$i
-        done
-
-	insopts -d -o qmails -g qmail -m 700
-	doins2 /var/qmail/queue/info
-	doins2 /var/qmail/queue/local
-	doins2 /var/qmail/queue/remote
-	for i in 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-	do
-	  doins2 /var/qmail/queue/info/$i
-	  doins2 /var/qmail/queue/local/$i
-	  doins2 /var/qmail/queue/remote/$i
-        done
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue/lock
-
-	dd if=/dev/zero of=${D}/var/qmail/queue/lock/tcpto bs=1024 count=1
-	fperms 644 /var/qmail/queue/lock/tcpto
-	fowners qmailr.qmail /var/qmail/queue/lock/tcpto
-
-	touch ${D}/var/qmail/queue/lock/sendmutex
-	fperms 600 /var/qmail/queue/lock/sendmutex
-	fowners qmails.qmail /var/qmail/queue/lock/sendmutex
-
-	mkfifo ${D}/var/qmail/queue/lock/trigger
-	fperms 622 /var/qmail/queue/lock/trigger
-	fowners qmails.qmail /var/qmail/queue/lock/trigger
-
-	insopts -o root -g qmail -m 755
-	insinto /var/qmail/boot
-	for i in home home+df proc proc+df binm1 binm1+df binm2 binm2+df binm3 binm3+df
-	do
-	  doins $i
-	done
-
-	into /usr
-	dodoc FAQ UPGRADE SENDMAIL INSTALL* TEST* REMOVE* PIC* SECURITY ${O}/files/mysqldump
-	dodoc SYSDEPS TARGETS THANKS THOUGHTS TODO VERSION
-	insopts -o qmailq -g qmail -m 4711
-	insinto /var/qmail/bin
-	doins qmail-queue qmail-queue
-	
-	insopts -o root -g qmail -m 700
-	for i in qmail-lspawn qmail-start qmail-newu qmail-newmrh
-	do
-	  doins $i
-	done
-	
-	insopts -o root -g qmail -m 711
-	for i in qmail-getpw qmail-local qmail-remote qmail-rspawn qmail-clean qmail-send splogger qmail-pw2u
-	do
-	  doins $i $i
-	done
-
-	insopts -o root -g qmail -m 755
-	for i in qmail-inject predate datemail mailsubj qmail-showctl \
-	qmail-qread qmail-qstat qmail-tcpto qmail-tcpok qmail-pop3d \
-	qmail-popup qmail-qmqpc qmail-qmqpd qmail-qmtpd qmail-smtpd \
-	sendmail tcp-env qreceipt qsmhook qbiff forward preline \
-	condredirect bouncesaying except maildirmake maildir2mbox \
-	maildirwatch qail elq pinq config-fast
-	do
-	  doins $i 
-	done
-
-	into /usr
-	for i in addresses envelopes maildir mbox dot-qmail qmail-control \
-	qmail-header qmail-log qmail-users tcp-environ 
-	do
-	  doman $i.5
-	done
-
-	for i in forward condredirect bouncesaying except maildirmake \
-	maildir2mbox maildirwatch mailsubj qreceipt qbiff preline tcp-env
-	do
-	  doman $i.1
-	done
-
-	doman splogger.8
-	for i in local lspawn getpw remote rspawn clean send start queue \
-	inject showctl newmrh newu pw2u qread qstat tcpok tcpto pop3d \
-	popup qmqpc qmqpd qmtpd smtpd command
-	do
-	  doman qmail-$i.8
-	done
-
-	insinto /etc/rc.d/init.d
-	insopts -m755
-	doins ${O}/files/qmail
-	cd checkpassword-0.81
-	into /
-	dobin checkpassword
-	into /usr
-	doman checkpassword.8	
-}
-
-pkg_postinst() {
-
-    ln -fs /var/qmail/bin/sendmail ${ROOT}/usr/lib/sendmail
-    ln -fs /var/qmail/bin/sendmail ${ROOT}/usr/sbin/sendmail
-
-
-    pushd ${ROOT}/var/qmail/alias
-    touch .qmail-postmaster
-    touch .qmail-mailer-daemon
-    touch .qmail-root
-
-    if [ ! -d ${ROOT}/var/qmail/alias/Maildir ] ; then
-	${ROOT}/var/qmail/bin/maildirmake Maildir
-    fi
-    chown alias.qmail .qmail-*
-    chown -R alias.qmail Maildir
-    chmod 640 .qmail-*
-    popd
-}
-
-pkg_config () {
-
-    . ${ROOT}/var/db/pkg/install.config
-
-cat <<__ENDE__ > ${ROOT}/var/qmail/control/sqlserver
-server=${QmailSQLHost}
-login=${QmailSQLuser}
-password=${QmailSQLpass}
-db=${QmailSQLdb}
-__ENDE__
-
-    ${ROOT}/usr/sbin/rc-update add qmail
-
-    if [ ${ROOT} = "/" ] ; then
-
-	if [ ! -f ${ROOT}/var/qmail/control/me ] ; then
-	    ${ROOT}/var/qmail/bin/config-fast $QmailHost  
-	fi
-
-	if [ ! -d /var/mysql/$QmailSQLdb ] ; then
-	    mysqladmin -p$MySQLpass create $QmailSQLdb
-	    gzip -dc /usr/doc/qmail-mysql-1.03/mysqldump.gz | mysql -p$MySQLpass $QmailSQLdb 
-	fi
-    fi
-}
-
-
-
diff --git a/net-mail/qmail/files/digest-qmail-1.03-r2 b/net-mail/qmail/files/digest-qmail-1.03-r2
deleted file mode 100644
index 031b4e219dd0..000000000000
--- a/net-mail/qmail/files/digest-qmail-1.03-r2
+++ /dev/null
@@ -1,2 +0,0 @@
-MD5 622f65f982e380dbe86e6574f3abcb7c qmail-1.03.tar.gz
-MD5 29c8b98a26b4f0a1a24a5b4fb28d7757 checkpassword-0.81.tar.gz
diff --git a/net-mail/qmail/qmail-1.03-r2.ebuild b/net-mail/qmail/qmail-1.03-r2.ebuild
deleted file mode 100644
index 205ebdda417e..000000000000
--- a/net-mail/qmail/qmail-1.03-r2.ebuild
+++ /dev/null
@@ -1,199 +0,0 @@
-# Copyright 1999-2000 Gentoo Technologies, Inc.
-# Distributed under the terms of the GNU General Public License, v2 or later
-# Author Achim Gottinger <achim@gentoo.org>
-# $Header: /var/cvsroot/gentoo-x86/net-mail/qmail/qmail-1.03-r2.ebuild,v 1.1 2000/12/15 09:17:19 jerry Exp $
-
-P=qmail-1.03
-A="qmail-1.03.tar.gz checkpassword-0.81.tar.gz"
-S=${WORKDIR}/qmail-1.03
-DESCRIPTION="qmail is a modern replacement for sendmail which uses Maildirs"
-SRC_URI="http://cr.yp.to/software/qmail-1.03.tar.gz
-	 http://cr.yp.to/software/checkpassword-0.81.tar.gz"
-HOMEPAGE="http://www.qmail.org"
-
-DEPEND=">=sys-apps/bash-2.04
-	    >=sys-libs/glibc-2.1.3"
-
-PROVIDE="virtual/mta"
-
-src_compile() {
-  cd ${S}
-  try make it man
-  cd checkpassword-0.81
-  try make it man
-}
-
-src_unpack() {
-    unpack qmail-1.03.tar.gz
-    cd ${S}
-    patch -p0 < ${O}/files/qmail-linksync.patch
-    unpack checkpassword-0.81.tar.gz
-}
-
-doins2() {
-  if [ ${#} -ne 1 ]
-    then
-        echo "${0}: one argument needed"
-        return
-    fi
-    install $INSOPTIONS ${D}${1}
-}            
-
-src_install() {                 
-	cd ${S}
-	insopts -d -o root -g qmail -m 755
-	doins2 /var/qmail
-	doins2 /var/qmail/control
-	doins2 /var/qmail/users
-	doins2 /var/qmail/bin
-	doins2 /var/qmail/boot
-	doins2 /var/qmail/alias
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue
-	doins2 /var/qmail/queue/todo
-	insopts -d -o qmailq -g qmail -m 700
-	doins2 /var/qmail/queue/pid
-	doins2 /var/qmail/queue/intd
-	insopts -d -o qmails -g qmail -m 700
-	doins2 /var/qmail/queue/bounce
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue/mess
-	for i in 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-	do
-	  doins2 /var/qmail/queue/mess/$i
-        done
-
-	insopts -d -o qmails -g qmail -m 700
-	doins2 /var/qmail/queue/info
-	doins2 /var/qmail/queue/local
-	doins2 /var/qmail/queue/remote
-	for i in 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-	do
-	  doins2 /var/qmail/queue/info/$i
-	  doins2 /var/qmail/queue/local/$i
-	  doins2 /var/qmail/queue/remote/$i
-        done
-
-	insopts -d -o qmailq -g qmail -m 750
-	doins2 /var/qmail/queue/lock
-
-	dd if=/dev/zero of=${D}/var/qmail/queue/lock/tcpto bs=1024 count=1
-	fperms 644 /var/qmail/queue/lock/tcpto
-	fowners qmailr.qmail /var/qmail/queue/lock/tcpto
-
-	touch ${D}/var/qmail/queue/lock/sendmutex
-	fperms 600 /var/qmail/queue/lock/sendmutex
-	fowners qmails.qmail /var/qmail/queue/lock/sendmutex
-
-	mkfifo ${D}/var/qmail/queue/lock/trigger
-	fperms 622 /var/qmail/queue/lock/trigger
-	fowners qmails.qmail /var/qmail/queue/lock/trigger
-
-	insopts -o root -g qmail -m 755
-	insinto /var/qmail/boot
-	for i in home home+df proc proc+df binm1 binm1+df binm2 binm2+df binm3 binm3+df
-	do
-	  doins $i $i
-	done
-
-	into /usr
-	dodoc FAQ UPGRADE SENDMAIL INSTALL* TEST* REMOVE* PIC* SECURITY 
-	dodoc SYSDEPS TARGETS THANKS THOUGHTS TODO VERSION
-
-	insopts -o qmailq -g qmail -m 4711
-	insinto /var/qmail/bin
-	doins qmail-queue qmail-queue
-	
-	insopts -o root -g qmail -m 700
-	for i in qmail-lspawn qmail-start qmail-newu qmail-newmrh
-	do
-	  doins $i $i
-	done
-	
-	insopts -o root -g qmail -m 711
-	for i in qmail-getpw qmail-local qmail-remote qmail-rspawn qmail-clean qmail-send splogger qmail-pw2u
-	do
-	  doins $i $i
-	done
-
-	insopts -o root -g qmail -m 755
-	for i in qmail-inject predate datemail mailsubj qmail-showctl \
-	qmail-qread qmail-qstat qmail-tcpto qmail-tcpok qmail-pop3d \
-	qmail-popup qmail-qmqpc qmail-qmqpd qmail-qmtpd qmail-smtpd \
-	sendmail tcp-env qreceipt qsmhook qbiff forward preline \
-	condredirect bouncesaying except maildirmake maildir2mbox \
-	maildirwatch qail elq pinq config-fast
-	do
-	  doins $i $i
-	done
-
-	into /usr
-	for i in addresses envelopes maildir mbox dot-qmail qmail-control \
-	qmail-header qmail-log qmail-users tcp-environ 
-	do
-	  doman $i.5
-	done
-
-	for i in forward condredirect bouncesaying except maildirmake \
-	maildir2mbox maildirwatch mailsubj qreceipt qbiff preline tcp-env
-	do
-	  doman $i.1
-	done
-
-	doman splogger.8
-	for i in local lspawn getpw remote rspawn clean send start queue \
-	inject showctl newmrh newu pw2u qread qstat tcpok tcpto pop3d \
-	popup qmqpc qmqpd qmtpd smtpd command
-	do
-	  doman qmail-$i.8
-	done
-
-	insinto /etc/rc.d/init.d
-	insopts -m755
-	doins ${O}/files/qmail
-	cd checkpassword-0.81
-	into /
-	dobin checkpassword
-	into /usr
-	doman checkpassword.8	
-}
-
-pkg_postinst() {
-
-    . ${ROOT}/var/db/pkg/install.config
-
-
-    ln -fs /var/qmail/bin/sendmail ${ROOT}/usr/lib/sendmail
-    ln -fs /var/qmail/bin/sendmail ${ROOT}/usr/sbin/sendmail
-
-    pushd ${ROOT}/var/qmail/alias
-    touch .qmail-postmaster
-    touch .qmail-mailer-daemon
-    touch .qmail-root
-
-    if [ ! -d ${ROOT}/var/qmail/alias/Maildir ] ; then
-	${ROOT}/var/qmail/bin/maildirmake Maildir
-    fi
-    chown alias.qmail .qmail-*
-    chown -R alias.qmail Maildir
-    chmod 640 .qmail-*
-    popd
-
-}
-
-pkg_config() {
-
-    export QmailHost=`uname -n`
-    ${ROOT}/usr/sbin/rc-update add qmail
-    if [ ${ROOT} = "/" ] ; then
-
-	if [ ! -f ${ROOT}/var/qmail/control/me ] ; then
-	    ${ROOT}/var/qmail/bin/config-fast $QmailHost  
-	fi
-
-    fi
-
-}
-
author	Achim Gottinger <achim@gentoo.org>	2001-04-30 11:40:12 +0000
committer	Achim Gottinger <achim@gentoo.org>	2001-04-30 11:40:12 +0000
commit	1e4b581725e1a7a7c13b336f3a400ccddd16f81d (patch)
tree	fd15ffd5b93cf4325374f478fab91303c35bf2e4 /net-mail
parent	Cleanup (diff)
download	gentoo-2-1e4b581725e1a7a7c13b336f3a400ccddd16f81d.tar.gz gentoo-2-1e4b581725e1a7a7c13b336f3a400ccddd16f81d.tar.bz2 gentoo-2-1e4b581725e1a7a7c13b336f3a400ccddd16f81d.zip