X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-maildir.el;h=151a232f0ee2feff016054ab0de8b555d495d84a;hb=fb40159a1fc3d4fb1400f8fe3befb1056bc75b8c;hp=6fe8c229e520c9a2ada204a0ab714bea5193ea13;hpb=9ddac14c0b5daa5f6226bb422c36d16b2ccac5e9;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 6fe8c22..151a232 100644
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -132,8 +132,7 @@ LOCATION."
   (elmo-maildir-folder-flagged-locations-internal folder))
 
 (luna-define-method elmo-folder-msgdb-create 
-  ((folder elmo-maildir-folder)
-   numbers new-mark already-mark seen-mark important-mark seen-list)
+  ((folder elmo-maildir-folder) numbers flag-table)
   (let* ((unread-list (elmo-maildir-folder-unread-locations-internal folder))
 	 (flagged-list (elmo-maildir-folder-flagged-locations-internal folder))
 	 (len (length numbers))
@@ -159,9 +158,9 @@ LOCATION."
 				      entity)))
 	(cond 
 	 ((member location unread-list)
-	  (setq mark new-mark)) ; unread!
+	  (setq mark elmo-msgdb-new-mark)) ; unread!
 	 ((member location flagged-list)
-	  (setq mark important-mark)))
+	  (setq mark elmo-msgdb-important-mark)))
 	(if (setq mark (or (elmo-msgdb-global-mark-get
 			    (elmo-msgdb-overview-entity-get-id
 			     entity))
@@ -278,6 +277,16 @@ LOCATION."
 						 locs)
   (elmo-maildir-delete-mark-msgs folder locs ?S))
 
+(luna-define-method elmo-map-folder-mark-as-answered ((folder
+						       elmo-maildir-folder)
+						      locs)
+  (elmo-maildir-set-mark-msgs folder locs ?R))
+
+(luna-define-method elmo-map-folder-unmark-answered ((folder
+						      elmo-maildir-folder)
+						     locs)
+  (elmo-maildir-delete-mark-msgs folder locs ?R))
+
 (luna-define-method elmo-folder-list-subfolders
   ((folder elmo-maildir-folder) &optional one-level)
   (let ((prefix (concat (elmo-folder-name-internal folder)
@@ -345,7 +354,7 @@ file name for maildir directories."
     filename))
 
 (luna-define-method elmo-folder-append-buffer ((folder elmo-maildir-folder)
-					       unread &optional number)
+					       &optional status number)
   (let ((basedir (elmo-maildir-folder-directory-internal folder))
 	(src-buf (current-buffer))
 	dst-buf filename)
@@ -397,7 +406,7 @@ file name for maildir directories."
 
 (luna-define-method elmo-folder-append-messages :around
   ((folder elmo-maildir-folder)
-   src-folder numbers unread-marks &optional same-number)
+   src-folder numbers &optional same-number)
   (if (elmo-folder-message-file-p src-folder)
       (let ((dir (elmo-maildir-folder-directory-internal folder))
 	    (succeeds numbers)
@@ -465,22 +474,44 @@ file name for maildir directories."
 	  t)
       (error))))
 
-(luna-define-method elmo-folder-delete :before ((folder elmo-maildir-folder))
-  (let ((basedir (elmo-maildir-folder-directory-internal folder)))
-    (condition-case nil
-	(let ((tmp-files (directory-files
-			  (expand-file-name "tmp" basedir)
-			  t "[^.].*")))
-	  ;; Delete files in tmp.
-	  (dolist (file tmp-files)
-	    (delete-file file))
-	  (dolist (dir '("new" "cur" "tmp" "."))
-	    (setq dir (expand-file-name dir basedir))
-	    (if (not (file-directory-p dir))
-		(error nil)
-	      (elmo-delete-directory dir t)))
-	  t)
-      (error nil))))
+(luna-define-method elmo-folder-delete ((folder elmo-maildir-folder))
+  (let ((msgs (and (elmo-folder-exists-p folder)
+		   (elmo-folder-list-messages folder))))
+    (when (yes-or-no-p (format "%sDelete msgdb and substance of \"%s\"? "
+			       (if (> (length msgs) 0)
+				   (format "%d msg(s) exists. " (length msgs))
+				 "")
+			       (elmo-folder-name-internal folder)))
+      (let ((basedir (elmo-maildir-folder-directory-internal folder)))
+	(condition-case nil
+	    (let ((tmp-files (directory-files
+			      (expand-file-name "tmp" basedir)
+			      t "[^.].*")))
+	      ;; Delete files in tmp.
+	      (dolist (file tmp-files)
+		(delete-file file))
+	      (dolist (dir '("new" "cur" "tmp" "."))
+		(setq dir (expand-file-name dir basedir))
+		(if (not (file-directory-p dir))
+		    (error nil)
+		  (elmo-delete-directory dir t))))
+	  (error nil)))
+      (elmo-msgdb-delete-path folder)
+      t)))
+
+(luna-define-method elmo-folder-rename-internal ((folder elmo-maildir-folder)
+						 new-folder)
+  (let* ((old (elmo-maildir-folder-directory-internal folder))
+	 (new (elmo-maildir-folder-directory-internal new-folder))
+	 (new-dir (directory-file-name (file-name-directory new))))
+    (unless (file-directory-p old)
+      (error "No such directory: %s" old))
+    (when (file-exists-p new)
+      (error "Already exists directory: %s" new))
+    (unless (file-directory-p new-dir)
+      (elmo-make-directory new-dir))
+    (rename-file old new)
+    t))
 
 (require 'product)
 (product-provide (provide 'elmo-maildir) (require 'elmo-version))