Commit 44aab7cc authored by David Byers's avatar David Byers
Browse files

Bug fix in to-do-list sorting

Bug fix in handling add-recipient async send for BCC recipients we can't see
parent c353127b
1999-11-08 David Byers <davby@ida.liu.se>
* reading.el (lyskom-read-info-<): Fixed stupid operator error.
1999-10-27 David Byers <davby@ida.liu.se>
* async.el (lyskom-async-new-recipient): Hantera situationen att
man inte hittar det lokala textnumret.
1999-10-25 David Byers <davby@ida.liu.se>
* startup.el (lyskom): Set process coding system decoding to
......
......@@ -3,6 +3,13 @@
Att göra i elisp-klienten
=========================
Bli av med lyskom-is-parsing, gör parsern reentrant, installera
reentrant blocking-do. Se över alla användningar av lyskom-wait-queue
eftersom den just nu inte kan användas i svar på asynkront anrop.
* Den parsade strängen måste bort innan man anropar callback-funktionen.
Någon form at reply till importerade brev som använder mx-reply-to
eller mx-to, mx-cc om de finns.
......
......@@ -598,14 +598,14 @@ converted, before insertion."
(when (and (eq (misc-info->type misc-info) misc-type)
(eq (misc-info->recipient-no misc-info) conf-no))
(setq local-no (misc-info->local-no misc-info))))
(if (null local-no) (error "No local no"))
(initiate-get-conf-stat 'async 'lyskom-add-new-text
conf-no
text-no
local-no)
(lyskom-prefetch-text-all text-no)
(lyskom-run 'async 'lyskom-default-new-recipient-hook text-stat)
(lyskom-run 'async 'lyskom-prefetch-and-print-prompt))))
(when local-no
(initiate-get-conf-stat 'async 'lyskom-add-new-text
conf-no
text-no
local-no)
(lyskom-prefetch-text-all text-no)
(lyskom-run 'async 'lyskom-default-new-recipient-hook text-stat)
(lyskom-run 'async 'lyskom-prefetch-and-print-prompt)))))
(defun lyskom-default-new-recipient-hook (text-stat)
(when (and (not lyskom-dont-change-prompt) ;We shall change it
......
......@@ -174,7 +174,7 @@ reasonable guess."
;; Both are confs of equal priority; check position in mship
((and (eq (read-info->type a) 'CONF)
(eq (read-info->type b) 'CONF))
(>= (lyskom-membership-position
(< (lyskom-membership-position
(conf-stat->conf-no (read-info->conf-stat a)))
(lyskom-membership-position
(conf-stat->conf-no (read-info->conf-stat b)))))
......
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