Commit 49722f6d authored by David Byers's avatar David Byers
Browse files

Added support for lyskom filters (first version).

parent 1736122e
No preview for this file type
...@@ -24,9 +24,12 @@ ...@@ -24,9 +24,12 @@
# #
# $Id$ # $Id$
# $Log$ # $Log$
# Revision 38.5 1995/03/01 17:55:38 byers
# Added support for lyskom filters (first version).
#
# Revision 38.4 1995/02/23 20:40:59 linus # Revision 38.4 1995/02/23 20:40:59 linus
# En arbetsversion av 0.39 incheckad. Det är ganska mycket gjort men det # En arbetsversion av 0.39 incheckad. Det {r ganska mycket gjort men det
# finns mer att göra. # finns mer att g|ra.
# #
# Revision 38.3 1994/01/14 02:40:01 linus # Revision 38.3 1994/01/14 02:40:01 linus
# Fixed local installation path. # Fixed local installation path.
...@@ -153,6 +156,7 @@ PARTS-EL = komtypes.el clienttypes.el startup.el \ ...@@ -153,6 +156,7 @@ PARTS-EL = komtypes.el clienttypes.el startup.el \
reading.el \ reading.el \
internal.el parse.el services.el cache.el\ internal.el parse.el services.el cache.el\
commands1.el commands2.el review.el edit-text.el \ commands1.el commands2.el review.el edit-text.el \
filter.el filter-edit.el \
view-text.el async.el completing-read.el \ view-text.el async.el completing-read.el \
prioritize.el flags.el \ prioritize.el flags.el \
elib-string.el \ elib-string.el \
...@@ -167,6 +171,7 @@ SRC-ELC = komtypes.elc clienttypes.elc startup.elc \ ...@@ -167,6 +171,7 @@ SRC-ELC = komtypes.elc clienttypes.elc startup.elc \
reading.elc \ reading.elc \
internal.elc parse.elc services.elc cache.elc\ internal.elc parse.elc services.elc cache.elc\
commands1.elc commands2.elc review.elc edit-text.elc \ commands1.elc commands2.elc review.elc edit-text.elc \
filter.el filter-edit.el \
view-text.elc async.elc completing-read.elc \ view-text.elc async.elc completing-read.elc \
prioritize.elc flags.elc \ prioritize.elc flags.elc \
elib-string.elc \ elib-string.elc \
......
...@@ -434,6 +434,7 @@ otherwise: the conference is read with lyskom-completing-read." ...@@ -434,6 +434,7 @@ otherwise: the conference is read with lyskom-completing-read."
;;; Author: Inge Wallin ;;; Author: Inge Wallin
;;; Rewritten to use lyskom-read-conf-no by Linus Tolke ;;; Rewritten to use lyskom-read-conf-no by Linus Tolke
;;; Modified to use default recipient by David Byers
(defun kom-send-message () (defun kom-send-message ()
...@@ -442,8 +443,21 @@ otherwise: the conference is read with lyskom-completing-read." ...@@ -442,8 +443,21 @@ otherwise: the conference is read with lyskom-completing-read."
(lyskom-start-of-command 'kom-send-message) (lyskom-start-of-command 'kom-send-message)
(unwind-protect (unwind-protect
(lyskom-send-message (lyskom-send-message
(lyskom-read-conf-no (lyskom-get-string 'who-to-send-message-to) (cond ((null kom-send-message-to-last-sender)
(lyskom-read-conf-no
(format (lyskom-get-string 'who-to-send-message-to)
(lyskom-get-string 'everybody))
'pers t)) 'pers t))
(t
(lyskom-read-conf-no
(format (lyskom-get-string 'who-to-send-message-to)
(lyskom-get-string 'everybody))
'all t
(if lyskom-last-personal-message-sender
(if (string-match "^19" emacs-version)
(cons lyskom-last-personal-message-sender 0)
lyskom-last-personal-message-sender)
"")))))
(lyskom-end-of-command))) (lyskom-end-of-command)))
......
;;;;; ;;;;;
;;;;; $Id$ ;;;;; $Id$
;;;;; Copyright (C) 1991 Lysator Academic Computer Association. ;;;;; Copyright (C) 1991 Lysator Academic Computer Association.
...@@ -33,11 +32,13 @@ ...@@ -33,11 +32,13 @@
;;;; Matches version 36.11 of swedish-strings.el ;;;; Matches version 36.11 of swedish-strings.el
;;;; ================================================================ ;;;; ================================================================
;;;; ;;;;
;;;; Translation from swedish-strings.el: David Byers
;;;;
(setq lyskom-clientversion-long (setq lyskom-clientversion-long
(concat lyskom-clientversion-long (concat lyskom-clientversion-long
"$Id$\n")) "$Id$"))
;;; ================================================================ ;;; ================================================================
...@@ -48,6 +49,9 @@ ...@@ -48,6 +49,9 @@
;;; Set the keymap for lyskom-edit-mode ;;; Set the keymap for lyskom-edit-mode
(defvar lyskom-edit-prefix nil
"Mode-map for lyskom edit mode")
(if lyskom-edit-mode-map (if lyskom-edit-mode-map
nil nil
(setq lyskom-edit-mode-map (make-sparse-keymap)) (setq lyskom-edit-mode-map (make-sparse-keymap))
...@@ -92,11 +96,16 @@ Kill: \\[kom-edit-quit], \ ...@@ -92,11 +96,16 @@ Kill: \\[kom-edit-quit], \
Help: \\[describe-mode] ---") Help: \\[describe-mode] ---")
"*String to separate headers from text body.") "*String to separate headers from text body.")
(defvar lyskom-swascii-header-separator nil
"The swascii version of lyskom-header-separator.")
(defvar lyskom-header-subject "Subject: " (defvar lyskom-header-subject "Subject: "
"*String to prompt for subject in the edit buffer.") "*String to prompt for subject in the edit buffer.")
(defvar lyskom-swascii-header-subject nil
"The swascii version of lyskom-header-subject.")
(defconst lyskom-strings (defconst lyskom-strings
'( '(
; From vars.el: ; From vars.el:
...@@ -109,22 +118,23 @@ Help: \\[describe-mode] ---") ...@@ -109,22 +118,23 @@ Help: \\[describe-mode] ---")
(connection-done . "Connection established. Server version is %#1s.\n\n") (connection-done . "Connection established. Server version is %#1s.\n\n")
(what-is-your-name . "What is your name? ") (what-is-your-name . "What is your name? ")
(password . "Your Password? ") (password . "Your Password? ")
(wrong-password . "Password incorrect\n") (wrong-password . "Incorrect password\n")
(are-logged-in . "You are now logged on. Please wait...\n") (are-logged-in . "You have entered LysKOM. Please wait...\n")
(you-have-motd . "\nYou have a note on the door:\n\n") (you-have-motd . "\nYou have a note on your door:\n\n")
(presentation-encouragement . (presentation-encouragement .
"You have not written a presentation. Please write a presentation by using the command p. If you do not want to write a presentations, type fk.\n") "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")
(first-greeting . "%#1s (first-greeting . "%#1s
This appears to be the first time you use LysKOM. Welcome! This appears to be the first time you use LysKOM. Welcome!
Please make sure you have spelled your name correctly. You should use your Please make sure you have spelled your name correctly. You should use your
full name and organisation, eg. \"Joe Hacker, MIT\". If you spelled your name full name and organisation, eg. \"Joe Hacker, MIT\". If your name is spelled
incorrectly, or you wish to change it, answer 'no' to the question below. incorrectly, or you wish to change it, answer 'no' to the question below.
For the time being the LysKOM server stores most of the information so that At present the LysKOM server stores most of the information so that
anybody can read it. Only passwords are encrypted. anybody can read it. Only passwords are encrypted.
If you ar uncertain about how to use LysKOM, you can retreive a manual by If you ar uncertain about how to use LysKOM, you can retrieve a manual by
anonymous ftp to ftp.lysator.liu.se. Ask your system administrator for help anonymous ftp to ftp.lysator.liu.se. Ask your system administrator for help
on how to do this.") on how to do this.")
...@@ -157,19 +167,19 @@ Email-address:\n\nOther:\t") ...@@ -157,19 +167,19 @@ Email-address:\n\nOther:\t")
; From commands1.el: ; From commands1.el:
(appreciation . "Tap, tap.\n\n") (appreciation . "Tap, tap.\n\n")
(abuse . "Thomp! Ouch!") (abuse . "Thomp! Ouch!\n\n")
(what-conf-to-delete . "Conference/user to delete: ") (what-conf-to-delete . "Conference/user to delete: ")
(confirm-delete-pers-or-conf . "Really delete %#1s %#2s? ") (confirm-delete-pers-or-conf . "Really delete %#1s %#2s? ")
(the-pers . "the user") (the-pers . "the user")
(the-conf . "the conference") (the-conf . "the conference")
(deletion-not-confirmed . "Delete canceled\n") (deletion-not-confirmed . "Deletion aborted\n")
(somebody-else-deleted-that-conf . "Somebody else just deleted the conference.\n") (somebody-else-deleted-that-conf . "Somebody else just deleted the conference.\n")
(conf-is-deleted . "Ok, %#1s has now been deleted.\n") (conf-is-deleted . "OK, %#1s is now deleted.\n")
(you-could-not-delete . "%#1s can't be deleted by you.\n") (you-could-not-delete . "%#1s can't be deleted by you.\n")
(what-text-to-delete . "Article to remove?") (what-text-to-delete . "Article to remove: ")
(deleting-text . "Removing article %#1d...") (deleting-text . "Removing article %#1d...")
(presentation-for-whom . "Which conference/user: ") (presentation-for-whom . "Which conference/user: ")
...@@ -195,7 +205,7 @@ Email-address:\n\nOther:\t") ...@@ -195,7 +205,7 @@ Email-address:\n\nOther:\t")
(cant-find-supervisor . "Can't find supervisor of %#1s.\n") (cant-find-supervisor . "Can't find supervisor of %#1s.\n")
(is-read-protected-contact-supervisor . "%#1s \344r closed. (is-read-protected-contact-supervisor . "%#1s \344r closed.
Send a letter to %#2s to be granted membership.") Send a letter to %#2s to apply for membership.")
(conf-does-not-exist . "\nThe conference doesn't exist.\n") (conf-does-not-exist . "\nThe conference doesn't exist.\n")
...@@ -204,13 +214,13 @@ Send a letter to %#2s to be granted membership.") ...@@ -204,13 +214,13 @@ Send a letter to %#2s to be granted membership.")
(leave-what-conf . "Unsubscribe to which conference: ") (leave-what-conf . "Unsubscribe to which conference: ")
(error-fetching-person . "Error fetching user.\n") (error-fetching-person . "Error retreiving user.\n")
(error-fetching-conf . "Error fetching conference.\n") (error-fetching-conf . "Error retreiving conference.\n")
(name-of-conf . "Conference name: ") (name-of-conf . "Conference name: ")
(anyone-member . "May anyone subscribe? ") (anyone-member . "May anyone subscribe? ")
(secret-conf . "Secret conference? ") (secret-conf . "Secret conference? ")
(comments-allowed . "Are comments permitted? ") (comments-allowed . "Are comments allowed? ")
(what-comment-no . "Comment article number: ") (what-comment-no . "Comment article number: ")
(confusion-what-to-comment . "I can't figure out which article you want to comment.\n") (confusion-what-to-comment . "I can't figure out which article you want to comment.\n")
(confusion-what-to-footnote . "I can't figure out to which article you want to write a footnote to.\n") (confusion-what-to-footnote . "I can't figure out to which article you want to write a footnote to.\n")
...@@ -225,12 +235,12 @@ Send a letter to %#2s to be granted membership.") ...@@ -225,12 +235,12 @@ Send a letter to %#2s to be granted membership.")
LysKOM session finished LysKOM session finished
You are now disconnected from the server You are now disconnected from the server
--------------------------------------------\n") --------------------------------------------\n")
(what-to-change-pres-you . "Change presentation of what/who (yourself): ") (what-to-change-pres-you . "Change presentation of who/what (yourself): ")
(who-to-put-motd-for . "Post note on the door of who/what (yourself): ") (who-to-put-motd-for . "Post note on the door of who/what (yourself): ")
(cant-get-conf-stat . "Cannot get the status of that conference.") (cant-get-conf-stat . "Cannot get the status of that conference.")
(go-to-conf-p . "Go to conference: ") (go-to-conf-p . "Go to conference: ")
(want-become-member . "Subscribe? ") (want-become-member . "Do you want to subscribe? ")
(no-ok . "Okiedokie, whatever you say.\n") (no-ok . "Okiedokie, whatever you say.\n")
(who-to-remove-motd-for . "Remove note from the door of who/what: ") (who-to-remove-motd-for . "Remove note from the door of who/what: ")
...@@ -270,9 +280,9 @@ Send a letter to %#2s to be granted membership.") ...@@ -270,9 +280,9 @@ Send a letter to %#2s to be granted membership.")
(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 . "Subscribe to %#1s...") (member-in-conf . "Subscribing to %#1s...")
(add-member-in . "Adding %#1s as a subscriber to %#2s...") (add-member-in . "Adding %#1s as a subscriber to %#2s...")
(unsubscribe-to . "Unsubscribe from %#1s...") (unsubscribe-to . "Unsubscribing from %#1s...")
(exclude-from . "Unsubscribing %#1s from %#2s...") (exclude-from . "Unsubscribing %#1s from %#2s...")
...@@ -281,23 +291,25 @@ Send a letter to %#2s to be granted membership.") ...@@ -281,23 +291,25 @@ Send a letter to %#2s to be granted membership.")
(You . "You") (You . "You")
(could-not-create-conf . "Couldn't create the conference \"%#1s\".\nError: %#2d.\n") (could-not-create-conf . "Couldn't create the conference \"%#1s\".\nError: %#2d.\n")
(created-conf-no-name . "Conference number %#1d %#2s has been created.\n") (created-conf-no-name . "Conference number %#1d %#2s has been created.\n")
(cant-read-textno . "You are not permitted to read article %#1d") (cant-read-textno . "You are not allowed to read article %#1d")
(not-supervisor-for . "You are not the supervisor of %#1s.\n") (not-supervisor-for . "You are not the supervisor of %#1s.\n")
(not-supervisor-for . "You are not the supervisor of %#1s.\n") (not-supervisor-for . "You are not the supervisor of %#1s.\n")
(go-to-conf . "Go to conference %#1s.\n") (go-to-conf . "Go to conference %#1s.\n")
(cant-go-to-his-mailbox . "You are not permitted to go to %#1ss mailbox.\n") (cant-go-to-his-mailbox . "You are not allowed to go to %#1s's mailbox.\n")
(not-member-of-conf . "You don't subscribe to %#1s.\n") (not-member-of-conf . "You are not subscribed to %#1s.\n")
(change-name-done . "\nDone. New name: %#1s.\n") (about-to-change-name-from . "%#1s\n")
(change-name-nope . "\nDidn't work. Error code %#3d. %#2s.\n") (change-name-done . "Done. New name: %#1s.\n")
(change-name-nope . "Didn't work. Error code %#3d. %#2s.\n")
(change-supervisor-from-to . "Change supervisor of %#1s to %#2s...") (change-supervisor-from-to . "Change supervisor of %#1s to %#2s...")
(change-supervisor-nope . (change-supervisor-nope .
"\nDidn't work. Perhaps you are not permitted to change the supervisor of %#1s?\n") "\nDidn't work. Perhaps you are not allowed to change the supervisor of %#1s?\n")
(no-marked-texts . "You have no marked articles.\n") (no-marked-texts . "You have not marked any articles.\n")
(no-marked-texts-mark . (no-marked-texts-mark .
"You have no marked any articles with mark %#1d.\n") "You have not marked any articles with mark %#1d.\n")
(time-is . "The time is %4#1d-%02#2d-%02#3d %02#4d:%02#5d:%02#6d %#7s(according to the server).\n") (time-is . "The time is %4#1d %02#3d/%02#2d %02#4d:%02#5d:%02#6d %#7s(according to the server).\n")
;; (time-is . "The time is %4#1d-%02#2d-%02#3d %02#4d:%02#5d:%02#6d %#7s(according to the server).\n")
(total-users . " A total of %#1d users.\n") (total-users . " A total of %#1d users.\n")
(who-to-add-q . "Add who/what as a recipient: ") (who-to-add-q . "Add who/what as a recipient: ")
(who-to-add-copy-q . "Add which conference/user as recipient of a carbon copy: ") (who-to-add-copy-q . "Add which conference/user as recipient of a carbon copy: ")
...@@ -311,7 +323,7 @@ Send a letter to %#2s to be granted membership.") ...@@ -311,7 +323,7 @@ Send a letter to %#2s to be granted membership.")
(text-to-remove-q . "Remove which article as a comment: ") (text-to-remove-q . "Remove which article as a comment: ")
(add-comment-to . "Adding article %#1d as a comment to text %#2d...") (add-comment-to . "Adding article %#1d as a comment to text %#2d...")
(sub-comment-to . "Removing article %#1d as a comment to article %#2d...") (sub-comment-to . "Removing article %#1d as a comment to article %#2d...")
(comment-keep-recpt-p ."Shall %#1s remain a recipient? ") (comment-keep-recpt-p ."Should %#1s remain a recipient? ")
; From commands2.el: ; From commands2.el:
...@@ -336,7 +348,7 @@ Send a letter to %#2s to be granted membership.") ...@@ -336,7 +348,7 @@ Send a letter to %#2s to be granted membership.")
"Time of last article: %20#1s (accordning to your cache)\n") "Time of last article: %20#1s (accordning to your cache)\n")
(no-of-motd . "Note on the door in article: %13#1d\n") (no-of-motd . "Note on the door in article: %13#1d\n")
(superconf-is-no-name . "Superconference: %19#1d %#2s\n") (superconf-is-no-name . "Superconference: %19#1d %#2s\n")
(permitted-submitters-no-name . "Admitted authors:%25#1d %#2s\n") (permitted-submitters-no-name . "Allowed authors:%25#1d %#2s\n")
(supervisor-is-no-name . "Supervisor: %27#1d %#2s\n") (supervisor-is-no-name . "Supervisor: %27#1d %#2s\n")
(presentation-no . "Presentation: %25#1d\n") (presentation-no . "Presentation: %25#1d\n")
(conf-has-motd . "\n%#1s has a note on the door:\n") (conf-has-motd . "\n%#1s has a note on the door:\n")
...@@ -345,7 +357,7 @@ Send a letter to %#2s to be granted membership.") ...@@ -345,7 +357,7 @@ Send a letter to %#2s to be granted membership.")
(show-members-list-also-q . "List subscribers? ") (show-members-list-also-q . "List subscribers? ")
(conf-has-these-members . "\n%#1s has the following subscribers:\n") (conf-has-these-members . "\n%#1s has the following subscribers:\n")
(member-list-header . "Last entered Unread Name\n\n") (member-list-header . "Last entered Unread Name\n\n")
(secret-membership . "*** Secret line ***\n") (secret-membership . "--- Secret line ---\n")
(pers-for-status . "Get status of which user: ") (pers-for-status . "Get status of which user: ")
(no-such-pers . "The user doesn't exist.") (no-such-pers . "The user doesn't exist.")
(pers-status-record . "Status of user %#1s (%#2d)\n") (pers-status-record . "Status of user %#1s (%#2d)\n")
...@@ -370,7 +382,7 @@ Send a letter to %#2s to be granted membership.") ...@@ -370,7 +382,7 @@ Send a letter to %#2s to be granted membership.")
(not-allowed-see-confs . "You are not premitted to see which conferences %#1s subscribes to.\n") (not-allowed-see-confs . "You are not premitted to see which conferences %#1s subscribes to.\n")
(is-member-of . "\n%#1s subscribes to the following conferences:\n") (is-member-of . "\n%#1s subscribes to the following conferences:\n")
(membership-list-header . "Last access Unread Conference\n\n") (membership-list-header . "Last access Unread Conference\n\n")
(who-to-send-message-to . "Send message to whom? (Everyone) ") (who-to-send-message-to . "Send message to whom? (%s) ")
(his-total-unread . "\n%#1s has a total of %#2d unread articles.\n") (his-total-unread . "\n%#1s has a total of %#2d unread articles.\n")
(message-prompt . "Message: ") (message-prompt . "Message: ")
(message-sent-to-user . (message-sent-to-user .
...@@ -388,12 +400,16 @@ Your public message: ...@@ -388,12 +400,16 @@ Your public message:
---------------------------------------------------------------- ----------------------------------------------------------------
") ")
(message-nope . (message-nope .
"Unable to send the message. Perhaps the recipient isn't logged on.\n") "Unable to send the message. Perhaps the recipient isn't logged on.
(only-last . "Last (0 - %#1d) by %#2s: ") The message you were sending to %#1s was:
%#2s\n")
(only-last . "Last (0 - %#1d) articles by %#2s: ")
(only-error . "Something went wrong. Sorry.\n") (only-error . "Something went wrong. Sorry.\n")
(you-have-unreads . "You have %#1d unread articles in %#2s\n") (you-have-unreads . "You have %#1d unread articles in %#2s\n")
(you-have-an-unread . "You have 1 unread article in %#1s\n") (you-have-an-unread . "You have 1 unread article in %#1s\n")
(you-have-unreads-special . "You have %#1d uncommented articles in %#2s\n")
(you-have-an-unread-special . "You have 1 uncommented article in %#1s\n")
(you-have-read-everything . "No news (is bad news).\n") (you-have-read-everything . "No news (is bad news).\n")
(total-unreads . "\nYou have %#1d unread articles.\n") (total-unreads . "\nYou have %#1d unread articles.\n")
(total-unread . "\nYou have 1 unread article.\n") (total-unread . "\nYou have 1 unread article.\n")
...@@ -416,16 +432,16 @@ Your public message: ...@@ -416,16 +432,16 @@ Your public message:
(buggrepport-compilestart . "Creating bug report...") (buggrepport-compilestart . "Creating bug report...")
(buggrepport-compileend . "Creating bug report...done") (buggrepport-compileend . "Creating bug report...done")
(buggreport-description . "This is what I was doing: (buggreport-description . "This is what I was doing:
(Fill in your comments below)\n\n\n (Fill in your comments below)\n================\n\n
Among the information below are the 100 most recently pressed keys from ================
In the information below are the 100 most recently pressed keys from
your emacs. If you recently logged on, you password may be contained in your emacs. If you recently logged on, you password may be contained in
this list. If that is the case, change the characters corresponding to this list. If that is the case, change the characters corresponding to
your password to asterisks. your password to asterisks.
When you have completed writing this, send your bug report to the LysKOM When you have finished writing this, send your bug report to the LysKOM
developers. You can do this either by email to bug-lyskom@lysator.liu.se or developers. You can do this either by email to bug-lyskom@lysator.liu.se or
through Lysator's LysKOM in the conference \"LysKOM; Elispkilentens by mailing a hardcopy of your bug report to:
buggrapporter\", or if nothing else works, you can send a normal letter to
Lysator, c/0 ISY, Linkoping Univerity, S-581 83 Linkoping, SWEDEN. Lysator, c/0 ISY, Linkoping Univerity, S-581 83 Linkoping, SWEDEN.
Mark the envelope with \"LysKOM bug report\"\n\n") Mark the envelope with \"LysKOM bug report\"\n\n")
(buggreport-internals . "LysKOM's internal information:\n\n") (buggreport-internals . "LysKOM's internal information:\n\n")
...@@ -447,12 +463,12 @@ Mark the envelope with \"LysKOM bug report\"\n\n") ...@@ -447,12 +463,12 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
(name-is-in-conf . "%#1s is in\n%#2s\n") (name-is-in-conf . "%#1s is in\n%#2s\n")
(connected-during . "Connect time: %#1d seconds.\n") (connected-during . "Connect time: %#1d seconds.\n")
(conf-to-set-permitted-submitters-q . "For which conference do you want to set the admitted authors: ") (conf-to-set-permitted-submitters-q . "For which conference do you want to set the allowed authors: ")
(conf-to-set-super-conf-q . "Set superconference of which conference: ") (conf-to-set-super-conf-q . "Set superconference of which conference: ")
(new-super-conf-q . "Which conferece do you want as superconference: ") (new-super-conf-q . "Which conferece do you want as superconference: ")
(new-permitted-submitters-q . "Admit members of which conference as authors in %#1s (all): ") (new-permitted-submitters-q . "Allow members of which conference as authors in %#1s (all): ")
(super-conf-for-is . "Changing superconference of %#1s to %#2s...") (super-conf-for-is . "Changing superconference of %#1s to %#2s...")
(permitted-submitters-removed-for-conf . "Admitting all authors to conference %#1s...") (permitted-submitters-removed-for-conf . "Allowing all authors to conference %#1s...")
(submitters-conf-for-is . "Changing authors admitted to conference %#1s to the members of %#2s...") (submitters-conf-for-is . "Changing authors admitted to conference %#1s to the members of %#2s...")
(conf-to-set-garb-nice-q . "Set expiration time for which conference: ") (conf-to-set-garb-nice-q . "Set expiration time for which conference: ")
...@@ -480,9 +496,9 @@ Mark the envelope with \"LysKOM bug report\"\n\n") ...@@ -480,9 +496,9 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
(info-to-conf . "%#1s to conference: ") (info-to-conf . "%#1s to conference: ")
(info-by-to . "%#1s by %#2s to %#3s forward.") (info-by-to . "%#1s by %#2s to %#3s forward.")
(all-confs . "all conferences") (all-confs . "all conferences")
(no-get-conf . "You are not permitted to access that conferene.\n") (no-get-conf . "You are not allowed to access that conferene.\n")
(no-get-pers . "You are not permitted to access that user.\n") (no-get-pers . "You are not allowed to access that user.\n")
(no-review-info . "You are not permitted to review %#1s\n") (no-review-info . "You are not allowed to review %#1s\n")
(review-info . "Review %#1s\n") (review-info . "Review %#1s\n")
(you-review . "You are now reviewing %#1s.\n") (you-review . "You are now reviewing %#1s.\n")
(read-text-first . "You must read a article first.\n") (read-text-first . "You must read a article first.\n")
...@@ -508,7 +524,7 @@ Mark the envelope with \"LysKOM bug report\"\n\n") ...@@ -508,7 +524,7 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
(conf-has-motd-no . "The conference has a note on the door. (%#1d)\n\n%#2s") (conf-has-motd-no . "The conference has a note on the door. (%#1d)\n\n%#2s")
(still-want-to-add . "Do you still want to add the conference as a recipient? ") (still-want-to-add . "Do you still want to add the conference as a recipient? ")
(could-not-create-text . "\nCouldn't create the article. Error: %#2s.\n") (could-not-create-text . "\nCouldn't create the article. Error: %#2s.\n")
(no-get-text . "You were not permitted to retreive the article.") (no-get-text . "You were not allowed to retrieve the article.")
; From view-text.el: ; From view-text.el:
...@@ -525,9 +541,9 @@ Mark the envelope with \"LysKOM bug report\"\n\n") ...@@ -525,9 +541,9 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
;; lyskom-text-start variable. DONT change one without changing the other. ;; lyskom-text-start variable. DONT change one without changing the other.
; used by lyskom-print-time ; used by lyskom-print-time
(time-y-m-d-h-m . "%4#1d-%02#2d-%02#3d %02#4d:%02#5d ") (time-y-m-d-h-m . "%4#1d %02#3d/%02#1d %02#4d:%02#5d ")
; used by lyskom-return-time ; used by lyskom-return-time
(time-yyyy-mm-dd-hh-mm . "%4#1d-%02#2d-%02#3d %02#4d:%02#5d") (time-yyyy-mm-dd-hh-mm . "%4#1d %02#3d/%02#2d %02#4d:%02#5d")
(no-such-text-no . "The article doesn't exist. (%#1d)\n") (no-such-text-no . "The article doesn't exist. (%#1d)\n")
(head-Subject . "Subject: ") (head-Subject . "Subject: ")
...@@ -552,10 +568,11 @@ Mark the envelope with \"LysKOM bug report\"\n\n") ...@@ -552,10 +568,11 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
=========================================================== ===========================================================
Message from the LysKOM-system: Somebody tried to connect, Message from the LysKOM-system: Somebody tried to connect,
but failed since all connections available to LysKOM are in but failed since all connections available to LysKOM are in
use. Please try later. use. Please leave and return later if you are just waiting
for an article.
===========================================================\n") ===========================================================\n")
(has-entered . "%#1s has logged onto LysKOM.") (has-entered . "%#1s has entered LysKOM.")
(has-entered-r . "%#1s has logged onto LysKOM.\n") (has-entered-r . "%#1s has entered LysKOM.\n")
(has-left . "%#1s has left LysKOM.") (has-left . "%#1s has left LysKOM.")
(has-left-r . "%#1s has left LysKOM.\n") (has-left-r . "%#1s has left LysKOM.\n")
(unknown . "unknown") (unknown . "unknown")
...@@ -582,12 +599,12 @@ Personal message from %#1s (%#3s): ...@@ -582,12 +599,12 @@ Personal message from %#1s (%#3s):
(person-or-conf-no-regexp . "\\`[ \t]*[mpMP]\\w*[ \t]+\\([0-9]+\\)\\'") (person-or-conf-no-regexp . "\\`[ \t]*[mpMP]\\w*[ \t]+\\([0-9]+\\)\\'")
; From prioritize.el: ; From prioritize.el:
(cannot-get-membership . "Cannot retreive your subscription list.") (cannot-get-membership . "Cannot retrieve your subscription list.")
(cannot-get-pers-stat . "Cannot retreive your personal status.") (cannot-get-pers-stat . "Cannot retrieve your personal status.")
(your-membship . "Your subscriptions: (your-membship . "Your subscriptions:
Prio Conf# Conference\n") Prio Conf# Conference\n")
(prio-row . " %5#1d%5#2d %#3s\n") (prio-row . " %5#1d%5#2d %#3s\n")
(too-high-goto-2 . "You are too high, move down to line two.") (too-high-goto-2 . "You are too high up, move down to line two.")
(too-low-go-up . "You can't push the last line. Move up one line.") (too-low-go-up . "You can't push the last line. Move up one line.")
(all-confs-popped . "All conferences have been popped.") (all-confs-popped . "All conferences have been popped.")
(prio-died . "Couldn't complete the move. Sorry. Kill the buffer.") (prio-died . "Couldn't complete the move. Sorry. Kill the buffer.")
...@@ -597,6 +614,7 @@ Personal message from %#1s (%#3s): ...@@ -597,6 +614,7 @@ Personal message from %#1s (%#3s):
; From flags.el: ; From flags.el:
(saving-settings . "Saving options") (saving-settings . "Saving options")
(hang-on . "Wait a moment...\n") (hang-on . "Wait a moment...\n")
(could-not-save-options . "Couldn't save options.")
(could-not-create-area . "Couldn't create the article.\n") (could-not-create-area . "Couldn't create the article.\n")
(could-not-set-user-area . "Couldn't alter the user-area. The server says error: %#1d\n") (could-not-set-user-area . "Couldn't alter the user-area. The server says error: %#1d\n")
(you-dont-exist . "You don't exist. Go away.\n") (you-dont-exist . "You don't exist. Go away.\n")
...@@ -606,6 +624,9 @@ Personal message from %#1s (%#3s): ...@@ -606,6 +624,9 @@ Personal message from %#1s (%#3s):
; From lyskom-rest.el: ; From lyskom-rest.el:
(mode-line-unread . " Unread")
(mode-line-letters . " letters")
(error-code . "Error code %#2d: %#1s.\n") (error-code . "Error code %#2d: %#1s.\n")
(extended-command . "LysKOM: ") (extended-command . "LysKOM: ")
(wait-for-server . "LysKOM is waiting for a response from the server. Wait for the prompt.\n") (wait-for-server . "LysKOM is waiting for a response from the server. Wait for the prompt.\n")
...@@ -621,7 +642,7 @@ Personal message from %#1s (%#3s): ...@@ -621,7 +642,7 @@ Personal message from %#1s (%#3s):
(several-unread . " - %#1d unread articles\n") (several-unread . " - %#1d unread articles\n")
(save-on-file-q . "Save which article in file: (%#1s) ")