diff --git a/uppsrc/Core/POP3/POP3.h b/uppsrc/Core/POP3/POP3.h
index 8afb81183..a012719b2 100644
--- a/uppsrc/Core/POP3/POP3.h
+++ b/uppsrc/Core/POP3/POP3.h
@@ -65,6 +65,8 @@ struct InetMessage {
 
 	bool   Read(const String& msg);
 	bool   ReadHeader(const String& msg);
+	
+	void   Clear()                                { part.Clear(); }
 
 	int         GetCount() const                  { return part.GetCount(); }
 	const Part& operator[](int i) const           { return part[i]; }
diff --git a/uppsrc/Core/POP3/src.tpp/InetMessage$en-us.tpp b/uppsrc/Core/POP3/src.tpp/InetMessage$en-us.tpp
index 3081a47eb..b39cb74f0 100644
--- a/uppsrc/Core/POP3/src.tpp/InetMessage$en-us.tpp
+++ b/uppsrc/Core/POP3/src.tpp/InetMessage$en-us.tpp
@@ -77,6 +77,10 @@ onst]_[_^String^ String][@(0.0.255) `&]_[*@3 msg])&]
 If succesful, there is exactly part 0 present, with empty body.&]
 [s3;%% &]
 [s4; &]
+[s5;:InetMessage`:`:Clear`(`): [@(0.0.255) void]_[* Clear]()&]
+[s2;%% Clears the content (GetCount() will be 0).&]
+[s3; &]
+[s4; &]
 [s5;:InetMessage`:`:GetCount`(`)const: [@(0.0.255) int]_[* GetCount]()_[@(0.0.255) const]&]
 [s2;%% Returns a number of parts present.&]
 [s3; &]