Subject: Re: digest

From: [email-masked]
Date: Thu, 22 Jun 95 14:43:09 +0000

Just someone trying to get this mailing list in digest form, instead 
getting lots of message around the day you get one message pr. day or 
week, (depends on server or user )

wbr
Johann S. Jonsson
Technological Institute of Iceland

----------
From: www-style; DANNY.ORELLANA
To: www-html; ken
Cc: www-talk; www-servers; www-style
Subject: Re: digest
Date:  22. June, 1995 13:54

what is this message all about?
Danny

_______________________________________________________________________________

Subject: digest

From:    [email-masked] at PMDF

Date:    6/21/95  4:44 PM

.=

.......................................................................

Item Subject: WINMAIL.DAT
Could not convert Microsoft Mail Message Data item to text.
Will attempt to 'shar' item as file '001ih3f' at end of msg.

# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#
# Wrapped by HP OpenMail System <openmail@korpa> on Thu Jun 22 14:43:36 1995
#
# This archive contains:
#	001ih3f	
#
# Error checking via wc(1) will be performed.

LANG=""; export LANG
PATH=/bin:/usr/bin:$PATH; export PATH

rm -f /tmp/uud$$
(echo "begin 666 /tmp/uud$$\n#;VL*n#6%@x\n \nend" | uudecode) >/dev/null 2>&1
if [ X"`cat /tmp/uud$$ 2>&1`" = Xok ]
then
	unpacker=uudecode
else
	echo Compiling unpacker for non-ascii files
	pwd=`pwd`; cd /tmp
	cat >unpack$$.c <<'EOF'
#include <stdio.h>
#define C (*p++ - ' ' & 077)
main()
{
	int n;
	char buf[128], *p, a,b;

	scanf("begin %o ", &n);
	gets(buf);

	if (freopen(buf, "w", stdout) == NULL) {
		perror(buf);
		exit(1);
	}

	while (gets(p=buf) && (n=C)) {
		while (n>0) {
			a = C;
			if (n-- > 0) putchar(a << 2 | (b=C) >> 4);
			if (n-- > 0) putchar(b << 4 | (a=C) >> 2);
			if (n-- > 0) putchar(a << 6 | C);
		}
	}
	exit(0);
}
EOF
	cc -o unpack$$ unpack$$.c
	rm unpack$$.c
	cd $pwd
	unpacker=/tmp/unpack$$
fi
rm -f /tmp/uud$$

echo x - 001ih3f '[non-ascii]'
$unpacker <<'@eof'
@eof
set `wc -lwc <001ih3f`
if test $1$2$3 != 1157
then
	echo ERROR: wc results of 001ih3f are $* should be 1 1 57
fi

chmod 660 001ih3f

rm -f /tmp/unpack$$
exit 0