More informative messages from kom-next-unread-kom.

src/ChangeLog

+2000-07-30  Johan Sundstrm  <jhs@lysator.liu.se>
+
+	* commands2.el (kom-next-unread-kom): More info, as suggested by
+	Hans Persson. Tells whether there are any other sessions
+	whatsoever when there are no other sessions with unread texts.
+
 2000-07-28  Johan Sundstrm  <jhs@lysator.liu.se>
 
 	* utilities.el (lyskom-read-text-no-prefix-arg): Policy change;

src/commands2.el

@@ -1714,7 +1714,7 @@ Return-value: 'no-session if there is no suitable session to switch to
                                              'no-other-lyskom-r))
              (error (lyskom-get-string 'no-lyskom-session))))
           (t nil))))
-               
+
 
 (def-kom-emacs-command kom-next-unread-kom ()
   "Pop up the previous lyskom-session."
@@ -1727,8 +1727,12 @@ Return-value: 'no-session if there is no suitable session to switch to
              (error (lyskom-get-string 'no-unread-lyskom))))
           ((eq result 'same-session)
            (if kom-next-unread-kom-running-as-kom-command
-               (lyskom-insert-before-prompt (lyskom-get-string
-                                             'no-other-unread-lyskom-r))
+	       (lyskom-insert-before-prompt
+		(lyskom-get-string
+		 ;; Are there are any other sessions at all?
+		 (if (= 1 (length lyskom-buffer-list))
+		     'no-other-lyskom-r
+		   'no-other-unread-lyskom-r)))
              (error (lyskom-get-string 'no-lyskom-session))))
           (t nil))))