Forum OpenACS Q&A: Error in notifications (CVS oacs-4-6)

While parsing incoming emails I get an error

 Error: invalid command name "parse_incoming_email"
    invalid command name "parse_incoming_email"
        while executing
    "parse_incoming_email $orig_file"
        (procedure "load_qmail_mail_queue" line 84)
        invoked from within
    "load_qmail_mail_queue -queue_dir [qmail_mail_queue_dir"
        (procedure "notification::email::scan_replies" line 3)
        invoked from within
    "notification::email::scan_replies"
        (procedure "AcsSc.NotificationDeliveryMethod.ScanReplies.notification_em..." line 1)
        invoked from within
    "AcsSc.NotificationDeliveryMethod.ScanReplies.notification_email"
        ("uplevel" body line 1)
        invoked from within
    "uplevel $func_and_args"
        (procedure "apply" line 3)
        invoked from within
    "apply $proc_name $arguments"
        (procedure "acs_sc_call" line 5)
        invoked from within
    "acs_sc_call NotificationDeliveryMethod ScanReplies $args $impl_key"
        (procedure "notification::delivery::scan_replies" line 12)
        invoked from within
    "notification::delivery::scan_replies -delivery_method_id $delivery_method_id"
        (procedure "notification::reply::sweep::scan_all_replies" line 10)
        invoked from within
    "notification::reply::sweep::scan_all_replies"
        ("eval" body line 1)
        invoked from within
    "eval [concat [list $proc] $args]"
        (procedure "ad_run_scheduled_proc" line 43)
        invoked from within
    "ad_run_scheduled_proc {t f 60 notification::reply::sweep::scan_all_replies {} 1061803807 0 t}"
    Notice: Running scheduled proc notification::reply::sweep::process_all_replies...

I can trace the proc to a file in acs-tcl/tcl directory the file is called "html-email-procs.tcl" But this proc requires

ad_proc parse_incoming_email {
  message
} {
  Takes an incoming message and splits it into parts.  The main goal
  of this proc is to return something that can be stuffed into the
  database somewhere, such as a forum message.  Since we aggressively
  filter HTML, the HTML tags are stripped out of the returned content.

  The message may have only plain text, plain text and HTML, or plain
  text and something else (Apple Mail uses text/enhanced, for example).
  To make our lives simpler we support only text/html as a special case;
  in all other cases the plain text is returned.
} {
  # look for the files we need.  If they aren't there, we can't do anything
  # and will just return the message as-is (cringe)
  set source_dir [acs_root_dir]/packages/acs-tcl/tcl
  if { ![file exists $source_dir/base64.tcl] || 
       ![file exists $source_dir/md5.tcl] ||
       ![file exists $source_dir/mime.tcl] } {
    return $message
  }

  source $source_dir/base64.tcl
  source $source_dir/md5.tcl
  source $source_dir/mime.tcl
  package require mime

  set mime [mime::initialize -string $message]
  set content [mime::getproperty $mime content]

  if { [string first "multipart" $content] != -1 } {
      set parts [mime::getproperty $mime parts]
  } else {
      set parts [list $mime]
  }

  foreach part $parts {
      switch [mime::getproperty $part content] {
          "text/plain" {
              set plain [mime::getbody $part]
          }
          "text/html" {
              set html [mime::getbody $part]
          }
      }
  }

  if { [info exists html] } {
    set body [ad_html_to_text $html]
  } elseif { [info exists plain] } {
    set body $plain
  } else {
    set body $message
  }

  mime::finalize $mime -subordinates all
  return $body
}

Where can I find these files.

source $source_dir/base64.tcl
  source $source_dir/md5.tcl
  source $source_dir/mime.tcl
  package require mime

Thanks