Commit f518853c authored by Joel Rosdahl's avatar Joel Rosdahl
Browse files

Don't send footnotes to the super conference of a original-type conference.

Bug fix.
parent 397cb709
2000-06-06 Joel Rosdahl <joel@lysator.liu.se>
* commands1.el (lyskom-comment-recipients): Don't send footnotes
to the super conference of a original-type conference.
* commands1.el (lyskom-comment-recipients): Fixed a bug that
sometimes prevented the author's mailbox from being added as
recipient when it should.
2000-06-05 David Byers <davby@ida.liu.se> 2000-06-05 David Byers <davby@ida.liu.se>
* utilities.el (lyskom-read-text-no-prefix-arg): Don't use zerop * utilities.el (lyskom-read-text-no-prefix-arg): Don't use zerop
......
...@@ -920,22 +920,24 @@ BCCREP is a list of all recipient that are going to be bcc-recipients." ...@@ -920,22 +920,24 @@ BCCREP is a list of all recipient that are going to be bcc-recipients."
(text-stat->text-no text-stat))) (text-stat->text-no text-stat)))
(recpts nil)) (recpts nil))
(while data (while data
(let ((conf-stat (car data))) (let* ((conf-stat (car data))
(if (memq (conf-stat->comm-conf conf-stat) recpts) (confno (conf-stat->conf-no conf-stat))
(commno (if (eq type 'footnote)
confno
(conf-stat->comm-conf conf-stat))))
(if (memq commno recpts)
nil nil
(setq recver (setq recver
(append recver (append recver
(list (list
(cons (cond (cons (cond
((memq (conf-stat->conf-no conf-stat) ((memq confno ccrep) 'cc-recpt)
ccrep) 'cc-recpt) ((memq confno bccrep) 'bcc-recpt)
((memq (conf-stat->conf-no conf-stat)
bccrep) 'bcc-recpt)
(t 'recpt)) (t 'recpt))
(conf-stat->comm-conf conf-stat))))) commno))))
(if (lyskom-get-membership (conf-stat->conf-no conf-stat)) (if (lyskom-get-membership commno)
(setq member t)) (setq member t))
(setq recpts (cons (conf-stat->comm-conf conf-stat) recpts)))) (setq recpts (cons commno recpts))))
(setq data (cdr data))) (setq data (cdr data)))
;; Add the user to the list of recipients if he isn't a member in ;; Add the user to the list of recipients if he isn't a member in
;; any of the recipients. ;; any of the 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