Commit 6184772e authored by David Byers's avatar David Byers
Browse files

Fixed bug 962. Updated command documentation. Started on the NEWS file.

Detailed changes:
> 2003-01-07  David Byers  <david.byers@swipnet.se>
>
> 	Fix bug 962:
> 	* edit-text.el (lyskom-edit-send-check-recipients): Use
> 	lyskom-get-send-comments-to.
>
> 	* utilities.el (lyskom-get-send-comments-to): New function.
>
> 	* commands1.el (kom-write-text): Add sender as recipient when
> 	sending to a conference the sender is not a member of. Respect
> 	send-comments-to.
> 	(lyskom-comment-recipients): Respect send-comments.to when adding
> 	lyskom-pers-no as a recipient.
>
> 	Started working on a command reference manual:
> 	* commands2.el: Wrote user documentation for all commands in the
> 	docstrings. Lisp-level documentation, where it still exists, is
> 	placed after the user-level documentation, below the legend "Lisp
> 	documentation". I intend to generate the english command reference
> 	from the source code.
>
1a23,31
>
> 	Started working on a command reference manual:
> 	* commands1.el: Wrote user documentation for all commands in the
> 	docstrings. Lisp-level documentation, where it still exists, is
> 	placed after the user-level documentation, below the legend "Lisp
> 	documentation". I intend to generate the english command reference
> 	from the source code.
>
> 	* NEWS-0.48: Synched up to here.
parent 7e7857db
2003-01-07 David Byers <david.byers@swipnet.se>
Fix bug 962:
* edit-text.el (lyskom-edit-send-check-recipients): Use
lyskom-get-send-comments-to.
* utilities.el (lyskom-get-send-comments-to): New function.
* commands1.el (kom-write-text): Add sender as recipient when
sending to a conference the sender is not a member of. Respect
send-comments-to.
(lyskom-comment-recipients): Respect send-comments.to when adding
lyskom-pers-no as a recipient.
Started working on a command reference manual:
* commands2.el: Wrote user documentation for all commands in the
docstrings. Lisp-level documentation, where it still exists, is
placed after the user-level documentation, below the legend "Lisp
documentation". I intend to generate the english command reference
from the source code.
2003-01-06 David Byers <david.byers@swipnet.se>
Started working on a command reference manual:
* commands1.el: Wrote user documentation for all commands in the
docstrings. Lisp-level documentation, where it still exists, is
placed after the user-level documentation, below the legend "Lisp
documentation". I intend to generate the english command reference
from the source code.
* NEWS-0.48: Synched up to here.
Handle async-new-user-area message:
* startup.el (lyskom-accept-async): Accept async 19.
......
This diff is collapsed.
This diff is collapsed.
......@@ -910,24 +910,7 @@ Cannot be called from a callback."
;;
(lyskom-traverse author raw-author-list
(let ((send-comments-to
(car (lyskom-get-aux-item (conf-stat->aux-items author) 33))))
(when send-comments-to
(cond ((string-match "^\\([0-9]+\\)\\s-+\\([0-9]+\\)" (aux-item->data send-comments-to))
(setq send-comments-to
(cons (string-to-number
(match-string 1 (aux-item->data send-comments-to)))
(string-to-number
(match-string 2 (aux-item->data send-comments-to))))))
((string-match "^\\([0-9]+\\)"
(aux-item->data send-comments-to))
(setq send-comments-to
(cons (string-to-number
(match-string 1 (aux-item->data send-comments-to)))
0)))
(t (setq send-comments-to nil))))
(let ((send-comments-to (lyskom-get-send-comments-to author t)))
(cond
;; Author is in kom-dont-check-commented-authors
......
......@@ -1247,6 +1247,34 @@ return nil."
;;; ============================================================
;;; Database stuff
(defun lyskom-get-send-comments-to (conf-no &optional want-type)
"Get the send-comments-to value for conference CONF-NO.
Returns nil if there is no send-comments-to set.
f WANT-TYPE is set, return as a conf (RECPT . TYPE), wher RECPT
is the conference to use and TYPE is the type of recipient (numeric)."
(let* ((conf-stat (if (lyskom-conf-stat-p conf-no)
conf-no
(blocking-do 'get-conf-stat conf-no)))
(send-comments-to
(and conf-stat
(car (lyskom-get-aux-item (conf-stat->aux-items conf-stat) 33))))
(result (when send-comments-to
(cond ((string-match "^\\([0-9]+\\)\\s-+\\([0-9]+\\)" (aux-item->data send-comments-to))
(cons (string-to-number
(match-string 1 (aux-item->data send-comments-to)))
(string-to-number
(match-string 2 (aux-item->data send-comments-to)))))
((string-match "^\\([0-9]+\\)"
(aux-item->data send-comments-to))
(cons (string-to-number
(match-string 1 (aux-item->data send-comments-to)))
0))
(t nil)))))
(if want-type result (car result))))
(defun lyskom-is-supervisor (conf-no viewer-no)
"Return non-nil if the supervisor of CONF-NO is VIEWER-NO."
(or (eq viewer-no conf-no)
......
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