Commentary.

[elisp/wanderlust.git] / elmo / elmo-localdir.el

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 89a4c43..02a8b1f 100644 (file)
--- 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