diff --git a/include/emqttd_internal.hrl b/include/emqttd_internal.hrl
index fa8440e45..4f2eb378c 100644
--- a/include/emqttd_internal.hrl
+++ b/include/emqttd_internal.hrl
@@ -29,3 +29,7 @@
         lists:zip(record_info(fields, Def),
                   tl(tuple_to_list(Rec)))).
 
+-define(record_to_proplist(Def, Rec, Fields),
+    [{K, V} || {K, V} <- ?record_to_proplist(Def, Rec),
+                         lists:member(K, Fields)]).
+