Commit 93ad621e authored by David Byers's avatar David Byers
Browse files

Bugfix i lyskom-format-conf-type, annorlunda men buggig kontroll av inläggsmottagare

parent 266c47e1
Thu Jul 18 10:18:13 1996 David Byers <davby@sen2.ida.liu.se>
* lyskom-rest.el (lyskom-format-conf-type): Bugfix (det fungerade
helt enkelt inte).
Wed Jul 17 11:35:10 1996 David Byers <davby@sen2.ida.liu.se>
* edit-text.el (lyskom-edit-send-check-recipients): Kontroll av
mottagare hoppar ver kommenterade frfattare om deras brevldor
r mottagare och hoppar ven ver lyskom-pers-no (man ser ju
alltid texter man skriver sjlv.) Detta gr att det gr snabbare
att skicka personliga svar.
Tue Jul 16 10:25:47 1996 David Byers <davby@sen2.ida.liu.se>
* swedish-strings.el (lyskom-strings): Bytte \345 -> \344 p en
......
......@@ -481,8 +481,10 @@ text is a member of some recipient of this text."
(lyskom-get-string
'please-edit-recipients)))))
(if kom-check-commented-author-membership
(if (and kom-check-commented-author-membership
(memq 'comm-to misc-list))
(progn
(lyskom-message (lyskom-get-string 'checking-rcpt))
;;
;; For each commented text, get the author
......@@ -494,6 +496,24 @@ text is a member of some recipient of this text."
(blocking-do 'get-text-stat x))))
comm-to-list))
;;
;; For each author, see if the author is a direct decipient
;; of the text. If so, there is no point in continuing.
;; (People can unsubscribe from their mailboxes, but if they
;; do, this code won't help anyway.)
;;
(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)
(eq (car misc) 'cc-recpt))
(if (or (memq (cdr misc) author-list)
(eq (cdr misc) me))
(setq author-list (delq (cdr misc) author-list))))))
;;
;; For each author, check that the author is a member of one of
;; the recipients (I'd like a quick server call for this, rather
......@@ -501,7 +521,6 @@ text is a member of some recipient of this text."
;;
(lyskom-message (lyskom-get-string 'checking-rcpt))
(save-excursion
(set-buffer (process-buffer lyskom-proc))
(mapcar (function (lambda (check-recipient-author-map-variable)
......
No preview for this file type
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