Quickmail server scripting

Has anyone altered the bundled OnVacation server script for QuickMail Pro mail server to conform to current conventions - i.e. to not auto-reply to messages with precedence: bulk or to messages with the user’s email address entered in the to: field?

The portion of script which is relevent I believe is:

if vacationList contains {recipient} and ¬
	theSubject does not contain "auto-reply" and ¬
	theSender does not contain "vacation" and ¬
	theSender does not contain "mailer-daemon" then
	
	-- send an auto-reply with the message from messageList
	
	copy getMessageItem(recipient) to x
	tell application "QuickMail Pro Server"
		send note ¬
			"[auto-reply] " & (theSubject of x) & " (Re: " & theSubject & ")" from ¬
			|recipient| to theSender message (body of x)
	end tell
end if

How do I reference the precedence line in the header?

Thanks for any help offered…