X-Git-Url: http://git.marmaro.de/?p=mmh;a=blobdiff_plain;f=sbr%2Faddrsbr.c;h=4ab3feced82bac18d538fff366d04836deea6d84;hp=79d7afe4c467dd1e075934d4c1a256f70e31a5a6;hb=a485ed478abbd599d8c9aab48934e7a26733ecb1;hpb=f480c03187724e54e5391ee61b810827da319a6c

diff --git a/sbr/addrsbr.c b/sbr/addrsbr.c
index 79d7afe..4ab3fec 100644
--- a/sbr/addrsbr.c
+++ b/sbr/addrsbr.c
@@ -1,4 +1,3 @@
-
 /*
  * addrsbr.c -- parse addresses 822-style
  *
@@ -11,54 +10,55 @@
 #include <h/addrsbr.h>
 #include <h/mf.h>
 
-/* High level parsing of addresses:
-
-   The routines in sbr/mf.c parse the syntactic representations of
-   addresses.  The routines in sbr/addrsbr.c associate semantics with those
-   addresses.  
-
-   If #ifdef DUMB is in effect, a full 822-style parser is called
-   for syntax recongition.  This breaks each address into its components.
-   Note however that no semantics are assumed about the parts or their
-   totality.  This means that implicit hostnames aren't made explicit,
-   and explicit hostnames aren't expanded to their "official" represenations.
-
-   If DUMB is not in effect, then this module does some
-   high-level thinking about what the addresses are.
-
-   1. for MMDF systems:
-
-	string%<uucp>@<local>	->	string
-
-   2. for non-MMDF systems:
-
-	string@host.<uucp>	->	host!string
-
-   3. for any system, an address interpreted relative to the local host:
-
-	string@<uucp>		->	string
-
-   For cases (1) and (3) above, the leftmost host is extracted.  If it's not
-   present, the local host is used.  If the tests above fail, the address is
-   considered to be a real 822-style address.
-
-   If an explicit host is not present, then MH checks for a bang to indicate
-   an explicit UUCP-style address.  If so, this is noted.  If not, the host is
-   defaulted, typically to the local host.  The lack of an explict host is
-   also noted.
-
-   If an explicit 822-style host is present, then MH checks to see if it
-   can expand this to the official name for the host.  If the hostname is
-   unknown, the address is so typed.
-
-   To summarize, when we're all done, here's what MH knows about the address:
-
-   DUMB	-	type:	local, uucp, or network
-		host:	not locally defaulted, not explicitly expanded
-		everything else
-
-   other -	type:	local, uucp, network, unknown
-		everything else
+/*
+ * High level parsing of addresses:
+ *
+ * The routines in sbr/mf.c parse the syntactic representations of
+ * addresses.  The routines in sbr/addrsbr.c associate semantics with those
+ * addresses.
+ *
+ * If #ifdef DUMB is in effect, a full 822-style parser is called
+ * for syntax recongition.  This breaks each address into its components.
+ * Note however that no semantics are assumed about the parts or their
+ * totality.  This means that implicit hostnames aren't made explicit,
+ * and explicit hostnames aren't expanded to their "official" represenations.
+ *
+ * If DUMB is not in effect, then this module does some
+ * high-level thinking about what the addresses are.
+ *
+ * 1. for MMDF systems:
+ *
+ *      string%<uucp>@<local>  ->  string
+ *
+ * 2. for non-MMDF systems:
+ *
+ *      string@host.<uucp>  ->  host!string
+ *
+ * 3. for any system, an address interpreted relative to the local host:
+ *
+ *      string@<uucp>  ->  string
+ *
+ * For cases (1) and (3) above, the leftmost host is extracted.  If it's not
+ * present, the local host is used.  If the tests above fail, the address is
+ * considered to be a real 822-style address.
+ *
+ * If an explicit host is not present, then MH checks for a bang to indicate
+ * an explicit UUCP-style address.  If so, this is noted.  If not, the host is
+ * defaulted, typically to the local host.  The lack of an explict host is
+ * also noted.
+ *
+ * If an explicit 822-style host is present, then MH checks to see if it
+ * can expand this to the official name for the host.  If the hostname is
+ * unknown, the address is so typed.
+ *
+ * To summarize, when we're all done, here's what MH knows about the address:
+ *
+ * DUMB - type: local, uucp, or network
+ *              host:  not locally defaulted, not explicitly expanded
+ *              everything else
+ *
+ * other - type: local, uucp, network, unknown
+ *               everything else
  */
 
 
