* view-text.el (lyskom-view-text): Använd no-such-text-no istället

för no-such-text som felmeddelande när ett inlägg inte finns.

* swedish-strings.el,english-strings.el (lyskom-strings): Sätt
ingen knapp på textnumret i no-such-text-no.

* async.el (lyskom-parse-async): Ändra i cachen om ett namn har
ändrats.

* utilities.el (lyskom-unicase): Byt buffert till rätt KOM-buffert

src/ChangeLog

+Fri Aug 23 00:39:03 1996  David Kgedal  <davidk@lysator.liu.se>
+
+	* view-text.el (lyskom-view-text): Anvnd no-such-text-no istllet
+ 	fr no-such-text som felmeddelande nr ett inlgg inte finns.
+
+	* swedish-strings.el,english-strings.el (lyskom-strings): Stt
+ 	ingen knapp p textnumret i no-such-text-no.
+
+	* async.el (lyskom-parse-async): ndra i cachen om ett namn har
+ 	ndrats.
+
+Thu Aug 22 16:52:15 1996  David Kgedal  <davidk@lysator.liu.se>
+
+	* utilities.el (lyskom-unicase): Byt buffert till rtt
+ 	KOM-buffert.
+
 Thu Aug 22 08:50:20 1996  David Byers  <davby@sen2.ida.liu.se>
 
 	* startup.el (lyskom-clear-vars): Lade till lyskom-collate-table

src/async.el

@@ -59,8 +59,8 @@ this function shall be with current-buffer the BUFFER."
       (let* ((text-no (lyskom-parse-num))
 	     (text-stat (lyskom-parse-text-stat text-no)))
 	(lyskom-save-excursion
-	  (set-buffer buffer)
-	  (lyskom-async-new-text text-stat)))) ;
+	 (set-buffer buffer)
+	 (lyskom-async-new-text text-stat)))) ;
 
      ((eq msg-no 1)			; Logout (obsolete)
       (lyskom-skip-tokens tokens))
@@ -74,125 +74,129 @@ this function shall be with current-buffer the BUFFER."
      ((eq msg-no 4)			; Conference created
       (lyskom-skip-tokens tokens))
 
