X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-archive.el;h=20361fd22354e7d9ed22d2ec5f2e61ad06c4d984;hb=2e9f5d2e3f003da464c20fe9924d1e80849265e6;hp=39d32a150bc33a9a939d2167721f60ff5b37f7e8;hpb=e1cc40b6595cc2bdffc7cae4ad969be327676f8f;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index 39d32a1..20361fd 100644
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -307,7 +307,7 @@ TYPE specifies the archiver's symbol."
 	(if (and (find-file-name-handler dir 'copy-file) ; ange-ftp, efs
 		 spec)
 	    (progn
-	      (setq filename (expand-file-name 
+	      (setq filename (expand-file-name
 			      (concat elmo-archive-basename suffix)
 			      (setq dbdir (elmo-msgdb-expand-path nil spec))))
 	      (if (file-directory-p dbdir)
@@ -454,7 +454,7 @@ TYPE specifies the archiver's symbol."
 	   (arc (elmo-archive-get-archive-name (nth 1 spec) type spec))
 	   (prefix (nth 3 spec))
 	   (method (elmo-archive-get-method type 'cat))
-	   (args (list arc (elmo-concat-path 
+	   (args (list arc (elmo-concat-path
 			    prefix (int-to-string number)))))
       (set-buffer outbuf)
       (erase-buffer)
@@ -529,7 +529,7 @@ TYPE specifies the archiver's symbol."
       (setq tmp-dir (substring src-dir 0 (match-beginning 0)))
       (setq p-method (elmo-archive-get-method dst-type 'cp-pipe)
 	    n-method (elmo-archive-get-method dst-type 'cp))
-      (setq tmp-msgs (mapcar '(lambda (x) 
+      (setq tmp-msgs (mapcar '(lambda (x)
 				(elmo-concat-path prefix (int-to-string x)))
 			     msgs))
       (setq do-link nil))
@@ -779,7 +779,7 @@ TYPE specifies the archiver's symbol."
       (if (and elmo-archive-use-izip-agent
 	       (elmo-archive-get-method (nth 2 spec) 'cat-headers))
 	  (elmo-archive-msgdb-create-as-numlist-subr2
-           spec numlist new-mark already-mark seen-mark important-mark 
+           spec numlist new-mark already-mark seen-mark important-mark
 	   seen-list)
 	(elmo-archive-msgdb-create-as-numlist-subr1
          spec numlist new-mark already-mark seen-mark important-mark
@@ -790,7 +790,7 @@ TYPE specifies the archiver's symbol."
 
 (defun elmo-archive-msgdb-create-as-numlist-subr1 (spec numlist new-mark
 							already-mark seen-mark
-							important-mark 
+							important-mark
 							seen-list)
   (let* ((type (nth 2 spec))
 	 (file (elmo-archive-get-archive-name (nth 1 spec) type spec))
@@ -829,7 +829,7 @@ TYPE specifies the archiver's symbol."
 			      seen-mark
 			    new-mark))))
 	      (setq mark-alist
-		    (elmo-msgdb-mark-append 
+		    (elmo-msgdb-mark-append
 		     mark-alist
 		     (elmo-msgdb-overview-entity-get-number entity)
 		     gmark))))
@@ -904,8 +904,8 @@ TYPE specifies the archiver's symbol."
     (list overview number-alist mark-alist)) )
 
 (defun elmo-archive-parse-mmdf (msgs new-mark
-				     already-mark 
-				     seen-mark 
+				     already-mark
+				     seen-mark
 				     seen-list)
   (let ((delim elmo-mmdf-delimiter)
 	number sp ep rest entity overview number-alist mark-alist ret-val
@@ -933,7 +933,7 @@ TYPE specifies the archiver's symbol."
 		 (car entity)))
 	  (setq message-id (car entity))
 	  (setq seen (member message-id seen-list))
-	  (if (setq gmark 
+	  (if (setq gmark
 		    (or (elmo-msgdb-global-mark-get message-id)
 			(if (elmo-cache-exists-p message-id) ; XXX
 			    (if seen
@@ -943,7 +943,7 @@ TYPE specifies the archiver's symbol."
 			      seen-mark
 			    new-mark))))
 	      (setq mark-alist
-		    (elmo-msgdb-mark-append 
+		    (elmo-msgdb-mark-append
 		     mark-alist
 		     (elmo-msgdb-overview-entity-get-number entity)
 		     gmark)))
@@ -1043,9 +1043,9 @@ TYPE specifies the archiver's symbol."
      (elmo-concat-path prefix (int-to-string number))
      tmp-dir)))
 
-(defalias 'elmo-archive-sync-number-alist 
+(defalias 'elmo-archive-sync-number-alist
   'elmo-generic-sync-number-alist)
-(defalias 'elmo-archive-list-folder-unread 
+(defalias 'elmo-archive-list-folder-unread
   'elmo-generic-list-folder-unread)
 (defalias 'elmo-archive-list-folder-important
   'elmo-generic-list-folder-important)