@@ -85,184 +85,177 @@ char *getusername (void);
 char *
 getname (char *addrs)
 {
-    struct adrx *ap;
-
-    pers = mbox = host = route = grp = note = NULL;
-    err[0] = '\0';
-
-    if ((ap = getadrx (addrs ? addrs : "")) == NULL)
-	return NULL;
-
-    strncpy (adr, ap->text, sizeof(adr));
-    pers = ap->pers;
-    mbox = ap->mbox;
-    host = ap->host;
-    route = ap->path;
-    grp = ap->grp;
-    ingrp = ap->ingrp;
-    note = ap->note;
-    if (ap->err && *ap->err)
-	strncpy (err, ap->err, sizeof(err));
-
-    return adr;
+	struct adrx *ap;
+
+	pers = mbox = host = route = grp = note = NULL;
+	err[0] = '\0';
+
+	if ((ap = getadrx (addrs ? addrs : "")) == NULL)
+		return NULL;
+
+	strncpy (adr, ap->text, sizeof(adr));
+	pers = ap->pers;
+	mbox = ap->mbox;
+	host = ap->host;
+	route = ap->path;
+	grp = ap->grp;
+	ingrp = ap->ingrp;
+	note = ap->note;
+	if (ap->err && *ap->err)
+		strncpy (err, ap->err, sizeof(err));
+
+	return adr;
 }
 
 
 struct mailname *
 getm (char *str, char *dfhost, int dftype, int wanthost, char *eresult)
 {
-    char *pp;
-    struct mailname *mp;
-#ifndef	DUMB
-    char *dp;
+	char *pp;
+	struct mailname *mp;
+#ifndef DUMB
+	char *dp;
 #endif /* not DUMB */
 
-    if (err[0]) {
-	if (eresult)
-	    strcpy (eresult, err);
-	else
-	    if (wanthost == AD_HOST)
-		admonish (NULL, "bad address '%s' - %s", str, err);
-	return NULL;
-    }
-    if (pers == NULL
-	    && mbox == NULL && host == NULL && route == NULL
-	    && grp == NULL) {
-	if (eresult)
-	    strcpy (eresult, "null address");
-	else
-	    if (wanthost == AD_HOST)
-		admonish (NULL, "null address '%s'", str);
-	return NULL;
-    }
-    if (mbox == NULL && grp == NULL) {
-	if (eresult)
-	    strcpy (eresult, "no mailbox in address");
-	else
-	    if (wanthost == AD_HOST)
-		admonish (NULL, "no mailbox in address '%s'", str);
-	return NULL;
-    }
-
-    if (dfhost == NULL) {
-	dfhost = LocalName ();
-	dftype = LOCALHOST;
-    }
-
-    mp = (struct mailname *) calloc ((size_t) 1, sizeof(*mp));
-    if (mp == NULL) {
-	if (eresult)
-	   strcpy (eresult, "insufficient memory to represent address");
-	else
-	    if (wanthost == AD_HOST)
-		adios (NULL, "insufficient memory to represent address");
-	return NULL;
-    }
-
-    mp->m_next = NULL;
-    mp->m_text = getcpy (str);
-    if (pers)
-	mp->m_pers = getcpy (pers);
-
-    if (mbox == NULL) {
-	mp->m_type = BADHOST;
-	mp->m_nohost = 1;
-	mp->m_ingrp = ingrp;
-	mp->m_gname = getcpy (grp);
-	if (note)
-	    mp->m_note = getcpy (note);
-	return mp;
-    }
-
-    if (host) {
-	mp->m_mbox = getcpy (mbox);
-	mp->m_host = getcpy (host);
-    }
-    else {
-	if ((pp = strchr(mbox, '!'))) {
-	    *pp++ = '\0';
-	    mp->m_mbox = getcpy (pp);
-	    mp->m_host = getcpy (mbox);
-	    mp->m_type = UUCPHOST;
+	if (err[0]) {
+		if (eresult)
+			strcpy (eresult, err);
+		else
+			if (wanthost == AD_HOST)
+				admonish (NULL, "bad address '%s' - %s", str, err);
+		return NULL;
+	}
+	if (pers == NULL && mbox == NULL && host == NULL && route == NULL
+		&& grp == NULL) {
+		if (eresult)
+			strcpy (eresult, "null address");
+		else
+			if (wanthost == AD_HOST)
+				admonish (NULL, "null address '%s'", str);
+		return NULL;
+	}
+	if (mbox == NULL && grp == NULL) {
+		if (eresult)
+			strcpy (eresult, "no mailbox in address");
+		else if (wanthost == AD_HOST)
+			admonish (NULL, "no mailbox in address '%s'", str);
+		return NULL;
+	}
+
+	if (dfhost == NULL) {
+		dfhost = LocalName ();
+		dftype = LOCALHOST;
+	}
+
+	mp = (struct mailname *) calloc ((size_t) 1, sizeof(*mp));
+	if (mp == NULL) {
+		if (eresult)
+			strcpy (eresult, "insufficient memory to represent address");
+		else if (wanthost == AD_HOST)
+			adios (NULL, "insufficient memory to represent address");
+		return NULL;
 	}
-	else {
-	    mp->m_nohost = 1;
-	    mp->m_mbox = getcpy (mbox);
+
+	mp->m_next = NULL;
+	mp->m_text = getcpy (str);
+	if (pers)
+		mp->m_pers = getcpy (pers);
+
+	if (mbox == NULL) {
+		mp->m_type = BADHOST;
+		mp->m_nohost = 1;
+		mp->m_ingrp = ingrp;
+		mp->m_gname = getcpy (grp);
+		if (note)
+			mp->m_note = getcpy (note);
+		return mp;
+	}
+
+	if (host) {
+		mp->m_mbox = getcpy (mbox);
+		mp->m_host = getcpy (host);
+	} else {
+		if ((pp = strchr(mbox, '!'))) {
+			*pp++ = '\0';
+			mp->m_mbox = getcpy (pp);
+			mp->m_host = getcpy (mbox);
+			mp->m_type = UUCPHOST;
+		} else {
+			mp->m_nohost = 1;
+			mp->m_mbox = getcpy (mbox);
 #ifdef DUMB
-	    if (route == NULL && dftype == LOCALHOST) {
-		mp->m_host = NULL;
-		mp->m_type = dftype;
-	    }
-	    else
+			if (route == NULL && dftype == LOCALHOST) {
+				mp->m_host = NULL;
+				mp->m_type = dftype;
+			} else
 #endif /* DUMB */
-	    {
-		mp->m_host = route ? NULL : getcpy (dfhost);
-		mp->m_type = route ? NETHOST : dftype;
-	    }
+			{
+				mp->m_host = route ? NULL : getcpy (dfhost);
+				mp->m_type = route ? NETHOST : dftype;
+			}
+		}
+		goto got_host;
 	}
-	goto got_host;
-    }
 
-    if (wanthost == AD_NHST)
-	mp->m_type = !mh_strcasecmp (LocalName (), mp->m_host)
-	    ? LOCALHOST : NETHOST;
+	if (wanthost == AD_NHST)
+		mp->m_type = !mh_strcasecmp (LocalName (), mp->m_host)
+			? LOCALHOST : NETHOST;
 #ifdef DUMB
-    else
-	mp->m_type = mh_strcasecmp (LocalName(), mp->m_host) ?  NETHOST : LOCALHOST;
+	else
+		mp->m_type = mh_strcasecmp (LocalName(), mp->m_host) ?  NETHOST : LOCALHOST;
 #else /* not DUMB */
-    else
-	if (pp = OfficialName (mp->m_host)) {
-    got_real_host: ;
-	    free (mp->m_host);
-	    mp->m_host = getcpy (pp);
-	    mp->m_type = mh_strcasecmp (LocalName(), mp->m_host) ? NETHOST : LOCALHOST;
-	}
-	else {
-	    if (dp = strchr(mp->m_host, '.')) {
-		*dp = NULL;
-		if (pp = OfficialName (mp->m_host))
-		    goto got_real_host;
-		*dp = '.';
-	    }
-	    mp->m_type = BADHOST;
-	}
+	else
+		if (pp = OfficialName (mp->m_host)) {
+	got_real_host: ;
+			free (mp->m_host);
+			mp->m_host = getcpy (pp);
+			mp->m_type = mh_strcasecmp (LocalName(), mp->m_host) ? NETHOST : LOCALHOST;
+		} else {
+			if (dp = strchr(mp->m_host, '.')) {
+				*dp = NULL;
+				if (pp = OfficialName (mp->m_host))
+					goto got_real_host;
+				*dp = '.';
+			}
+			mp->m_type = BADHOST;
+		}
 #endif /* not DUMB */
 
 got_host: ;
-    if (route)
-	mp->m_path = getcpy (route);
-    mp->m_ingrp = ingrp;
-    if (grp)
-	mp->m_gname = getcpy (grp);
-    if (note)
-	mp->m_note = getcpy (note);
-
-    return mp;
+	if (route)
+		mp->m_path = getcpy (route);
+	mp->m_ingrp = ingrp;
+	if (grp)
+		mp->m_gname = getcpy (grp);
+	if (note)
+		mp->m_note = getcpy (note);
+
+	return mp;
 }
 
 
 void
 mnfree (struct mailname *mp)
 {
-    if (!mp)
-	return;
-
-    if (mp->m_text)
-	free (mp->m_text);
-    if (mp->m_pers)
-	free (mp->m_pers);
-    if (mp->m_mbox)
-	free (mp->m_mbox);
-    if (mp->m_host)
-	free (mp->m_host);
-    if (mp->m_path)
-	free (mp->m_path);
-    if (mp->m_gname)
-	free (mp->m_gname);
-    if (mp->m_note)
-	free (mp->m_note);
-
-    free ((char *) mp);
+	if (!mp)
+		return;
+
+	if (mp->m_text)
+		free (mp->m_text);
+	if (mp->m_pers)
+		free (mp->m_pers);
+	if (mp->m_mbox)
+		free (mp->m_mbox);
+	if (mp->m_host)
+		free (mp->m_host);
+	if (mp->m_path)
+		free (mp->m_path);
+	if (mp->m_gname)
+		free (mp->m_gname);
+	if (mp->m_note)
+		free (mp->m_note);
+
+	free ((char *) mp);
 }
 
 
@@ -271,43 +264,41 @@ mnfree (struct mailname *mp)
 char *
 auxformat (struct mailname *mp, int extras)
 {
-    static char addr[BUFSIZ];
-    static char buffer[BUFSIZ];
+	static char addr[BUFSIZ];
+	static char buffer[BUFSIZ];
 
 #ifdef DUMB
 	if (mp->m_nohost)
-	    strncpy (addr, mp->m_mbox ? mp->m_mbox : "", sizeof(addr));
+		strncpy (addr, mp->m_mbox ? mp->m_mbox : "", sizeof(addr));
 	else
 #endif /* DUMB */
 
-#ifndef	BANG
+#ifndef BANG
 	if (mp->m_type != UUCPHOST)
-	    snprintf (addr, sizeof(addr), mp->m_host ? "%s%s@%s" : "%s%s",
-		empty(mp->m_path), empty(mp->m_mbox), mp->m_host);
+		snprintf (addr, sizeof(addr), mp->m_host ? "%s%s@%s" : "%s%s",
+			empty(mp->m_path), empty(mp->m_mbox), mp->m_host);
 	else
 #endif /* not BANG */
-	    snprintf (addr, sizeof(addr), "%s!%s", mp->m_host, mp->m_mbox);
-
-    if (!extras)
-	return addr;
-
-    if (mp->m_pers || mp->m_path) {
-	if (mp->m_note)
-	    snprintf (buffer, sizeof(buffer), "%s %s <%s>",
-		    legal_person (mp->m_pers ? mp->m_pers : mp->m_mbox),
-		    mp->m_note, addr);
+		snprintf (addr, sizeof(addr), "%s!%s", mp->m_host, mp->m_mbox);
+
+	if (!extras)
+		return addr;
+
+	if (mp->m_pers || mp->m_path) {
+		if (mp->m_note)
+			snprintf (buffer, sizeof(buffer), "%s %s <%s>",
+				legal_person (mp->m_pers ? mp->m_pers : mp->m_mbox),
+				mp->m_note, addr);
+		else
+			snprintf (buffer, sizeof(buffer), "%s <%s>",
+				legal_person (mp->m_pers ? mp->m_pers : mp->m_mbox),
+				addr);
+	} else if (mp->m_note)
+		snprintf (buffer, sizeof(buffer), "%s %s", addr, mp->m_note);
 	else
-	    snprintf (buffer, sizeof(buffer), "%s <%s>",
-		    legal_person (mp->m_pers ? mp->m_pers : mp->m_mbox),
-		    addr);
-    }
-    else
-	if (mp->m_note)
-	    snprintf (buffer, sizeof(buffer), "%s %s", addr, mp->m_note);
-	else
-	    strncpy (buffer, addr, sizeof(buffer));
+		strncpy (buffer, addr, sizeof(buffer));
 
-    return buffer;
+	return buffer;
 }
 
 
@@ -318,65 +309,66 @@ auxformat (struct mailname *mp, int extras)
 char *
 adrsprintf (char *username, char *domain)
 {
-    int          snprintf_return;
-    static char  addr[BUFSIZ];
-
-    if (username == NULL)
-	username = getusername();
-
-    if (username_extension_masquerading) {
-	/* mts.conf contains "masquerade:[...]username_extension[...]", so tack
-	   on the value of the $USERNAME_EXTENSION environment variable, if set,
-	   to username. */
-	char*        extension = getenv("USERNAME_EXTENSION");
-	static char  username_with_extension[BUFSIZ];
-
-	if (extension != NULL && *extension != '\0') {
-	    snprintf_return = snprintf(username_with_extension,
-				       sizeof(username_with_extension),
-				       "%s%s", username, extension);
-	    
-	    if (snprintf_return < 0 ||
-		snprintf_return >= sizeof(username_with_extension))
-		adios(NULL, "snprintf() error writing username (%d chars) and"
-		      " $USERNAME_EXTENSION (%d chars) to array of BUFSIZ (%d)"
-		      " chars",
-		      strlen(username), strlen(extension), BUFSIZ);
-	    
-	    username = username_with_extension;
+	int snprintf_return;
+	static char addr[BUFSIZ];
+
+	if (username == NULL)
+		username = getusername();
+
+	if (username_extension_masquerading) {
+		/* mts.conf contains "masquerade:[...]username_extension[...]",
+		 * so tack on the value of the $USERNAME_EXTENSION environment
+		 * variable, if set, to username.
+		 */
+		char* extension = getenv("USERNAME_EXTENSION");
+		static char username_with_extension[BUFSIZ];
+
+		if (extension != NULL && *extension != '\0') {
+			snprintf_return = snprintf(username_with_extension,
+				sizeof(username_with_extension),
+				"%s%s", username, extension);
+
+			if (snprintf_return < 0 ||
+				snprintf_return >= sizeof(username_with_extension))
+				adios(NULL, "snprintf() error writing username (%d chars) and"
+					  " $USERNAME_EXTENSION (%d chars) to array of BUFSIZ (%d)"
+					  " chars",
+					  strlen(username), strlen(extension), BUFSIZ);
+
+			username = username_with_extension;
+		}
 	}
-    }
 
 #ifdef REALLYDUMB
-    return username;
+	return username;
 #endif
 
-    if (domain == NULL)
-	domain = LocalName();
+	if (domain == NULL)
+		domain = LocalName();
 
-#ifndef	BANG
-    snprintf_return = snprintf (addr, sizeof(addr), "%s@%s", username, domain);
+#ifndef BANG
+	snprintf_return = snprintf (addr, sizeof(addr), "%s@%s", username, domain);
 #else /* BANG */
-    snprintf_return = snprintf (addr, sizeof(addr), "%s!%s", domain, username);
+	snprintf_return = snprintf (addr, sizeof(addr), "%s!%s", domain, username);
 #endif /* BANG */
 
-    if (snprintf_return < 0 || snprintf_return >= sizeof(addr))
-	adios(NULL, "snprintf() error writing username (%d chars), domain (%d"
-	      " chars), and 1 separator char to array of BUFSIZ (%d) chars",
-	      strlen(username), strlen(domain), BUFSIZ);
-    
-    return addr;
+	if (snprintf_return < 0 || snprintf_return >= sizeof(addr))
+		adios(NULL, "snprintf() error writing username (%d chars), domain (%d"
+			  " chars), and 1 separator char to array of BUFSIZ (%d) chars",
+			  strlen(username), strlen(domain), BUFSIZ);
+
+	return addr;
 }
 
 
-#define	W_NIL	0x0000
-#define	W_MBEG	0x0001
-#define	W_MEND	0x0002
-#define	W_MBOX	(W_MBEG | W_MEND)
-#define	W_HBEG	0x0004
-#define	W_HEND	0x0008
-#define	W_HOST	(W_HBEG | W_HEND)
-#define	WBITS	"\020\01MBEG\02MEND\03HBEG\04HEND"
+#define W_NIL   0x0000
+#define W_MBEG  0x0001
+#define W_MEND  0x0002
+#define W_MBOX  (W_MBEG | W_MEND)
+#define W_HBEG  0x0004
+#define W_HEND  0x0008
+#define W_HOST  (W_HBEG | W_HEND)
+#define WBITS   "\020\01MBEG\02MEND\03HBEG\04HEND"
 
 /*
  * Check if this is my address
@@ -385,146 +377,146 @@ adrsprintf (char *username, char *domain)
 int
 ismymbox (struct mailname *np)
 {
-    int oops;
-    register int len, i;
-    register char *cp;
-    register char *pp;
-    char buffer[BUFSIZ];
-    struct mailname *mp;
-    static char *am = NULL;
-    static struct mailname mq={NULL};
-
-    /*
-     * If this is the first call, initialize
-     * list of alternate mailboxes.
-     */
-    if (am == NULL) {
-	mq.m_next = NULL;
-	mq.m_mbox = getusername ();
-	if ((am = context_find ("alternate-mailboxes")) == NULL)
-	    am = getusername();
-	else {
-	    mp = &mq;
-	    oops = 0;
-	    while ((cp = getname (am))) {
-		if ((mp->m_next = getm (cp, NULL, 0, AD_NAME, NULL)) == NULL) {
-		    admonish (NULL, "illegal address: %s", cp);
-		    oops++;
-		} else {
-		    mp = mp->m_next;
-		    mp->m_type = W_NIL;
-		    if (*mp->m_mbox == '*') {
-			mp->m_type |= W_MBEG;
-			mp->m_mbox++;
-		    }
-		    if (*(cp = mp->m_mbox + strlen (mp->m_mbox) - 1) == '*') {
-			mp->m_type |= W_MEND;
-			*cp = '\0';
-		    }
-		    if (mp->m_host) {
-			if (*mp->m_host == '*') {
-			    mp->m_type |= W_HBEG;
-			    mp->m_host++;
-			}
-			if (*(cp = mp->m_host + strlen (mp->m_host) - 1) == '*') {
-			    mp->m_type |= W_HEND;
-			    *cp = '\0';
+	int oops;
+	register int len, i;
+	register char *cp;
+	register char *pp;
+	char buffer[BUFSIZ];
+	struct mailname *mp;
+	static char *am = NULL;
+	static struct mailname mq={NULL};
+
+	/*
+	 * If this is the first call, initialize
+	 * list of alternate mailboxes.
+	 */
+	if (am == NULL) {
+		mq.m_next = NULL;
+		mq.m_mbox = getusername ();
+		if ((am = context_find ("alternate-mailboxes")) == NULL)
+			am = getusername();
+		else {
+			mp = &mq;
+			oops = 0;
+			while ((cp = getname (am))) {
+				if ((mp->m_next = getm (cp, NULL, 0, AD_NAME, NULL)) == NULL) {
+					admonish (NULL, "illegal address: %s", cp);
+					oops++;
+				} else {
+					mp = mp->m_next;
+					mp->m_type = W_NIL;
+					if (*mp->m_mbox == '*') {
+						mp->m_type |= W_MBEG;
+						mp->m_mbox++;
+					}
+					if (*(cp = mp->m_mbox + strlen (mp->m_mbox) - 1) == '*') {
+						mp->m_type |= W_MEND;
+						*cp = '\0';
+					}
+					if (mp->m_host) {
+						if (*mp->m_host == '*') {
+							mp->m_type |= W_HBEG;
+							mp->m_host++;
+						}
+						if (*(cp = mp->m_host + strlen (mp->m_host) - 1) == '*') {
+							mp->m_type |= W_HEND;
+							*cp = '\0';
+						}
+					}
+					if ((cp = getenv ("MHWDEBUG")) && *cp)
+						fprintf (stderr, "mbox=\"%s\" host=\"%s\" %s\n",
+							mp->m_mbox, mp->m_host,
+							snprintb (buffer, sizeof(buffer), (unsigned) mp->m_type, WBITS));
+				}
 			}
-		    }
-		    if ((cp = getenv ("MHWDEBUG")) && *cp)
-			fprintf (stderr, "mbox=\"%s\" host=\"%s\" %s\n",
-			    mp->m_mbox, mp->m_host,
-			    snprintb (buffer, sizeof(buffer), (unsigned) mp->m_type, WBITS));
+			if (oops)
+				advise (NULL, "please fix the %s: entry in your %s file",
+					"alternate-mailboxes", mh_profile);
 		}
-	    }
-	    if (oops)
-		advise (NULL, "please fix the %s: entry in your %s file",
-			"alternate-mailboxes", mh_profile);
 	}
-    }
 
-    if (np == NULL) /* XXX */
-	return 0;
-    
-    switch (np->m_type) {
-	case NETHOST:
-	    len = strlen (cp = LocalName ());
-	    if (!uprf (np->m_host, cp) || np->m_host[len] != '.')
-		break;
-	    goto local_test;
-
-	case UUCPHOST:
-	    if (mh_strcasecmp (np->m_host, SystemName()))
-		break;		/* fall */
-	case LOCALHOST:
+	if (np == NULL) /* XXX */
+		return 0;
+
+	switch (np->m_type) {
+		case NETHOST:
+			len = strlen (cp = LocalName ());
+			if (!uprf (np->m_host, cp) || np->m_host[len] != '.')
+				break;
+			goto local_test;
+
+		case UUCPHOST:
+			if (mh_strcasecmp (np->m_host, SystemName()))
+				break;  /* fall */
+		case LOCALHOST:
 local_test: ;
-	    if (!mh_strcasecmp (np->m_mbox, mq.m_mbox))
-		return 1;
-	    break;
-
-	default:
-	    break;
-    }
-
-    /*
-     * Now scan through list of alternate
-     * mailboxes, and check for a match.
-     */
-    for (mp = &mq; mp->m_next;) {
-	mp = mp->m_next;
-	if (!np->m_mbox)
-	    continue;
-	if ((len = strlen (cp = np->m_mbox))
-		< (i = strlen (pp = mp->m_mbox)))
-	    continue;
-	switch (mp->m_type & W_MBOX) {
-	    case W_NIL: 
-		if (mh_strcasecmp (cp, pp))
-		    continue;
-		break;
-	    case W_MBEG: 
-		if (mh_strcasecmp (cp + len - i, pp))
-		    continue;
-		break;
-	    case W_MEND: 
-		if (!uprf (cp, pp))
-		    continue;
-		break;
-	    case W_MBEG | W_MEND: 
-		if (stringdex (pp, cp) < 0)
-		    continue;
-		break;
+			if (!mh_strcasecmp (np->m_mbox, mq.m_mbox))
+				return 1;
+			break;
+
+		default:
+			break;
 	}
 
-	if (mp->m_nohost)
-	    return 1;
-	if (np->m_host == NULL)
-	    continue;
-	if ((len = strlen (cp = np->m_host))
-		< (i = strlen (pp = mp->m_host)))
-	    continue;
-	switch (mp->m_type & W_HOST) {
-	    case W_NIL: 
-		if (mh_strcasecmp (cp, pp))
-		    continue;
-		break;
-	    case W_HBEG: 
-		if (mh_strcasecmp (cp + len - i, pp))
-		    continue;
-		break;
-	    case W_HEND: 
-		if (!uprf (cp, pp))
-		    continue;
-		break;
-	    case W_HBEG | W_HEND: 
-		if (stringdex (pp, cp) < 0)
-		    continue;
-		break;
+	/*
+	 * Now scan through list of alternate
+	 * mailboxes, and check for a match.
+	 */
+	for (mp = &mq; mp->m_next;) {
+		mp = mp->m_next;
+		if (!np->m_mbox)
+			continue;
+		if ((len = strlen (cp = np->m_mbox))
+			< (i = strlen (pp = mp->m_mbox)))
+			continue;
+		switch (mp->m_type & W_MBOX) {
+			case W_NIL:
+				if (mh_strcasecmp (cp, pp))
+					continue;
+				break;
+			case W_MBEG:
+				if (mh_strcasecmp (cp + len - i, pp))
+					continue;
+				break;
+			case W_MEND:
+				if (!uprf (cp, pp))
+					continue;
+				break;
+			case W_MBEG | W_MEND:
+				if (stringdex (pp, cp) < 0)
+					continue;
+				break;
+		}
+
+		if (mp->m_nohost)
+			return 1;
+		if (np->m_host == NULL)
+			continue;
+		if ((len = strlen (cp = np->m_host))
+			< (i = strlen (pp = mp->m_host)))
+			continue;
+		switch (mp->m_type & W_HOST) {
+			case W_NIL:
+				if (mh_strcasecmp (cp, pp))
+					continue;
+				break;
+			case W_HBEG:
+				if (mh_strcasecmp (cp + len - i, pp))
+					continue;
+				break;
+			case W_HEND:
+				if (!uprf (cp, pp))
+					continue;
+				break;
+			case W_HBEG | W_HEND:
+				if (stringdex (pp, cp) < 0)
+					continue;
+				break;
+		}
+		return 1;
 	}
-	return 1;
-    }
 
-    return 0;
+	return 0;
 }
 
 
@@ -546,31 +538,31 @@ local_test: ;
 char *
 OfficialName (char *name)
 {
-    unsigned char *p;
-    char *q, site[BUFSIZ];
-    struct addrinfo hints, *res;
+	unsigned char *p;
+	char *q, site[BUFSIZ];
+	struct addrinfo hints, *res;
 
-    static char buffer[BUFSIZ];
+	static char buffer[BUFSIZ];
 
-    for (p = name, q = site; *p && (q - site < sizeof(site) - 1); p++, q++)
-	*q = isupper (*p) ? tolower (*p) : *p;
-    *q = '\0';
-    q = site;
+	for (p = name, q = site; *p && (q - site < sizeof(site) - 1); p++, q++)
+		*q = isupper (*p) ? tolower (*p) : *p;
+	*q = '\0';
+	q = site;
 
-    if (!mh_strcasecmp (LocalName(), site))
-	return LocalName();
+	if (!mh_strcasecmp (LocalName(), site))
+		return LocalName();
 
-    memset(&hints, 0, sizeof(hints));
-    hints.ai_flags = AI_CANONNAME;
-    hints.ai_family = PF_UNSPEC;
+	memset(&hints, 0, sizeof(hints));
+	hints.ai_flags = AI_CANONNAME;
+	hints.ai_family = PF_UNSPEC;
 
-    if (getaddrinfo(q, NULL, &hints, &res) == 0) {
-	strncpy (buffer, res->ai_canonname, sizeof(buffer));
-	buffer[sizeof(buffer) - 1] = '\0';
-	freeaddrinfo(res);
-	return buffer;
-    }
+	if (getaddrinfo(q, NULL, &hints, &res) == 0) {
+		strncpy (buffer, res->ai_canonname, sizeof(buffer));
+		buffer[sizeof(buffer) - 1] = '\0';
+		freeaddrinfo(res);
+		return buffer;
+	}
 
-    strncpy (buffer, site, sizeof(buffer));
-    return buffer;
+	strncpy (buffer, site, sizeof(buffer));
+	return buffer;
 }