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

Fixed bugs 1232, 1233 and 1234

Detailed changes:
> 2003-12-11  David Byers  <byers@lysator.liu.se>
>
> 	Fix bug 1233:
> 	* commands1.el (kom-change-priority): Pass old mship-type to
> 	lyskom-add-member-answer.
>
> 	Fix bug 1234:
> 	* lyskom-rest.el (lyskom-update-prompt): New prompts for when
> 	prioritised texts are in the letterbox, or the prioritised
> 	conference is the letterbox.
>
> 	Fix bug 1233:
> 	* commands1.el (lyskom-list-clients-collect): Deal with version
> 	set to nil.
>
parent ace5925a
2003-12-11 David Byers <byers@lysator.liu.se>
Fix bug 1233:
* commands1.el (kom-change-priority): Pass old mship-type to
lyskom-add-member-answer.
Fix bug 1234:
* lyskom-rest.el (lyskom-update-prompt): New prompts for when
prioritised texts are in the letterbox, or the prioritised
conference is the letterbox.
Fix bug 1233:
* commands1.el (lyskom-list-clients-collect): Deal with version
set to nil.
2003-12-10 David Byers <byers@lysator.liu.se>
* startup.el (kom-start-anew): Show a help link when setting the
......
......@@ -617,7 +617,7 @@ the priority of several memberships, use `kom-prioritize' instead."
(t (lyskom-add-member-answer
(lyskom-try-add-member conf-stat who pers-stat nil
'change-priority-for t)
conf-stat who))))))
conf-stat who nil (membership->type mship)))))))
;;; NOTE: This function is also called from lyskom-go-to-conf-handler
......@@ -3177,11 +3177,11 @@ prefix argument \(C-u -), list all sessions."
((string-match "\\s-*(build [^)]*)" version)
(replace-in-string version "\\s-*(build [^)]*)" ""))
(t version)))
(name (concat client " " uversion))
(name (concat (or client "") (if uversion " " "") (or uversion "")))
(el (assoc name (collector->value collect))))
(if el
(progn (aset (cdr el) 0 (1+ (aref (cdr el) 0)))
(unless (lyskom-string-member version (aref (cdr el) 1))
(unless (lyskom-string-member (or version "") (aref (cdr el) 1))
(aset (cdr el) 1 (cons version (aref (cdr el) 1)))))
(set-collector->value collect (cons (cons name (vector 1 (list version)))
(collector->value collect))))))
......
......@@ -1214,7 +1214,9 @@ You should set it to a better value.\n")
(text-buffer-missing . "The text buffer no longer exists.\n")
(re-edit-text-prompt . "Edit the text that couldn't be created")
(go-to-pri-conf-prompt . "Go to next prioritized conference")
(go-to-pri-mailbox-prompt . "G to prioritized mailbox")
(read-pri-text-conf . "Read next prioritized text")
(read-pri-letter-prompt . "Read next prioritized letter")
(review-next-text-prompt . "Review next text")
(review-next-comment-prompt . "Review next comment")
(review-next-marked-prompt . "Review next marked text")
......
......@@ -2974,7 +2974,14 @@ Set lyskom-current-prompt accordingly. Tell server what I am doing."
(cond
((eq to-do 'next-pri-conf)
(setq prompt 'go-to-pri-conf-prompt)
(setq prompt
(cond ((eq lyskom-pers-no
(conf-stat->conf-no
(read-info->conf-stat (read-list->first
lyskom-to-do-list))))
'go-to-pri-mailbox-prompt)
(t 'go-to-pri-conf-prompt)))
(or (eq lyskom-current-prompt prompt)
(lyskom-beep kom-ding-on-priority-break)))
......@@ -2998,7 +3005,14 @@ Set lyskom-current-prompt accordingly. Tell server what I am doing."
lyskom-server-name)))))
((eq to-do 'next-pri-text)
(setq prompt 'read-pri-text-conf)
(setq prompt
(cond ((eq (conf-stat->conf-no
(read-info->conf-stat (read-list->first
lyskom-to-do-list)))
lyskom-pers-no)
'read-pri-letter-prompt)
(t 'read-pri-text-conf)))
(or (eq lyskom-current-prompt prompt)
(lyskom-beep kom-ding-on-priority-break)))
......
......@@ -1247,7 +1247,9 @@ Du b
(re-edit-text-prompt . "Redigera texten som inte kunde skapas")
(go-to-pri-conf-prompt . "G till nsta prioriterade mte")
(go-to-pri-mailbox-prompt . "G till prioriterad brevlda")
(read-pri-text-conf . "Lsa nsta prioriterade text")
(read-pri-letter-prompt . "Lsa nsta prioriterade brev")
(review-next-text-prompt . "terse nsta text")
(review-next-comment-prompt . "terse nsta kommentar")
(review-next-marked-prompt . "terse nsta markerade")
......
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