--- gnus-5.10.6/lisp/gnus-cite.el~	2003-05-10 20:58:01 +0000
+++ gnus-5.10.6/lisp/gnus-cite.el	2004-06-22 11:27:41 +0000
@@ -741,13 +741,16 @@
 	(setq end (+ begin gnus-cite-max-prefix)))
       (while (re-search-forward prefix-regexp (1- end) t)
 	;; Each prefix.
-	(setq end (match-end 0)
-	      prefix (buffer-substring begin end))
-	(gnus-set-text-properties 0 (length prefix) nil prefix)
-	(setq entry (assoc prefix alist))
-	(if entry
-	    (setcdr entry (cons line (cdr entry)))
-	  (push (list prefix line) alist))
+	(setq end (match-end 0))
+	(unless (string-match "\\`>from "
+			      (buffer-substring (gnus-point-at-bol)
+						(gnus-point-at-eol)))
+	  (setq prefix (buffer-substring begin end))
+	  (gnus-set-text-properties 0 (length prefix) nil prefix)
+	  (setq entry (assoc prefix alist))
+	  (if entry
+	      (setcdr entry (cons line (cdr entry)))
+	    (push (list prefix line) alist)))
 	(goto-char begin))
       (goto-char start)
       (setq line (1+ line)))