Support comment submission notification via e-mail.

darcs-hash:72d3c69e6dc8ef47e9e6224adcc135637957ad09

1 files changed, 16 insertions, 10 deletions

diff --git a/main.lisp b/main.lisp
index bbc08e6..fdd6b67 100644
--- a/main.lisp
+++ b/main.lisp
@@ -160,7 +160,9 @@
                                      f&uuml;r die Spamerkennung.</p>")
                                      *journal-warnings*)))
                          (update-records-from-instance comment)
-                         (update-records-from-instance entry)))
+                         (update-records-from-instance entry)
+                         (when (eq *site* :nfs.net)
+                           (mail-comment *notification-email* comment entry))))
                      (show-web-journal))
     (:view-atom-feed (show-atom-feed))
     (:view-debugging-page (show-debugging-page))
@@ -169,15 +171,19 @@
 
 #+clisp
 (defun journal-main ()
-  (ext:letf ((custom:*terminal-encoding* (ext:make-encoding
-                                          :charset charset:utf-8)))
-    (with-initialised-journal
-      (let ((*random-state* (make-random-state t)))
-        (if (member "--admin-mode"
-                    (coerce (ext:argv) 'list)
-                    :test #'string=)
-            (dispatch-admin-action)
-            (dispatch-user-action))))))
+  (let ((encoding (ext:make-encoding :charset charset:utf-8)))
+    (ext:letf* ((custom:*terminal-encoding* encoding)
+                (custom:*foreign-encoding* encoding)
+                (custom:*misc-encoding* encoding)
+                (custom:*pathname-encoding* encoding)
+                (custom:*default-file-encoding* encoding))
+      (with-initialised-journal
+        (let ((*random-state* (make-random-state t)))
+          (if (member "--admin-mode"
+                      (coerce (ext:argv) 'list)
+                      :test #'string=)
+              (dispatch-admin-action)
+              (dispatch-user-action)))))))
 
 
 #+clisp