swedish-strings.el 77.5 KB
Newer Older
Linus Tolke's avatar
Linus Tolke committed
1
2
;;;;;
;;;;; $Id$
3
;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
Linus Tolke's avatar
Linus Tolke committed
4
5
6
7
8
;;;;;
;;;;; This file is part of the LysKOM server.
;;;;; 
;;;;; LysKOM is free software; you can redistribute it and/or modify it
;;;;; under the terms of the GNU General Public License as published by 
9
;;;;; the Free Software Foundation; either version 2, or (at your option) 
Linus Tolke's avatar
Linus Tolke committed
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
;;;;; any later version.
;;;;; 
;;;;; LysKOM is distributed in the hope that it will be useful, but WITHOUT
;;;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;;;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
;;;;; for more details.
;;;;; 
;;;;; You should have received a copy of the GNU General Public License
;;;;; along with LysKOM; see the file COPYING.  If not, write to
;;;;; Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
;;;;; or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
;;;;; MA 02139, USA.
;;;;;
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se. 
;;;;;
Per Cederqvist's avatar
.    
Per Cederqvist committed
25
26
27
28
29
30
31
32
33
34
35
36
;;;; ================================================================
;;;; ================================================================
;;;;
;;;; File: swedish-strings.el
;;;;
;;;; This file contains all strings in the LysKOM elisp client.
;;;; Language: Swedish.
;;;;
;;;; ================================================================
;;;;


37
38
39
40
41
(setq lyskom-clientversion-long 
      (concat lyskom-clientversion-long
	      "$Id$\n"))


42
43
44
45
46
47
48
49
;;; ================================================================
;;; lyskom-edit-mode-map

(defvar lyskom-edit-mode-map nil
  "Mode map for LysKOM edit.")

;;; Set the keymap for lyskom-edit-mode

Linus Tolke's avatar
Linus Tolke committed
50
51
52
(defvar lyskom-edit-prefix nil
  "Mode-map for lyskom edit mode.")

