summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 22:50:26 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 22:50:26 +0200
commit0bde00b1039ae10a0fdef0f71ef7a2b6e41c5016 (patch)
treef6ee87344af4faa194b05c20153f5b23943a8d3c
parent23299493c28f92e5a75f1feedb5510283dd1a737 (diff)
Include the comment ID in a comment notification e-mail message.
Ignore-this: 16401dc3783984a3fb43262d8fe6be8c darcs-hash:f75242b42f78685e1ead7c730f0f77957217b68e
-rw-r--r--utils.lisp2
1 files changed, 2 insertions, 0 deletions
diff --git a/utils.lisp b/utils.lisp
index e111231..877343e 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -311,6 +311,7 @@ ELEMENT-TYPE as the stream's."
(mail address
(format nil "[Kommentar] ~A" (title-of entry))
(format nil "~&Kommentar von: ~A~
+ ~&Nummer: ~A~
~&E-Mail: ~A~
~&Website: ~A~
~&IP-Adresse: ~A~
@@ -319,6 +320,7 @@ ELEMENT-TYPE as the stream's."
~&~%~
~&~A"
(author-of comment)
+ (id-of comment)
(email-of comment)
(website-of comment)
(submitter-ip comment)