--- message.el~	Thu Jan 23 01:16:00 2003
+++ message.el	Wed Jan 29 20:05:11 2003
@@ -302,6 +302,13 @@
   :group 'message-various
   :type 'regexp)
 
+(defcustom message-change-subject-prefix
+  "was: "
+  "*String to be inserted by message-change-subject in parenthesis
+before the old subject."
+  :group 'message-various
+  :type 'string)
+
 ;;; marking inserted text
 
 ;;;###autoload
@@ -1630,7 +1637,8 @@
 		    (message-delete-line)
 		    (insert (concat "Subject: "
 				    new-subject
-				    " (was: "
+				    " ("
+				    message-change-subject-prefix
 				    old-subject ")\n")))))))))
 
 ;;;###autoload