For now, only clear feed aggregation cache if clear all cache is requested.

modules/feed_aggregator/feed_aggregator_module.e

@@ -194,12 +194,15 @@ feature -- Hook
 			p: PATH
 			dir: DIRECTORY
 		do
+			if a_cache_id_list = Void then
+					-- Clear all cache.
 				p := a_response.api.files_location.extended (".cache").extended (name)
 				create dir.make_with_path (p)
 				if dir.exists then
 					dir.recursive_delete
 				end
 			end
+		end
 
 	block_list: ITERABLE [like {CMS_BLOCK}.name]
 			-- List of block names, managed by current object.