X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-maildir.el;h=8f61227f3400ea1913ff820d504e84c764ad0fb4;hb=cc2476c59df7c01510dff6fb30c8e981183f2ccc;hp=9492b018e5c919656ca6a9d494448a310799eeb4;hpb=c9f7b330d18fff8b20da481229802b31b3b1f32e;p=elisp%2Fwanderlust.git diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el index 9492b01..8f61227 100644 --- a/elmo/elmo-maildir.el +++ b/elmo/elmo-maildir.el @@ -540,8 +540,7 @@ file name for maildir directories." (file-directory-p (expand-file-name "cur" basedir)) (file-directory-p (expand-file-name "tmp" basedir))))) -(luna-define-method elmo-folder-diff ((folder elmo-maildir-folder) - &optional numbers) +(luna-define-method elmo-folder-diff ((folder elmo-maildir-folder)) (let* ((dir (elmo-maildir-folder-directory-internal folder)) (new-len (length (car (elmo-maildir-list-location dir "new")))) (cur-len (length (car (elmo-maildir-list-location dir "cur")))))