From 0f96cba0536beb99399a84113b51da9114350a51 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 19 Jan 2002 09:59:12 +0000 Subject: [PATCH] * elmo.el (elmo-diff-new): Fixed (Adapted to doc-string of `elmo-folder-diff'). (elmo-diff-unread): Likewise. --- elmo/ChangeLog | 6 ++++++ elmo/elmo.el | 8 +++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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 + + * elmo.el (elmo-diff-new): Fixed (Adapted to doc-string of + `elmo-folder-diff'). + (elmo-diff-unread): Likewise. + 2002-01-19 Kenichi OKADA * 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)) -- 1.7.10.4