Initial Alpine Version

1 files changed, 813 insertions, 0 deletions

diff --git a/imap/src/mtest/mtest.c b/imap/src/mtest/mtest.c
new file mode 100644
index 00000000..69af568b
--- /dev/null
+++ b/imap/src/mtest/mtest.c
@@ -0,0 +1,813 @@
+/* ========================================================================
+ * Copyright 1988-2007 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * 
+ * ========================================================================
+ */
+
+/*
+ * Program:	Mail library test program
+ *
+ * Author:	Mark Crispin
+ *		Networks and Distributed Computing
+ *		Computing & Communications
+ *		University of Washington
+ *		Administration Building, AG-44
+ *		Seattle, WA  98195
+ *		Internet: MRC@CAC.Washington.EDU
+ *
+ * Date:	8 July 1988
+ * Last Edited:	5 November 2007
+ *
+ * This original version of this file is
+ * Copyright 1988 Stanford University
+ * and was developed in the Symbolic Systems Resources Group of the Knowledge
+ * Systems Laboratory at Stanford University in 1987-88, and was funded by the
+ * Biomedical Research Technology Program of the NationalInstitutes of Health
+ * under grant number RR-00785.
+ */
+
+#include <stdio.h>
+#include <ctype.h>
+#include <signal.h>
+#include "c-client.h"
+#include "imap4r1.h"
+
+/* Excellent reasons to hate ifdefs, and why my real code never uses them */
+
+#ifndef unix
+# define unix 0
+#endif
+
+#if unix
+# define UNIXLIKE 1
+# define MACOS 0
+# include <pwd.h>
+#else
+# define UNIXLIKE 0
+# ifdef noErr
+#  define MACOS 1
+#  include <Memory.h>
+# else
+#  define MACOS 0
+# endif
+#endif
+
+char *curhst = NIL;		/* currently connected host */
+char *curusr = NIL;		/* current login user */
+char personalname[MAILTMPLEN];	/* user's personal name */
+
+static char *hostlist[] = {	/* SMTP server host list */
+  "mailhost",
+  "localhost",
+  NIL
+};
+
+static char *newslist[] = {	/* Netnews server host list */
+  "news",
+  NIL
+};
+
+int main (void);
+void mm (MAILSTREAM *stream,long debug);
+void overview_header (MAILSTREAM *stream,unsigned long uid,OVERVIEW *ov,
+		      unsigned long msgno);
+void header (MAILSTREAM *stream,long msgno);
+void display_body (BODY *body,char *pfx,long i);
+void status (MAILSTREAM *stream);
+void prompt (char *msg,char *txt);
+void smtptest (long debug);
+
+/* Main program - initialization */
+
+int main ()
+{
+  MAILSTREAM *stream = NIL;
+  void *sdb = NIL;
+  char *s,tmp[MAILTMPLEN];
+  long debug;
+#include "linkage.c"
+#if MACOS
+  {
+    size_t *base = (size_t *) 0x000908;
+				/* increase stack size on a Mac */
+    SetApplLimit ((Ptr) (*base - (size_t) 65535L));
+  }
+#endif
+  curusr = cpystr (((s = myusername ()) && *s) ? s : "somebody");
+#if UNIXLIKE
+  {
+    char *suffix;
+    struct passwd *pwd = getpwnam (curusr);
+    if (pwd) {
+      strcpy (tmp,pwd->pw_gecos);
+				/* dyke out the office and phone poop */
+      if (suffix = strchr (tmp,',')) suffix[0] = '\0';
+      strcpy (personalname,tmp);/* make a permanent copy of it */
+    }
+    else personalname[0] = '\0';
+  }
+#else
+  personalname[0] = '\0';
+#endif
+  curhst = cpystr (mylocalhost ());
+  puts ("MTest -- C client test program");
+  if (!*personalname) prompt ("Personal name: ",personalname);
+				/* user wants protocol telemetry? */
+  prompt ("Debug protocol (y/n)?",tmp);
+  ucase (tmp);
+  debug = (tmp[0] == 'Y') ? T : NIL;
+  do {
+    prompt ("Mailbox ('?' for help): ",tmp);
+    if (!strcmp (tmp,"?")) {
+      puts ("Enter INBOX, mailbox name, or IMAP mailbox as {host}mailbox");
+      puts ("Known local mailboxes:");
+      mail_list (NIL,NIL,"%");
+      if (s = sm_read (&sdb)) {
+	puts ("Local subscribed mailboxes:");
+	do (mm_lsub (NIL,NIL,s,NIL));
+	while (s = sm_read (&sdb));
+      }
+      puts ("or just hit return to quit");
+    }
+    else if (tmp[0]) stream = mail_open (stream,tmp,debug ? OP_DEBUG : NIL);
+  } while (!stream && tmp[0]);
+  mm (stream,debug);		/* run user interface if opened */
+#if MACOS
+				/* clean up resolver */
+  if (resolveropen) CloseResolver ();
+#endif
+  return NIL;
+}
+
+/* MM command loop
+ * Accepts: MAIL stream
+ */
+
+void mm (MAILSTREAM *stream,long debug)
+{
+  void *sdb = NIL;
+  char cmd[MAILTMPLEN];
+  char *s,*arg;
+  unsigned long i;
+  unsigned long last = 0;
+  BODY *body;
+  status (stream);		/* first report message status */
+  while (stream) {
+    prompt ("MTest>",cmd);	/* prompt user, get command */
+				/* get argument */
+    if (arg = strchr (cmd,' ')) *arg++ = '\0';
+    switch (*ucase (cmd)) {	/* dispatch based on command */
+    case 'B':			/* Body command */
+      if (arg) last = atoi (arg);
+      else if (!last) {
+	puts ("?Missing message number");
+	break;
+      }
+      if (last && (last <= stream->nmsgs)) {
+	mail_fetchstructure (stream,last,&body);
+	if (body) display_body (body,NIL,(long) 0);
+	else puts ("%No body information available");
+      }
+      else puts ("?Bad message number");
+      break;
+    case 'C':			/* Check command */
+      mail_check (stream);
+      status (stream);
+      break;
+    case 'D':			/* Delete command */
+      if (arg) last = atoi (arg);
+      else {
+	if (last == 0) {
+	  puts ("?Missing message number");
+	  break;
+	}
+	arg = cmd;
+	sprintf (arg,"%lu",last);
+      }
+      if (last && (last <= stream->nmsgs))
+	mail_setflag (stream,arg,"\\DELETED");
+      else puts ("?Bad message number");
+      break;
+    case 'E':			/* Expunge command */
+      mail_expunge (stream);
+      last = 0;
+      break;
+    case 'F':			/* Find command */
+      if (!arg) {
+	arg = "%";
+	if (s = sm_read (&sdb)) {
+	  puts ("Local network subscribed mailboxes:");
+	  do if (*s == '{') (mm_lsub (NIL,NIL,s,NIL));
+	  while (s = sm_read (&sdb));
+	}
+      }
+      puts ("Subscribed mailboxes:");
+      mail_lsub (((arg[0] == '{') && (*stream->mailbox == '{')) ? stream : NIL,
+		 NIL,arg);
+      puts ("Known mailboxes:");
+      mail_list (((arg[0] == '{') && (*stream->mailbox == '{')) ? stream : NIL,
+		 NIL,arg);
+      break;
+    case 'G':
+      mail_gc (stream,GC_ENV|GC_TEXTS|GC_ELT);
+      break;
+    case 'H':			/* Headers command */
+      if (arg) {
+	if (!(last = atoi (arg))) {
+	  mail_search (stream,arg);
+	  for (i = 1; i <= stream->nmsgs; ++i)
+	    if (mail_elt (stream,i)->searched) header (stream,i);
+	  break;
+	}
+      }
+      else if (last == 0) {
+	puts ("?Missing message number");
+	break;
+      }
+      if (last && (last <= stream->nmsgs)) header (stream,last);
+      else puts ("?Bad message number");
+      break;
+    case 'L':			/* Literal command */
+      if (arg) last = atoi (arg);
+      else if (!last) {
+	puts ("?Missing message number");
+	break;
+      }
+      if (last && (last <= stream->nmsgs))
+	puts (mail_fetch_message (stream,last,NIL,NIL));
+      else puts ("?Bad message number");
+      break;
+    case 'M':
+      mail_status (NIL,arg ? arg : stream->mailbox,
+		   SA_MESSAGES|SA_RECENT|SA_UNSEEN|SA_UIDNEXT|SA_UIDVALIDITY);
+      break;
+    case 'N':			/* New mailbox command */
+      if (!arg) {
+	puts ("?Missing mailbox");
+	break;
+      }
+				/* get the new mailbox */
+      while (!(stream = mail_open (stream,arg,debug))) {
+	prompt ("Mailbox: ",arg);
+	if (!arg[0]) break;
+      }
+      last = 0;
+      status (stream);
+      break;
+    case 'O':			/* Overview command */
+      if (!arg) {
+	puts ("?Missing UID");
+	break;
+      }
+      mail_fetch_overview (stream,arg,overview_header);
+      break;
+    case 'P':			/* Ping command */
+      mail_ping (stream);
+      status (stream);
+      break;
+    case 'Q':			/* Quit command */
+      mail_close (stream);
+      stream = NIL;
+      break;
+    case 'S':			/* Send command */
+      smtptest (debug);
+      break;
+    case '\0':			/* null command (type next message) */
+      if (!last || (last++ >= stream->nmsgs)) {
+	puts ("%No next message");
+	break;
+      }
+    case 'T':			/* Type command */
+      if (arg) last = atoi (arg);
+      else if (!last) {
+	puts ("?Missing message number");
+	break;
+      }
+      if (last && (last <= stream->nmsgs)) {
+	STRINGLIST *lines = mail_newstringlist ();
+	STRINGLIST *cur = lines;
+	cur->text.size = strlen ((char *) (cur->text.data = (unsigned char *)
+					   cpystr ("Date")));
+	cur = cur->next = mail_newstringlist ();
+	cur->text.size = strlen ((char *) (cur->text.data = (unsigned char *)
+					   cpystr ("From")));
+	cur = cur->next = mail_newstringlist ();
+	cur->text.size = strlen ((char *) (cur->text.data = (unsigned char *)
+					   cpystr (">From")));
+	cur = cur->next = mail_newstringlist ();
+	cur->text.size = strlen ((char *) (cur->text.data = (unsigned char *)
+					   cpystr ("Subject")));
+	cur = cur->next = mail_newstringlist ();
+	cur->text.size = strlen ((char *) (cur->text.data = (unsigned char *)
+					   cpystr ("To")));
+	cur = cur->next = mail_newstringlist ();
+	cur->text.size = strlen ((char *) (cur->text.data = (unsigned char *)
+					   cpystr ("cc")));
+	cur = cur->next = mail_newstringlist ();
+	cur->text.size = strlen ((char *) (cur->text.data = (unsigned char *)
+					   cpystr ("Newsgroups")));
+	printf ("%s",mail_fetchheader_full (stream,last,lines,NIL,NIL));
+	puts (mail_fetchtext (stream,last));
+	mail_free_stringlist (&lines);
+      }
+      else puts ("?Bad message number");
+      break;
+    case 'U':			/* Undelete command */
+      if (arg) last = atoi (arg);
+      else {
+	if (!last) {
+	  puts ("?Missing message number");
+	  break;
+	}
+	arg = cmd;
+	sprintf (arg,"%lu",last);
+      }
+      if (last > 0 && last <= stream->nmsgs)
+	mail_clearflag (stream,arg,"\\DELETED");
+      else puts ("?Bad message number");
+      break;
+    case 'X':			/* Xit command */
+      mail_expunge (stream);
+      mail_close (stream);
+      stream = NIL;
+      break;
+    case '+':
+      mail_debug (stream); debug = T;
+      break;
+    case '-':
+      mail_nodebug (stream); debug = NIL;
+      break;
+    case '?':			/* ? command */
+      puts ("Body, Check, Delete, Expunge, Find, GC, Headers, Literal,");
+      puts (" MailboxStatus, New Mailbox, Overview, Ping, Quit, Send, Type,");
+      puts ("Undelete, Xit, +, -, or <RETURN> for next message");
+      break;
+    default:			/* bogus command */
+      printf ("?Unrecognized command: %s\n",cmd);
+      break;
+    }
+  }
+}
+
+/* MM display header
+ * Accepts: IMAP2 stream
+ *	    message number
+ */
+
+void overview_header (MAILSTREAM *stream,unsigned long uid,OVERVIEW *ov,
+		      unsigned long msgno)
+{
+  if (ov) {
+    unsigned long i;
+    char *t,tmp[MAILTMPLEN];
+    ADDRESS *adr;
+    MESSAGECACHE *elt = mail_elt (stream,msgno);
+    MESSAGECACHE selt;
+    tmp[0] = elt->recent ? (elt->seen ? 'R': 'N') : ' ';
+    tmp[1] = (elt->recent | elt->seen) ? ' ' : 'U';
+    tmp[2] = elt->flagged ? 'F' : ' ';
+    tmp[3] = elt->answered ? 'A' : ' ';
+    tmp[4] = elt->deleted ? 'D' : ' ';
+    mail_parse_date (&selt,ov->date);
+    sprintf (tmp+5,"%4lu) ",elt->msgno);
+    mail_date (tmp+11,&selt);
+    tmp[17] = ' ';
+    tmp[18] = '\0';
+    memset (tmp+18,' ',(size_t) 20);
+    tmp[38] = '\0';		/* tie off with null */
+				/* get first from address from envelope */
+    for (adr = ov->from; adr && !adr->host; adr = adr->next);
+    if (adr) {			/* if a personal name exists use it */
+      if (!(t = adr->personal))
+	sprintf (t = tmp+400,"%s@%s",adr->mailbox,adr->host);
+      memcpy (tmp+18,t,(size_t) min (20,(long) strlen (t)));
+    }
+    strcat (tmp," ");
+    if (i = elt->user_flags) {
+      strcat (tmp,"{");
+      while (i) {
+	strcat (tmp,stream->user_flags[find_rightmost_bit (&i)]);
+	if (i) strcat (tmp," ");
+      }
+      strcat (tmp,"} ");
+    }
+    sprintf (tmp + strlen (tmp),"%.25s (%lu chars)",
+	     ov->subject ? ov->subject : " ",ov->optional.octets);
+    puts (tmp);
+  }
+  else printf ("%%No overview for UID %lu\n",uid);
+}
+
+/* MM display header
+ * Accepts: IMAP2 stream
+ *	    message number
+ */
+
+void header (MAILSTREAM *stream,long msgno)
+{
+  unsigned long i;
+  char tmp[MAILTMPLEN];
+  char *t;
+  MESSAGECACHE *cache = mail_elt (stream,msgno);
+  mail_fetchstructure (stream,msgno,NIL);
+  tmp[0] = cache->recent ? (cache->seen ? 'R': 'N') : ' ';
+  tmp[1] = (cache->recent | cache->seen) ? ' ' : 'U';
+  tmp[2] = cache->flagged ? 'F' : ' ';
+  tmp[3] = cache->answered ? 'A' : ' ';
+  tmp[4] = cache->deleted ? 'D' : ' ';
+  sprintf (tmp+5,"%4lu) ",cache->msgno);
+  mail_date (tmp+11,cache);
+  tmp[17] = ' ';
+  tmp[18] = '\0';
+  mail_fetchfrom (tmp+18,stream,msgno,(long) 20);
+  strcat (tmp," ");
+  if (i = cache->user_flags) {
+    strcat (tmp,"{");
+    while (i) {
+      strcat (tmp,stream->user_flags[find_rightmost_bit (&i)]);
+      if (i) strcat (tmp," ");
+    }
+    strcat (tmp,"} ");
+  }
+  mail_fetchsubject (t = tmp + strlen (tmp),stream,msgno,(long) 25);
+  sprintf (t += strlen (t)," (%lu chars)",cache->rfc822_size);
+  puts (tmp);
+}
+
+/* MM display body
+ * Accepts: BODY structure pointer
+ *	    prefix string
+ *	    index
+ */
+
+void display_body (BODY *body,char *pfx,long i)
+{
+  char tmp[MAILTMPLEN];
+  char *s = tmp;
+  PARAMETER *par;
+  PART *part;			/* multipart doesn't have a row to itself */
+  if (body->type == TYPEMULTIPART) {
+				/* if not first time, extend prefix */
+    if (pfx) sprintf (tmp,"%s%ld.",pfx,++i);
+    else tmp[0] = '\0';
+    for (i = 0,part = body->nested.part; part; part = part->next)
+      display_body (&part->body,tmp,i++);
+  }
+  else {			/* non-multipart, output oneline descriptor */
+    if (!pfx) pfx = "";		/* dummy prefix if top level */
+    sprintf (s," %s%ld %s",pfx,++i,body_types[body->type]);
+    if (body->subtype) sprintf (s += strlen (s),"/%s",body->subtype);
+    if (body->description) sprintf (s += strlen (s)," (%s)",body->description);
+    if (par = body->parameter) do
+      sprintf (s += strlen (s),";%s=%s",par->attribute,par->value);
+    while (par = par->next);
+    if (body->id) sprintf (s += strlen (s),", id = %s",body->id);
+    switch (body->type) {	/* bytes or lines depending upon body type */
+    case TYPEMESSAGE:		/* encapsulated message */
+    case TYPETEXT:		/* plain text */
+      sprintf (s += strlen (s)," (%lu lines)",body->size.lines);
+      break;
+    default:
+      sprintf (s += strlen (s)," (%lu bytes)",body->size.bytes);
+      break;
+    }
+    puts (tmp);			/* output this line */
+				/* encapsulated message? */
+    if ((body->type == TYPEMESSAGE) && !strcmp (body->subtype,"RFC822") &&
+	(body = body->nested.msg->body)) {
+      if (body->type == TYPEMULTIPART) display_body (body,pfx,i-1);
+      else {			/* build encapsulation prefix */
+	sprintf (tmp,"%s%ld.",pfx,i);
+	display_body (body,tmp,(long) 0);
+      }
+    }
+  }
+}
+
+/* MM status report
+ * Accepts: MAIL stream
+ */
+
+void status (MAILSTREAM *stream)
+{
+  unsigned long i;
+  char *s,date[MAILTMPLEN];
+  THREADER *thr;
+  AUTHENTICATOR *auth;
+  rfc822_date (date);
+  puts (date);
+  if (stream) {
+    if (stream->mailbox)
+      printf (" %s mailbox: %s, %lu messages, %lu recent\n",
+	      stream->dtb->name,stream->mailbox,stream->nmsgs,stream->recent);
+    else puts ("%No mailbox is open on this stream");
+    if (stream->user_flags[0]) {
+      printf ("Keywords: %s",stream->user_flags[0]);
+      for (i = 1; i < NUSERFLAGS && stream->user_flags[i]; ++i)
+	printf (", %s",stream->user_flags[i]);
+      puts ("");
+    }
+    if (!strcmp (stream->dtb->name,"imap")) {
+      if (LEVELIMAP4rev1 (stream)) s = "IMAP4rev1 (RFC 3501)";
+      else if (LEVEL1730 (stream)) s = "IMAP4 (RFC 1730)";
+      else if (LEVELIMAP2bis (stream)) s = "IMAP2bis";
+      else if (LEVEL1176 (stream)) s = "IMAP2 (RFC 1176)";
+      else s = "IMAP2 (RFC 1064)";
+      printf ("%s server %s\n",s,imap_host (stream));
+      if (LEVELIMAP4 (stream)) {
+	if (i = imap_cap (stream)->auth) {
+	  s = "";
+	  printf ("Mutually-supported SASL mechanisms:");
+	  while (auth = mail_lookup_auth (find_rightmost_bit (&i) + 1)) {
+	    printf (" %s",auth->name);
+	    if (!strcmp (auth->name,"PLAIN"))
+	      s = "\n  [LOGIN will not be listed here if PLAIN is supported]";
+	  }
+	  puts (s);
+	}
+	printf ("Supported standard extensions:\n");
+	if (LEVELACL (stream)) puts (" Access Control lists (RFC 2086)");
+	if (LEVELQUOTA (stream)) puts (" Quotas (RFC 2087)");
+	if (LEVELLITERALPLUS (stream))
+	  puts (" Non-synchronizing literals (RFC 2088)");
+	if (LEVELIDLE (stream)) puts (" IDLE unsolicited update (RFC 2177)");
+	if (LEVELMBX_REF (stream)) puts (" Mailbox referrals (RFC 2193)");
+	if (LEVELLOG_REF (stream)) puts (" Login referrals (RFC 2221)");
+	if (LEVELANONYMOUS (stream)) puts (" Anonymous access (RFC 2245)");
+	if (LEVELNAMESPACE (stream)) puts (" Multiple namespaces (RFC 2342)");
+	if (LEVELUIDPLUS (stream)) puts (" Extended UID behavior (RFC 2359)");
+	if (LEVELSTARTTLS (stream))
+	  puts (" Transport Layer Security (RFC 2595)");
+	if (LEVELLOGINDISABLED (stream))
+	  puts (" LOGIN command disabled (RFC 2595)");
+	if (LEVELID (stream))
+	  puts (" Implementation identity negotiation (RFC 2971)");
+	if (LEVELCHILDREN (stream))
+	  puts (" LIST children announcement (RFC 3348)");
+	if (LEVELMULTIAPPEND (stream))
+	  puts (" Atomic multiple APPEND (RFC 3502)");
+	if (LEVELBINARY (stream))
+	  puts (" Binary body content (RFC 3516)");
+	if (LEVELUNSELECT (stream)) puts (" Mailbox unselect (RFC 3691)");
+	if (LEVELURLAUTH (stream))
+	  puts (" URL authenticated fetch (RFC 4467)");
+	if (LEVELCATENATE (stream)) puts (" Catenation (RFC 4469)");
+	if (LEVELCONDSTORE (stream)) puts (" Conditional STORE (RFC 4551)");
+	if (LEVELESEARCH (stream)) puts (" Extended SEARCH (RFC 4731)");
+	puts ("Supported draft extensions:");
+	if (LEVELSASLIR (stream)) puts (" SASL initial client response");
+	if (LEVELSORT (stream)) puts (" Server-based sorting");
+	if (LEVELTHREAD (stream)) {
+	  printf (" Server-based threading:");
+	  for (thr = imap_cap (stream)->threader; thr; thr = thr->next)
+	    printf (" %s",thr->name);
+	  putchar ('\n');
+	}
+	if (LEVELSCAN (stream)) puts (" Mailbox text scan");
+	if (i = imap_cap (stream)->extlevel) {
+	  printf ("Supported BODYSTRUCTURE extensions:");
+	  switch (i) {
+	  case BODYEXTLOC: printf (" location");
+	  case BODYEXTLANG: printf (" language");
+	  case BODYEXTDSP: printf (" disposition");
+	  case BODYEXTMD5: printf (" MD5\n");
+	  }
+	}
+      }
+      else putchar ('\n');
+    }
+  }
+}
+
+
+/* Prompt user for input
+ * Accepts: pointer to prompt message
+ *          pointer to input buffer
+ */
+
+void prompt (char *msg,char *txt)
+{
+  printf ("%s",msg);
+  gets (txt);
+}
+
+/* Interfaces to C-client */
+
+
+void mm_searched (MAILSTREAM *stream,unsigned long number)
+{
+}
+
+
+void mm_exists (MAILSTREAM *stream,unsigned long number)
+{
+}
+
+
+void mm_expunged (MAILSTREAM *stream,unsigned long number)
+{
+}
+
+
+void mm_flags (MAILSTREAM *stream,unsigned long number)
+{
+}
+
+
+void mm_notify (MAILSTREAM *stream,char *string,long errflg)
+{
+  mm_log (string,errflg);
+}
+
+
+void mm_list (MAILSTREAM *stream,int delimiter,char *mailbox,long attributes)
+{
+  putchar (' ');
+  if (delimiter) putchar (delimiter);
+  else fputs ("NIL",stdout);
+  putchar (' ');
+  fputs (mailbox,stdout);
+  if (attributes & LATT_NOINFERIORS) fputs (", no inferiors",stdout);
+  if (attributes & LATT_NOSELECT) fputs (", no select",stdout);
+  if (attributes & LATT_MARKED) fputs (", marked",stdout);
+  if (attributes & LATT_UNMARKED) fputs (", unmarked",stdout);
+  putchar ('\n');
+}
+
+
+void mm_lsub (MAILSTREAM *stream,int delimiter,char *mailbox,long attributes)
+{
+  putchar (' ');
+  if (delimiter) putchar (delimiter);
+  else fputs ("NIL",stdout);
+  putchar (' ');
+  fputs (mailbox,stdout);
+  if (attributes & LATT_NOINFERIORS) fputs (", no inferiors",stdout);
+  if (attributes & LATT_NOSELECT) fputs (", no select",stdout);
+  if (attributes & LATT_MARKED) fputs (", marked",stdout);
+  if (attributes & LATT_UNMARKED) fputs (", unmarked",stdout);
+  putchar ('\n');
+}
+
+
+void mm_status (MAILSTREAM *stream,char *mailbox,MAILSTATUS *status)
+{
+  printf (" Mailbox %s",mailbox);
+  if (status->flags & SA_MESSAGES) printf (", %lu messages",status->messages);
+  if (status->flags & SA_RECENT) printf (", %lu recent",status->recent);
+  if (status->flags & SA_UNSEEN) printf (", %lu unseen",status->unseen);
+  if (status->flags & SA_UIDVALIDITY) printf (", %lu UID validity",
+					      status->uidvalidity);
+  if (status->flags & SA_UIDNEXT) printf (", %lu next UID",status->uidnext);
+  printf ("\n");
+}
+
+
+void mm_log (char *string,long errflg)
+{
+  switch ((short) errflg) {
+  case NIL:
+    printf ("[%s]\n",string);
+    break;
+  case PARSE:
+  case WARN:
+    printf ("%%%s\n",string);
+    break;
+  case ERROR:
+    printf ("?%s\n",string);
+    break;
+  }
+}
+
+
+void mm_dlog (char *string)
+{
+  puts (string);
+}
+
+
+void mm_login (NETMBX *mb,char *user,char *pwd,long trial)
+{
+  char *s,tmp[MAILTMPLEN];
+  if (curhst) fs_give ((void **) &curhst);
+  curhst = (char *) fs_get (1+strlen (mb->host));
+  strcpy (curhst,mb->host);
+  sprintf (s = tmp,"{%s/%s",mb->host,mb->service);
+  if (*mb->user) sprintf (tmp+strlen (tmp),"/user=%s",strcpy (user,mb->user));
+  if (*mb->authuser) sprintf (tmp+strlen (tmp),"/authuser=%s",mb->authuser);
+  if (*mb->user) strcat (s = tmp,"} password:");
+  else {
+    printf ("%s} username: ",tmp);
+    fgets (user,NETMAXUSER-1,stdin);
+    user[NETMAXUSER-1] = '\0';
+    if (s = strchr (user,'\n')) *s = '\0';
+    s = "password: ";
+  }
+  if (curusr) fs_give ((void **) &curusr);
+  curusr = cpystr (user);
+  strcpy (pwd,getpass (s));
+}
+
+
+void mm_critical (MAILSTREAM *stream)
+{
+}
+
+
+void mm_nocritical (MAILSTREAM *stream)
+{
+}
+
+
+long mm_diskerror (MAILSTREAM *stream,long errcode,long serious)
+{
+#if UNIXLIKE
+  kill (getpid (),SIGSTOP);
+#else
+  abort ();
+#endif
+  return NIL;
+}
+
+
+void mm_fatal (char *string)
+{
+  printf ("?%s\n",string);
+}
+
+/* SMTP tester */
+
+void smtptest (long debug)
+{
+  SENDSTREAM *stream = NIL;
+  char line[MAILTMPLEN];
+  char *text = (char *) fs_get (8*MAILTMPLEN);
+  ENVELOPE *msg = mail_newenvelope ();
+  BODY *body = mail_newbody ();
+  msg->from = mail_newaddr ();
+  msg->from->personal = cpystr (personalname);
+  msg->from->mailbox = cpystr (curusr);
+  msg->from->host = cpystr (curhst);
+  msg->return_path = mail_newaddr ();
+  msg->return_path->mailbox = cpystr (curusr);
+  msg->return_path->host = cpystr (curhst);
+  prompt ("To: ",line);
+  rfc822_parse_adrlist (&msg->to,line,curhst);
+  if (msg->to) {
+    prompt ("cc: ",line);
+    rfc822_parse_adrlist (&msg->cc,line,curhst);
+  }
+  else {
+    prompt ("Newsgroups: ",line);
+    if (*line) msg->newsgroups = cpystr (line);
+    else {
+      mail_free_body (&body);
+      mail_free_envelope (&msg);
+      fs_give ((void **) &text);
+      return;
+    }
+  }
+  prompt ("Subject: ",line);
+  msg->subject = cpystr (line);
+  puts (" Msg (end with a line with only a '.'):");
+  body->type = TYPETEXT;
+  *text = '\0';
+  while (gets (line)) {
+    if (line[0] == '.') {
+      if (line[1] == '\0') break;
+      else strcat (text,".");
+    }
+    strcat (text,line);
+    strcat (text,"\015\012");
+  }
+  body->contents.text.data = (unsigned char *) text;
+  body->contents.text.size = strlen (text);
+  rfc822_date (line);
+  msg->date = (char *) fs_get (1+strlen (line));
+  strcpy (msg->date,line);
+  if (msg->to) {
+    puts ("Sending...");
+    if (stream = smtp_open (hostlist,debug)) {
+      if (smtp_mail (stream,"MAIL",msg,body)) puts ("[Ok]");
+      else printf ("[Failed - %s]\n",stream->reply);
+    }
+  }
+  else {
+    puts ("Posting...");
+    if (stream = nntp_open (newslist,debug)) {
+      if (nntp_mail (stream,msg,body)) puts ("[Ok]");
+      else printf ("[Failed - %s]\n",stream->reply);
+    }
+  }
+  if (stream) smtp_close (stream);
+  else puts ("[Can't open connection to any server]");
+  mail_free_envelope (&msg);
+  mail_free_body (&body);
+}