;;; 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).
'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)
(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)))
(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)
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