From: hmurata <hmurata>
Date: Sat, 13 Oct 2001 13:50:08 +0000 (+0000)
Subject: * elmo-msgdb.el (elmo-msgdb-insert-file-header): Moved searching
X-Git-Tag: wl-2_7_6~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=87224e6c90327102b6ff29dc2d8cd3a16394f3ed;p=elisp%2Fwanderlust.git

* elmo-msgdb.el (elmo-msgdb-insert-file-header): Moved searching
header separator into loop condition.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3d79d6a..8726ba9 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-msgdb.el (elmo-msgdb-insert-file-header): Moved searching
+	header separator into loop condition.
+
 2001-10-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-imap4.el (elmo-folder-list-subfolders): Fixed problem;
diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 1504237..deb8422 100644
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -26,10 +26,10 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
+;;
 
 (eval-when-compile (require 'cl))
 (require 'elmo-vars)
@@ -663,9 +663,9 @@ Header region is supposed to be narrowed."
 			(nth 1
 			     (insert-file-contents-as-binary
 			      file nil beg
-			      (incf beg elmo-msgdb-file-header-chop-length)))))
-	  (prog1 (not (search-forward "\n\n" nil t))
-	    (goto-char (point-max))))))))
+			      (incf beg elmo-msgdb-file-header-chop-length))))
+		    (prog1 (not (search-forward "\n\n" nil t))
+		      (goto-char (point-max)))))))))
 
 (defsubst elmo-msgdb-create-overview-entity-from-file (number file)
   (let (insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
@@ -690,7 +690,7 @@ Header region is supposed to be narrowed."
 		  (point-max)))
 	  (narrow-to-region (point-min) header-end)
 	  (elmo-msgdb-create-overview-from-buffer number size mtime))))))
-  
+
 (defun elmo-msgdb-overview-sort-by-date (overview)
   (sort overview
 	(function