Commit bf056bd0 authored by David Byers's avatar David Byers
Browse files

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.
>
parent 37ce0144
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.
......
......@@ -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))))
......
......@@ -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...")
......
......@@ -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...")
......
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