Fix bug 458:

	* swedish-strings.el, english-strings.el
	(lyskom-message): New string: who-is-friend.

	* commands1.el (lyskom-who-is-on-9, lyskom-who-is-on-8): print
	who-is-friend if given non-nil show-friends-only.

src/ChangeLog

+2002-04-27  Ulrik Haugen  <qha@lysator.liu.se>
+
+	Fix bug 458:
+	
+	* swedish-strings.el, english-strings.el
+	(lyskom-message): New string: who-is-friend.
+
+	* commands1.el (lyskom-who-is-on-9, lyskom-who-is-on-8): print
+	who-is-friend if given non-nil show-friends-only.
+
 2002-04-26  David Byers  <david.byers@swipnet.se>
 
 	* option-edit.el (lyskom-custom-variables): Added

src/commands1.el

@@ -2839,7 +2839,9 @@ Uses Protocol A version 8 calls"
 	 (lyskom-default-conf-string 'not-present-anywhere)
          (lyskom-default-pers-string 'unknown-person))
 
-    (cond (show-present-only
+    (cond (show-friends-only
+           (lyskom-format-insert 'who-is-friend))
+          (show-present-only
 	   (lyskom-format-insert 'who-is-active-and-present conf-stat))
 	  (conf-stat
 	   (lyskom-format-insert 'who-is-active-and-member conf-stat)))
@@ -2936,7 +2938,9 @@ Uses Protocol A version 9 calls"
     (if wants-invisibles
 	(lyskom-insert (lyskom-get-string 'showing-invisibles)))
 
-    (cond (show-present-only
+    (cond (show-friends-only
+           (lyskom-format-insert 'who-is-friend))
+          (show-present-only
 	   (lyskom-format-insert 'who-is-active-and-present conf-stat))
 	  (conf-stat
 	   (lyskom-format-insert 'who-is-active-and-member conf-stat)))

src/english-strings.el

@@ -549,6 +549,7 @@ Read all about it at http://www.lysator.liu.se/history/")
 
     (who-is-on-in-what-conference . "Who in which conference: ")
     (who-is-present-in-what-conference . "Who present in which conference: ")
+    (who-is-friend . "Only friends are shown.\n")
     (who-is-active-and-member . "Only members in %#1M are shown.\n")
     (who-is-active-and-present . "Only members present in %#1M are shown.\n")
 

src/swedish-strings.el

@@ -540,6 +540,7 @@ i svensk datorhistoria. L
 
     (who-is-on-in-what-conference . "Vilka i vilket mte: ")
     (who-is-present-in-what-conference . "Vilka nrvarande i vilket mte: ")
+    (who-is-friend . "Visar endast vnner.\n")
     (who-is-active-and-member . "Visar endast medlemmar i %#1M.\n")
     (who-is-active-and-present . "Visar endast medlemmar nrvarande i %#1M.\n")