X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo.el;h=ed890ebf01343f98f8841ba9d54cf3e51a1f49ca;hb=824fe18b2ad090f609041a4af11de484bdb7e3a8;hp=e52ae66793c7aecde8e9c1fbb65fbc63d62af7d9;hpb=c869501fc881f10421f2192f1499153de31771a1;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo.el b/elmo/elmo.el
index e52ae66..ed890eb 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -161,7 +161,7 @@ If a folder name begins with PREFIX, use BACKEND."
 
 (defmacro elmo-folder-send (folder message &rest args)
   "Let FOLDER receive the MESSAGE with ARGS."
-  (` (luna-send (, folder) (, message) (, folder) (,@ args))))
+  `(luna-send ,folder ,message ,folder ,@args))
 
 ;;;###autoload
 (defun elmo-make-folder (name &optional non-persistent mime-charset)
@@ -808,10 +808,9 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-FLAG-ALIST).")
 							 numbers))))
 	(setq numbers results
 	      condition (nth 2 condition)))
-      (let ((len (length numbers))
-	    matched)
-	(elmo-with-progress-display (> len elmo-display-progress-threshold)
-	    (elmo-folder-search len "Searching...")
+      (let (matched)
+	(elmo-with-progress-display (elmo-folder-search (length numbers))
+	    "Searching messages"
 	  (dolist (number numbers)
 	    (let (result)
 	      (setq result (elmo-msgdb-match-condition msgdb
@@ -826,7 +825,6 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-FLAG-ALIST).")
 	      (when result
 		(setq matched (cons number matched))))
 	    (elmo-progress-notify 'elmo-folder-search)))
-	(message "Searching...done")
 	(nreverse matched)))))
 
 (defun elmo-message-buffer-match-condition (condition number)
@@ -1069,7 +1067,7 @@ If optional argument IF-EXISTS is nil, load on demand.
 (eval-and-compile
   (luna-define-class elmo-file-tag))
 
-(defconst elmo-append-messages-disptch-table
+(defconst elmo-append-messages-dispatch-table
   '(((nil	. null)		. elmo-folder-append-messages-*-null)
     ((filter	. nil)		. elmo-folder-append-messages-filter-*)
     ((nil	. filter)	. elmo-folder-append-messages-*-filter)
@@ -1113,9 +1111,9 @@ If second optional argument SAME-NUMBER is specified,
 message number is preserved \(if possible\).
 Returns a list of message numbers successfully appended."
   (let ((rest (if caller
-		  (cdr (memq (rassq caller elmo-append-messages-disptch-table)
-			     elmo-append-messages-disptch-table))
-		elmo-append-messages-disptch-table))
+		  (cdr (memq (rassq caller elmo-append-messages-dispatch-table)
+			     elmo-append-messages-dispatch-table))
+		elmo-append-messages-dispatch-table))
 	result)
     (while rest
       (let ((types (car (car rest))))
@@ -1130,9 +1128,9 @@ Returns a list of message numbers successfully appended."
 (defun elmo-generic-folder-append-messages (folder src-folder numbers
 						   same-number)
   (let ((src-msgdb-exists (not (zerop (elmo-folder-length src-folder))))
-	unseen table
+	unseen
 	succeed-numbers failure cache id)
-    (setq table (elmo-folder-flag-table folder))
+    (elmo-folder-flag-table folder) ; load
     (with-temp-buffer
       (set-buffer-multibyte nil)
       (while numbers
@@ -1181,7 +1179,6 @@ Returns a list of message numbers successfully appended."
 					     same-number)
   (save-excursion
     (let* ((messages msgs)
-	   (elmo-inhibit-display-retrieval-progress t)
 	   (len (length msgs))
 	   succeeds i result)
       (if (eq dst-folder 'null)
@@ -1501,7 +1498,7 @@ If Optional LOCAL is non-nil, don't update server flag."
 	    (while t
 	      (setq in (read-from-minibuffer "Update number: "
 					     (int-to-string in))
-		    in (string-to-int in))
+		    in (string-to-number in))
 	      (if (< len in)
 		  (throw 'end len))
 	      (if (y-or-n-p (format