X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-localdir.el;h=02a8b1ff7e6ed3568a7e25f85bf27704a52f4aa4;hb=eabe681e2addb53f521ed0efc3a257344b62512d;hp=89a4c430c073174d5294d613a431b85719aaa335;hpb=806725e3db0748ddc973ba045053a6681e840287;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 89a4c43..02a8b1f 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -1,8 +1,12 @@
 ;;; elmo-localdir.el -- Localdir Interface for ELMO.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;; Copyright (C) 1999,2000      Kenichi OKADA  <okada@opaopa.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;;	Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;;	Kenichi OKADA <okada@opaopa.org>
 ;; Keywords: mail, net news
 
 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
@@ -156,7 +160,7 @@
 	   'elmo-localdir-msgdb-create-as-numlist "Creating msgdb..."
 	   (/ (* i 100) len)))
 	(setq numlist (cdr numlist)))
-      (message "Creating msgdb...done.")
+      (message "Creating msgdb...done")
       (list overview number-alist mark-alist))))
 
 (defalias 'elmo-localdir-msgdb-create 'elmo-localdir-msgdb-create-as-numlist)
@@ -227,7 +231,8 @@
     (if nonsort
 	(cons (or (elmo-max-of-list flist) 0)
 	      (if killed
-		  (- (length flist) (length killed))
+		  (- (length flist)
+		     (elmo-msgdb-killed-list-length killed))
 		(length flist)))
       (setq numbers (sort flist '<))
       (elmo-living-messages numbers killed))))
@@ -336,7 +341,7 @@
 (defun elmo-localdir-delete-folder (spec)
   (let* ((dir (elmo-localdir-get-folder-directory spec)))
     (if (not (file-directory-p dir))
-	(error "no such directory: %s" dir)
+	(error "No such directory: %s" dir)
       (elmo-delete-directory dir t)
       t)))
 
@@ -345,9 +350,9 @@
 	 (new (elmo-localdir-get-folder-directory new-spec))
 	 (new-dir (directory-file-name (file-name-directory new))))
     (if (not (file-directory-p old))
-	(error "no such directory: %s" old)
+	(error "No such directory: %s" old)
       (if (file-exists-p new)
-	  (error "already exists directory: %s" new)
+	  (error "Already exists directory: %s" new)
 	(if (not (file-exists-p new-dir))
 	    (elmo-make-directory new-dir))
 	(rename-file old new)
@@ -439,7 +444,7 @@
 	       new-number mark)))
       (setq new-number (1+ new-number))
       (setq flist (cdr flist)))
-    (message "Packing...done.")
+    (message "Packing...done")
     (list (elmo-msgdb-get-overview msgdb)
 	  onum-alist
 	  new-mark-alist