Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Peter Liljenberg
lyskom-elisp-client
Commits
580b95df
Commit
580b95df
authored
May 03, 1996
by
David Byers
Browse files
Bug fixes in review.el, fixes in prioritize
parent
73399be6
Changes
8
Expand all
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
580b95df
Fri May 3 10:13:12 1996 David Byers <davby@sen2.ida.liu.se>
* english-strings.el,swedish-strings.el (lyskom-prioritize-mode-map):
Lade till M-DEL som bindning fr kom-prioritize-deselect-all
* prioritize.el (kom-prioritize-deselect-all): Lade till detta
kommando.
* review.el (lyskom-check-review-access): Hantera tomma mten rtt.
(lyskom-get-texts-by-and-to): Optimera hantering av terse av en
flitig frfattare till ett litet mte.
* swedish-strings.el,english-strings.el (lyskom-strings): Ngra nya
strngar fr rapportering av fel i terse.
* review.el (lyskom-get-texts-by): Skrev om s den blev effektivare.
Stt maxinkrement till lyskom-fetch-map-nos. Kontrollera att man
verkligen fr lsa conf-mappen. (lyskom-get-texts-generic): Tog bort
denna eftersom den bara anvndes av lyskom-get-texts-by.
(lyskom-get-texts-to): Inlineade koden frn lyskom-get-texts-generic.
Stt maxinkrement till lyskom-fetch-map-nos.
(lyskom-get-texts-by-and-to): Startinkrement satt till
lyskom-fetch-map-nos, kontrollera att man verkligen fr lsa
conf-mappen. (lyskom-check-review-access): Ny funktion.
Thu May 2 18:47:18 1996 David Kgedal <davidk@lysator.liu.se>
* 0.41 release
...
...
src/Makefile
View file @
580b95df
...
...
@@ -25,7 +25,7 @@
# $Id$
#
CLIENTVERSION
=
0.4
1
CLIENTVERSION
=
0.4
2-beta
GENERIC-CLEAN
=
*
~
*
.o core
GENERIC-DIST-CLEAN
=
TAGS
...
...
src/TODO
View file @
580b95df
...
...
@@ -34,17 +34,16 @@ Buggar
Om man försöker logga in med en förkortning som matchar flera namn
tror klienten att man inte finns.
Allmänna förbättringar
Lista meddelanden via fjärrkontroll listar baklänges.
Att försöka återse inlägg i någon annans brevlåda tar bara en
massa tid och gör ingen nytta.
Allmänna förbättringar
Inläggsnumren borde vara mer kontextkänsliga. Om man klickar på
ett inläggs eget nummer, alltså det som står precis innan datumet
och det som står inom parentesen precis efter inläggstexten, så
vill man antagligen inte återse det, eftersom man ju bevisligen
har det framför sig. I stället vill man antagligen kommentera
det.
det.
Har detta att göra med lite för optimistisk cache att göra? Kanske
bör man läsa om person-staten innan man varnar för lapp på dörren?
...
...
src/english-strings.el
View file @
580b95df
...
...
@@ -555,6 +555,11 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
(review-one-comment . "
Review
one
comment
to
article
%#1n.\n
")
(review-many-comments . "
Review
%#2d
comments
to
article
%#1n.\n
")
(read-normally-read . "
How
many
articles
to
you
want
to
review:
")
(review-conf-gone . "
The
conference
does
not
exist.\n
")
(review-pers-gone . "
The
user
does
not
exist.\n
")
(review-cant-read-conf . "
You
can
't
review
articles
to
a
closed
conference
you
are
not
a
member
of.\n
")
(review-cant-read-letterbox . "
You
can
't
review
articles
to
somebody
else
's
mailbox.
")
(review-cant-read-empty . "
The
conference
is
empty.\n
")
; From edit-text.el:
(press-C-c-C-c . "
Enter
C-c
C-c
to
post
the
article.
")
...
...
@@ -1235,6 +1240,7 @@ Cf. paragraph-start.")
(define-key lyskom-prioritize-mode-map "
\C-m
" 'kom-prioritize-next-line)
(define-key lyskom-prioritize-mode-map "
\C-j
" 'kom-prioritize-next-line)
(define-key lyskom-prioritize-mode-map "
\C-?
" 'kom-prioritize-previous-line)
(define-key lyskom-prioritize-mode-map "
\M-\C-?
" 'kom-prioritize-deselect-all)
(define-key lyskom-prioritize-mode-map [down] 'kom-prioritize-next-line)
(define-key lyskom-prioritize-mode-map "
\C-n
" 'kom-prioritize-next-line)
(define-key lyskom-prioritize-mode-map [up] 'kom-prioritize-previous-line)
...
...
src/prioritize.el
View file @
580b95df
...
...
@@ -278,6 +278,18 @@
(
interactive
)
(
lyskom-message
"%s"
(
lyskom-get-string
'prioritize-help
)))
(
defun
kom-prioritize-deselect-all
()
"Deselect all selected entries"
(
interactive
)
(
let
((
entry
nil
))
(
while
lyskom-prioritize-selection
(
setq
entry
(
car
lyskom-prioritize-selection
))
(
lyskom-prioritize-select
entry
nil
)
(
lyskom-prioritize-redraw-entry
entry
))))
(
defun
kom-prioritize-select
(
&optional
arg
)
"Select the record on the line containing point.
If ARG is null, toggle selection. Positive arg means always select and
...
...
src/review.el
View file @
580b95df
This diff is collapsed.
Click to expand it.
src/swedish-strings.el
View file @
580b95df
...
...
@@ -572,6 +572,12 @@ M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\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
\345r
med
i.\n
")
(review-cant-read-letterbox . "
Du
kan
inte
\345terse
in\344gg
till
n\345gon
annans
brevl\345da.\n
")
(review-cant-read-empty . "
M\366tet
r
tomt.\n
")
; From edit-text.el:
(press-C-c-C-c . "
Tryck
C-c
C-c
f\366r
att
skicka
in
texten.
")
(recipient . "
Mottagare:
")
...
...
@@ -1298,6 +1304,7 @@ Cf. paragraph-start.")
(define-key lyskom-prioritize-mode-map [down] 'kom-prioritize-next-line)
(define-key lyskom-prioritize-mode-map "
\C-n
" 'kom-prioritize-next-line)
(define-key lyskom-prioritize-mode-map "
\C-?
" 'kom-prioritize-previous-line)
(define-key lyskom-prioritize-mode-map "
\M-\C-?
" 'kom-prioritize-deselect-all)
(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)
...
...
src/utilities.el
View file @
580b95df
...
...
@@ -126,6 +126,14 @@ The value is actually the element of LIST whose cdr is KEY."
(
nreverse
result
)))
(
defun
lyskom-maxint
()
(
let
((
n
1
)
(
l
nil
))
(
while
(
>
n
0
)
(
setq
l
(
cons
n
l
))
(
setq
n
(
*
2
n
)))
(
apply
'+
l
)))
;;;
;;; LysKOM utility functions
;;;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment