Fixed bug 842 (new memberships ignore session priority)

Detailed changes:
> 	Fix bug 842:
> 	* commands1.el (kom-add-member-answer): Don't enter memberships
> 	under the current session priority.
>

src/ChangeLog

 2003-03-16  David Byers  <david.byers@swipnet.se>
 
+	Fix bug 842:
+	* commands1.el (kom-add-member-answer): Don't enter memberships
+	under the current session priority.
+
 	Fix bug 260:
 	* commands1.el (kom-add-self): Ask for number of unread.
 	 (lyskom-try-add-member): Show no-of-unread in text.

src/commands1.el

@@ -836,14 +836,18 @@ If optional USE-PRIORITY is non-nil then use that as the priority.
                                   lyskom-pers-no 
                                   (conf-stat->conf-no conf-conf-stat)
                                   t 0)))
-          (unless (membership->position mship)
-            (set-membership->position mship pos))
-          (if (lyskom-try-get-membership (conf-stat->conf-no conf-conf-stat) t)
-              (progn (lyskom-replace-membership mship)
-                     (lyskom-fetch-start-of-map conf-conf-stat mship))
-            (lyskom-add-membership mship
-                                   conf-conf-stat
-                                   t))))
+          (if (< (membership->priority mship) lyskom-session-priority)
+              (lyskom-format-insert-before-prompt
+               'member-in-conf-with-low-priority
+               conf-conf-stat)
+            (unless (membership->position mship)
+              (set-membership->position mship pos))
+            (if (lyskom-try-get-membership (conf-stat->conf-no conf-conf-stat) t)
+                (progn (lyskom-replace-membership mship)
+                       (lyskom-fetch-start-of-map conf-conf-stat mship))
+              (lyskom-add-membership mship
+                                     conf-conf-stat
+                                     t)))))
       (lyskom-insert-string 'done))))
 
 

src/english-strings.el

@@ -447,6 +447,7 @@ and you have finished reading. Please come back later.
 
     (where-on-list-q . "Placement in your list? (0-%#1d) ")
     (member-in-conf . "Joining to %#1M%#2?b%[ %#2s%]%[%]...")
+    (member-in-conf-with-low-priority . "%#1M has lower priority than your session priority, and will not be shown.\n")
     (member-in-conf-with-unread-date . "with unread from %#2s %#3d, %#1d")
     (member-in-conf-with-unread . "unread %#1d unread")
     (add-member-in . "Adding %#1P as a member of %#2M...")

src/swedish-strings.el

@@ -438,6 +438,7 @@ du har l
 
     (where-on-list-q . "Placering p listan? (0-%#1d) ")
     (member-in-conf . "Bli medlem i %#1M%#2?b%[ %#2s%]%[%]...")
+    (member-in-conf-with-low-priority . "%#1M har lgre prioritet n din lsniv och kommer drfr inte att visas.\n")
     (member-in-conf-with-unread-date . "med olsta frn %#3d %#2s %#1d")
     (member-in-conf-with-unread . "med %#1d olsta")
     (add-member-in . "Addera %#1P som medlem i %#2M...")