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

diff --git a/elmo/elmo.el b/elmo/elmo.el
index b1e6acb..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)
@@ -1498,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