Commit 55529e91 authored by David Byers's avatar David Byers
Browse files

Fixed problem in lyskom-find-text-by-date finding text in a conference that is...

Fixed problem in lyskom-find-text-by-date finding text in a conference that is not the original recipient
parent 8a4a5d14
2002-02-24 David Byers <davby@sen2.ida.liu.se>
* utilities.el (lyskom-find-text-by-date): Fixed assignment to
date variable inside the binary search loop. Use date variable in
later comparison.
2002-02-24 Joel Rosdahl <joel@lysator.liu.se>
* mship-edit.el (lyskom-read-time): Commented out code that
......
......@@ -168,6 +168,10 @@
;;; ================================================================
;;; Filter predicates
;;;
;;; FIXME: Predicates to add:
;;; FIXME: Filter by who added a text to a conference
;;; FIXME: Filter mx-author, mx-from etc.
;;; FIXME: Filter on aux-items in general
(defvar lyskom-filter-datatypes nil)
(defvar lyskom-filter-predicates nil)
......
......@@ -1284,7 +1284,8 @@ Returns a cons of (LOCAL . GLOBAL)"
(date (and text-stat
(lyskom-traverse misc
(text-stat->misc-info-list text-stat)
(when (memq (misc-info->type misc) lyskom-recpt-types-list)
(when (and (memq (misc-info->type misc) lyskom-recpt-types-list)
(eq (misc-info->recipient-no misc) text-no))
(lyskom-traverse-break
(if (misc-info->sent-at misc)
(misc-info->sent-at misc)
......@@ -1292,7 +1293,7 @@ Returns a cons of (LOCAL . GLOBAL)"
(when text-stat
(setq index local-no)
(if (lyskom-time-greater
(text-stat->creation-time text-stat)
date
target-date)
(setq highest index)
(setq lowest index))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment