* nnfolder.el (nnfolder-request-replace-article): Unfold. Don't

	use mail-header-unfold-field.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb68b6f..12fbfad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-31  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * nnfolder.el (nnfolder-request-replace-article): Unfold. Don't
+       use mail-header-unfold-field.
+
        * gnus-cache.el (gnus-summary-insert-cached-articles): Use
        gnus-summary-limit.
 

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index f31f2d4..67ed191 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -517,9 +517,11 @@ the group.  Then the marks file will be regenerated properly by Gnus.")
     (goto-char (point-min))
     (if (not (looking-at "X-From-Line: "))
        (insert "From nobody " (current-time-string) "\n")
-      (save-match-data
-       (mail-header-unfold-field))
-      (replace-match "From "))
+      (replace-match "From ")
+      (forward-line 1)
+      (while (looking-at "[ \t]")
+       (delete-char -1)
+       (forward-line 1)))
     (nnfolder-normalize-buffer)
     (set-buffer nnfolder-current-buffer)
     (goto-char (point-min))