X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-localdir.el;h=3f8c916b5363bcc6feef577806fa139c124bb547;hb=9e39553b80115a949a7f04ddced4459a7797f8bd;hp=7769c2b7fc792317e5cfacbe262157937e25456c;hpb=326b52af9c83997f55f60853ffbe7e70fcaf8157;p=elisp%2Fwanderlust.git diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el index 7769c2b..3f8c916 100644 --- a/elmo/elmo-localdir.el +++ b/elmo/elmo-localdir.el @@ -1,4 +1,4 @@ -;;; elmo-localdir.el -- Localdir Interface for ELMO. +;;; elmo-localdir.el --- Localdir Interface for ELMO. ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi ;; Copyright (C) 1998,1999,2000 Masahiro MURATA @@ -96,7 +96,7 @@ "/") (expand-file-name ;;"localdir" (symbol-name (elmo-folder-type-internal folder)) - elmo-msgdb-dir))) + elmo-msgdb-directory))) (luna-define-method elmo-message-file-name ((folder elmo-localdir-folder) @@ -121,7 +121,7 @@ numbers &optional start-number) - (let ((temp-dir (elmo-folder-make-temp-dir folder)) + (let ((temp-dir (elmo-folder-make-temporary-directory folder)) (cur-number (or start-number 0))) (dolist (number numbers) (elmo-add-name-to-file @@ -225,11 +225,9 @@ (point-min) (point-max) filename nil 'no-msg) t))) -(luna-define-method elmo-folder-append-messages :around ((folder - elmo-localdir-folder) - src-folder numbers - unread-marks - &optional same-number) +(luna-define-method elmo-folder-append-messages :around + ((folder elmo-localdir-folder) + src-folder numbers unread-marks &optional same-number) (if (elmo-folder-message-file-p src-folder) (let ((dir (elmo-localdir-folder-directory-internal folder)) (succeeds numbers) @@ -241,6 +239,7 @@ (int-to-string (if same-number (car numbers) next-num)) dir)) + (elmo-progress-notify 'elmo-folder-move-messages) (if (and (setq numbers (cdr numbers)) (not same-number)) (setq next-num