Commit 6792b489 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Writing footnotes now keep the cc-recipients.

parent a7425603
Sun Jul 5 05:02:37 1992 Linus Tolke Y (linus@lysator) Sun Jul 5 05:02:37 1992 Linus Tolke Y (linus@lysator)
* commands1.el (lyskom-write-comment, lyskom-comment-recipients):
Now writing footnotes keep the cc-recipients.
* review.el (lyskom-review-by-to): Fixed the bug that made the * review.el (lyskom-review-by-to): Fixed the bug that made the
function sometimes miss articles. function sometimes miss articles.
Optimized so that searching from the end, stopped when found the Optimized so that searching from the end, stopped when found the
......
...@@ -721,7 +721,7 @@ The default subject is SUBJECT. TYPE is either 'comment or 'footnote." ...@@ -721,7 +721,7 @@ The default subject is SUBJECT. TYPE is either 'comment or 'footnote."
(progn (progn
(lyskom-insert-string 'confusion-what-to-comment) (lyskom-insert-string 'confusion-what-to-comment)
(lyskom-end-of-command)) (lyskom-end-of-command))
(progn (let ((ccrep))
(lyskom-tell-internat (if (eq type 'comment) (lyskom-tell-internat (if (eq type 'comment)
'kom-tell-write-comment 'kom-tell-write-comment
'kom-tell-write-footnote)) 'kom-tell-write-footnote))
...@@ -731,18 +731,26 @@ The default subject is SUBJECT. TYPE is either 'comment or 'footnote." ...@@ -731,18 +731,26 @@ The default subject is SUBJECT. TYPE is either 'comment or 'footnote."
(cond (cond
((eq 'RECPT (misc-info->type misc-info)) ((eq 'RECPT (misc-info->type misc-info))
(initiate-get-conf-stat 'edit nil (misc-info->recipient-no (initiate-get-conf-stat 'edit nil (misc-info->recipient-no
misc-info)))
((and (eq type 'footnote)
(eq 'CC-RECPT (misc-info->type misc-info)))
(setq ccrep (cons (misc-info->recipient-no misc-info) ccrep))
(initiate-get-conf-stat 'edit nil (misc-info->recipient-no
misc-info))))) misc-info)))))
(lyskom-list-use 'edit 'lyskom-comment-recipients lyskom-proc text-stat (lyskom-list-use 'edit 'lyskom-comment-recipients lyskom-proc text-stat
subject type)))) subject type ccrep))))
(defun lyskom-comment-recipients (data lyskom-proc text-stat subject type) (defun lyskom-comment-recipients (data lyskom-proc text-stat
subject type ccrep)
"Compute recipients to a comment to a text. "Compute recipients to a comment to a text.
Args: DATA, LYSKOM-PROC TEXT-STAT SUBJECT TYPE. Args: DATA, LYSKOM-PROC TEXT-STAT SUBJECT TYPE CCREP.
DATA is a list of all the recipients that should receive this text. DATA is a list of all the recipients that should receive this text.
If DATA contains more than one conference the user is asked (using y-or-n-p) If DATA contains more than one conference the user is asked (using y-or-n-p)
if all conferences really should receive the text. if all conferences really should receive the text.
The call is continued to the lyskom-edit-text." The call is continued to the lyskom-edit-text.
TYPE is info whether this is going to be a comment of footnote.
CCREP is a list of all recipients that are going to be cc-recipients."
(condition-case x (condition-case x
;; Catch any quits and run lyskom-end-of-command. ;; Catch any quits and run lyskom-end-of-command.
...@@ -778,7 +786,10 @@ The call is continued to the lyskom-edit-text." ...@@ -778,7 +786,10 @@ The call is continued to the lyskom-edit-text."
(setq recver (setq recver
(append recver (append recver
(list (list
(cons 'recpt (cons (if (memq (conf-stat->conf-no conf-stat)
ccrep)
'cc-recpt
'recpt)
(conf-stat->comm-conf conf-stat))))) (conf-stat->comm-conf conf-stat)))))
(if (lyskom-member-p (conf-stat->conf-no conf-stat)) (if (lyskom-member-p (conf-stat->conf-no conf-stat))
(setq member t)) (setq member t))
......
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