--- /usr/local/lib/xemacs/gnus/lisp/message.el	Tue Jan  6 07:48:40 1998
+++ /usr/tmp/message.el	Thu Jan 15 00:47:04 1998
@@ -1690,18 +1690,26 @@
 (defun message-cite-original ()
   "Cite function in the standard Message manner."
   (let ((start (point))
+	(end (mark t))
+	sig-start
 	(functions
 	 (when message-indent-citation-function
 	   (if (listp message-indent-citation-function)
 	       message-indent-citation-function
 	     (list message-indent-citation-function)))))
+    (goto-char end)
+    (when (re-search-backward "^-- $" start t)
+      (setq sig-start (point-marker)))
     (goto-char start)
     (while functions
       (funcall (pop functions)))
     (when message-citation-line-function
       (unless (bolp)
 	(insert "\n"))
-      (funcall message-citation-line-function))))
+      (funcall message-citation-line-function))
+    (when sig-start
+      (kill-region sig-start (mark t))
+      (set-marker sig-start nil))))
 
 (defun message-insert-citation-line ()
   "Function that inserts a simple citation line."