From: hmurata <hmurata>
Date: Sat, 19 Jan 2002 09:59:12 +0000 (+0000)
Subject: * elmo.el (elmo-diff-new): Fixed (Adapted to doc-string of
X-Git-Tag: wl-2_9_6~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f96cba0536beb99399a84113b51da9114350a51;p=elisp%2Fwanderlust.git

* elmo.el (elmo-diff-new): Fixed (Adapted to doc-string of
`elmo-folder-diff').
(elmo-diff-unread): Likewise.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2322e4b..9407d06 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo.el (elmo-diff-new): Fixed (Adapted to doc-string of
+	`elmo-folder-diff').
+	(elmo-diff-unread): Likewise.
+
 2002-01-19  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-utils.el (elmo-read-search-condition-internal): REQUIRE-MATCH
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 932c207..080a74e 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -863,13 +863,11 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
     (setq elmo-folder-info-hashtb hashtb)))
 
 (defsubst elmo-diff-new (diff)
-  (when (consp (cdr diff))
-    (car diff)))
+  (car diff))
 
 (defsubst elmo-diff-unread (diff)
-  (if (consp (cdr diff))
-      (nth 1 diff)
-    (car diff)))
+  (when (consp (cdr diff))
+    (nth 1 diff)))
 
 (defsubst elmo-diff-all (diff)
   (if (consp (cdr diff))