53
54
55
(if lyskom-edit-mode-map
    nil
  (setq lyskom-edit-mode-map (make-sparse-keymap))
56
57
58
  (define-prefix-command 'lyskom-edit-prefix)
  (define-prefix-command 'lyskom-edit-review-prefix)
  (define-prefix-command 'lyskom-edit-insert-prefix)
59
60
61
62
  (define-key lyskom-edit-mode-map "\C-c"	'lyskom-edit-prefix)
  (define-key lyskom-edit-mode-map "\C-c?"	'lyskom-help)
  (define-key lyskom-edit-mode-map "\C-c}"	'lyskom-edit-review-prefix)
  (define-key lyskom-edit-mode-map "\C-c]"	'lyskom-edit-review-prefix)
63
64
65
66
67
68
  ;; emacs 19
  (if (string-match "^19" emacs-version)
      (progn
	(define-key lyskom-edit-prefix [?\345] 'lyskom-edit-review-prefix)
	(define-key lyskom-edit-prefix [?\305] 'lyskom-edit-review-prefix)
	))
69
70
71
72
73
74
75
76
  (define-key lyskom-edit-mode-map "\C-ci"	'lyskom-edit-insert-prefix)
  (define-key lyskom-edit-mode-map "\C-c\C-c"	'kom-edit-send)
  (define-key lyskom-edit-mode-map "\C-ck"	'kom-edit-quit)
  (define-key lyskom-edit-mode-map "\C-c\C-k"	'kom-edit-quit)
  (define-key lyskom-edit-mode-map "\C-c}?"	'lyskom-help)
  (define-key lyskom-edit-mode-map "\C-c}k"	'kom-edit-show-commented)
  (define-key lyskom-edit-mode-map "\C-ci?"	'lyskom-help)
  (define-key lyskom-edit-mode-map "\C-cik"	'kom-edit-insert-commented)
77
  (define-key lyskom-edit-mode-map "\C-c\C-y"	'kom-edit-insert-commented)
78
79
80
81
82
83
84
85
86
87
  (define-key lyskom-edit-mode-map "\C-ci1"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci2"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci3"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci4"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci5"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci6"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci7"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci8"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci9"	'kom-edit-insert-digit-text)
  (define-key lyskom-edit-mode-map "\C-ci "	'kom-edit-insert-text)
88
  (define-prefix-command 'lyskom-edit-add-prefix)
89
90
91
  (define-key lyskom-edit-mode-map "\C-ca" 'lyskom-edit-add-prefix)
  (define-key lyskom-edit-mode-map "\C-cam" 'kom-edit-add-recipient)
  (define-key lyskom-edit-mode-map "\C-cak" 'kom-edit-add-copy)
92
  (define-key lyskom-edit-mode-map "\C-cae" 'kom-edit-add-copy)
93
94
95
  (define-key lyskom-edit-mode-map "\C-ca?" 'lyskom-help))


96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
;;(defvar lyskom-header-separator
;;  (substitute-command-keys
;;   "\\<lyskom-edit-mode-map>\
;;--- Skriv nedan. \
;;Skicka in=\\[kom-edit-send], \
;;Avbryt=\\[kom-edit-quit], \
;;Annat se \\[describe-mode] ---")
;;  "*String to separate headers from text body.")
;;
;;(defvar lyskom-swascii-header-separator nil
;;  "The swascii version of lyskom-header-separator.")


;;(defvar lyskom-header-subject "\304rende: "
;;  "*String to prompt for subject in the edit buffer.")
;;
;;(defvar lyskom-swascii-header-subject nil
;;  "The swascii version of lyskom-header-subject.")
114

David Byers's avatar
David Byers committed
115
(defconst lyskom-strings-missing '())
116

117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
;;; ================================================================
;;;                      Iso-8859-1 converting

;;; Author: Linus Tolke Y


(defvar iso-8859-1-table 
  "	

 !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~	

  !c#$Y|$\"c+?!-R~C+23'u$-,10?????AAAA[][CE@EEIIIIDNOOOO\\*\\UUU^YTBaaaa{}{ce`eeiiiidnoooo|/|uuu~yty"
  "*This is a table of the chars corresponding value in SWASCII.
Used by the function iso-8859-1-to-swascii function.")


(defun iso-8859-1-to-swascii (string)
  "Returns a string without characters with code > 127.
What chars are converted to is controlled by the iso-8859-1-table."
  ;; If argument is a vector of strings
  (if (vectorp string)
      (apply 'vector (mapcar 'iso-8859-1-to-swascii string))
    (let ((tmp (copy-sequence string))
	  (i 0)
	  (len (length string)))
      (while (< i len)
      (aset tmp i (aref iso-8859-1-table
                        (aref tmp i)))
      (setq i (1+ i)))
      tmp)))


;;; Formely known as lyskom-strings
(let* ((header-separator (substitute-command-keys
			  "\\<lyskom-edit-mode-map>\
--- Skriv nedan. \
Skicka in=\\[kom-edit-send], \
Avbryt=\\[kom-edit-quit], \
Annat se \\[describe-mode] ---"))
       (messages
	(cons (cons 'header-separator header-separator)
	      '(
		;; From vars.el: 
		;; From komtypes.el: nil
		;; From clienttypes.el: nil
		;; From startup.el:
		(server-q . "LysKOM-server? (%#1s) ")
		(try-connect . "LysKOM elisp-klient version %#1s.\nF\366rs\366ker koppla upp mot %#2s.\n")
		(protocoll-error . "Protocol error. Servers says: %#1s")
		(connection-done . "Uppkopplingen klar. Serverns versionsnummer \344r %#1s.\n\n")
		(what-is-your-name . "Vad heter du? ")
		(password . "L\366senord? ")
		(wrong-password . "Fel l\366sen.\n")
		(are-logged-in . "Du \344r nu inloggad. V\344nta ett tag.\n")
		(you-have-motd . "\nDu har en lapp p\345 d\366rren:\n\n")
		(lyskom-motd-was-garbed . "\nLoginmeddelandet finns inte!
David Kågedal's avatar
David Kågedal committed
173
Det meddelande som ska visas efter inloggning har f\366rsvunnit.
David Kågedal's avatar
David Kågedal committed
174
Kontakta LysKOM-administrat\366ren.\n")
175
176
		(presentation-encouragement . 
					    "Du har ingen presentation. Det skulle vara trevligt om du skrev en.
177
Anv\344nd kommandot \304p. Om du inte vill skriva n\345gon presentation tryck fs.\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
178

179
		(first-greeting . "%#1s
Linus Tolke's avatar
Linus Tolke committed
180
181
Det tycks vara f\366rsta g\345ngen du anv\344nder LysKOM. V\344lkommen!
Kontrollera att du stavat ditt namn r\344tt.  Anv\344nd g\344rna ditt fullst\344ndiga
Per Cederqvist's avatar
.    
Per Cederqvist committed
182
namn och organisation, t ex \"Eskil Block, FOA\".  Om du stavat ditt namn
Linus Tolke's avatar
Linus Tolke committed
183
fel, eller vill \344ndra ditt namn, svara nej p\345 fr\345gan nedan.
Per Cederqvist's avatar
.    
Per Cederqvist committed
184

Linus Tolke's avatar
Linus Tolke committed
185
186
Observera att all information \344n s\345 l\344nge sparas s\345 att vem som helst
kan l\344sa den. Dock \344r l\366senordet krypterat.
Per Cederqvist's avatar
.    
Per Cederqvist committed
187

Linus Tolke's avatar
Linus Tolke committed
188
189
190
Om du \344r os\344ker p\345 hur man anv\344nder LysKOM kan du h\344mta en manual via
anonym ftp fr\345n ftp.lysator.liu.se. Fr\345ga din systemadministrat\366r om
du \344r os\344ker.\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
191

192
193
194
195
		(is-name-correct . "\304r namnet %#1s korrekt? ")
		(personal-password . "Ange ett personligt l\366sen: ")
		(repeat-password . "Repetera f\366r kontroll: ")
		(repeat-failure . "Du angav inte samma l\366senord b\344gge g\345ngerna.\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
196

197
198
199
		(could-not-create-you .  "Det gick inte att skapa personen.\n")
		(presentation-subject . "%#1s")
		(presentation-form . "Namn:\t\nAdress:\t\nStad:\t\nTelefon:
200
Email-adress:\n\nAnnat:\t")
201
202
203
204
205
206
		(presentation-help . "Du skriver just  nu din presentation.\n")
		(not-present-anywhere . "Ej n\344rvarande i n\345got m\366te.")
		(in-secret-conference . "Hemligt m\366te (%#1d).")
		(start-new-session-same-server
		 . "Du k\366r redan mot den servern. Vill du starta en ny session? ")
		(new-session-in-buffer . "\n\n---- Ny session startad %s ----\n\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
207
208


209
210
211
					; From internal.el:
		(shaky-tcp . "Nu n\345r jag inte servern. TCP/IP-f\366rbindelsen \344r skakig%#1s")
		(retrying-tcp . "Jag f\366rs\366ker igen.")
Per Cederqvist's avatar
.    
Per Cederqvist committed
212

213
214
					; From parse.el:
		(protocol-error . "protokollfel: %s")
Per Cederqvist's avatar
.    
Per Cederqvist committed
215

216
217
					; From services.el:
		(interrupted . "Kommandot avbrutet\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
218

219
220
					; From cache.el:
					; No entries.
Per Cederqvist's avatar
.    
Per Cederqvist committed
221

222
223
					; From commands1.el:
		(appreciation . "Du \344r mycket vacker och mycket klok. M\345nga \344lskar dig b\345de till kropp
Linus Tolke's avatar
Linus Tolke committed
224
225
226
och till sj\344l. Du kommer att \366ver\366sas med rikedom och f\345 stor lycka i ditt
liv. Var glad att just du \344r du. Det har du all anledning att vara.
Fantomen \366nskar dig en bra dag.\n\n")
227
		(abuse . "Du \344r mycket ful och mycket dum. M\345nga hatar dig b\345de till kropp
Linus Tolke's avatar
Linus Tolke committed
228
229
230
231
232
och till sj\344l. Du kommer att \366ver\366sas med sjukdomar och inte f\345 n\345gon som
helst lycka i ditt liv. Du borde verkligen ta dig samman och g\366ra n\345got av
ditt liv \344ven om det inte \344r mycket att starta med.
Guran vill helst s\344tta en giftpil i dig.\n\n")

233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
		(what-conf-to-delete . "Vilket m\366te/person vill du utpl\345na: ")
		(what-conf-to-change . "Vilket m\366te vill du \344ndra: ")
		(confirm-delete-pers-or-conf . "Ta bort %#1s %#2s? ")
		(the-pers . "personen")
		(the-conf . "m\366tet")
		(deletion-not-confirmed . "Utpl\345ningen avbruten\n")
		(somebody-else-deleted-that-conf . "N\345gon annan tog precis bort m\366tet.\n")
		(conf-is-deleted . "Ok, nu \344r %#1s utpl\345nad.\n")
		(you-could-not-delete . "%#1M kunde inte utpl\345nas av dig.\n")

		(what-text-to-delete . "Vilket inl\344gg skall tas bort?")
		(deleting-text . "Radering av text %#1:n...")

		(presentation-for-whom . "Vilket m\366te/person? ")
		(somebody-deleted-that-conf . "N\345gon tog precis bort m\366tet.\n")
		(review-presentation-of . "\305terse presentation av %#1M.\n")
		(has-no-presentation . "%#1:M har ingen presentation.\n")

		(have-to-read . "Du m\345ste l\344sa ett inl\344gg f\366rst.\n")

		(no-comment-to . "Det finns inget kommenterat inl\344gg att titta p\345.\n")

		(who-letter-to . "Vem vill du skicka brev till? ")
		(has-motd . "%#1P har en lapp p\345 d\366rren:\n\n")
		(motd-persist-q . "Vill du fortfarande skicka brevet? ")

		(who-to-add . "Vem vill du addera? ")
		(where-to-add . "Vilket m\366te skall han/hon adderas till? ")
		(where-to-add-self . "Vilket m\366te vill du bli medlem i? ")
		(priority-q . "Prioritet p\345 m\366tet? (1 (l\345g) - 255 (h\366g)) ")
		(done . "klart.\n")
		(nope . "Det gick inte.\n")

		(cant-find-supervisor . "Hittar inte organisat\366ren f\366r %#1M.\n")
		(is-read-protected-contact-supervisor . "%#1M \344r slutet.
268
Skicka ett brev till %#2P f\366r medlemsskap.\n")
Linus Tolke's avatar
Linus Tolke committed
269

270
		(conf-does-not-exist . "\nM\366tet finns inte.\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
271

272
273
		(who-to-exclude . "Vem vill du utesluta? ")
		(where-from-exclude . "Vilket m\366te skall han/hon uteslutas ifr\345n? ")
Per Cederqvist's avatar
.    
Per Cederqvist committed
274

275
		(leave-what-conf . "Vilket m\366te vill du g\345 ur? ")
Per Cederqvist's avatar
.    
Per Cederqvist committed
276

277
278
		(error-fetching-person . "Fel i personh\344mtningen\n")
		(error-fetching-conf . "Fel i m\366tesh\344mtningen.\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
279

280
281
282
283
284
285
286
287
		(name-of-conf . "Vad ska m\366tet heta? ")
		(anyone-member . "F\345r vem som helst bli medlem? ")
		(secret-conf . "Hemligt m\366te? ")
		(comments-allowed . "F\345r man skriva kommentarer? ")
		(anonymous-allowed . "F\345r man skriva anonyma texter? ")
		(what-comment-no . "Kommentera text nummer: ")
		(confusion-what-to-comment . "Jag f\366rst\345r inte vilken text du vill kommentera.\n")
		(confusion-what-to-footnote . "Jag f\366rst\345r inte vilken text du vill skriva en fotnot till.\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
288

289
290
		(what-private-no . "Personligt svar till text nummer: ")
		(confusion-who-to-reply-to . "Jag f\366rst\345r inte vems inl\344gg du vill
291
 skriva ett privat svar till.\n")
292
293
294
295
296
		(confusion-what-to-answer-to . "Jag f\366rst\345r inte vilken text du vill besvara.\n")
		(confusion-what-to-view . "Jag f\366rst\345r inte vilken text du vill \345terse.\n")
		(quit-in-spite-of-unsent . "Vill du avsluta sessionen trots os\344nt meddelande? ")
		(really-quit . "Vill du verkligen avsluta sessionen? ")
		(session-ended . "
Per Cederqvist's avatar
.    
Per Cederqvist committed
297
*****************************
Linus Tolke's avatar
Linus Tolke committed
298
Lyskom-sessionen \344r avslutad.
Per Cederqvist's avatar
.    
Per Cederqvist committed
299
*****************************\n")
300
		(session-auto-ended . "
301
302
303
304
===========================================================
Kopplar ned fr\345n LysKOM eftersom LysKOM \344r fullt och
du har l\344st klart allting. Kom tillbaks senare.
===========================================================\n\n")
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
		(what-to-change-pres-you . "Vilket m\366te/person vill du \344ndra presentationen f\366r (dig sj\344lv): ")
		(who-to-put-motd-for . "Vilket m\366te/person vill du s\344tta lapp p\345 d\366rr f\366r (dig sj\344lv): ")

		(cant-get-conf-stat . "Kan ej h\344mta m\366tesstatus f\366r m\366tet.\n")
		(go-to-conf-p . "G\345 till m\366te: ")
		(want-become-member . "Vill du bli medlem? ")
		(no-ok . "Nehej.\n")

		(who-to-remove-motd-for . "Vilket m\366te/person vill du ta bort lapp p\345 d\366rr f\366r (dig sj\344lv): ")

		(conf-all-read . "%#1M - inga ol\344sta.\n")
		(no-in-conf . "Du \344r inte n\344rvarande i n\345got m\366te.\n")

		(search-for-pers . "Ange s\366kvillkor (RETURN f\366r alla personer): ")
		(search-for-conf . "Ange s\366kvillkor (RETURN f\366r alla m\366ten): ")
		(search-re . "Ange s\366kuttryck (regulj\344rt uttryck): ")
		(name-to-be-changed . "Ange det namn som skall \344ndras: ")
		(no-such-conf-or-pers . "M\366tet eller personen finns ej.\n")
		(new-name . "Nytt namn: ")
		(who-to-change-supervisor-for . "Vem vill du \344ndra organisat\366r f\366r? ")
		(new-supervisor . "Ny organisat\366r: ")
		(text-to-mark . "Vilket inl\344gg vill du markera? ")
		(text-to-unmark . "Vilket inl\344gg vill du avmarkera? ")
		(what-mark . "Vilken markering vill du s\344tta? ")
		(unmarking-textno . "Avmarkering av text %#1n...")
		(marking-textno . "Markering av text %#1n...")

		(new-passwd-again . "Mata in det nya l\366senordet igen f\366r kontroll: ")
		(what-mark-to-view . "Vilken markering vill du \345terse? ")
		(whos-passwd . "Vem vill du \344ndra l\366senord f\366r (dig sj\344lv)? ")
		(old-passwd . "Mata in ditt l\366senord: ")
		(new-passwd . "Mata in det nya l\366senordet: ")
		(changing-passwd . "\304ndrar l\366senordet...")
		(retype-dont-match . "L\366senorden \344r inte samma. G\366r om.\n")
		(palindrome . "(ett palindrom!) ")
		(lyskom-name . "Anv\344ndare")
		(is-in-conf . "N\344rvarande i m\366te")
		(from-machine . "K\366r fr\345n")
		(is-doing . "G\366r")
		(lyskom-client . "Klient")
		(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-delete-recipient . "Vilket inl\344gg vill du subtrahera mottagare fr\345n:")
		(text-to-move . "Vilket inl\344gg vill du flytta: ")
		(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:")

		(where-on-list-q . "Placering p\345 listan? (0-%#1d) ")
		(member-in-conf . "Bli medlem i %#1M...")
		(add-member-in . "Addera %#1P som medlem i %#2M...")
		(unsubscribe-to . "Uttr\344da ur %#1M...")

		(exclude-from . "Utesluta %#1P fr\345n %#2M...")

		(unsubscribe-failed . "\nDet gick inte. %#1P var kanske aldrig medlem i %#2M?\n")

		(You . "Du")
		(could-not-create-conf . "M\366tet \"%#1s\" kunde ej skapas.\n")
		(created-conf-no-name . "M\366te nummer %[%#3@%#1:m %#2:M%], skapat.\n")
		(cant-read-textno . "Du f\345r inte l\344sa text %#1:n")

		(not-supervisor-for . "Du \344r inte organisat\366r f\366r %#1M.\n")
		(go-to-conf . "G\345 till %#1M.\n")
		(cant-go-to-his-mailbox . "Du f\345r inte g\345 till %#1Ms brevl\345da.\n")
		(not-member-of-conf . "Du \344r inte medlem i %#1M.\n")
		(about-to-change-name-from . "%#1M\n")
		(change-name-done . "Klart. Nytt namn: %[%#2@%#1:M%].\n")
		(change-name-nope . "Det gick inte bra att \344ndra till %#1s.\nFelkod %#3d. %#2s.\n")
		(change-supervisor-from-to . "\304ndra organisat\366r f\366r %#1M till %#2P...")
		(change-supervisor-nope . 
					"\nDet gick inte. Kanske du inte f\345r \344ndra organisat\366r f\366r %#1M?\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
376
    
377
378
379
		(no-marked-texts . "Du har inga markerade inl\344gg.\n")
		(no-marked-texts-mark . 
				      "Du har inga markerade inl\344gg med markeringen %#1d.\n")
David Kågedal's avatar
David Kågedal committed
380

381
;;; For later
382
383
384
385
386
387
388
389
390
		(northward . "norrut")
		(southward . "s\366derut")
		(permanent-sundown . "Solen kommer inte att g\345 upp. Flytta %#1s!")
		(permanent-sunup . "Solen kommer inte att g\345 ned. Fytta %#1s!")
		(sunup-soon . "Solen g\345r snart upp")
		(sundown-recently . "Solen gick nyligen ned")
		(after-sunset . "Solen har g\345tt ned")
		(before-sunup . "Solen har inte g\345tt upp \344nnu")
		(sun-is-up . "Solen \344r uppe")
391
;;;
392
393
394
395
396
397
398
399
400
401
402
403
404
405
		(weekdays . ["s\366ndag" "m\345ndag" "tisdag" "onsdag" "torsdag"
			     "fredag" "l\366rdag" "s\366ndag"])
		(time-is . "Det \344r %#1s %#2s(enligt servern).")
		(time-format-exact . "%#7s %4#1d-%02#2d-%02#3d %02#4d:%02#5d:%02#6d")

		(xmaseve . "\nJulafton! Har du \366ppnat dina julklappar \344n?")
		(xmasday . "Juldagen.")
		(newyearday . "Gott nytt %#1d!")
		(newyearevelate . "Mindre \344n en timme kvar...")
		(newyeareve . "Gott nytt \345r!")
		(cgdag . "Konungens f\366delsedag")
		(sixjune . "Sveriges nationaldag och svenska flaggans dag")
		(holdnose . "H\345ll f\366r n\344san...")
		(lysbday . "
406
P\345 denna dag, \345r 1973, grundades Lysator, och det var en stor dag
407
i svensk datorhistoria. L\344s mer p\345 http://www.lysator.liu.se/history/")
408

409

410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
		(total-users . "    Sammanlagt %#1d anv\344ndare.\n")
		(total-visible-users . "    Sammanlagt %#1d synliga anv\344ndare.\n")
		(total-active-users . "    Sammanlagt %#1d aktiva anv\344ndare.\n")
		(total-visible-active-users
		 . "    Sammanlagt %#1d synliga aktiva anv\344ndare.\n")
		(who-to-add-q . "Vilket m\366te/person vill du addera som mottagare? ")
		(who-to-add-copy-q . "Vilket m\366te/person vill du addera som kopiemottagare? ")
		(who-to-sub-q . "Vilket m\366te/person vill du subtrahera som mottagare? ")
		(who-to-move-from-q . "Fr\345n vilket m\366te vill du flytta texten: ")
		(who-to-move-to-q . "Vart vill du flytta texten: ")

		(adding-name-as-recipient . "Adderar %#1M som mottagare till text %#2n...")
		(adding-name-as-copy . "Adderar %#1M som kopiemottagare till text %#2n...")
		(remove-name-as-recipient .
					  "Subtraherar %#1M som mottagare fr\345n text %#2n...")
		(moving-name . "Flyttar text %#3n fr\345n %#1M till %#2M...")
		(text-to-add-q . "Vilket inl\344gg vill du addera som kommentar? ")
		(text-to-remove-q . "Vilket inl\344gg vill du subtrahera som kommentar? ")
		(add-comment-to . "Adderar text %#1n som kommentar till text %#2n...")
		(sub-comment-to . "Subtraherar text %#1n som kommentar till text %#2n...")
		(comment-keep-recpt-p ."Ska %#1s vara mottagare? ")
		(comment-all-relevant-p . "Inl\344gget har flera mottagare. \304r alla relevanta? ")
		(please-edit-recipients . "\304ndra mottagarlistan och skicka in inl\344gget igen.")
		(checking-rcpt . "Kontrollerar mottagare...")
		(checking-rcpt-done . "Kontrollerar mottagare...klart")
		(add-recipient-p . "Addera %#1P som mottagare? ")
		(matching-regexp . "M\366ten/personer som matchar '%#1s'\n")

		(who-is-active-all . "Visar alla sessioner.\n")
		(who-is-active-last-minutes . "Visar alla sessioner som har varit aktiva de senaste %#1d minuterna.\n")
		(showing-invisibles . "Visar osynliga sessioner.\n")
		(null-who-info . "Det finns inga (aktiva) inloggade.\n")

					; From commands2.el:

		(your-memberships . "Ditt medlemskap i olika KOM-m\366ten:\n")
		(memberships-header . "Senast inne	   Prio	Ol\344sta	M\366tesnamn\n")
		(memberships-line . "%16#1s  %#2d\t%#3d\t%#4M\n")
		(conf-for-status . "Vilket m\366te vill du se statusen f\366r? ")
		(no-such-conf . "M\366tet finns ej.\n")
		(status-record . "Status f\366r m\366te %#1M (%#2m) %#3s\n\n")
		(change-type-prompt . "\304ndra m\366testyp f\366r m\366te %#1M (%#2m) %#3s\n")
		(Mailbox . "Brevl\345da")
		(Protected . "Skyddat")
		(no-comments . "original")
		(closed . "slutet")

		(created-by . "Skapat av person %25#1p %#3s(%#2P)\n")
		(created-at . "Skapad:%35#1s\n")
		(members .    "Antal medlemmar: %25#1d\n")
		(garb-nice . "Livsl\344ngd p\345 inl\344gg (dagar):%14#1d\n")
		(lowest-local-no . "L\344gsta existerande lokala nummer: %8#1d\n")
		(highest-local-no . "H\366gsta existerande lokala nummer: %8#1d\n")
		(last-text-time . 
				"Tid f\366r senaste inl\344gg: %18#1s (st\345r det i din cache)\n")
		(no-of-motd . "Lapp p\345 d\366rren i text nummer: %12#1n\n")
		(superconf-is-no-name . "Superm\366te:       %25#1m %#3s(%#2M)\n")
		(permitted-submitters-no-name . "Till\345tna f\366rfattare:%22#1m %#3s(%#2M)\n")
		(supervisor-is-no-name . "Organisat\366r:     %25#1p %#3s(%#2P)\n")
		(presentation-no . "Presentation:    %25#1n\n")
		(conf-has-motd . "\n%#1M har en lapp p\345 d\366rren:\n")

		(Everybody . "Alla")
		(show-members-list-also-q . "Vill du se medlemslistan ocks\345? ")
		(show-membership-info-q . "Visa antalet ol\344sta? ")
		(conf-has-these-members . "\n%#1M har f\366ljande medlemmar:\n")
		(member-list-header . "Senast inne         Osett  Namn\n\n")
		(secret-membership . "*** Hemlig rad ***\n")
		(conf-membership-line . "%#1s%#2M\n")
		(pers-for-status . "Vem vill du se statusen f\366r? ")
		(no-such-pers . "Det finns ingen s\345dan person.\n")
		(pers-status-record . "Status f\366r person %#1P (%#2p)\n")
		(created-time .  "Skapad:%34#1s\n\n")
		(created-confs . "Skapade m\366ten:%27#1d\n")
		(created-persons . "Skapade personer:%24#1d\n")
		(created-texts . "Skapade texter:%26#1d\n")
		(created-lines . "Skapade rader:%27#1d\n")
		(created-chars . "Antal skapade tecken:%20#1d\n")
		(no-of-sessions . "Antal sessioner:%25#1d\n")
		(present-time-d-h-m-s . "N\344rvarotid:%19#1d d %02#2d:%02#3d:%02#4d\n")
		(last-log-in . "Senast inne:%29#1s\n")
		(user-name . "Anv\344ndare: %30#1s\n")

		(read-texts . "L\344sta texter:%28#1d\n")
		(marked-texts . "Markerade texter:%24#1d\n")
		(time-for-last-letter . "Tid f\366r senaste brev:%20#1s (st\345r det i din cache)\n")
		(superconf . "Superm\366te:%31#1m %#3s(%#2M)\n")
		(supervisor . "Organisat\366r:%29#1p %#3s(%#2P)\n")
		(member-of-confs . "Medlem i (antal m\366ten):%18#1d\n")
		(presentation . "Presentation:    %24#1n\n")
		(show-membership-list-also-q . "Vill du se vilka m\366ten personen \344r medlem i ocks\345? ")
		(not-allowed-see-confs . "Du f\345r inte se vilka m\366ten %#1P \344r medlem i.\n")
		(is-member-of . "\n%#1P \344r medlem i f\366ljande m\366ten:\n")
		(membership-list-header . "Senast inne         Osett  Namn\n\n")
		(pers-membership-line . "%#1s%#2s%#3M\n")
		(is-supervisor-mark . "O ")
		(who-to-send-message-to . "Vem vill du skicka meddelandet till? (%s) ")
		(send-empty-message-p . "Meddelandet \344r tomt. Vill du \344nd\345 skicka det? ")
		(his-total-unread . "\n%#1M har totalt %#2d ol\344sta.\n")
		(message-prompt . "Meddelande: ")
		(message-sent-to-user . 
				      "================================================================
512
Ditt meddelande till %#2M:
513

514
%#1t
515
516
----------------------------------------------------------------
")
517
518
		(message-sent-to-all . 
				     "================================================================
519
520
Ditt allm\344nna meddelande l\366d:

521
%#1t
522
523
----------------------------------------------------------------
")
524
525
526
527
		(message-all-info . "S\344nd allm\344nt meddelande\n")
		(message-recipient-info . "S\344nd meddelande till %#1M\n")
		(message-nope .
			      "Du kunde inte skicka meddelandet. Mottagaren var kanske inte inloggad.
528
529
Meddelandet du f\366rs\366kte s\344nda till %#1M var:
%#2t\n")
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
		(only-last . "Endast l\344sa senaste (0 - %#1d) i %#2s? ")
		(only-error . "N\345got gick galet. Sorry.\n")

		(you-have-unreads . "Du har %#1d ol\344sta inl\344gg i %#2M\n")
		(you-have-an-unread . "Du har 1 ol\344st inl\344gg i %#1M\n")
		(you-have-unreads-special . "Du har %#1d okommenterade inl\344gg i %#2M\n")
		(you-have-an-unread-special . "Du har 1 okommenterat inl\344gg i %#1M\n")
		(you-have-read-everything . "Du har sett alla nyheter\n")
		(total-unreads . "\nDu har %#1d ol\344sta inl\344gg.\n")
		(total-unread . "\nDu har 1 ol\344st inl\344gg.\n")
		(waiting-for-anything .
				      "Du v\344ntar p\345 ett inl\344gg i vilket m\366te som helst.\n")
		(waiting-higher-than . 
				     "Du v\344ntar p\345 ett inl\344gg i ett m\366te med h\366gre prioritet \344n %#1d.\n")

		(have-to-be-in-conf-with-unread . "Du m\345ste g\345 till ett icketomt m\366te f\366rst.\n")
		(Texts . "Inl\344gg")
		(Date . "Datum")
		(Lines . "Rad.")
		(Author . "F\366rfattare")
		(Subject . "\304rende")
		(could-not-read . "Du fick inte l\344sa denna text (%#1n).\n")
		(multiple-choice . "Flera alternativ finns.")
		(does-not-exist . "Detta kommando finns inte.")
		(summary-line . "%=-8#1n%#2s%4#3d  %[%#4@%#5:P%]  %[%#6@%#7r%]\n")

		(what-mark-to-list . "Vilken markering vill du lista? ")
		(you-have-marks . "Du har %#1d inl\344gg markerade markerade med %#2d.\n")
		(you-have-marks-all . "Du har %#1d markerade inl\344gg.\n")


					; Only people fixing bugs or recieving bugg-reports should change these:
		(buggreport-compilestart . "Skapar buggrapporten...")
		(buggreport-compileend . "Skapar buggrapporten...klart")
		(buggreport-description . "Detta gjorde jag:
565
\(Fyll i dina kommentarer nedan\)\n================\n\n
566
================
Linus Tolke's avatar
Linus Tolke committed
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
Bland informationen nedan finns ocks\345 en lista p\345 de 100 sist tryckta
tangenterna i din emacs. Om du nyligen loggat in kan den inneh\345lla ditt
lyskoml\366senord. Titta igenom den och \344ndra det som \344r ditt l\366senord
till * * * eller m i t t l \366 s e n eller n\345got annat l\344mpligt.

N\344r du skrivit klart skall du skicka in din buggrapport till LysKOMs
elispklientutvecklare. Det sker antingen:
* med email till bug-lyskom@lysator.liu.se
* med vanligt brev till:
\tLysator
\tc/o ISY
\tLink\366ping University
\tS-581 83 Linkoping
\tSWEDEN.

M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
583
    
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
		(buggreport-internals . "LysKOMs interna information:\n\n")
		(buggreport-version . "lyskom-version:")
		(buggreport-emacs-version . "emacs-version:")
		(buggreport-system-id . "system-id:")
		(buggreport-ctl-arrow-doc . "ctrl-doc:")
		(buggreport-unparsed . "\nlyskom-unparsed-buffer:")
		(buggreport-command-keys . "Nyss tryckta tangenter:")
		(buggreport-backtrace . "\n*Backtrace*:\n%#1s\n")
		(buggreport-communications . "\nlyskom-debug-communications-to-buffer-buffer:")
		(buggreport-all-kom-variables . "\n\nAndra variabler:\n***** *********")
		(buggreport-instead-of-byte-comp . "byte-code(\"byte-string\"")
		(buggreport-subject . "Bugg-rapport elisp-klienten version %#1s")


		(not-logged-in . "Du \344r inte inloggad.  ")


		;; +++ cant seem to find where these are used:
		(name-is-not-in-conf . "%#1s \344r inte n\344rvarande i n\345got m\366te.\n")
		(name-is-in-conf . "%#1s \344r n\344rvarande i\n%#2s\n")
		(connected-during . "Uppkopplingstid: %#1d sekunder.\n")
		;; +++


		(conf-to-set-permitted-submitters-q . "Vilket m\366te vill du s\344tta till\345tna f\366rfattare f\366r? ")
		(conf-to-set-super-conf-q . "Vilket m\366te vill du s\344tta superm\366te f\366r? ")
		(new-super-conf-q . "Vilket m\366te vill du ha som superm\366te? ")
		(new-permitted-submitters-q . "M\366te med till\345tna f\366rfattare till %#1s? (alla) ")
		(super-conf-for-is . "\304ndra superm\366te f\366r %#1M till %#2M...")
		(permitted-submitters-removed-for-conf . "Till\345t alla f\366rfattare i m\366te %#1M...")
		(submitters-conf-for-is . "\304ndra till\345tna f\366rfattare f\366r m\366te %#1M till\nmedlemmarna i %#2M...")

		(conf-to-set-garb-nice-q . "Vilket m\366te vill du s\344tta livsl\344ngd f\366r? ")
		(new-garb-nice-q . "Vilket v\344rde vill du s\344tta livsl\344ngden till? ")
		(garb-nice-for-is . "\304ndra livsl\344ngden f\366r %#1M till %#2d...")

		(really-shutdown . "\304r du s\344ker p\345 att du vill st\344nga av servern? ")
		(closing-server . "St\344nga av servern...")
		(really-sync . "\304r du s\344ker p\345 att du vill spara databasen? ")
		(syncing-server . "Spara databasen...")
		(administrator . "administrat\366r")
		(no-longer-administrator . "en normal anv\344ndare igen")
		(you-are-now . "Ok, du k\366r nu som %#1s.\n")
		(setting-motd . "S\344tter loginmeddelandet till text %#1n.\n")
		(set-motd-success . "Du har satt ett nytt loginmeddelande.\n")
		(set-motd-failed . "Det gick inte. Du var kanske inte administrat\366r.\n")
		(removing-motd . "Tar bort loginmeddelandet.\n")
		(removed-motd . "Du har tagit bort loginmeddelandet.\n")
		(who-to-throw-out . "Vilken session vill du kasta ut? ")
		(throwing-out . "Kastar nu ut session %#1d... ")
		(postpone-prompt . "Hur lite vill du l\344sa nu? ")
		(set-session-priority . "S\344tt l\344sniv\345: ")

					; From review.el:
		(no-review-done . "Du m\345ste \345terse innan du han \345terse mer.\n")
		(review-how-many . "\305terse hur m\345nga: ")
		(review-how-many-more . "\305terse ytterligare hur m\345nga: ")
		(latest-n . "senaste %#1d")
		(first-n . "f\366rsta %#1d")
		(info-by-whom . "%#1s av vem: ")
		(info-to-conf . "%#1s till m\366te: ")
		(all-confs . "alla m\366ten")
		;; +++ not used?
		(info-by-to . "%#1s av %#2P till %#3M fram\345t.")
		(no-get-conf . "Du f\345r inte h\344mta m\366tet.\n")
		(no-get-pers . "Du f\345r inte h\344mta personen.\n")
		(no-review-info . "Ej till\345tet \345terse %#1s\n")
		;; +++
		(review-info . "\305terse %#1s")
		(review-info-by-to . "\305terse %#1s av %#2P till %#3M fram\345t.\n")
		(review-more-info-by-to . "\305terse %#1s av %#2P till %#3M fram\345t.\n")
		(review-rest . "resten")
		(review-more . "n\344sta %#1d")
		(you-review . "Du \345terser nu %#1s.\n")
		(read-text-first . "Du m\345ste l\344sa en text f\366rst.\n")
		(cannot-read-last-text . "Du kan inte l\344sa den senast l\344sta texten.\n")
		(review-n-texts . "\305terse %#1d inl\344gg.\n")
		(review-marked . "\305terse %#1d markerade.\n")
		(review-text-no . "\305terse text nummer %#1n\n")
		(review-one-comment . "\305terse en kommentar till inl\344gg %#1n.\n")
		(review-many-comments . "\304terse %#2d kommentarer till inl\344gg %#1n.\n")
		(read-normally-read . "Hur m\345nga vill du se igen?")

		(review-conf-gone . "M\366tet finns inte.\n")
		(review-pers-gone . "Personen finns inte.\n")
		(review-cant-read-conf . "Du kan inte \345terse inl\344gg till ett slutet m\366te du inte \344r med i.\n")
		(review-cant-read-letterbox . "Du kan inte \345terse inl\344gg till n\345gon annans brevl\345da.\n")
		(review-cant-read-empty . "M\366tet \344r tomt.\n")
		(cant-review-everything . "Du kan inte \345terse alla texter i LysKOM.\n")

					; From edit-text.el:
		(press-C-c-C-c . "Tryck C-c C-c f\366r att skicka in texten.")
		(recipient . "Mottagare:")
		(recipient-prefix . "[Mm]")
		(carbon-copy . "Extra kopia:")
		(carbon-copy-prefix . "[Ee]")
		(header-subject . "\304rende: ")
		(text-mass . "%#4s%#1s\n%#2s\n%#3s")
		(comment-to-by . "%#1s till text %#2d%#3s.\n")
		(already-sent . "Du har redan skickat denna text en g\345ng. S\344nd \344nd\345? ")
		(subject . "\304rende: ")
		(subject-prefix . "[\304\344\\{\\[]")
		(enter-subject-idi . "Skriv ett \344rende.")
		(which-text-include . "Vilken text skall vi inkludera? ")
		(added-recipient . "Mottagare som skall adderas: ")
		(added-carbon-copy . "Extra kopia till m\366te: ")
		(conf-has-motd-no . "M\366tet har en lapp p\345 d\366rren. (%#1d)\n\n%#2s")
		(still-want-to-add . "Vill du fortfarande addera m\366tet? ")
		(could-not-create-text . "\nTexten kunde ej skapas. Felet: %#2s.\n")
		(no-get-text . "Du fick inte h\344mta texten.")
		(unknown-header . "Ok\344nd information p\345 raden")

					; From view-text.el:
		(line . " /1 rad/ ")
		(lines ." /%#1d rader/ ")

		(marked-by-you . "Markerad av dig.\n")
		(marked-by-you-and-one . "Markerad av dig och n\345gon annan.\n")
		(marked-by-you-and-several . "Markerad av dig och %#1d andra.\n")
		(marked-by-one . "Markerad av 1 person.\n")
		(marked-by-several . "Markerad av %#1d personer.\n")

		;; The format of this function should coincide with the format of the 
		;; lyskom-text-start variable. DONT change one without changing the other.


		(time-yyyy-mm-dd-hh-mm . "%4#1d-%02#2d-%02#3d %02#4d:%02#5d")

					; used by lyskom-print-time
		(time-y-m-d-h-m . "%4#1d-%02#2d-%02#3d  %02#4d:%02#5d ")
		(today-time-format-string . "%#6s %02#4d:%02#5d")
		(yesterday-time-format-string . "%#6s %02#4d:%02#5d")
		(today . "idag")
		(yesterday . "ig\345r")
		(no-such-text-no . "Det finns inget s\345dant inl\344gg. (%#1:n)\n")

		(head-Subject . "\304rende: ")
		(Recipient . "Mottagare")
		(Extra-recipient . "Extra kopia")
		(send-at . "    S\344nt:     %#1s\n")
		(sent-by . "    S\344nt av %#1P\n")
		(recieved-at . "    Mottaget: %#1s\n")

		(comment-to-text . "Kommentar till text %#1n")
		(footnote-to-text . "Fotnot till text %#1n")
		(comment-in-text . "Kommentar i text %#1n")
		(footnote-in-text . "Fotnot i text %#1n")

		(comment-to-text-by . "Kommentar till text %#1n av %#2P")
		(footnote-to-text-by . "Fotnot till text %#1n av %#2P")
		(comment-in-text-by . "Kommentar i text %#1n av %#2P")
		(footnote-in-text-by . "Fotnot i text %#1n av %#2P")

		(written-by . " av %#1P\n")

					; From async.el:

		(name-has-changed-to-name . "%#1:P har nu bytt namn till %#2:P")
		(name-has-changed-to-name-r . "%[%#3@%#1:P%] har nu bytt namn till %[%#3@%#2:P%]\n")
		(you-changed-name-to . "Nu har du bytt namn till %[%#2@%#1:P%].\n")
		(database-sync . "Databasen synkas.")

		(lyskom-is-full . "\
Per Cederqvist's avatar
.    
Per Cederqvist committed
747
===========================================================
Linus Tolke's avatar
Linus Tolke committed
748
749
750
Meddelande fr\345n LysKOM-systemet: N\345gon f\366rs\366kte koppla upp,
men misslyckades eftersom alla tillg\344ngliga f\366rbindelser \344r
upptagna. Logga ut och kom tillbaks senare om du v\344ntar nu.
Per Cederqvist's avatar
.    
Per Cederqvist committed
751
===========================================================\n")
752
753
754
755
756
757
758
759
760
		(has-entered . "Nu har %#1:P g\345tt in i LysKOM.")
		(has-entered-r . "%#2@Nu har %#1P g\345tt in i LysKOM.\n")
		(has-left . "Nu har %#1:P g\345tt ur LysKOM.")
		(has-left-r . "%#2@Nu har %#1P g\345tt ur LysKOM.\n")
		(unknown . "ok\344nd")
		(secret-person . "Hemlig person")

		(message-broadcast . 
				   "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
761
Allm\344nt meddelande fr\345n %#1P (%#3s):
762

763
%#2t
764
765
----------------------------------------------------------------
")
766
767
		(message-from . 
			      "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
768
Personligt meddelande fr\345n %#1P (%#3s):
769

770
%#2t
771
772
----------------------------------------------------------------
")
773
774
		(message-from-to .
				 "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
David Kågedal's avatar
David Kågedal committed
775
Gruppmeddelande till %#3M\nfr\345n %#2P (%#4s):
776

David Byers's avatar
David Byers committed
777
%#1t
778
779
----------------------------------------------------------------
")
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
		(text-is-created . "Text %#1n \344r skapad!")

					; Used in mode-line-process
		(mode-line-waiting . ": v\344ntar")
		(mode-line-working . ": arbetar")
		(mode-line-saving . ": sparar")
		(mode-line-down . ": nerkopplad")

					; From completing-read.el:

		(person-or-conf-no-regexp . "\\`[ \t]*[mpMP]\\w*[ \t]+\\([0-9]+\\)\\'")
		(session-no-regexp . "\\`[ \t]*[sS]\\w*[ \t]+\\([0-9]+\\)\\'")

					; From prioritize.el:

		(cant-move-nothing-nowhere . "Kan inte flytta ingenting n\345gonstans.")
		(priority-prompt . "Ny prioritet: ")
		(beginning-of-list . "B\366rjan av listan")
		(end-of-list . "Slutet av listan")
		(reprioritize-from . "Prioritera om fr\345n: ")
		(reprioritize-to . "Prioritera om till: ")
		(no-selection . "Ingen markerad")
		(selection . "%d markerade")

		(cannot-get-membership . "Kan ej h\344mta medlemsskap f\366r dig.")
		(cannot-get-pers-stat . "Kan ej h\344mta personstatus f\366r dig.")
		(prioritize-help .
				 "u,n Flytta m\366te, SPC markera, p prioritera markerade, q avsluta, C-h m hj\344lp")
		(your-priorities . " Prioritet  M\366tesnamn
809
810
----------------------------------------------------------------------------
")
811
		(your-membship . "Ditt medlemsskap i olika KOM-m\366ten:
Linus Tolke's avatar
Linus Tolke committed
812
  Prio M\366tesnr M\366tesnamn\n")
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
		(prio-row . " %5#1d%5#2m  %#3M\n")
		(too-high-goto-2 . "Du st\345r f\366r h\366gt upp. G\345 ner till rad 2.")
		(too-low-go-up . "Du kan inte pusha sista raden. G\345 upp en rad.")
		(all-confs-popped .  "Alla m\366ten \344r poppade.")
		(prio-died . "Flyttningen misslyckades. Sorry. D\366da bufferten.")
		(new-priority . "Ny prioritet? (0 (l\345g) - 255 (h\366g)) ")
		(new-prio . "%6#1d")

					; From flags.el:
		(saving-settings . "Sparar inst\344llningarna...")
		(saving-settings-done . "Sparar inst\344llningarna...klart")
		(hang-on . "V\344nta ett tag...\n")
		(no-changes . "Ingenting beh\366vde sparas eftersom inga variabler hade \344ndrats.\n")
		(could-not-save-options . "Kunde ej spara inst\344llningarna.\n")
		(could-not-create-area . "Kunde ej skapa texten.\n")
		(could-not-set-user-area . "Kunde ej st\344lla om user-arean. Servern s\344ger felmeddelande: %#1d\n")
		(you-dont-exist . "Du finns inte.\n")
		(error-in-options . "Det fanns ett fel i en av dina variabler (%#1s)
831
Det stod \"%#2s\" i user-arean. Den s\344tts till nil ist\344llet.
David Kågedal's avatar
David Kågedal committed
832
Skicka en bugrapport.\n")
Per Cederqvist's avatar
.    
Per Cederqvist committed
833

834
835
					; From elib-string.el:
					; No entries.
Per Cederqvist's avatar
.    
Per Cederqvist committed
836

837
					; From lyskom-rest.el:
Per Cederqvist's avatar
.    
Per Cederqvist committed
838

839
840
		(mode-line-unread . " Ol\344sta ")
		(mode-line-letters . "brev ")
841

842
843
		(error-code . "Felkod %#2d: %#1s.\n")
		(error-in-kom-do-when-done . "Variabeln kom-do-when-done har ett felaktigt v\344.
844
Du b\366r s\344tta den till ett b\344ttre v\344rde.\n")
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
		(extended-command . "LysKOM: ")
		(wait-for-server . "LysKOM v\344ntar p\345 svar fr\345n servern. V\344nta tills du f\345r en prompt.\n")
		(review-text-q . "\305terse text nummer: ")

		(completely-read-conf . "Du har sett alla texter i detta m\366te.\n")
		(not-in-any-conf . "Du l\344ser inte n\345got m\366te just nu.\n")

		(all-conf-unread-r . "Du har l\344st ut alla m\366ten.\n")
		(all-conf-unread-s . "Du har l\344st ut alla m\366ten. ")
		(one-unread . "%#1M - 1 ol\344st\n")
		(several-unread . "%#1M - %#2d ol\344sta\n")
		(enter-conf . "%#1M\n")

		(save-on-file-q . "Spara inl\344gg p\345 fil: (%#1s) ")
		(wait-for-prompt . "V\344nta p\345 prompten!")
		(prompt-modifier-ansaphone . "[%s]")
		(prompt-modifier-messages . "%s (%d meddelanden)")
		(go-to-pri-conf-prompt . "G\345 till n\344sta prioriterade m\366te")
		(read-pri-text-conf . "L\344sa n\344sta prioriterade text")
		(review-next-text-prompt . "\305terse n\344sta text")
		(review-next-comment-prompt . "\305terse n\344sta kommentar")
		(review-next-marked-prompt . "\305terse n\344sta markerade")
		(read-next-letter-prompt . "L\344sa n\344sta brev")
		(read-next-footnote-prompt . "L\344sa n\344sta fotnot")
		(read-next-comment-prompt . "L\344sa n\344sta kommentar")
		(read-next-text-prompt . "L\344sa n\344sta text")
		(go-to-conf-of-marked-prompt . "\305terse (n\344sta) markerade")
		(go-to-next-conf-prompt . "G\345 till n\344sta m\366te")
		(go-to-your-mailbox-prompt . "G\345 till din brevl\345da")
		(the-command . "Kommandot: %#1C")
		(error-in-login-hook . "Det fanns ett fel i din kom-login-hook: %#1s\n")

		(give-a-number . "Mata in ett tal: ")

		(yes-regexp . "\\`[jJ][aA]\\'")
		(no-regexp . "\\`[nN][eE][jJ]\\'")
		(yes-or-no-nag . "Svara bara ja eller nej.")
		(yes-or-no . "(ja eller nej) ")

		(y-or-n-instring . "jJnN")
		(j-or-n-nag . "Svara bara j eller n. ")
		(j-or-n . "(j eller n) ")
		(y-instring . "jJ")

		(person-does-not-exist . "Person %#1d (finns inte).")
		(conference-does-not-exist . "M\366te %#1d (finns inte).")
		(person-is-anonymous . "Anonym person")

		(process-signal . "Signal fr\345n processen.")
		(closed-connection . "
Per Cederqvist's avatar
.    
Per Cederqvist committed
895
**************************************************
Linus Tolke's avatar
Linus Tolke committed
896
Lyskom-sessionen onormalt st\344ngd.
Per Cederqvist's avatar
.    
Per Cederqvist committed
897
Felmeddelande: %#1s**************************************************")
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
		(dead-session . "LysKOM-sessionen \344r inte aktiv.")
		(error-not-found . "Fel nummer %#1d. Ingen klartextf\366rklaring finns.")

					; Useful in more place than one:
		(illegal-command . "Otill\345tet kommando.\n")
		(no-such-text . "Det finns inget s\345dant inl\344gg.\n")
		(no-such-text-m . "Det finns inget s\345dant inl\344gg.")
		(everybody . "alla")
		(everything . "allt")
		(anybody . "vem som helst")
		(forward . "fram\345t")
		(backward . "bak\345t")
		(wait . "V\344nta ett tag...\n")
		(comment . "Kommentar")
		(comment-prefix . "[Kk]")
		(footnote . "Fotnot")
		(footnote-prefix . "[Ff]")
915

916
;;;+++ not used?
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
		(by . " av %#1s")
		(text-created .  "Text nummer %#1n \344r skapad.\n")

		(resolve-session . "Ange vilken session: ")

		(starting-program . "Startar %#1s...")
		(super-jump . "Filtrerar \344rende \"%#1r\" i m\366te \"%#2M\"\n")
		(no-recipient . "Inl\344gget har ingen mottagare.\n")
		(filtered . "[Filtrerad]")
		(filter-error-specification . "Fel i filterspecifikationen")
		(filter-error-bad-not . "Fel i filterspecifikation efter 'not'")
		(filter-error-unknown-key . "Filternyckeln '%S' \344r ok\344nd.")
		(filter-error-key-arg . "Fel filterdata (%S %S)")
		(filter-tree . "Hoppar \366ver text %#1n \"%#2r\" av %#3P och dess kommentarstr\344d.\n")
		(filter-text . "Hoppar \366ver text %#1n \"%#2r\" av %#3P.\n")
		(filter-permanent . "Permanent? ")
		(filter-action . "Hur vill du filtrera? ")
		(filter-in-conf . "I vilket m\366te (Alla)? ")
		(filter-subject . "Filtrera vilket \344rende? ")
		(filter-which-text . "Filtrera inl\344gg som inneh\345ller: ")
		(filter-author . "Filtrera vilken f\366rfattare? ")
		(permanent . "(permanent)")
		(temporary . "(tillf\344llig)")
		(filter-edit-buffer-name . "*LysKOM Filter Edit*")
		(filter-edit-empty-list . "Listan \344r tom")
		(filter-edit-start-of-list . "Listans b\366rjan")
		(filter-edit-end-of-list . "Listans slut")
		(filter-edit-filter-how . "Hur vill du filtrera? ")
		(filter-edit-filter-what . "Vad vill du filtrera? ")
		(filter-edit-bad-argument . "Felaktig inmatning: %s")
		(filter-edit-outside-entry . "Kan inte utf\366ra kommandot utanf\366r ett filter")
		(filter-edit-outside-list . "Kan inte utf\366ra operationen utanf\366r listan")
		(filter-edit-end-of-pattern . "Filtrets slut")
		(filter-edit-save-p . "Spara f\366r\344ndringar? ")
		(filter-edit-remove-empty . "Tomma filter g\366r att alla texter filtreras. Vill du ta bort dessa? ")
		(filter-edit-restart-p . "Du har gjort \344ndringar. Vill du verkligen b\366rja om? ")
		(filter-edit-help . 
				  "p,n Upp/ned, i/M-i Ny rad/filter, d/M-d Radera rad/filter, C-h m Mer hj\344lp")
		(filter-edit-header . "\304ndra filter f\366r \"%s\"\n")
		(filter-edit-saving . "Sparar \344ndringarna...")
		(filter-edit-saving-done . "Sparar \344ndringarna...klart")
		(filter-edit-saving-error . "Kunde inte spara \344ndringarna!")
		(filter-edit-insert-pred . "%#1s (=,!=): ")
		(filter-edit-insert-arg . "%#1s %#2s (vad): ")
		(no-filters . "Inga filter har definierats.\n")
		(view-filters-header . "\nAktiva filter:\n\n")
		(view-filters-footer . "")

		(ansaphone-new-message . "Nytt automatsvar: ")
		(ansaphone-message . "Svarsmeddelande:
967
----------------------------------------------------------------------
David Byers's avatar
David Byers committed
968
%#1t
969
970
----------------------------------------------------------------------
")
971
972
973
974
975
976
977
978
979
980
		(ansaphone-state . "Automatsvar \344r nu %#1s.")
		(ansaphone-state-r . "Automatsvar \344r nu %#1s.\n")
		(ansaphone-messages-gone . "Sparade meddelanden raderade.")
		(ansaphone-no-messages . "Inga meddelanden.\n")
		(ansaphone-message-list-start . "Sparade meddelanden:\n\n")
		(ansaphone-message-list-end . "\n\n")
		(ansaphone-message-header . "Automatiskt svar (satt %#1s):\n")

		(remote-erase-messages . "Fj\344rrstyrning (%#1P %#2s): Sparade meddelanden raderade\n")
		(remote-set-message . "Fj\344rrstyrning (%#1P %#2s): Svarsmeddelande:
981
----------------------------------------------------------------------
David Byers's avatar
David Byers committed
982
%#3t
983
984
----------------------------------------------------------------------
")
985
986
987
		(remote-set-ansaphone . "Fj\344rrstyrning (%#1P %#2s): Automatsvar \344r nu %#3s\n")
		(remote-list-messages . "Fj\344rrstyrning (%#1P %#2s): Meddelanden listade\n")
		(remote-quit . "Fj\344rrstyrning(%#1P %#2s): Avsluta\n")
988

989
990
		(illegal-remote . 
				"Otill\345ten fj\344rrstyrning:
991
992
993
994
995
Tid: %#1s
Fr\345n: %#2P <%#2p>
Till: %#3P <%#3p>
Text: 
%#4t")
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
		(illegal-remote-reply . "Fj\344rrstyrning inte accepterad: %#1s") 
		(remote-not-in-list . "Otill\345ten person")
		(remote-bad-command . "Felaktigt kommando")
		(remote-unknown-error . "Ok\344nt fel")

		(remote-control-who . "Kontrollera vilken session? ")
		(remote-control-autoreply . "Automatsvar p\345 eller av? ")

		(state-on . "p\345slaget")
		(state-off . "avslaget")

		(text-popup-title . "Inl\344gg %#1s")
		(conf-popup-title . "M\366te %#1s")
		(pers-popup-title . "Person %#1s")
		(url-popup-title  . "URL %#1s")
		(generic-popup-title . "%#1s")

		(who-i-am-not-present . "%#1P \344r inte n\344rvarande i n\345got m\366te\n")
		(who-i-am-present . "%#1P \344r n\344rvarande i %#2M\n")
		(who-i-am-client . "Programmet heter lyskom.el, version %#1s.\n")
		(who-i-am-server . "Detta \344r %#1s, version %#2s.\n")
		(who-i-am-emacs . "Det k\366rs under %#1s.\n")

		(no-such-session-r . "Det finns ingen s\345dan session. Personen kanske inte \344r inloggad.\n")
		(person-not-logged-in-r . "%#1P \344r inte inloggad.\n")
		(session-status . "Session %#1d \344r %#2P <%#2p>
1022
1023
%#5s %#7s %#4M
K\366r %#6D fr\345n %#3s\n")
1024
		(session-status-9 . "Session %#1d \344r %#2P <%#2p>
1025
1026
%#5s %#7s %#4M
K\366r %#6D fr\345n %#3s
1027
Uppkopplad sedan %#8s%#9s")
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
		(session-status-inactive . "\nHar inte varit aktiv p\345 %#1s\n")
		(one-day . "en dag")
		(one-hour . "en timme")
		(one-minute . "en minut")
		(days . "dagar")
		(hours . "timmar")
		(minutes . "minuter")
		(and . "och")
		(session-is-active . " och \344r aktiv.\n")
		(session-is-invisible . "Denna session \344r osynlig.\n")
		(status-for-session . "Sessionsstatus f\366r vilken person? ")
		(unknown-doing-what . "Existerar")
		(doing-where-conn . "i")
		(doing-nowhere-conn . "men \344r")

		;; From slow.el
		(no-such-command . "Det finns inget s\345dant kommando.\n")
		(command-completions . "Du kan mena n\345gon av f\366ljande:\n %#1s\n")
		))))
  (lyskom-define-language 'message 'sv messages)
  (lyskom-define-language 'message 'swascii
    (mapcar (function (lambda (pair)
			(cons (car pair)
			      (iso-8859-1-to-swascii (cdr pair)))))
	    messages)))

Per Cederqvist's avatar
.    
Per Cederqvist committed
1054
1055
1056
1057
1058
1059
1060



;;; ================================================================
;;;              The commands and their associated functions


1061
1062
1063

;;; Formely known as lyskom-commands
(lyskom-define-language 'command 'sv
Per Cederqvist's avatar
.    
Per Cederqvist committed
1064
  '(
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
    (describe-mode            . "Hj\344lp")
    (kom-slow-mode            . "L\345ngsamma kommandon")
    (kom-quick-mode           . "Snabba kommandon")
    (kom-send-message         . "S\344nda meddelande")
    (kom-create-conf	      . "Skapa m\366te")
    (kom-delete-conf          . "Utpl\345na")
    (kom-delete-text          . "Radera inl\344gg")
    (kom-display-time	      . "Se tiden")
    (kom-go-to-conf	      . "G\345 till m\366te")
    (kom-go-to-next-conf      . "G\345 till n\344sta m\366te")
    (kom-jump		      . "Hoppa \366ver alla kommentarer")
    (kom-list-conferences     . "Lista m\366ten") 
    (kom-list-persons	      . "Lista personer")
    (kom-list-news            . "Lista nyheter")
    (kom-list-re              . "Lista (med) regexpar")
    (kom-membership	      . "Lista medlemsskap")
David Kågedal's avatar
David Kågedal committed
1081
    ;; (kom-list-marks		"Lista markeringar") 
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
    (kom-postpone	      . "Uppskjuta l\344sning")
    (kom-set-session-priority . "S\344tt l\344sniv\345")
    (kom-prioritize	      . "Prioritera m\366ten")
    (kom-status-person	      . "Status (f\366r) person")
    (kom-status-conf	      . "Status (f\366r) m\366te")
    (kom-add-self	      . "Bli medlem i m\366te")
    (kom-list-summary	      . "Lista \344renden")
    (kom-sub-self             . "Uttr\344da ur m\366te")
    (kom-quit		      . "Sluta")
    (kom-recover	      . "\305terstarta kom") 
    (kom-start-anew	      . "B\366rja med nytt namn")
    (kom-view		      . "\305terse inl\344gg")
    (kom-find-root-review     . "\305terse tr\344d")
    (kom-review-comments      . "\305terse alla kommentarer")
    (kom-review-tree	      . "\305terse alla kommentarer rekursivt")
    (kom-review-clear         . "\305terse hoppa")
1098
    (kom-review-last-normally-read
1099
1100
1101
1102
1103
     			      . "\305terse igen")
    (kom-review-noconversion  . "\305terse omodifierat")
    (kom-review-next          . "\305terse n\344sta")
    (kom-find-root	      . "\305terse urinl\344gget")
    (kom-review-by-to         . "\305terse senaste")
1104
    (kom-review-more          . "\305terse fler inl\344gg")
1105
1106
1107
    (kom-review-first         . "\305terse f\366rsta")
    (kom-review-all           . "\305terse alla")
    (kom-view-commented-text  . "\305terse det kommenterade")
1108
    (kom-view-previous-commented-text
1109
1110
1111
1112
1113
1114
1115
     			      . "\305terse det f\366reg\345ende kommenterade")
    (kom-review-stack         . "\305terse lista")
    (kom-review-presentation  . "\305terse presentation")
    (kom-review-backward      . "(\305terse) Bakl\344nges")
    (kom-view-next-text	      . "L\344sa n\344sta inl\344gg")
    (kom-who-is-on	      . "Vilka \344r inloggade") 
    (kom-who-am-i             . "Var (\344r) jag")
David Byers's avatar
David Byers committed
1116
;    (kom-display-who-buffer	"Visa vilkalistan")
1117
1118
1119
1120
1121
1122
    (kom-list-clients	      . "Lista klienter")
    (kom-busy-wait	      . "V\344nta p\345 ett inl\344gg")
    (kom-write-comment	      . "Kommentera inl\344gget")
    (kom-comment-previous     . "Kommentera f\366reg\345ende inl\344gg")
    (kom-write-footnote       . "Fotnot till inl\344gg")
    (kom-private-answer       . "Personligt svar")
1123
    (kom-private-answer-previous
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
   . "Personligt svar p\345 f\366reg\345ende inl\344gg")
    (kom-set-unread	      . "Endast l\344sa senaste")
    (kom-write-text	      . "Skriva ett inl\344gg")
    (kom-send-letter	      . "Skicka brev")
    (kom-change-name	      . "\304ndra namn")
    (kom-change-password      . "\304ndra l\366senord")
    (kom-change-supervisor    . "\304ndra organisat\366r")
    (kom-change-presentation  . "\304ndra presentation")
    (kom-get-appreciation     . "F\345 uppmuntran")
    (kom-get-abuse            . "F\345 sk\344ll")
    (kom-mark-text            . "Markera (inl\344gg)")
    (kom-unmark-text          . "Avmarkera (inl\344gg)")
    (kom-review-marked-texts  . "\305terse markerade")
    (kom-review-all-marked-texts . "\305terse alla markerade")
    (kom-add-recipient        . "Addera mottagare")
    (kom-add-copy	      . "Addera extra kopiemottagare")
    (kom-sub-recipient        . "Subtrahera mottagare")
    (kom-move-text            . "Flytta inl\344gg")
    (kom-add-comment	      . "Addera kommentar")
    (kom-sub-comment	      . "Subtrahera kommentar")
    (kom-add-member	      . "Addera medlem")
    (kom-sub-member           . "Uteslut medlem")
    (kom-change-conf-motd     . "S\344tt lapp p\345 d\366rren")
    (kom-set-garb-nice        . "\304ndra livsl\344ngd")
    (kom-set-super-conf       . "\304ndra superm\366te")
    (kom-set-permitted-submitters . "\304ndra till\345tna f\366rfattare")
    (kom-unset-conf-motd      . "Ta bort lapp p\345 d\366rren")
    (kom-save-text	      . "Spara text (p\345 fil)")
    (kom-edit-options	      . "\304ndra variabler")
    (kom-save-options         . "Spara variabler")
    (kom-shutdown-server      . "St\344ng av servern")
    (kom-sync-database        . "Spara databasen")
    (kom-enable-adm-caps      . "\326verg\345 till administrat\366rsmod")
    (kom-disable-adm-caps     . "\326verg\345 till normalmod")
    (kom-set-motd             . "S\344tt loginmeddelande")
    (kom-remove-motd          . "Ta bort loginmeddelande")
    (kom-force-logout         . "Kasta ut en session")
    (kom-list-files	      . "Lista filarean")
    (kom-put-file	      . "Ladda upp fil")
    (kom-get-file	      . "Ladda ner fil")
    (kom-filter-author        . "Filtrera f\366rfattare")
    (kom-filter-subject       . "Filtrera \344rende")
    (kom-filter-text          . "Filtrera inneh\345ll")
    (kom-super-jump           . "Superhoppa")
    (kom-filter-edit          . "\304ndra filter")
    (kom-list-filters         . "Lista filter")
    (kom-show-user-area       . "Visa user-arean")
    (kom-change-conf-type     . "\304ndra m\366testyp")

    (kom-change-auto-reply    . "\304ndra svarsmeddelande")
    (kom-toggle-auto-reply    . "Automatsvar")
    (kom-list-messages        . "Lista meddelanden")
    (kom-erase-messages       . "Radera meddelanden")

    (kom-remote-autoreply     . "Fj\344rrkontrollera automatsvar")
    (kom-remote-set-message   . "Fj\344rrkontrollera \344ndra svarsmeddelande")
    (kom-remote-list-messages . "Fj\344rrkontrollera lista meddelanden")
    (kom-remote-erase-messages . "Fj\344rrkontrollera radera meddelanden")
    (kom-remote-quit          . "Fj\344rrkontrollera avsluta")

    (kom-status-session       . "Status (f\366r) session")
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
    ))

(lyskom-define-language 'menu 'sv
  '((lyskom    . "LysKOM")
    (read      . "L\344s")
    (dont-read . "Hoppa")
    (write     . "Skriv")
    (move      . "G\345")
    (info      . "Om")
    (send      . "S\344nd")
    (recievers . "Mottagare")
    (commented . "Kommenterar")
    (kom-edit-send . "Skicka in")
    (kom-edit-send-anonymous . "Skicka anonymt")
    (kom-edit-quit . "Kasta bort") 
    (kom-edit-add-recipient . "Addera mottagare")
    (kom-edit-add-copy . "Addera extra kopiemottagare")
    (kom-edit-show-commented . "\305terse det kommenterade")
    (kom-edit-insert-commented . "Citera det kommenterade")))

;;(defvar lyskom-swascii-commands nil
;;  "The swascii-versions of lyskom-commands.")
Linus Tolke's avatar
Linus Tolke committed
1207

1208
(defvar lyskom-onoff-table
1209
  '(("p\345" . on) ("av" . off))
1210
1211
  "A completion table for on and off selections.")

1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
(defvar lyskom-filter-predicate-list
      '(("=" . nil) ("!=" . t))
      "A list of legal filter comparison predicates.")

(defvar lyskom-filter-what
      '((author . "F\366rfattare")
        (author-no . "F\366rfattare (nummer)")
        (author-re . "F\366rfattare (regexp)")
        (subject . "\304rende")
        (subject-re . "\304rende (regexp)")
        (recipient . "Mottagare")
        (recipient-no . "Mottagare (nummer)")
        (recipient-re . "Mottagare (regexp)")
        (text . "Inneh\345ll")
        (text . "Inneh\345ll (regexp)"))
      "A list of legal filter conditions and their textual representation.")

(defvar lyskom-filter-actions
David Byers's avatar
David Byers committed
1230
1231
      '((skip-text . "Hoppa \366ver")
        (dontshow . "Visa inte")
1232
1233
1234
1235
1236
1237
1238
        (skip-tree . "Hoppa \366ver kommentarer"))
      "A list of legal filter actions an their textual representation.")
                               
(defvar lyskom-swascii-filter-actions nil
  "The swascii-versions of lyskom-filter-actions.")
(defvar lyskom-swascii-filter-what nil
  "The swascii version of lyskom-filter-what")
Per Cederqvist's avatar
.    
Per Cederqvist committed
1239

1240
(defvar lyskom-text-start "[0-9]+ +\\(199[0-9]-[0-1][0-9]-[0-3][0-9]\\|idag\\|ig\345r\\) +[0-2][0-9]:[0-5][0-9] +/[0-9]+ rad\\(er\\)?/ "
Per Cederqvist's avatar
.    
Per Cederqvist committed
1241
1242
1243
1244
  "Regexp matching beginning of a text in lyskom buffer.
Cf. paragraph-start.")


David Byers's avatar
David Byers committed
1245
(defconst lyskom-keybindings-missing '(lyskom-previous-prefix))
1246

Per Cederqvist's avatar
.    
Per Cederqvist committed
1247
1248
1249
1250
(if lyskom-mode-map
    nil
  (setq lyskom-mode-map (make-keymap))
  (suppress-keymap lyskom-mode-map)
1251
1252
1253
1254
  (define-prefix-command 'lyskom-review-prefix)
  (define-prefix-command 'lyskom-change-prefix)
  (define-prefix-command 'lyskom-next-prefix)
  (define-prefix-command 'lyskom-list-prefix)
1255
;  (define-prefix-command 'lyskom-get-prefix)
1256
  (define-prefix-command 'lyskom-S-prefix)
1257
1258
1259
  (define-prefix-command 'lyskom-filter-get-prefix)

  (define-key lyskom-mode-map "f" 'lyskom-filter-get-prefix)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1260
1261
1262
1263
  (define-key lyskom-mode-map "n" 'lyskom-next-prefix)
  (define-key lyskom-mode-map "l" 'lyskom-list-prefix)
  (define-key lyskom-mode-map "s" 'lyskom-S-prefix)

1264
  ;; emacs 19
1265

1266
1267
  (if (string-match "^19" emacs-version)
      (progn
1268
1269
1270
1271
	(define-key lyskom-mode-map [?\344] 'lyskom-change-prefix)
	(define-key lyskom-mode-map [?\304] 'lyskom-change-prefix)
	(define-key lyskom-mode-map [?\345] 'lyskom-review-prefix)
	(define-key lyskom-mode-map [?\305] 'lyskom-review-prefix)
David Kågedal's avatar
David Kågedal committed
1272
	
1273
1274
	(define-key lyskom-mode-map [?f ?\344] 'kom-filter-subject)
	(define-key lyskom-mode-map [?f ?\304] 'kom-filter-subject)
1275
1276
	(define-key lyskom-mode-map [?l ?\344] 'kom-list-summary)
	(define-key lyskom-mode-map [?l ?\304] 'kom-list-summary)
1277
	(define-key lyskom-mode-map [mouse-2] 'kom-mouse-2)
David Kågedal's avatar
David Kågedal committed
1278
1279
1280
	(define-key lyskom-mode-map [down-mouse-3] 'kom-mouse-3)
	(define-key lyskom-mode-map [mouse-3] 'kom-mouse-null)
	(define-key lyskom-mode-map "*" 'kom-key-mouse-2)
David Byers's avatar
David Byers committed
1281
1282
	(define-key lyskom-mode-map "\C-i" 'kom-next-link)
	(define-key lyskom-mode-map "\M-\C-i" 'kom-previous-link)
1283
	))
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299

  (define-key lyskom-mode-map "{" 'lyskom-change-prefix) ; krullar
  (define-key lyskom-mode-map "[" 'lyskom-change-prefix)
  (define-key lyskom-mode-map "}" 'lyskom-review-prefix)
  (define-key lyskom-mode-map "]" 'lyskom-review-prefix)
  ;; (define-key lyskom-mode-map "\344" 'lyskom-change-prefix) ; 8-bit keymap
  ;; (define-key lyskom-mode-map "\304" 'lyskom-change-prefix)
  ;; (define-key lyskom-mode-map "\345" 'lyskom-review-prefix)
  ;; (define-key lyskom-mode-map "\305" 'lyskom-review-prefix)
  ;; (define-key lyskom-mode-map "\M-{" 'lyskom-change-prefix)
  ;; (define-key lyskom-mode-map "\M-[" 'lyskom-change-prefix) 
  ;; (define-key lyskom-mode-map "\M-}" 'lyskom-review-prefix)
  ;; (define-key lyskom-mode-map "\M-]" 'lyskom-review-prefix) 



David Kågedal's avatar
David Kågedal committed
1300
1301
1302
  ;;(define-key lyskom-mode-map "vi" 'vilka)
  
  ;; These should be first in order to be last in the menu of alternatives.
Per Cederqvist's avatar
.    
Per Cederqvist committed
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
  (define-key lyskom-mode-map "{?" 'lyskom-help)
  (define-key lyskom-mode-map "}?" 'lyskom-help)
  (define-key lyskom-mode-map "f?" 'lyskom-help)
  (define-key lyskom-mode-map "n?" 'lyskom-help)
  (define-key lyskom-mode-map "l?" 'lyskom-help)
  (define-key lyskom-mode-map "s?" 'lyskom-help)
  

  (define-key lyskom-mode-map "e" 'kom-set-unread)
  (define-key lyskom-mode-map "a" 'kom-extended-command)
  (define-key lyskom-mode-map " " 'kom-next-command)
  (define-key lyskom-mode-map "\n" 'kom-page-next-command)
  (define-key lyskom-mode-map "\r" 'kom-line-next-command)
Linus Tolke's avatar
Linus Tolke committed
1316
  (define-key lyskom-mode-map "j" 'kom-page-next-command)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1317
1318
1319
1320
1321
1322
1323
1324
1325

  (define-key lyskom-mode-map "?"  'describe-mode)
  (define-key lyskom-mode-map "b"  'kom-send-letter)
  (define-key lyskom-mode-map "g"  'kom-go-to-conf)
  (define-key lyskom-mode-map "i"  'kom-write-text)
  (define-key lyskom-mode-map "k"  'kom-write-comment)
  (define-key lyskom-mode-map "K"  'kom-comment-previous)
  (define-key lyskom-mode-map "F"  'kom-write-footnote)
  (define-key lyskom-mode-map "p"  'kom-private-answer)
1326
  (define-key lyskom-mode-map "P"  'kom-private-answer-previous)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1327
  (define-key lyskom-mode-map "h"  'kom-jump)
1328
  (define-key lyskom-mode-map "H"  'kom-super-jump)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1329
1330
1331
  (define-key lyskom-mode-map "lm" 'kom-list-conferences)
  (define-key lyskom-mode-map "ln" 'kom-list-news)
  (define-key lyskom-mode-map "lp" 'kom-list-persons)
1332
  (define-key lyskom-mode-map "lr" 'kom-list-re)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1333
1334
1335
  (define-key lyskom-mode-map "ls" 'kom-membership)
  (define-key lyskom-mode-map "l{" 'kom-list-summary)
  (define-key lyskom-mode-map "l[" 'kom-list-summary)
1336
1337
1338
1339
  ;; (define-key lyskom-mode-map "l\344" 'kom-list-summary) ; 8-bit emacs
  ;; (define-key lyskom-mode-map "l\304" 'kom-list-summary)
  ;; (define-key lyskom-mode-map "l\M-{" 'kom-list-summary) ; 7(8)-bit emacs
  ;; (define-key lyskom-mode-map "l\M-[" 'kom-list-summary)
1340
  (define-key lyskom-mode-map "lf" 'kom-list-filters)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1341
1342
1343
1344
1345
  (define-key lyskom-mode-map "m"  'kom-add-self)
  (define-key lyskom-mode-map "M"  'kom-mark-text)
  (define-key lyskom-mode-map "A"  'kom-unmark-text)
  (define-key lyskom-mode-map "ni" 'kom-view-next-new-text)
  (define-key lyskom-mode-map "nm" 'kom-go-to-next-conf)
1346
  (define-key lyskom-mode-map "nl" 'kom-next-kom)
1347
1348
  (define-key lyskom-mode-map "no" 'kom-next-unread-kom)
  (define-key lyskom-mode-map "fl" 'kom-previous-kom)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1349
1350
  (define-key lyskom-mode-map "S"  'kom-quit)
  (define-key lyskom-mode-map "q"  'kom-quit)
Linus Tolke's avatar
Linus Tolke committed
1351
  (define-key lyskom-mode-map "z"  'kom-bury)
1352
  (define-key lyskom-mode-map "R"  'kom-recover)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1353
1354
1355
  (define-key lyskom-mode-map "t"  'kom-display-time)
  (define-key lyskom-mode-map "fu" 'kom-get-appreciation)
  (define-key lyskom-mode-map "fs" 'kom-get-abuse)
1356
  (define-key lyskom-mode-map "ft" 'kom-move-text)
1357
1358
  (define-key lyskom-mode-map "f{" 'kom-filter-subject)
  (define-key lyskom-mode-map "f[" 'kom-filter-subject)
1359
1360
1361
1362
  ;; (define-key lyskom-mode-map "f\344" 'kom-filter-subject)
  ;; (define-key lyskom-mode-map "f\304" 'kom-filter-subject)
  ;; (define-key lyskom-mode-map "f\M-{" 'kom-filter-subject)
  ;; (define-key lyskom-mode-map "f\M-[" 'kom-filter-subject)
1363
1364
  (define-key lyskom-mode-map "ff" 'kom-filter-author)
  (define-key lyskom-mode-map "fi" 'kom-filter-text)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1365
  (define-key lyskom-mode-map "v"  'kom-who-is-on)
David Byers's avatar
David Byers committed
1366
  (define-key lyskom-mode-map "J"  'kom-who-am-i)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1367
1368
  (define-key lyskom-mode-map "V"  'kom-busy-wait)
  (define-key lyskom-mode-map "{p" 'kom-change-presentation)
1369
  (define-key lyskom-mode-map "{f" 'kom-filter-edit)
1370
  (define-key lyskom-mode-map "{m" 'kom-change-auto-reply)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
  (define-key lyskom-mode-map "} " 'kom-view)
  (define-key lyskom-mode-map "}0" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}1" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}2" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}3" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}4" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}5" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}6" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}7" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}8" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}9" 'kom-initial-digit-view)
  (define-key lyskom-mode-map "}k" 'kom-view-commented-text)
1383
  (define-key lyskom-mode-map "}K" 'kom-view-previous-commented-text)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1384
1385
1386
1387
  (define-key lyskom-mode-map "}a?" 'lyskom-help)
  (define-key lyskom-mode-map "}ak" 'kom-review-comments)
  (define-key lyskom-mode-map "}ar" 'kom-review-tree)
  (define-key lyskom-mode-map "}h" 'kom-review-clear)
1388
  (define-key lyskom-mode-map "}i" 'kom-review-last-normally-read)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1389
  (define-key lyskom-mode-map "}n" 'kom-review-next)
Linus Tolke's avatar
Linus Tolke committed
1390
  (define-key lyskom-mode-map "}o" 'kom-review-noconversion)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1391
  (define-key lyskom-mode-map "}r" 'kom-find-root)
Linus Tolke's avatar
Linus Tolke committed
1392
  (define-key lyskom-mode-map "}u" 'kom-find-root)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1393
  (define-key lyskom-mode-map "}s" 'kom-review-by-to)
David Byers's avatar
David Byers committed
1394
  (define-key lyskom-mode-map "}y" 'kom-review-more)
1395
  (define-key lyskom-mode-map "}A" 'kom-review-all)
1396
  (define-key lyskom-mode-map "}f" 'kom-review-first)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1397
1398
1399
1400
1401
  (define-key lyskom-mode-map "}l" 'kom-review-stack)
  (define-key lyskom-mode-map "}p" 'kom-review-presentation)
  (define-key lyskom-mode-map "}t" 'kom-find-root-review)
  (define-key lyskom-mode-map "}m" 'kom-review-marked-texts)
  (define-key lyskom-mode-map "}am" 'kom-review-all-marked-texts)
1402
1403
  (define-key lyskom-mode-map "}a " 'kom-review-all)
  (define-key lyskom-mode-map "B"  'kom-review-backward)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1404
1405
  (define-key lyskom-mode-map "sm" 'kom-status-conf)
  (define-key lyskom-mode-map "sp" 'kom-status-person)
1406
  (define-key lyskom-mode-map "ss" 'kom-status-session)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1407
1408
1409

  ;; Running in buffer

1410
1411
  (define-key lyskom-mode-map "\M-p" 'backward-text)
  (define-key lyskom-mode-map "\M-n" 'forward-text)
Per Cederqvist's avatar
.    
Per Cederqvist committed
1412
1413
1414
1415
1416
  (define-key lyskom-mode-map "st" 'kom-save-text)

  (define-key lyskom-mode-map "\C-?" 'scroll-down)
)

1417
1418
1419
1420




1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
;;;==============================================================
;;; Keymap for filter editing
;;;

(defvar lyskom-filter-edit-map nil
  "Keymap for LysKOM filter edit")

(if lyskom-filter-edit-map ()
  (setq lyskom-filter-edit-map (make-keymap))
  (suppress-keymap lyskom-filter-edit-map)
  (define-key lyskom-filter-edit-map "p" 'lyskom-filter-edit-prev-pattern)
  (define-key lyskom-filter-edit-map "P" 'lyskom-filter-edit-prev-entry)
  (define-key lyskom-filter-edit-map "n" 'lyskom-filter-edit-next-pattern)
  (define-key lyskom-filter-edit-map "N" 'lyskom-filter-edit-next-entry)
  (define-key lyskom-filter-edit-map "\C-P" 'lyskom-filter-edit-prev-pattern)
  (define-key lyskom-filter-edit-map "\C-N" 'lyskom-filter-edit-next-pattern)
  (define-key lyskom-filter-edit-map "\C-B" 'lyskom-filter-edit-prev-pattern)
  (define-key lyskom-filter-edit-map "\C-F" 'lyskom-filter-edit-next-pattern)
  (define-key lyskom-filter-edit-map "\M-p" 'lyskom-filter-edit-prev-entry)
  (define-key lyskom-filter-edit-map "\M-n" 'lyskom-filter-edit-next-entry)
  (define-key lyskom-filter-edit-map "d" 'lyskom-filter-edit-delete-pattern)
  (define-key lyskom-filter-edit-map "\M-d" 'lyskom-filter-edit-delete-entry)
  (define-key lyskom-filter-edit-map "D" 'lyskom-filter-edit-delete-pattern)
  (define-key lyskom-filter-edit-map "\C-D" 'lyskom-filter-edit-delete-pattern)
  (define-key lyskom-filter-edit-map "i" 'lyskom-filter-edit-insert-pattern)
  (define-key lyskom-filter-edit-map "I" 'lyskom-filter-edit-insert-pattern)
  (define-key lyskom-filter-edit-map "\M-i" 'lyskom-filter-edit-insert-entry)
  (define-key lyskom-filter-edit-map "<" 'lyskom-filter-edit-beginning-of-list)
  (define-key lyskom-filter-edit-map ">" 'lyskom-filter-edit-end-of-list)
  (define-key lyskom-filter-edit-map "\M-<" 'lyskom-filter-edit-beginning-of-list)
  (define-key lyskom-filter-edit-map "\M->" 'lyskom-filter-edit-end-of-list)
  (define-key lyskom-filter-edit-map "q" 'lyskom-filter-edit-quit)
  (define-key lyskom-filter-edit-map "x" 'lyskom-filter-edit-expunge)
  (define-key lyskom-filter-edit-map "s" 'lyskom-filter-edit-save)
  (define-key lyskom-filter-edit-map "g" 'lyskom-filter-edit-revert)
  (define-key lyskom-filter-edit-map "t" 'lyskom-filter-edit-toggle-permanent)
  (define-key lyskom-filter-edit-map "a" 'lyskom-filter-edit-toggle-action)
  (define-key lyskom-filter-edit-map "?" 'lyskom-filter-edit-brief-help)
  (define-key lyskom-filter-edit-map "h" 'lyskom-filter-edit-brief-help)
  )
Per Cederqvist's avatar
.    
Per Cederqvist committed
1461

1462

1463
1464
1465
(defvar lyskom-prioritize-mode-map nil
  "Keymap used in lyskom-prioritize-mode.")

1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
;;;(if lyskom-prioritize-mode-map
;;;    nil
;;;  (setq lyskom-prioritize-mode-map (make-keymap))
;;;  (suppress-keymap lyskom-prioritize-mode-map)
;;;  (define-key lyskom-prioritize-mode-map [mouse-2] 'kom-mouse-2)
;;;  (define-key lyskom-prioritize-mode-map "\C-?" 'previous-line)
;;;  (define-key lyskom-prioritize-mode-map " "    'next-line)
;;;  (define-key lyskom-prioritize-mode-map "\C-k" 'kom-prioritize-kill)
;;;  (define-key lyskom-prioritize-mode-map "\C-y" 'kom-prioritize-yank)
;;;  (define-key lyskom-prioritize-mode-map "p"     'kom-prioritize-set-priority)
;;;  (define-key lyskom-prioritize-mode-map "\C-c\C-c" 'kom-prioritize-quit)
;;;  (define-key lyskom-prioritize-mode-map "q"     'kom-prioritize-quit)
;;;  (define-key lyskom-prioritize-mode-map "S"     'kom-prioritize-quit)
;;;  (define-key lyskom-prioritize-mode-map "u"     'kom-prioritize-move-up)
;;;  (define-key lyskom-prioritize-mode-map "n"     'kom-prioritize-move-down)
;;;)

(if lyskom-prioritize-mode-map 
1484
1485
1486
    nil
  (setq lyskom-prioritize-mode-map (make-keymap))
  (suppress-keymap lyskom-prioritize-mode-map)
1487
  (define-key lyskom-prioritize-mode-map [mouse-2] 'kom-mouse-2)
1488
1489
1490
  (define-key lyskom-prioritize-mode-map [down-mouse-3] 'kom-mouse-3)
  (define-key lyskom-prioritize-mode-map [mouse-3] 'kom-mouse-null)
  (define-key lyskom-prioritize-mode-map "*" 'kom-key-mouse-2)
1491
1492
1493
  (define-key lyskom-prioritize-mode-map "?" 'kom-prioritize-help)
  (define-key lyskom-prioritize-mode-map "\C-k" 'kom-prioritize-select)
  (define-key lyskom-prioritize-mode-map "\C-y" 'kom-prioritize-yank)
1494
  (define-key lyskom-prioritize-mode-map " " 'kom-prioritize-select)
1495
1496
  (define-key lyskom-prioritize-mode-map "\C-m" 'kom-prioritize-next-line)
  (define-key lyskom-prioritize-mode-map "\C-j" 'kom-prioritize-next-line)
1497
  (define-key lyskom-prioritize-mode-map [down] 'kom-prioritize-next-line)
1498
1499
  (define-key lyskom-prioritize-mode-map "\C-n" 'kom-prioritize-next-line)
  (define-key lyskom-prioritize-mode-map "\C-?" 'kom-prioritize-previous-line)
1500
  (define-key lyskom-prioritize-mode-map "\M-\C-?" 'kom-prioritize-deselect-all)
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
  (define-key lyskom-prioritize-mode-map [up] 'kom-prioritize-previous-line)
  (define-key lyskom-prioritize-mode-map "\C-p" 'kom-prioritize-previous-line)
  (define-key lyskom-prioritize-mode-map "p" 'kom-prioritize-previous-line)
  (define-key lyskom-prioritize-mode-map [M-up] 'kom-prioritize-move-up)
  (define-key lyskom-prioritize-mode-map "\M-p" 'kom-prioritize-move-up)
  (define-key lyskom-prioritize-mode-map "u" 'kom-prioritize-move-up)
  (define-key lyskom-prioritize-mode-map [M-down] 'kom-prioritize-move-down)
  (define-key lyskom-prioritize-mode-map "\M-n" 'kom-prioritize-move-down)
  (define-key lyskom-prioritize-mode-map "d" 'kom-prioritize-move-down)
  (define-key lyskom-prioritize-mode-map "\M-<" 'kom-prioritize-beginning)
  (define-key lyskom-prioritize-mode-map "\M->" 'kom-prioritize-end)
  (define-key lyskom-prioritize-mode-map "r" 'kom-prioritize-reprioritize)
  (define-key lyskom-prioritize-mode-map "g" 'kom-prioritize-goto-priority)
  (define-key lyskom-prioritize-mode-map "p" 'kom-prioritize-set-priority)
  (define-key lyskom-prioritize-mode-map "s" 'kom-prioritize-save)
  (define-key lyskom-prioritize-mode-map "q" 'kom-prioritize-quit)
1517
)
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528


(defvar lyskom-prioritize-header-lines 2
  "Number of lines in the header of the prioritization buffer")

(defvar lyskom-prioritize-header 
" Prio   M\366te
-----------------------------------------------------------------------------
"
  "Header for the reprioritization buffer")

1529
1530
1531



1532
  
1533
1534
1535
1536
1537
1538
1539
;;;; ============================================================
;;;; The default Ansaphone message goes here. The more complex 
;;;; message specification probably should too, but it's not here
;;;; yet. People who know how to use it are smart enough to do it
;;;; right.

(defvar kom-ansaphone-default-reply 
1540
  "Jag l\344ser inte LysKOM just nu. Skicka g\344rna ett brev i st\344llet."
David Byers's avatar
David Byers committed
1541
1542
1543
  "*Default message to send when the ansaphone is on.

This variable is stored in the LysKOM server.")
David Byers's avatar
David Byers committed
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555


;;;; ============================================================
;;;; Text buttom menuse go here. This will probably be moved back
;;;; to vars.el.in when the strings have been replaced by
;;;; symbols, but for now they'll stay here.


(defvar lyskom-button-actions
  '((text
     text-text
     lyskom-button-view-text
1556
1557
1558
     (("\305terse texten" . lyskom-button-view-text)
      ("\305terse tr\344d" . lyskom-button-review-tree)
      ("\305terse urinl\344gget" . lyskom-button-find-root)
David Byers's avatar
David Byers committed
1559
1560
1561
1562
      ("Kommentera texten" . lyskom-button-comment-text)
      ("Personligt svar" . lyskom-button-private-comment-text)
      ("Markera texten" . lyskom-button-mark-text)
      ("Avmarkera texten" . lyskom-button-unmark-text))
1563
1564
1565
     nil
;     ((nil lyskom-print-text footer lyskom-button-comment-text))
     )
David Byers's avatar
David Byers committed
1566
1567
1568