kom-is-person-member-of-conference now reports passive memberships

differently than active memberships.

src/ChangeLog

+2001-08-24  Per Cederqvist  <ceder@moria>
+
+	* commands2.el (kom-is-person-member-of-conference): Differentiate
+	between active and passive memberships.
+	* english-strings.el, swedish-strings.el (lyskom-message): Added
+	pers-is-passive-member-of-conf.
+
 2001-08-22  Ulrik Haugen  <qha@lysator.liu.se>
 
 	* lyskom-rest.el (lyskom-set-last-viewed): set lyskom-last-viewed

src/commands2.el

@@ -2456,9 +2456,13 @@ the text on one line."
          (conf-no
           (or conf-no
               (lyskom-read-conf-no (lyskom-get-string 'conf-to-check-mship-of)
-                                   '(all) nil nil t))))
-    (if (lyskom-is-member conf-no pers-no)
-        (lyskom-format-insert 'pers-is-member-of-conf pers-no conf-no)
+                                   '(all) nil nil t)))
+	 (mship (lyskom-is-member conf-no pers-no)))
+    (if mship
+	(if (membership-type->passive (membership->type mship))
+	    (lyskom-format-insert 'pers-is-passive-member-of-conf
+				  pers-no conf-no)
+	  (lyskom-format-insert 'pers-is-member-of-conf pers-no conf-no))
       (lyskom-format-insert 'pers-is-not-member-of-conf pers-no conf-no))))
 
 (def-kom-command kom-help ()

src/english-strings.el

@@ -535,6 +535,7 @@ Read all about it at http://www.lysator.liu.se/history/")
     (conf-to-check-mship-of . "...for what conference? ")
     (conf-is-empty . "The conference %#1M is empty.\n")
     (pers-is-member-of-conf . "Yes, %#1P is a member of the conference %#2M.\n")
+    (pers-is-passive-member-of-conf . "Well, %#1P is only a passive member of the conference %#2M.\n")
     (pers-is-not-member-of-conf . "No, %#1P is not a member of the conference %#2M.\n")
 
     ; From commands2.el:

src/swedish-strings.el

@@ -709,6 +709,7 @@ M
     (conf-to-check-mship-of . "...i vilket mte? ")
     (conf-is-empty . "Mtet %#1M r tomt.\n")
     (pers-is-member-of-conf . "Ja, %#1P r medlem i mtet %#2M.\n")
+    (pers-is-passive-member-of-conf . "Nja, %#1P r bara passiv medlem i mtet %#2M.\n")
     (pers-is-not-member-of-conf . "Nej, %#1P r inte medlem i mtet %#2M.\n")
 
     ;; +++ cant seem to find where these are used: