Commit 3241f760 authored by Pontus Freyhult's avatar Pontus Freyhult

* option-edit.el (lyskom-customize-buffer-format): Added

        kom-write-text-recipient-strategy.
        (lyskom-custom-variables): Dito.

        * vars.el.in (kom-write-text-recipient-strategy): New variable.

        * swedish-strings.el,english-strings.el (lyskom-custom-strings):
        Added current-meeting. Added kom-write-text-recipient-strategy-doc
        and kom-write-text-recipient-strategy-tag.

        * commands1.el (lyskom-write-text): Use current-conf is
        kom-write-text-recipient-strategy is 'current and we're called
        from kom-write-text.
parent e7d485f5
2006-05-03 Pontus Freyhult <pont@soua.net>
* option-edit.el (lyskom-customize-buffer-format): Added
kom-write-text-recipient-strategy.
(lyskom-custom-variables): Dito.
* vars.el.in (kom-write-text-recipient-strategy): New variable.
* swedish-strings.el,english-strings.el (lyskom-custom-strings):
Added current-meeting. Added kom-write-text-recipient-strategy-doc
and kom-write-text-recipient-strategy-tag.
* commands1.el (lyskom-write-text): Use current-conf is
kom-write-text-recipient-strategy is 'current and we're called
from kom-write-text.
2006-04-25 David Byers <davby@ida.liu.se>
* lyskom-rest.el (lyskom-fill-next-paragraph): Fixed off-by-one
......
......@@ -1778,6 +1778,11 @@ recipients are handled."
((numberp arg) arg)
((and (eq kom-write-text-recipient-strategy 'current)
(eq prompt 'who-send-text-to)
(not (eq 0 lyskom-current-conf)))
lyskom-current-conf)
(t (lyskom-read-conf-no prompt '(pers conf) nil nil t))))
(conf-stat (blocking-do 'get-conf-stat tono)))
(cache-del-conf-stat tono)
......
......@@ -3148,6 +3148,8 @@ Select whether to execute command or keyboard macro.")
(ask-every-time . "Ask every time ")
(fixed-priority . "Fixed priority")
(current-meeting . "Current meeting")
(messages-in-lyskom-buffer . "In the LysKOM buffer")
(discard-messages . "Nowhere - discard them")
(in-named-buffer . "In a named buffer:")
......@@ -3576,6 +3578,9 @@ up menus.")
commented texts the way it is done in e-mail or Usenet News since the
commented text is always available in LysKOM.")
(kom-write-text-recipient-strategy-doc . "\
Determines whatever write text asks for a recipient or uses the
current conference.")
(kom-created-texts-are-read-doc . "\
When this is on, self-created texts are automatically marked as read. Turned
......@@ -4413,6 +4418,8 @@ up menus.")
"Read prioritized texts: ")
(kom-created-texts-are-read-tag .
"Automatically read created texts: ")
(kom-write-text-recipient-strategy-tag .
"Recipient when using write text: ")
(kom-default-mark-tag .
"Default mark: ")
(kom-print-number-of-unread-on-entrance-tag .
......
......@@ -258,6 +258,7 @@
[kom-edit-hide-add-button]
[kom-cite-string]
[kom-ispell-dictionary]
[kom-write-text-recipient-strategy]
"\n"
sending-doc
"\n\n"
......@@ -590,6 +591,8 @@ All key bindings:
(kom-async-highlight-text-body (toggle (on off)))
(kom-personal-messages-in-window (open-window))
(kom-write-texts-in-window (open-window))
(kom-write-text-recipient-strategy (choice ((const (ask-every-time ask))
(const (current-meeting current)))))
(kom-list-membership-in-window (open-window))
(kom-edit-filters-in-window (open-window))
(kom-prioritize-in-window (open-window))
......
......@@ -3297,6 +3297,8 @@ Nuvarande r
(ask-every-time . "Frga varje gng ")
(fixed-priority . "Fast prioritet")
(current-meeting . "Nuvarande mte")
(messages-in-lyskom-buffer . "I LysKOM-bufferten ")
(discard-messages . "Ingenstans ")
(in-named-buffer . "I namngiven buffert:")
......@@ -3716,13 +3718,15 @@ ta fram menyer.")
att citera KOM-inlgg som man gr med sladdpost och News eftersom det
kommenterade inlgget oftast finns tillgngligt.")
(kom-write-text-recipient-strategy-doc . "\
Bestmmer om skriv inlgg ska frga efter en mottagare eller anvnda
nuvarande mte.")
(kom-created-texts-are-read-doc . "\
Om detta r pslaget kommer alla inlgg man sjlv skriver att lsmarkeras
automatiskt. Om instllningen r avslagen s fr man lsa sdant man
sjlv skriver.")
(kom-default-mark-doc . "\
Den markeringstyp som anvnds fr nya markeringar. En markeringstyp r ett
heltal mellan 0 och 255 (inklusive). Om ingen defaultmarkeringstyp r vald
......@@ -4566,6 +4570,8 @@ ta fram menyer.")
"Ls prioriterade texter: ")
(kom-created-texts-are-read-tag .
"Lsmarkera skapade texter: ")
(kom-write-text-recipient-strategy-tag .
"Mottagare vid skriv inlgg: ")
(kom-default-mark-tag .
"Defaultmarkering: ")
(kom-print-number-of-unread-on-entrance-tag .
......
......@@ -894,6 +894,21 @@ buffer list when one of the commands `kom-next-kom',
Values other than `t' or `nil' are reserved for future use."
server)
(def-kom-var kom-write-text-recipient-strategy 'ask
"**Determines how 'lyskom-write-text' handles recipients.
The value must be one of `ask' or `current'.
When set to `ask', a recipient will be queried for.
When set to `current', the current meeting will be used as recipient.
All other values are reserved.
This variable is not considered when the recipient is known for other
reasons, such as kom-write-text being called with a prefix argument.
Neither is it used for kom-write-letter."
server)
(def-kom-var kom-write-texts-in-window nil
"**Determines where to edit texts.
......
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