make mail/tools.anubis to be transmitted to let get_rfc822_date_format to be vis…

…ible by compose_email.anubis source reader

make mail/tools.anubis to be transmitted to let get_rfc822_date_format to be vis…
…ible by compose_email.anubis source reader
David RENÉ
1 parent 6923cbdd
Showing 1 changed file with 1 additions and 36 deletions Show diff stats
mail/compose_email.anubis
@@ -15,7 +15,7 @@ read system/logger.anubis
 read system/data_io.anubis
 read web/mime.anubis
 //read calexium_lib/net_services_protocols/logger_service.anubis
-read calexium_lib/mail/tools.anubis
+transmit calexium_lib/mail/tools.anubis
 read calexium_lib/mail/decode_mail.anubis
 read calexium_lib/mail/encode_mail.anubis
 read calexium_lib/mail/lexers/fqa.anubis
@@ -238,41 +238,6 @@ define String
   }
 .
-
- public define String
-  str_utime_send_mail
-  (
-    UTime t
-  ) =
-  with date_send  = convert_time(t.seconds),
-  if day_name(date_send.week_day) is
-  {
-    failure then "",
-    success(the_day_name) then the_day_name + ", "
-  }+
-  date_send.day + " " + 
-  if month_name(date_send.month) is
-  {
-    failure then to_decimal(date_send.month),
-    success(the_month_name) then the_month_name
-  }+ " " +
-  date_send.year + " " + 
-  zero_pad_n(2, date_send.hour) + ":" + zero_pad_n(2, date_send.minute) + ":" + zero_pad_n(2, date_send.second) 
-  //+ " +0000"
-  .
-
- public define String
-  get_rfc822_date_format
-  =
-  str_utime_send_mail(unow).
-  
-  if capture_shell_command("date", ["-R"]) is 
-  {
-    failure then str_utime_send_mail(unow),
-    success(s) then 
-      if split_lines(s) is [h . t] then h else str_utime_send_mail(unow)
-  }.
-
 define Int
   _next_ws_pos
   (