Commit 95e4a10c authored by David Kågedal's avatar David Kågedal
Browse files

Småfixar

parent 1fdfe602
...@@ -3,6 +3,12 @@ Sun Jun 23 02:16:23 1996 David K ...@@ -3,6 +3,12 @@ Sun Jun 23 02:16:23 1996 David K
* edit-text.el (lyskom-edit-parse-headers): Kr * edit-text.el (lyskom-edit-parse-headers): Kr
lyskom-swascii-header-subject genom regexp-quote innan matchning. lyskom-swascii-header-subject genom regexp-quote innan matchning.
Thu Jun 20 01:08:00 1996 David Kgedal <davidk@lysator.liu.se>
* async.el (lyskom-show-logged-in-person): Hantera hemliga
personer.
(lyskom-show-logged-out-person): Dito.
Tue Jun 11 09:25:24 1996 David Byers <davby@sen2.ida.liu.se> Tue Jun 11 09:25:24 1996 David Byers <davby@sen2.ida.liu.se>
* parse.el (lyskom-parse-conf-type): Hanterar Any-Conf-Type. * parse.el (lyskom-parse-conf-type): Hanterar Any-Conf-Type.
...@@ -28,6 +34,9 @@ Tue Jun 11 09:25:24 1996 David Byers <davby@sen2.ida.liu.se> ...@@ -28,6 +34,9 @@ Tue Jun 11 09:25:24 1996 David Byers <davby@sen2.ida.liu.se>
Thu Jun 6 02:59:01 1996 David Kgedal <davidk@lysator.liu.se> Thu Jun 6 02:59:01 1996 David Kgedal <davidk@lysator.liu.se>
* swedish-strings.el (lyskom-strings): La till kolon p ngra
frgor.
* startup.el (kom-start-anew): Anropa clear-all-caches. * startup.el (kom-start-anew): Anropa clear-all-caches.
* cache.el (cache-clear): Ny funktion. * cache.el (cache-clear): Ny funktion.
......
...@@ -203,12 +203,20 @@ this function shall be with current-buffer the BUFFER." ...@@ -203,12 +203,20 @@ this function shall be with current-buffer the BUFFER."
(cond (cond
((lyskom-is-in-minibuffer)) ((lyskom-is-in-minibuffer))
(kom-presence-messages (kom-presence-messages
(lyskom-message "%s" (lyskom-format 'has-entered conf-stat)))) (lyskom-message
"%s"
(lyskom-format 'has-entered (or conf-stat
(lyskom-get-string 'secret-person))))))
(cond (cond
(kom-presence-messages-in-buffer (kom-presence-messages-in-buffer
(lyskom-format-insert-before-prompt 'has-entered-r conf-stat (if conf-stat
(and kom-text-properties (lyskom-format-insert-before-prompt 'has-entered-r conf-stat
'(face kom-presence-face)))))) (and kom-text-properties
'(face kom-presence-face)))
(lyskom-format-insert-before-prompt 'has-entered-r
(lyskom-get-string 'secret-person)
(and kom-text-properties
'(face kom-presence-face)))))))
(defun lyskom-show-logged-out-person (conf-stat session-no) (defun lyskom-show-logged-out-person (conf-stat session-no)
...@@ -216,12 +224,20 @@ this function shall be with current-buffer the BUFFER." ...@@ -216,12 +224,20 @@ this function shall be with current-buffer the BUFFER."
(cond (cond
((lyskom-is-in-minibuffer)) ((lyskom-is-in-minibuffer))
(kom-presence-messages (kom-presence-messages
(lyskom-message "%s" (lyskom-format 'has-left conf-stat)))) (lyskom-message
"%s"
(lyskom-format 'has-left (or conf-stat
(lyskom-get-string 'secret-person))))))
(cond (cond
(kom-presence-messages-in-buffer (kom-presence-messages-in-buffer
(lyskom-format-insert-before-prompt 'has-left-r conf-stat (if conf-stat
(and kom-text-properties (lyskom-format-insert-before-prompt 'has-left-r conf-stat
'(face kom-presence-face)))))) (and kom-text-properties
'(face kom-presence-face)))
(lyskom-format-insert-before-prompt 'has-left-r
(lyskom-get-string 'secret-person)
(and kom-text-properties
'(face kom-presence-face)))))))
(defun lyskom-show-changed-person (personconfstat conf-num doing) (defun lyskom-show-changed-person (personconfstat conf-num doing)
......
...@@ -124,7 +124,7 @@ Help: \\[describe-mode] ---") ...@@ -124,7 +124,7 @@ Help: \\[describe-mode] ---")
(you-have-motd . "\nYou have a note on your door:\n\n") (you-have-motd . "\nYou have a note on your door:\n\n")
(lyskom-motd-was-garbed . "\nThe login message does not exist! (lyskom-motd-was-garbed . "\nThe login message does not exist!
The message that was supposed to be shown after login has disappeared. The message that was supposed to be shown after login has disappeared.
Please contact the system administrator.\n") Please contact the LysKOM administrator.\n")
(presentation-encouragement . (presentation-encouragement .
"You have not written a presentation. Please write a presentation by using "You have not written a presentation. Please write a presentation by using
the command Ap. If you do not want to write a presentations, please type fk.\n") the command Ap. If you do not want to write a presentations, please type fk.\n")
...@@ -299,11 +299,11 @@ and you have finished reading. Please come back later. ...@@ -299,11 +299,11 @@ and you have finished reading. Please come back later.
(from-machine . "At") (from-machine . "At")
(is-doing . "Activity") (is-doing . "Activity")
(lyskom-client . "Client") (lyskom-client . "Client")
(text-to-add-recipient . "Add recipient to which article: ") (text-to-add-recipient . "Add recipient to which article:")
(text-to-add-copy . "Add recipient of carbon copy of which article: ") (text-to-add-copy . "Add recipient of carbon copy of which article:")
(text-to-delete-recipient . "Remove recipient from which article: ") (text-to-delete-recipient . "Remove recipient from which article:")
(text-to-add-comment-to . "Add comment to which article: ") (text-to-add-comment-to . "Add comment to which article:")
(text-to-delete-comment-from . "Remove comment from which article: ") (text-to-delete-comment-from . "Remove comment from which article:")
(where-on-list-q . "Placement in your list? (0-%#1d) ") (where-on-list-q . "Placement in your list? (0-%#1d) ")
(member-in-conf . "Joining to %#1M...") (member-in-conf . "Joining to %#1M...")
...@@ -655,6 +655,7 @@ for an article. ...@@ -655,6 +655,7 @@ for an article.
(has-left . "%#1:P has left LysKOM.") (has-left . "%#1:P has left LysKOM.")
(has-left-r . "%#2@%#1P has left LysKOM.\n") (has-left-r . "%#2@%#1P has left LysKOM.\n")
(unknown . "unknown") (unknown . "unknown")
(secret-person . "Secret user")
(message-broadcast . (message-broadcast .
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
......
...@@ -129,7 +129,7 @@ Annat se \\[describe-mode] ---") ...@@ -129,7 +129,7 @@ Annat se \\[describe-mode] ---")
(you-have-motd . "\nDu har en lapp p\345 d\366rren:\n\n") (you-have-motd . "\nDu har en lapp p\345 d\366rren:\n\n")
(lyskom-motd-was-garbed . "\nLoginmeddelandet finns inte! (lyskom-motd-was-garbed . "\nLoginmeddelandet finns inte!
Det meddelande som ska visas efter inloggning har f\366rsvunnit. Det meddelande som ska visas efter inloggning har f\366rsvunnit.
Kontakta systemadministratera.\n") Kontakta LysKOM-administrat\366ren.\n")
(presentation-encouragement . (presentation-encouragement .
"Du har ingen presentation. Det skulle vara trevligt om du skrev en. "Du har ingen presentation. Det skulle vara trevligt om du skrev en.
Anv\344nd kommandot \304p. Om du inte vill skriva n\345gon presentation tryck fs.\n") Anv\344nd kommandot \304p. Om du inte vill skriva n\345gon presentation tryck fs.\n")
...@@ -298,11 +298,11 @@ du har l\344st klart allting. Kom tillbaks senare. ...@@ -298,11 +298,11 @@ du har l\344st klart allting. Kom tillbaks senare.
(from-machine . "K\366r fr\345n") (from-machine . "K\366r fr\345n")
(is-doing . "G\366r") (is-doing . "G\366r")
(lyskom-client . "Klient") (lyskom-client . "Klient")
(text-to-add-recipient . "Vilket inl\344gg vill du addera mottagare till") (text-to-add-recipient . "Vilket inl\344gg vill du addera mottagare till:")
(text-to-add-copy . "Vilket inl\344gg vill du addera en extra kopia till") (text-to-add-copy . "Vilket inl\344gg vill du addera en extra kopia till:")
(text-to-delete-recipient . "Vilket inl\344gg vill du subtrahera mottagare fr\345n") (text-to-delete-recipient . "Vilket inl\344gg vill du subtrahera mottagare fr\345n:")
(text-to-add-comment-to . "Vilket inl\344gg vill du addera en kommentar till") (text-to-add-comment-to . "Vilket inl\344gg vill du addera en kommentar till:")
(text-to-delete-comment-from . "Vilket inl\344gg vill du subtrahera en kommentar fr\345n") (text-to-delete-comment-from . "Vilket inl\344gg vill du subtrahera en kommentar fr\345n:")
(where-on-list-q . "Placering p\345 listan? (0-%#1d) ") (where-on-list-q . "Placering p\345 listan? (0-%#1d) ")
(member-in-conf . "Bli medlem i %#1M...") (member-in-conf . "Bli medlem i %#1M...")
...@@ -670,6 +670,7 @@ upptagna. Logga ut och kom tillbaks senare om du v\344ntar nu. ...@@ -670,6 +670,7 @@ upptagna. Logga ut och kom tillbaks senare om du v\344ntar nu.
(has-left . "Nu har %#1:P g\345tt ur LysKOM.") (has-left . "Nu har %#1:P g\345tt ur LysKOM.")
(has-left-r . "%#2@Nu har %#1P g\345tt ur LysKOM.\n") (has-left-r . "%#2@Nu har %#1P g\345tt ur LysKOM.\n")
(unknown . "ok\344nd") (unknown . "ok\344nd")
(secret-person . "Hemlig person")
(message-broadcast . (message-broadcast .
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
......
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