From d09baddac30b8221ed34db41b9f0536daf83a084 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 26 Nov 2020 22:36:14 +0100
Subject: global-functions: $SendEMail: prepare to add link

For e-mail just in plain text...
---
 global-functions | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/global-functions b/global-functions
index be04150..de62a59 100644
--- a/global-functions
+++ b/global-functions
@@ -712,6 +712,7 @@
 :set SendEMail do={
   :local Subject [ :tostr $1 ];
   :local Message [ :tostr $2 ];
+  :local Link;
   :local Attach  [ :tostr $3 ];
 
   :global Identity;
@@ -730,6 +731,7 @@
     / tool e-mail send to=$EmailGeneralTo cc=$EmailGeneralCc \
       subject=("[" . $Identity . "] " . $Subject) \
       body=($Message . \
+        [ $IfThenElse ([ :len $Link ] > 0) ("\n\n" . $Link) "" ] . \
         [ $IfThenElse ([ :len $Signature ] > 0) ("\n-- \n" . $Signature) "" ]) \
       file=$Attach;
   } on-error={
-- 
cgit v1.2.3-54-g00ecf