--- a/lisp/gnus/gnus-util.el	Mon Aug 13 08:51:34 2007 +0200
+++ b/lisp/gnus/gnus-util.el	Mon Aug 13 08:51:55 2007 +0200
@@ -777,8 +777,13 @@
       (erase-buffer)
       (insert-buffer-substring artbuf)
       (goto-char (point-min))
-      (unless (looking-at "From ")
+      (if (looking-at "From ")
+	  (forward-line 1)
 	(insert "From nobody " (current-time-string) "\n"))
+      (let (case-fold-search)
+	(while (re-search-forward "^From " nil t)
+	  (beginning-of-line)
+	  (insert ">")))
       ;; Decide whether to append to a file or to an Emacs buffer.
       (let ((outbuf (get-file-buffer filename)))
 	(if (not outbuf)