Commit 7db276ab authored by David Kågedal's avatar David Kågedal
Browse files

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

parent 40319b00
......@@ -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
......
......@@ -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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment