merging erik quanstros nupas

1 files changed, 35 insertions, 0 deletions

diff --git a/sys/src/cmd/upas/common/fmt.c b/sys/src/cmd/upas/common/fmt.c
new file mode 100644
index 000000000..e159ad269
--- /dev/null
+++ b/sys/src/cmd/upas/common/fmt.c
@@ -0,0 +1,35 @@
+#include "common.h"
+
+int
+rfc2047fmt(Fmt *fmt)
+{
+	char *s, *p;
+
+	s = va_arg(fmt->args, char*);
+	if(s == nil)
+		return fmtstrcpy(fmt, "");
+	for(p=s; *p; p++)
+		if((uchar)*p >= 0x80)
+			goto hard;
+	return fmtstrcpy(fmt, s);
+
+hard:
+	fmtprint(fmt, "=?utf-8?q?");
+	for(p = s; *p; p++){
+		if(*p == ' ')
+			fmtrune(fmt, '_');
+		else if(*p == '_' || *p == '\t' || *p == '=' || *p == '?' ||
+		    (uchar)*p >= 0x80)
+			fmtprint(fmt, "=%.2uX", (uchar)*p);
+		else
+			fmtrune(fmt, (uchar)*p);
+	}
+	fmtprint(fmt, "?=");
+	return 0;
+}
+
+void
+mailfmtinstall(void)
+{
+	fmtinstall('U', rfc2047fmt);
+}