Bug fixes in review.el, fixes in prioritize

src/ChangeLog

+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

@@ -25,7 +25,7 @@
 # $Id$
 #
 
-CLIENTVERSION = 0.41
+CLIENTVERSION = 0.42-beta
 
 GENERIC-CLEAN = *~ *.o core
 GENERIC-DIST-CLEAN = TAGS

src/TODO

@@ -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

@@ -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

@@ -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/swedish-strings.el

@@ -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

@@ -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
 ;;;