I've attached it as text/plain to avoid trouble when viewing this
article.  I first tried to simply forward the message, but my XEmacs
hung completely and I had to kill the process.

This is the backtrace:

Signaling: (wrong-type-argument symbolp "iso-8859-1")
  mm-decode-coding-region(1856 3207 "iso-8859-1")
  mail-decode-encoded-word-region(1856 3207)
  funcall(mail-decode-encoded-word-region 1856 3207)
  (save-restriction (article-narrow-to-head) (funcall gnus-decode-header-function (point-min) (point-max)))
)
  (let ((inhibit-point-motion-hooks t) (mail-parse-charset gnus-newsgroup-charset) (mail-parse-ignored-charsets ...) buffer-read-only) (save-restriction (article-narrow-to-head) (funcall gnus-decode-header-function ... ...)))
)
  article-decode-encoded-words()
  run-hooks(article-decode-encoded-words)
  mm-inline-message((#<buffer " *mm*<2>"> ("message/rfc822" (charset . "iso-8859-1")) 8bit nil ("inline") nil nil nil))
  funcall(mm-inline-message (#<buffer " *mm*<2>"> ("message/rfc822" (charset . "iso-8859-1")) 8bit nil ("inline") nil nil nil))
  (let* ((type ...) (function ...)) (funcall function handle) (goto-char (point-min)))
)
  mm-display-inline((#<buffer " *mm*<2>"> ("message/rfc822" (charset . "iso-8859-1")) 8bit nil ("inline") nil nil nil))
  (progn (forward-line 1) (mm-display-inline handle) (quote inline))
)
  (if (mm-inlined-p handle) (progn (forward-line 1) (mm-display-inline handle) (quote inline)) (when (or method ...) (if ... ... ... ...)))
)
  (let* ((type ...) (method ...)) (if (mm-inlined-p handle) (progn ... ... ...) (when ... ...)))
)
  (if (mm-handle-displayed-p handle) (mm-remove-part handle) (let* (... ...) (if ... ... ...)))
)
  (save-excursion (mailcap-parse-mailcaps) (if (mm-handle-displayed-p handle) (mm-remove-part handle) (let* ... ...)))
)
  mm-display-part((#<buffer " *mm*<2>"> ("message/rfc822" (charset . "iso-8859-1")) 8bit nil ("inline") nil nil nil) t)
  (let ((mail-parse-charset gnus-newsgroup-charset) (mail-parse-ignored-charsets ...)) (mm-display-part handle t))
)
  (cond (display (when move ... ...) (let ... ...) (goto-char ...)) ((and text not-attachment) (when move ... ...) (gnus-article-insert-newline) (mm-insert-inline handle ...) (goto-char ...)))
)
  (let ((beg ...)) (cond (display ... ... ...) (... ... ... ... ...)) (save-excursion (save-restriction ... ...)))
)
  (progn (while ignored (when ... ...)) (if (and ... ... ...) (setq display t) (when ... ...)) (let (...) (push ... gnus-article-mime-handle-alist) (when ... ... ... ... ... ...)) (let (...) (cond ... ...) (save-excursion ...)))
)
  (catch (quote ignored) (progn (while ignored ...) (if ... ... ...) (let ... ... ...) (let ... ... ...)))
)
  (let ((type ...) (ignored gnus-ignored-mime-types) (not-attachment t) (move nil) display text) (catch (quote ignored) (progn ... ... ... ...)))
)
  gnus-mime-display-single((#<buffer " *mm*<2>"> ("message/rfc822" (charset . "iso-8859-1")) 8bit nil ("inline") nil nil nil))
  (cond ((not ...) (gnus-mime-display-single handle)) ((cdr ...) (funcall ... handle)) ((and ... ...) (let ... ... ...)) ((and ... ...) (gnus-mime-display-part ...)) (t (gnus-mime-display-mixed ...)))
)
  gnus-mime-display-part((#<buffer " *mm*<2>"> ("message/rfc822" (charset . "iso-8859-1")) 8bit nil ("inline") nil nil nil))
  mapcar(gnus-mime-display-part ((#<buffer " *mm*"> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<2>"> ("message/rfc822" ...) 8bit nil ("inline") nil nil nil) (#<buffer " *mm*<3>"> ("text/plain") nil nil nil nil nil nil)))
  gnus-mime-display-mixed(((#<buffer " *mm*"> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<2>"> ("message/rfc822" ...) 8bit nil ("inline") nil nil nil) (#<buffer " *mm*<3>"> ("text/plain") nil nil nil nil nil nil)))
  (cond ((not ...) (gnus-mime-display-single handle)) ((cdr ...) (funcall ... handle)) ((and ... ...) (let ... ... ...)) ((and ... ...) (gnus-mime-display-part ...)) (t (gnus-mime-display-mixed ...)))
)
  gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*"> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<2>"> ("message/rfc822" ...) 8bit nil ("inline") nil nil nil) (#<buffer " *mm*<3>"> ("text/plain") nil nil nil nil nil nil)))
  (let ((gnus-displaying-mime t)) (gnus-mime-display-part handles))
)
  (progn (when (and ... ...) (article-goto-body) (delete-region ... ...)) (let (...) (gnus-mime-display-part handles)))
)
  (if (and handles (or ... ...)) (progn (when ... ... ...) (let ... ...)) (save-restriction (article-goto-body) (narrow-to-region ... ...) (gnus-treat-article nil 1 1) (widen)))
)
  (let* ((handles ...) buffer-read-only handle name type b e display) (when (and ... ...) (when gnus-article-mime-handles ... ...) (setq gnus-article-mime-handles handles) (when gnus-article-mime-part-function ...)) (if (and handles ...) (progn ... ...) (save-restriction ... ... ... ...)) (if (not ihandles) (save-excursion ...)))
)
  (progn (let (... ...) (when window ... ...)) (let* (... buffer-read-only handle name type b e display) (when ... ... ... ...) (if ... ... ...) (if ... ...)))
)
  (unwind-protect (progn (let ... ...) (let* ... ... ... ...)) (and (window-live-p save-selected-window-window) (select-window save-selected-window-window)))
)
  (let ((save-selected-window-window ...)) (unwind-protect (progn ... ...) (and ... ...)))
)
  (save-selected-window (let (... ...) (when window ... ...)) (let* (... buffer-read-only handle name type b e display) (when ... ... ... ...) (if ... ... ...) (if ... ...)))
)
  (save-excursion (save-selected-window (let ... ...) (let* ... ... ... ...)))
)
  gnus-display-mime()
  funcall(gnus-display-mime)
  (progn (funcall gnus-display-mime-function))
)
  (if gnus-display-mime-function (progn (funcall gnus-display-mime-function)))
)
  (when gnus-display-mime-function (funcall gnus-display-mime-function))
)
  (let ((gnus-article-buffer ...) buffer-read-only) (unless (eq major-mode ...) (gnus-article-mode)) (setq buffer-read-only nil gnus-article-wash-types nil) (gnus-run-hooks (quote gnus-tmp-internal-hook)) (gnus-run-hooks (quote gnus-article-prepare-hook)) (when gnus-display-mime-function (funcall gnus-display-mime-function)))
)
  gnus-article-prepare-display()
  (progn (gnus-article-prepare-display) (goto-char (point-min)) (setq gnus-page-broken (when gnus-break-pages ... t)))
)
  (if (or (numberp article) (stringp article)) (progn (gnus-article-prepare-display) (goto-char ...) (setq gnus-page-broken ...)))
)
  (when (or (numberp article) (stringp article)) (gnus-article-prepare-display) (goto-char (point-min)) (setq gnus-page-broken (when gnus-break-pages ... t)))
)
  (if (or (eq result ...) (eq result ...)) (progn (save-excursion ... ... ... ... ...) (let ... ...)) (when (and ... ...) (save-excursion ... ... ... ... ... ... ... ... ... ... ...)) (when (or ... ...) (gnus-article-prepare-display) (goto-char ...) (setq gnus-page-broken ...)) (let (...) (gnus-set-mode-line ...)) (article-goto-body) (set-window-point (get-buffer-window ...) (point)) (gnus-configure-windows (quote article)) t)
)
  (if (not (setq result ...)) (save-excursion (when ... ... ... ... ...)) (if (or ... ...) (progn ... ...) (when ... ...) (when ... ... ... ...) (let ... ...) (article-goto-body) (set-window-point ... ...) (gnus-configure-windows ...) t))
)
  (save-excursion (gnus-article-setup-buffer) (set-buffer gnus-article-buffer) (when (and ... transient-mark-mode) (setq mark-active nil)) (if (not ...) (save-excursion ...) (if ... ... ... ... ... ... ... ... t)))
)
  (let* ((gnus-article ...) (summary-buffer ...) (gnus-tmp-internal-hook gnus-article-internal-prepare-hook) (group gnus-newsgroup-name) result) (save-excursion (gnus-article-setup-buffer) (set-buffer gnus-article-buffer) (when ... ...) (if ... ... ...)))
)
  (save-excursion (unless (eq major-mode ...) (set-buffer gnus-summary-buffer)) (setq gnus-summary-buffer (current-buffer)) (let* (... ... ... ... result) (save-excursion ... ... ... ...)))
)
  gnus-article-prepare(888 nil)
  gnus-summary-display-article(888 nil)
  gnus-summary-select-article(nil force)
  gnus-summary-show-article(nil)
  call-interactively(gnus-summary-show-article)

As always, please feel free to ask for further information.
-- 
Echelon bait:
[Hello to all my fans in domestic surveillance] White Water FBI radar
Saddam Hussein Paula Corbin Jones Delta Force Honduras Panama
assassination Qaddafi SCUD missile SDI David John Oates munitions