Fix maillists issues (#49)

* Fix maillist deletion

* Fix duplicating of maillist while changing its name

* Permit sub-lists

* Fix messages with no mailing lists

storage.lua

@@ -148,21 +148,17 @@ function mail.get_maillist_by_name(playername, listname)
 end
 
 -- updates or creates a maillist
-function mail.update_maillist(playername, list)
+function mail.update_maillist(playername, list, old_list_name)
 	local entry = mail.get_storage_entry(playername)
-	local existing_updated = false
 	for i, existing_list in ipairs(entry.lists) do
-		if existing_list.name == list.name then
+		if existing_list.name == old_list_name then
-			-- update
+			-- delete
-			entry.lists[i] = list
+			table.remove(entry.lists, i)
-			existing_updated = true
 			break
 		end
 	end
-	if not existing_updated then
 	-- insert
 	table.insert(entry.lists, list)
-	end
 	mail.set_storage_entry(playername, entry)
 end
 
@@ -179,10 +175,12 @@ function mail.delete_maillist(playername, listname)
 end
 
 function mail.extractMaillists(receivers_string, maillists_owner)
-	local globalReceivers = mail.parse_player_list(receivers_string) -- receivers including maillists
+	local receivers = mail.parse_player_list(receivers_string) -- extracted receivers
-	local receivers = {} -- extracted receivers
 
 	-- extract players from mailing lists
+	while string.find(receivers_string, "@") do
+		local globalReceivers = mail.parse_player_list(receivers_string) -- receivers including maillists
+		receivers = {}
 		for _, receiver in ipairs(globalReceivers) do
 			local receiverInfo = receiver:split("@") -- @maillist
 			if receiverInfo[1] and receiver == "@" .. receiverInfo[1] then
@@ -196,6 +194,8 @@ function mail.extractMaillists(receivers_string, maillists_owner)
 				table.insert(receivers, receiver)
 			end
 		end
+		receivers_string = mail.concat_player_list(receivers)
+	end
 
 	return receivers
 end

ui/edit_maillists.lua

@@ -1,9 +1,11 @@
 -- translation
 local S = minetest.get_translator("mail")
+local old_lists_names = {}
 
 local FORMNAME = "mail:editmaillist"
 
 function mail.show_edit_maillist(playername, maillist_name, desc, players, illegal_name_hint)
+	old_lists_names[playername] = maillist_name
 	local formspec = [[
 			size[6,7]
 			button[4,6.25;2,0.5;back;]] .. S("Back") .. [[]
@@ -45,7 +47,7 @@ minetest.register_on_player_receive_fields(function(player, formname, fields)
 			name = fields.name,
 			desc = fields.desc,
 			players = mail.parse_player_list(fields.players)
-		})
+		}, old_lists_names[name])
 		mail.show_maillists(name)
 
 	elseif fields.back then

ui/maillists.lua

@@ -90,7 +90,7 @@ minetest.register_on_player_receive_fields(function(player, formname, fields)
 					mail.selected_idxs.maillists[name] = k
 					break
 				elseif k == mail.selected_idxs.maillists[name] then
-					mail.delete_maillist(maillists[mail.selected_idxs.maillists[name]].name)
+					mail.delete_maillist(name, maillists[mail.selected_idxs.maillists[name]].name)
 					mail.selected_idxs.maillists[name] = nil
 					found = true
 				else