mail forwarding not working

[Art Werschulz <agw@dsm.fordham.edu>]

Hi.

I recently upgraded from Emacs 22 to Emacs 23.  Hence, I am now using
message-mode for sending mail, rather than message mode.  I am still
using RMAIL to read mail.

My problem: Mail-forwarding seems to be broken.  If I try to forward an
email msg, I get the following (debug-on-error is enabled):

------%<--%<--%<---cut here---%<--%<--%<----------------------------
Debugger entered--Lisp error: (void-function mail-text-start)
  mail-text-start()
  rmail-forward(nil)
  call-interactively(rmail-forward nil nil)
------%<--%<--%<---cut here---%<--%<--%<----------------------------

One more datum (which I just discovered): I tried forwarding a mail msg
after firing up GNUS.  Now I get a buffer in which to send mail, but the
msg to be forwarded doesn't appear.  Moreover, the minibuffer shows the
msg 
   rmail-forward: Symbol's function definition is void: mail-text-start

Note that I transferred over a couple of customizations that I had used
with mail-mode.  There's a good chance that this may be the source of
the problem.

The first was as follows: 
------%<--%<--%<---cut here---%<--%<--%<----------------------------
(setq message-send-hook
      '(lambda ()
	 (mail-log-it)))
------%<--%<--%<---cut here---%<--%<--%<----------------------------
Here, mail-log-it is a function that writes some information to a
logfile.   If anybody thinks that it would be helpful, I'll send along a
copy of mail-log-it.

The second is as follows:
------%<--%<--%<---cut here---%<--%<--%<----------------------------
(defun my-message-send-mail-function ()
  (interactive)
  (if (y-or-n-p "Really send? ")
	(message-send-mail-with-sendmail)
    (error "Send Aborted")))

(setq message-send-mail-function 'my-message-send-mail-function)
------%<--%<--%<---cut here---%<--%<--%<----------------------------
This allows me to change my mind before sending mail.

Any insight you might have would be *very* welcome!  Thanks!

-- 
Art Werschulz (8-{)}   "Metaphors be with you."  -- bumper sticker
GCS/M (GAT): d? -p+ c++ l++ u+ P++ e--- m* s n+ h f g+ w+ t+ r- 
Net: agw@dsm.fordham.edu http://www.dsm.fordham.edu/~agw
Phone:   Fordham U. (212) 636-6325, Columbia U. (646) 775-6035