Pastable version of folding of non-ascii long header fields (rfc2822 section 2.2.3)

<pre class='prettyprint' language='lisp'>(defun header-encode (string)
  (if (find-if (lambda (c) (&gt; (char-code c) 127)) string)
      (format nil &quot;~{ =?utf-8?B?~A?=~%~}&quot;
	      (cl-ppcre:split #\Newline
			      (cl-base64:usb8-array-to-base64-string
			       (portable-string-to-octets string)
			       :columns 40)))
      (format nil &quot; ~A~%&quot; string)))

(defun mail-headers (to from subject mime-type)
  (format nil &quot;To: ~A
From: ~A
Subject:~AContent-Type: ~A;charset=utf-8
&quot; to from (header-encode subject) mime-type))

(defun better-mail-headers (to from subject mime-type)
  (format nil &quot;To: ~A
From: ~A
Subject: ~A
Content-Type: ~A;charset=utf-8
&quot; to from (header-encode subject) mime-type))</pre>
<a href="http://www.refactormycode.com/codes/45-folding-of-non-ascii-long-header-fields-rfc2822-section-2-2-3" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of folding of non-ascii long header fields (rfc2822 section 2.2.3)