X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo.el;h=3bebcca10bddb5b8b08b15cb7f80254601f784de;hb=ede1058ec4d4f93ab8f873045c79cfffb4710781;hp=d974213c5d090141520f064fbb10ba5f8b8a2fe8;hpb=88d92346ec94d9f4c094659671c0c591c00d3bbd;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo.el b/elmo/elmo.el
index d974213..3bebcca 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -800,7 +800,7 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-FLAG-ALIST).")
 		     cache-path))))
     (when (and filename (file-readable-p filename))
       (with-temp-buffer
-	(elmo-set-buffer-multibyte nil)
+	(set-buffer-multibyte nil)
 	;;(insert-file-contents-as-binary filename)
 	(elmo-message-fetch folder number
 			    (elmo-make-fetch-strategy 'entire
@@ -808,7 +808,7 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-FLAG-ALIST).")
 						      nil
 						      cache-path)
 			    nil (current-buffer) t)
-	(elmo-set-buffer-multibyte default-enable-multibyte-characters)
+	(set-buffer-multibyte default-enable-multibyte-characters)
 	(decode-coding-region (point-min) (point-max)
 			      elmo-mime-display-as-is-coding-system)
 	(elmo-buffer-field-condition-match condition number numbers)))))
@@ -1450,7 +1450,8 @@ If Optional LOCAL is non-nil, don't update server flag."
 					      &optional
 					      disable-killed
 					      ignore-msgdb
-					      no-check)
+					      no-check
+					      mask)
   "Synchronize the folder data to the newest status.
 FOLDER is the ELMO folder structure.
 
@@ -1458,6 +1459,8 @@ If optional DISABLE-KILLED is non-nil, killed messages are also synchronized.
 If optional IGNORE-MSGDB is non-nil, current msgdb is thrown away except
 flag status.
 If NO-CHECK is non-nil, rechecking folder is skipped.
+If optional argument MASK is specified and is a list of message numbers,
+synchronize messages only which are contained the list.
 Return amount of cross-posted messages.
 If update process is interrupted, return nil.")
 
@@ -1465,7 +1468,8 @@ If update process is interrupted, return nil.")
 					     &optional
 					     disable-killed
 					     ignore-msgdb
-					     no-check)
+					     no-check
+					     mask)
   (let ((killed-list (elmo-folder-killed-list-internal folder))
 	(before-append t)
 	old-msgdb diff diff-2 delete-list new-list new-msgdb flag
@@ -1486,6 +1490,8 @@ If update process is interrupted, return nil.")
 				      folder
 				      (not disable-killed)
 				      'in-msgdb)))
+	  (when (and mask (car diff))
+	    (setcar diff (elmo-list-filter mask (car diff))))
 	  (message "Checking folder diff...done")
 	  (setq new-list (elmo-folder-confirm-appends (car diff)))
 	  ;; Set killed list as ((1 . MAX-OF-DISAPPEARED))