La till kom-follow-comments-outside-membership.

src/ChangeLog

@@ -20,6 +20,14 @@ Mon Jul  8 10:37:48 1996  David Byers  <davby@sen2.ida.liu.se>
 	* english-strings.el, swedish-strings.el (lyskom-strings): Lade
  	till no-recipient.
 
+Thu Jul  4 23:45:48 1996  David Kgedal  <davidk@lysator.liu.se>
+
+	* vars.el.in (kom-follow-comments-outside-membership): Ny
+ 	variabel.
+	(lyskom-elisp-variables): La till den.
+
+	* view-text.el: Anvnd den.
+
 Thu Jul  4 14:10:36 1996  David Byers  <davby@sen2.ida.liu.se>
 
 	* completing-read.el: Totalt omskriven. Strre, kanske

src/vars.el.in

@@ -138,6 +138,14 @@ This variable is stored in the LysKOM server.")
 
 This variable is stored in the LysKOM server.")
 
+(defvar kom-follow-comments-outside-membership nil
+  "*Show comments in conferences you are not a member of.
+
+If this variable is nil, texts with no recipient you are a member of
+will not be shown.
+
+This variable is stored in the LysKOM server.")
+
 (defvar kom-who-buffer-size-when-displaying 10
   "*Size of window to display the who-buffer.
 This is used when executing the kom-display-who-buffer command.
@@ -611,6 +619,7 @@ This variable is not saved in the LysKOM server.")
     kom-ansaphone-record-messages
     kom-ansaphone-show-messages
     kom-show-footnotes-immediately
+    kom-follow-comments-outside-membership
     kom-friends
     lyskom-fetch-map-nos
     lyskom-new-text-hook

src/view-text.el

@@ -268,7 +268,7 @@ lyskom-reading-list."
 recipients to it that the user is a member in."
   (let* ((misc-info-list (text-stat->misc-info-list text-stat))
 	 (i (length misc-info-list))
-	 (res t))
+	 (res 'not-member))
     (while (and res (not (zerop i)))
       (setq i (1- i))
       (let* ((misc-info (elt misc-info-list i))
@@ -278,12 +278,19 @@ recipients to it that the user is a member in."
 	  (let ((membership (lyskom-member-p
 			     (misc-info->recipient-no misc-info)))
 		(loc-no (misc-info->local-no misc-info)))
+
+	    ;; Make a note that this text really is in a group we are
+	    ;; a member of.
+	    (if (and res membership) (setq res t))
+	    
 	    (if (and membership
 		     (> loc-no (membership->last-text-read membership))
 		     (not (lyskom-vmemq loc-no
 				       (membership->read-texts membership))))
 		(setq res nil)))))))
-    res))
+    (if (eq res 'not-member)
+	(not kom-follow-comments-outside-membership)
+      res)))
 
 
 (defun lyskom-subtract-one-day (x)