Olästa on mode-line. Incorrect keymap for emacs19 fixed.

src/commands1.el

@@ -930,6 +930,8 @@ If optional argument is non-nil then dont ask for confirmation."
 	(lyskom-ja-or-nej-p (lyskom-get-string 'really-quit))
 	)
     (initiate-logout 'main nil)
+    (setq lyskom-sessions-with-unread
+	  (delq lyskom-proc lyskom-sessions-with-unread))
     (set-process-sentinel lyskom-proc nil)
     (delete-process lyskom-proc)
     (setq lyskom-proc)

src/commands2.el

@@ -593,6 +593,9 @@ lyskom-prefetch-all-confs."
 			      (t nil)) 'lyskom-list-news))
 
 
+(defvar lyskom-special-conf-name "\\`Inl.gg .t mig\\'"
+  "Regexp to match conf names that are special.")
+
 (defun lyskom-list-news (num-arg)
   "Print the number of unread articles to the user."
   (interactive)
@@ -607,9 +610,17 @@ lyskom-prefetch-all-confs."
 	    (if (or (not num-arg)
 		    (>= (-- num-arg) 0))
 		(lyskom-insert 
-		 (if (/= un 1)
-		     (lyskom-format 'you-have-unreads un name)
-		   (lyskom-format 'you-have-an-unread name))))
+		 (if (and (boundp 'lyskom-special-conf-name)
+			  (stringp lyskom-special-conf-name)
+			  (string-match lyskom-special-conf-name
+					(conf-stat->name
+					 (read-info->conf-stat info))))
+		     (if (/= un 1)
+			 (lyskom-format 'you-have-unreads-special un name)
+		       (lyskom-format 'you-have-an-unread-special name))
+		   (if (/= un 1)
+		       (lyskom-format 'you-have-unreads un name)
+		     (lyskom-format 'you-have-an-unread name)))))
 	    (setq sum (+ sum un)))))))
      (read-list->all-entries lyskom-to-do-list))
     (if (= 0 sum)

src/swedish-strings.el

@@ -408,6 +408,8 @@ Ditt allm\344nna meddelande l\366d:
 
     (you-have-unreads . "Du har %#1d ol\344sta inl\344gg i %#2s\n")
     (you-have-an-unread . "Du har 1 ol\344st inl\344gg i %#1s\n")
+    (you-have-unreads-special . "Du har %#1d okommenterade inl\344gg i %#2s\n")
+    (you-have-an-unread-special . "Du har 1 okommenterat inl\344gg i %#1s\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")
@@ -626,6 +628,8 @@ Personligt meddelande fr\345n %#1s (%#3s):
 
     ; From lyskom-rest.el:
 
+    (mode-line-unread " Ol\344sta")
+
     (error-code . "Felkod %#2d: %#1s.\n")
     (extended-command . "LysKOM: ")
     (wait-for-server . "LysKOM v\344ntar p\345 svar fr\345n servern. V\344nta tills du f\345r en prompt.\n")
@@ -827,10 +831,10 @@ Cf. paragraph-start.")
   ;; emacs 19
   (if (string-match "^19" emacs-version)
       (progn
-	(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 [\304] 'lyskom-review-prefix)
+	(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)
 
 	(define-key lyskom-mode-map [?l ?\344] 'kom-list-summary)
 	(define-key lyskom-mode-map [?l ?\304] 'kom-list-summary)

src/vars.el

@@ -229,7 +229,7 @@ Dont change these. These are defined by the protocol.")
 ;;;                  Internal variables and constants
 
 
-(defconst lyskom-clientversion "0.37"
+(defconst lyskom-clientversion "0.38"
   "Version of the LysKOM elisp client.")
 
 (defconst lyskom-max-int 8388607