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

modules/feed_aggregator/feed_aggregator_module.e

@@ -194,10 +194,13 @@ feature -- Hook
 			p: PATH
 			dir: DIRECTORY
 		do
-			p := a_response.api.files_location.extended (".cache").extended (name)
+			if a_cache_id_list = Void then
-			create dir.make_with_path (p)
+					-- Clear all cache.
-			if dir.exists then
+				p := a_response.api.files_location.extended (".cache").extended (name)
-				dir.recursive_delete
+				create dir.make_with_path (p)
+				if dir.exists then
+					dir.recursive_delete
+				end
 			end
 		end