Commit 689eb335 authored by David Kågedal's avatar David Kågedal
Browse files

(lyskom-edit-send-check-recipients): Fråga bara om man ska skicka in

trots olästa kommentarer en gång.
parent c9c4e32a
......@@ -418,7 +418,7 @@ text is a member of some recipient of this text."
(save-excursion
(set-buffer lyskom-buffer)
(set-collector->value collector nil)
(mapcar (function (lambda (text-stat)
(cache-del-text-stat text-stat)
(initiate-get-text-stat 'sending
......@@ -428,23 +428,27 @@ text is a member of some recipient of this text."
comm-to-list)
(lyskom-wait-queue 'sending)
(lyskom-traverse text-stat (collector->value collector)
(when text-stat
(lyskom-traverse misc-item (text-stat->misc-info-list text-stat)
(when (and (eq (misc-info->type misc-item) 'COMM-IN)
(not (lyskom-text-read-at-least-once-p
(blocking-do 'get-text-stat
(misc-info->comm-in misc-item))))
(not (lyskom-j-or-n-p
(lyskom-format 'have-unread-comment
text-stat))))
(signal 'lyskom-edit-text-abort
(list "%s"
(lyskom-get-string
'please-check-commented-texts))))))))
(lyskom-traverse
text-stat (collector->value collector)
(when text-stat
(when (catch 'unread
(lyskom-traverse
misc-item (text-stat->misc-info-list text-stat)
(when (and (eq (misc-info->type misc-item) 'COMM-IN)
(not (lyskom-text-read-at-least-once-p
(blocking-do
'get-text-stat
(misc-info->comm-in misc-item)))))
(throw 'unread t))))
(unless (lyskom-j-or-n-p
(lyskom-format 'have-unread-comment text-stat))
(signal 'lyskom-edit-text-abort
(list "%s"
(lyskom-get-string
'please-check-commented-texts))))))))
(lyskom-message (lyskom-format 'checking-comments-done)))
;;
;; Confirm multiple recipients
;;
......
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