AppleScript Mail, Compare Date and Move to Folder

Question

tell (current date) to set dateForm to (its weekday as string) & (its month as string) & " " & day & ", " & year
--set dateForm to "Tuesday, March 6, 2012" -- for testing on your Sample Email for Script, remove this line to  matches current date
-- formats the current date like "Tuesday, February 29, 2012"
tell application "Mail" to set emailsSource to messages of mailbox "Good Tuesday" of account "HappyGoLucky45"
repeat with anEmail in emailsSource
          tell application "Mail" to set theSource to source of anEmail
          set tLines to paragraphs of theSource
          set tc to (count tLines)
          if tc > 165 then
                    set foundDate to false
                    repeat with i from 120 to 190
                              if getDate(item i of tLines) then
                                        set foundDate to true
                                        exit repeat
                              end if
                    end repeat
                    if foundDate then
                              set theMailbox to "zOld"
                              tell application "Mail"
                                        move the anEmail to mailbox theMailbox of account "HappyGoLucky45"
                              end tell
                    end if
          end if
end repeat
on getDate(theText)
          set k to 0
          repeat with thisWord in words of theText
                    set k to k + 1
                    if thisWord is in ¬
                              {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"} then
                              try
                                        if (exists word (k + 1) of theText as integer) ¬
                                                  and (exists word (k + 2) of theText as integer) then
                                                  set theFoundDate to word k of theText & " " & ¬
                                                            word (k + 1) of theText & ", " & ¬
                                                            word (k + 2) of theText
                                                  if date theFoundDate < (date dateForm) then return true
                                        end if
                              end try
                    end if
          end repeat
          return false
end getDate
--Below is how the email appears and the Date I am trying to compare to the Current Date (DateForm)
--The format of the email has changed and I can't figure out how to fix it.
--This is to move old messages to different folder
--About this event
--Tuesday, October 29, 2013 at 11:55 PM (EDT)

Answer 1

Anyone have any thoughts?