Fix comment.

[elisp/wanderlust.git] / elmo / elmo-archive.el

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index 9f24c29..31b7c70 100644 (file)
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -255,16 +255,13 @@
 
 ;;; Macro
 (defmacro elmo-archive-get-method (type action)
-  (` (cdr (assq (, action) (cdr (assq (, type)
-                                     elmo-archive-method-alist))))))
+  `(cdr (assq ,action (cdr (assq ,type elmo-archive-method-alist)))))
 
 (defmacro elmo-archive-get-suffix (type)
-  (` (cdr (assq (, type)
-               elmo-archive-suffix-alist))))
+  `(cdr (assq ,type elmo-archive-suffix-alist)))
 
 (defmacro elmo-archive-get-regexp (type)
-  (` (cdr (assq (, type)
-               elmo-archive-file-regexp-alist))))
+  `(cdr (assq ,type elmo-archive-file-regexp-alist)))
 
 (defsubst elmo-archive-call-process (prog args &optional output)
   (= (apply 'call-process prog nil output nil args) 0))
@@ -306,7 +303,7 @@ TYPE specifies the archiver's symbol."
              (goto-char (point-min))))
          (while (and (re-search-forward file-regexp nil t)
                      (not (eobp)))  ; for GNU tar 981010
-           (setq file-list (nconc file-list (list (string-to-int
+           (setq file-list (nconc file-list (list (string-to-number
                                                    (match-string 1)))))))
       (error "%s does not exist" file))
     (if nonsort