From 988d45ab9bfb571fe4a2a77f046fc814f060fe7a Mon Sep 17 00:00:00 2001 From: Maciej Pasternacki Date: Sun, 30 Nov 2008 18:40:28 +0100 Subject: [PATCH] - New fn QP-UTF8 --- src/common.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/common.lisp b/src/common.lisp index 863fabd..a983482 100644 --- a/src/common.lisp +++ b/src/common.lisp @@ -11,7 +11,7 @@ #:dirtiness-mixin #:dirty-p #:mark-as-dirty #:update-dao-if-dirty #:cache-dao #:with-dao-cache #:*config* #:init-config #:*db* #:init-db-connection #:execute* - #:unless-null #:null-or #:invoke-sendmail + #:unless-null #:null-or #:qp-utf8 #:invoke-sendmail #:report-error #:report-error-by-email #:report-error-to-file #:format-error-report #:*error-context-hook* #:*error-report-pathname-defaults* #:make-keyword #:named-lambda #:random-string #:salted-password #:hex-md5 @@ -190,6 +190,10 @@ lists of statements." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Mailing +(defun qp-utf8 (string) + "Encode STRING as quoted-printable UTF-8" + (cl-qprint:encode (map 'string #'code-char (trivial-utf-8:string-to-utf-8-bytes string)))) + (defun invoke-sendmail (sender rcpt body-and-headers &key (sendmail-binary (py-configparser:get-option *config* "mailing" "sendmail")) ) "Invoke sendmail binary. -- 2.11.4.GIT