+ setNameError = do aa <- get (hdIsRecursionAvailable . msgHeader)
+ rc <- get (hdResponseCode . msgHeader)
+ anss <- get msgAnswers
+
+ when (aa && rc == NoError && null anss)
+ $ setResponseCode NameError
+
+ (_, result) = unB (modHeader' >> builder >> setNameError) initialReply