From 87224e6c90327102b6ff29dc2d8cd3a16394f3ed Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 13 Oct 2001 13:50:08 +0000 Subject: [PATCH] * elmo-msgdb.el (elmo-msgdb-insert-file-header): Moved searching header separator into loop condition. --- elmo/ChangeLog | 5 +++++ elmo/elmo-msgdb.el | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) 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 + + * elmo-msgdb.el (elmo-msgdb-insert-file-header): Moved searching + header separator into loop condition. + 2001-10-12 Hiroya Murata * 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 -- 1.7.10.4