*** empty log message ***

[gnus] / lisp / gnus-util.el

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 5963a93..fbbe712 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -777,8 +777,13 @@ with potentially long computations."
       (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)