X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fmessage.el;h=3269031e12f6e15700ebfa09905c57d375701bdf;hp=1cc9649007552f80c6af596bf58002f4d5d06663;hb=754a007c9c67f3506008dab6e7e8943eb51848f2;hpb=c8279f0b19fb4eba0540f1f0f2cbf5be350d2829

diff --git a/lisp/message.el b/lisp/message.el
index 1cc964900..3269031e1 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -919,7 +919,10 @@ The cdr of ech entry is a function for applying the face to a region.")
   (autoload 'gnus-output-to-rmail "gnus-util")
   (autoload 'mail-abbrev-in-expansion-header-p "mailabbrev")
   (autoload 'nndraft-request-associate-buffer "nndraft")
-  (autoload 'nndraft-request-expire-articles "nndraft"))
+  (autoload 'nndraft-request-expire-articles "nndraft")
+  (autoload 'gnus-open-server "gnus-int")
+  (autoload 'gnus-request-post "gnus-int")
+  (autoload 'rmail-output "rmail"))
 
 
 
@@ -3550,7 +3553,7 @@ Optional NEWS will use news to forward instead of mail."
 	(goto-char (point-max)))
       (insert mail-header-separator)
       ;; Rename all old ("Also-")Resent headers.
-      (while (re-search-backward "^\\(Also-\\)?Resent-" beg t)
+      (while (re-search-backward "^\\(Also-\\)*Resent-" beg t)
 	(beginning-of-line)
 	(insert "Also-"))
       ;; Quote any "From " lines at the beginning.