X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnndiary.el;h=0484dc89b8e3647c1a1d3fa57fcc6588cf50db6b;hb=ede88a05dcfa43327283432647c47e732f032a15;hp=b3b7cf30bacad058597f88f85aa644b98b011004;hpb=d4c763169a7e007f35bb3569c0d518971146828f;p=elisp%2Fgnus.git-

diff --git a/lisp/nndiary.el b/lisp/nndiary.el
index b3b7cf3..0484dc8 100644
--- a/lisp/nndiary.el
+++ b/lisp/nndiary.el
@@ -1123,13 +1123,7 @@ all.  This may very well take some time.")
 	(narrow-to-region
 	 (goto-char (point-min))
 	 (if (search-forward "\n\n" nil t) (1- (point)) (point-max))))
-      ;; Fold continuation lines.
-      (goto-char (point-min))
-      (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t)
-	(replace-match " " t t))
-      ;; Remove any tabs; they are too confusing.
-      (subst-char-in-region (point-min) (point-max) ?\t ? )
-      (let ((headers (nnheader-parse-head t)))
+      (let ((headers (nnheader-parse-naked-head)))
 	(mail-header-set-chars headers chars)
 	(mail-header-set-number headers number)
 	headers))))