that patch looks right.
Adrian Aichner wrote:
 I installed
   tm   1.22   Emacs MIME support.
 today.
 (load-library "mime-setup")
 causes following *Backtrace*.
 I use
 (gnus-version)
 "Gnus v5.8.7"
 which doesn't have this variable.
 I can send a patch testing for
 (boundp 'message-included-forward-headers)
 but maybe someone here knows more about this.
 Please advise,
 Adrian
 Signaling: (void-variable message-included-forward-headers)
   byte-code("..." [require tm-edit mime-make-tag "message"
"rfc822" "\n" message-forward-start-separator ""
message-forward-end-separator string-match message-included-forward-headers
"Mime-Version:" "\\|^Mime-Version:" "Content-Type:"
"\\|^Content-Type:" "Content-Transfer-Encoding:"
"\\|^Content-Transfer-Encoding:"] 3)
   load-internal("c:\\XEmacs\\xemacs-packages\\lisp\\tm\\message-mime.elc" nil t
t binary)
   efs-real-load("c:\\XEmacs\\xemacs-packages\\lisp\\tm\\message-mime.elc" nil t
t)
   load("c:\\XEmacs\\xemacs-packages\\lisp\\tm\\message-mime.elc" nil t nil)
   efs-real-require(message-mime
"c:\\XEmacs\\xemacs-packages\\lisp\\tm\\message-mime.elc")
   require(message-mime)
   #<compiled-function nil "...(4)" [require message-mime] 2>()
   call-after-loaded(message #<compiled-function nil "...(4)" [require
message-mime] 2>)
   byte-code("..." [boundp epoch::version add-hook message-setup-hook
mime/editor-mode message-maybe-setup-default-charset message-send-hook
mime-editor/maybe-translate message-header-hook mime/encode-message-header
call-after-loaded message #<compiled-function nil "...(4)" [require
message-mime] 2> provide mime-setup run-hooks mime-setup-load-hook] 3)
   load-internal("c:\\XEmacs\\xemacs-packages\\lisp\\tm\\mime-setup.elc" nil t t
binary)
   efs-real-load("c:\\XEmacs\\xemacs-packages\\lisp\\tm\\mime-setup.elc" nil t
t)
   load("c:\\XEmacs\\xemacs-packages\\lisp\\tm\\mime-setup.elc" nil t t)
   apply(load ("c:\\XEmacs\\xemacs-packages\\lisp\\tm\\mime-setup.elc" nil t
t))
   dired-handler-fn(load "c:\\XEmacs\\xemacs-packages\\lisp\\tm\\mime-setup.elc"
nil t t)
   efs-real-load("c:\\XEmacs\\xemacs-packages\\lisp\\tm\\mime-setup.elc" nil t
t)
   load("mime-setup")
   #<compiled-function (library) "...(4)" [load library] 2 288519 (list
(read-library "Load Library: " load-path nil nil nil
...))>("mime-setup")
   call-interactively(load-library)
   command-execute(load-library t)
   execute-extended-command(nil)
   call-interactively(execute-extended-command)
 --
 Adrian Aichner <adrian(a)xemacs.org> 
--
Ben
In order to save my hands, I am cutting back on my mail.  I also write
as succinctly as possible -- please don't be offended.  If you send me
mail, you _will_ get a response, but please be patient, especially for
XEmacs-related mail.  If you need an immediate response and it is not
apparent in your message, please say so.  Thanks for your understanding.
See also 
http://www.666.com/ben/chronic-pain/