-     ((eq msg-no 5)             ; A person or conference has changed name.
+     ((eq msg-no 5)			; A person or conference has
+					; changed name.
       (let ((conf-no (lyskom-parse-num))
 	    (old-name (lyskom-parse-string))
 	    (new-name (lyskom-parse-string)))
 	(lyskom-save-excursion
-	  (set-buffer buffer)
-	  (if (and lyskom-pers-no (= conf-no lyskom-pers-no))
-	      (lyskom-format-insert-before-prompt 
-	       'you-changed-name-to
-	       new-name
-	       (lyskom-default-button 'conf conf-no)))
-	  (cache-del-conf-stat conf-no) ;+++Borde {ndra i cachen i st{llet.
-	  (cond
-	   ((lyskom-is-in-minibuffer))
-	   (kom-presence-messages
-	    (lyskom-message "%s" (lyskom-format 'name-has-changed-to-name
-						old-name new-name))))
-	  (cond
-	   (kom-presence-messages-in-buffer
-	    (lyskom-format-insert-before-prompt
-	      'name-has-changed-to-name-r 
-	      old-name 
+	 (set-buffer buffer)
+	 (if (and lyskom-pers-no (= conf-no lyskom-pers-no))
+	     (lyskom-format-insert-before-prompt 
+	      'you-changed-name-to
 	      new-name
-	      (lyskom-default-button 'conf conf-no)))))))
-
+	      (lyskom-default-button 'conf conf-no)))
+	 ;; (cache-del-conf-stat conf-no) ;+++Borde {ndra i cachen i st{llet.
+	 (let ((cached-stat (cache-get-conf-stat conf-no)))
+	   (if cached-stat
+	       (set-conf-stat->name cached-stat new-name)))
+	 (cond
+	  ((lyskom-is-in-minibuffer))
+	  (kom-presence-messages
+	   (lyskom-message "%s" (lyskom-format 'name-has-changed-to-name
+					       old-name new-name))))
+	 (cond
+	  (kom-presence-messages-in-buffer
+	   (lyskom-format-insert-before-prompt
+	    'name-has-changed-to-name-r 
+	    old-name 
+	    new-name
+	    (lyskom-default-button 'conf conf-no)))))))
+     
      ((eq msg-no 6)			;i_am_on - something is moving
       (let ((info (lyskom-parse-who-info)))
 	(lyskom-save-excursion
-	  (set-buffer buffer)
-	  (if (or (not lyskom-pers-no)
-		  (zerop lyskom-pers-no))
-	      nil
-	    (cache-add-who-info info)))))
-
+	 (set-buffer buffer)
+	 (if (or (not lyskom-pers-no)
+		 (zerop lyskom-pers-no))
+	     nil
+	   (cache-add-who-info info)))))
+     
      ((eq msg-no 7)			; Database is syncing.
       (lyskom-save-excursion
-	(set-buffer buffer)
-	;; I removed the test for kom-presence-messages /david
-	(if (not (lyskom-is-in-minibuffer))
-	    (lyskom-message "%s" (lyskom-get-string 'database-sync)))
-	(setq mode-line-process (lyskom-get-string 'mode-line-saving))
-	(setq lyskom-is-saving t)
-	;; I guess the following two lines could be replaced by
-	;; force-mode-line-update in a modern emacs.
-	(set-buffer-modified-p (buffer-modified-p))
-	(sit-for 0)
-	(if (not lyskom-pending-calls)
-	    (initiate-get-time 'async nil))))
-
+       (set-buffer buffer)
+       ;; I removed the test for kom-presence-messages /david
+       (if (not (lyskom-is-in-minibuffer))
+	   (lyskom-message "%s" (lyskom-get-string 'database-sync)))
+       (setq mode-line-process (lyskom-get-string 'mode-line-saving))
+       (setq lyskom-is-saving t)
+       ;; I guess the following two lines could be replaced by
+       ;; force-mode-line-update in a modern emacs.
+       (set-buffer-modified-p (buffer-modified-p))
+       (sit-for 0)
+       (if (not lyskom-pending-calls)
+	   (initiate-get-time 'async nil))))
+     
      ((eq msg-no 8)			; Forced leave conference
       (lyskom-skip-tokens tokens))
-
+     
      ((eq msg-no 9)			; A person has logged in
       (let ((pers-no (lyskom-parse-num))
 	    (session-no (lyskom-parse-num)))
 	(lyskom-save-excursion
-	  (set-buffer buffer)
-	  (if (and lyskom-pers-no
-		   (not (zerop lyskom-pers-no))
-		   (/= pers-no lyskom-pers-no))
+	 (set-buffer buffer)
+	 (if (and lyskom-pers-no
+		  (not (zerop lyskom-pers-no))
+		  (/= pers-no lyskom-pers-no))
 					; Don't show myself.
-	      (initiate-get-conf-stat 'follow
-				      'lyskom-show-logged-in-person
-				      pers-no))
-	  (if (and lyskom-pers-no
-		   (not (zerop lyskom-pers-no))
-		   lyskom-who-info-buffer-is-on)
-	      (initiate-get-session-info 'who-buffer 'cache-add-session-info
-					 session-no))
-	  )))
-
-; msg-no 10 is the old broadcast message. No longer used.
-
+	     (initiate-get-conf-stat 'follow
+				     'lyskom-show-logged-in-person
+				     pers-no))
+	 (if (and lyskom-pers-no
+		  (not (zerop lyskom-pers-no))
+		  lyskom-who-info-buffer-is-on)
+	     (initiate-get-session-info 'who-buffer 'cache-add-session-info
+					session-no))
+	 )))
+
+     ;; msg-no 10 is the old broadcast message. No longer used.
+     
      ((eq msg-no 11)
       (lyskom-save-excursion
        (set-buffer buffer)
        (lyskom-insert-before-prompt (lyskom-get-string 'lyskom-is-full))
-;       (if (and (eq major-mode 'lyskom-mode)
-;		(not (listp lyskom-time-last-command))
-;		kom-auto-quit-when-idle)
-;	   (progn
-;	     (lyskom-insert-before-prompt
-;	      (lyskom-get-string 'session-auto-ended))
-;	      (kom-quit 1)
-))
-	   
-
+;;;       (if (and (eq major-mode 'lyskom-mode)
+;;;		(not (listp lyskom-time-last-command))
+;;;		kom-auto-quit-when-idle)
+;;;	   (progn
+;;;	     (lyskom-insert-before-prompt
+;;;	      (lyskom-get-string 'session-auto-ended))
+;;;	      (kom-quit 1)
+       ))
+     
+     
      ((eq msg-no 12)			; Message to the user (or everybody)
       (let ((recipient (lyskom-parse-num))
 	    (sender (lyskom-parse-num))
 	    (message (lyskom-parse-string)))
 	(lyskom-save-excursion
 	 (set-buffer buffer)
-	   (if (zerop recipient)
-	       (initiate-get-conf-stat 'async
-				       'lyskom-handle-personal-message
-				       sender
-				       0
-				       message)
-	     (lyskom-collect 'async)
-	     (initiate-get-conf-stat 'async nil sender)
-	     (initiate-get-conf-stat 'async nil recipient)
-	     (lyskom-use 'async 'lyskom-handle-personal-message message)))))
-
+	 (if (zerop recipient)
+	     (initiate-get-conf-stat 'async
+				     'lyskom-handle-personal-message
+				     sender
+				     0
+				     message)
+	   (lyskom-collect 'async)
+	   (initiate-get-conf-stat 'async nil sender)
+	   (initiate-get-conf-stat 'async nil recipient)
+	   (lyskom-use 'async 'lyskom-handle-personal-message message)))))
+     
      ((eq msg-no 13)			; New logout
       (let ((pers-no (lyskom-parse-num))
 	    (session-no (lyskom-parse-num)))
 	(lyskom-save-excursion
-	  (set-buffer buffer)
-	  (if (and lyskom-pers-no
-		   (not (zerop lyskom-pers-no))
-		   (/= lyskom-pers-no pers-no)
-		   (or kom-presence-messages
-		       kom-presence-messages-in-buffer))
-	      (initiate-get-conf-stat 'follow
-				      'lyskom-show-logged-out-person
-				      pers-no session-no))
-	  (if (and lyskom-pers-no (not (zerop lyskom-pers-no)))
-	      (lyskom-run 'who-buffer 'cache-del-who-info session-no)))))
+	 (set-buffer buffer)
+	 (if (and lyskom-pers-no
+		  (not (zerop lyskom-pers-no))
+		  (/= lyskom-pers-no pers-no)
+		  (or kom-presence-messages
+		      kom-presence-messages-in-buffer))
+	     (initiate-get-conf-stat 'follow
+				     'lyskom-show-logged-out-person
+				     pers-no session-no))
+	 (if (and lyskom-pers-no (not (zerop lyskom-pers-no)))
+	     (lyskom-run 'who-buffer 'cache-del-who-info session-no)))))
 
      (t
       (lyskom-skip-tokens tokens)))))

src/english-strings.el

@@ -640,7 +640,7 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
     (yesterday-time-format-string . "%#6s %02#4d:%02#5d")
     (today . "today")
     (yesterday . "yesterday")
-    (no-such-text-no . "The article doesn't exist. (%#1n)\n")
+    (no-such-text-no . "The article doesn't exist. (%#1:n)\n")
 
     (head-Subject . "Subject: ")
     (Recipient . "Recipient")

src/swedish-strings.el

@@ -665,7 +665,7 @@ M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
     (yesterday-time-format-string . "%#6s %02#4d:%02#5d")
     (today . "idag")
     (yesterday . "ig\345r")
-    (no-such-text-no . "Det finns ingen s\345dan text. (%#1n)\n")
+    (no-such-text-no . "Det finns inget s\345dant inl\344gg. (%#1:n)\n")
 
     (head-Subject . "\304rende: ")
     (Recipient . "Mottagare")

src/view-text.el

@@ -181,7 +181,7 @@ Note that this function must not be called asynchronously."
 		       (lyskom-follow-comments text-stat conf-stat mark-as-read
 					       priority build-review-tree))
 		   )
-	       (lyskom-format-insert 'no-such-text text-no)))))
+	       (lyskom-format-insert 'no-such-text-no text-no)))))
     todo))