Commit fe6a08a7 authored by David Byers's avatar David Byers
Browse files

Fixed bug in checking commented author membership.

parent 5630a081
1999-08-25 David Byers <davby@ida.liu.se>
* edit-text.el (lyskom-edit-send-check-recipients): When checking
commented author, actually check all the recipients, not just the
first one.
* reading.el (lyskom-sort-to-do-list): New function.
(lyskom-read-info-<): New function.
......
......@@ -867,10 +867,7 @@ text is a member of some recipient of this text."
;;
(lyskom-traverse misc (cdr misc-list)
(cond ((eq (car misc) 'comm-to)
(setq comm-to-list (cons (cdr misc)
comm-to-list)))
((or (eq (car misc) 'recpt)
(cond ((or (eq (car misc) 'recpt)
(eq (car misc) 'bcc-recpt)
(eq (car misc) 'cc-recpt))
(if (or (memq (cdr misc) author-list)
......@@ -895,14 +892,20 @@ text is a member of some recipient of this text."
author-number conference-number
collector)))
recipient-list)
(lyskom-wait-queue 'sending)
(setq author-is-member
(and (car (collector->value collector))
(not (membership-type->passive
(membership->type
(car (collector->value collector)))))))
;; Now collector contains all the memberships for
;; author-number in the recipients.
(let ((tmp (collector->value collector)))
(while tmp
(when (and (lyskom-membership-p (car tmp))
(not (membership-type->passive
(membership->type (car tmp)))))
(setq author-is-member t
tmp nil))
(setq tmp (cdr tmp))))
(if (and (not author-is-member)
(not (zerop author-number))
(lyskom-is-permitted-author
......
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