Commit 7c3fb478 authored by Pontus Freyhult's avatar Pontus Freyhult

Fix bug 1402:

	* english-strings.el, swedish-strings.el (lyskom-custom-strings):
	Added kom-membership-default-message-flag-tag and
	kom-membership-default-message-flag-doc.

	* english-strings.el (lyskom-custom-strings): Fixed typo for
	kom-membership-default-priority-doc.

	* option-edit.el (lyskom-custom-variables): Added
	kom-membership-default-message-flag.
	(lyskom-customize-buffer-format): Dito.

	* vars.el.in (kom-membership-default-message-flag): New variable.

	* commands1.el (lyskom-add-member): Use
	kom-membership-default-message-flag.
parent 9e7ac792
2005-01-12 Pontus Freyhult <pont@soua.net>
Fix bug 1402:
* english-strings.el, swedish-strings.el (lyskom-custom-strings):
Added kom-membership-default-message-flag-tag and
kom-membership-default-message-flag-doc.
* english-strings.el (lyskom-custom-strings): Fixed typo for
kom-membership-default-priority-doc.
* option-edit.el (lyskom-custom-variables): Added
kom-membership-default-message-flag.
(lyskom-customize-buffer-format): Dito.
* vars.el.in (kom-membership-default-message-flag): New variable.
* commands1.el (lyskom-add-member): Use
kom-membership-default-message-flag.
2005-01-11 Pontus Freyhult <pont@soua.net>
Applied patch from calle@lysator.liu.se, fixes bug 1487:
......
......@@ -672,9 +672,11 @@ be called from a callback."
0 (pers-stat->no-of-confs pers-stat)
(lyskom-format 'where-on-list-q
(lyskom-membership-length)))))))
(message-flag (if mship-type
(membership-type->message-flag mship-type)
(lyskom-j-or-n-p (lyskom-format 'set-message-flag-q whereto))))
(message-flag (or (when mship-type
(membership-type->message-flag mship-type))
(when (eq 'ask kom-membership-default-message-flag)
(lyskom-j-or-n-p (lyskom-format 'set-message-flag-q whereto)))
kom-membership-default-message-flag))
(mship-type (or mship-type
(lyskom-create-membership-type (not self) nil nil message-flag
......
......@@ -3803,11 +3803,17 @@ up menus.")
(kom-membership-default-priority-doc . "\
This specifies the how the initial priority of a conference is set when
This specifies how the initial priority of a conference is set when
you first become a member. If it is a number between 1 and 255, that is
the priority assigned. If it is something else, LysKOM will ask for a
priority every time you become a member of a conference.")
(kom-membership-default-message-flag-doc . "\
This specifies if group messages are received for conferences you join.
`Yes' means group messages are received, `No' that they aren't and
`Ask every time' that the client will ask every time you become a member
of a conference.")
(kom-show-personal-messages-in-buffer-doc . "\
This setting specifies how personal, group and public messages are shown.
The messages can be displayed in the LysKOM buffer, simply thrown away or
......@@ -4372,6 +4378,8 @@ up menus.")
"Show footnotes immediately: ")
(kom-membership-default-priority-tag .
"Default priority for new memberships: ")
(kom-membership-default-message-flag-tag .
"Receive group messages for new memberships: ")
(kom-dashed-lines-tag .
"Dashed lines around the text body: ")
(kom-autowrap-tag .
......
......@@ -208,6 +208,7 @@
[kom-saved-file-name]
[kom-default-mark]
[kom-symbolic-marks-alist]
[kom-membership-default-message-flag]
[kom-membership-default-priority]
[kom-membership-default-placement]
[kom-unsubscribe-makes-passive]
......@@ -708,6 +709,10 @@ All key bindings:
:help-echo select-priority
:format "%[%t%] (%v)"
:size 0))))
(kom-membership-default-message-flag
(choice ((const (ask-every-time ask))
(const (yes t))
(const (no nil)))))
(kom-show-personal-messages-in-buffer
(choice ((const (messages-in-lyskom-buffer t))
(const (discard-messages nil))
......
......@@ -3921,6 +3921,10 @@ ta fram menyer.")
I annat fall kommer klienten att frga fr varje nytt medlemskap vilken
prioritet det skall ha.")
(kom-membership-default-message-flag-doc . "\
Detta bestmmer om gruppmeddelanden tas emot i mten man gr med i. `Ja'
betyder att gruppmeddelanden tas emot, `Nej' att meddelanden inte tas
emot. `Frga varje gng' att klienten frgar nr du gr med i mten.")
(kom-show-personal-messages-in-buffer-doc . "\
Denna instllning bestmmer var personliga meddelanden, gruppmeddelanden
......@@ -4494,6 +4498,8 @@ ta fram menyer.")
"Visa fotnoter omedelbart: ")
(kom-membership-default-priority-tag .
"Prioritet fr nya medlemskap: ")
(kom-membership-default-message-flag-tag .
"Mottag gruppmeddelanden fr nya medlemskap: ")
(kom-dashed-lines-tag .
"Streckade linjer kring inlggstexten: ")
(kom-autowrap-tag .
......
......@@ -1936,6 +1936,17 @@ If set to a valid priority (integer from 0 to 255) then new
conferences are read with this priority. When set to the symbol `ask',
the client will ask for a priority when joining new conferences.
Values other than those listed are reserved for future use."
server)
(def-kom-var kom-membership-default-message-flag 'ask
"**Default message flag when joining a new conference.
If set to `nil', messages will not be received for new conferences,
if set to `t', messages will be received. When set to the symbol `ask',
the client will ask if you want to receive messages when you join new
conferences.
Values other than those listed are reserved for future use."
server)
......
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