Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
d1f09996
Commit
d1f09996
authored
Dec 10, 1999
by
David Byers
Browse files
Be smarted about default values in kom-move-text
parent
6455dd59
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
d1f09996
1999-12-10 David Byers <davby@ida.liu.se>
* commands1.el (kom-move-text): Supply better defaults for
conferences.
1999-12-07 David Kgedal <davidk@lysator.liu.se>
* swedish-strings.el (lyskom-sv-mode-map): lyskom-keys was called
...
...
src/commands1.el
View file @
d1f09996
...
...
@@ -2935,21 +2935,52 @@ the user has used a prefix command argument."
If the argument TEXT-NO-ARG is non-nil, the user has used a prefix
command argument."
(
interactive
"P"
)
(
blocking-do-multiple
((
default-from
(
get-conf-stat
lyskom-current-conf
))
(
default-to
(
get-conf-stat
lyskom-last-added-rcpt
)))
(
lyskom-add-sub-recipient
text-no-arg
(
lyskom-get-string
'text-to-move
)
'move
default-to
default-from
)))
(
let*
((
text-no
(
lyskom-read-number
(
lyskom-get-string
'text-to-move
)
(
or
text-no-arg
lyskom-current-text
)))
(
text-stat
(
blocking-do
'get-text-stat
text-no
))
default-recpt
found
)
(
lyskom-traverse
misc-item
(
text-stat->misc-info-list
text-stat
)
(
when
(
memq
(
misc-info->type
misc-item
)
'
(
RECPT
CC-RECPT
BCC-RECPT
))
(
when
(
not
found
)
(
setq
default-recpt
(
misc-info->recipient-no
misc-item
)
found
(
eq
(
misc-info->type
misc-item
)
'RECPT
)))
(
when
(
eq
(
misc-info->recipient-no
misc-item
)
lyskom-current-conf
)
(
setq
default-recpt
lyskom-current-conf
found
t
))))
(
cond
((
null
text-stat
)
(
lyskom-format-insert
'no-such-text-no
text-no
))
((
null
default-recpt
)
(
lyskom-format-insert
'text-has-no-recipients-r
text-no
))
(
t
(
blocking-do-multiple
((
default-from
(
get-conf-stat
default-recpt
))
(
default-to
(
get-conf-stat
(
or
lyskom-last-added-rcpt
lyskom-current-conf
))))
(
lyskom-add-sub-recipient
text-no-arg
(
lyskom-get-string
'text-to-move
)
'move
default-to
default-from
t
))))))
(
defun
lyskom-add-sub-recipient
(
text-no-arg
prompt
action
conf
&optional
conf2
)
(
let*
((
text-no
(
lyskom-read-number
prompt
(
or
text-no-arg
lyskom-current-text
)))
&optional
conf2
text-no-is-read
)
"Add or remove a recipient.
TEXT-NO-ARG is the prefix argument from (interactive \"P\"); PROMPT is
the prompt string to use when reading the text number; ACTION is what
to do (one of add-rcpt, add-copy, add-bcc, sub or move), CONF is the
conference to add, remove or move from, CONF2 is thee conference to
move to (for move) and a non-nil TEXT-NO-IS-READ means that the user has
already been prompted for a text number so TEXT-NO-ARG contains the
actual text to do whatever on."
(
let*
((
text-no
(
if
text-no-is-read
text-no-arg
(
lyskom-read-number
prompt
(
or
text-no-arg
lyskom-current-text
))))
(
text-stat
(
blocking-do
'get-text-stat
text-no
))
(
was-read
(
lyskom-text-read-p
text-stat
))
...
...
src/swedish-strings.el
View file @
d1f09996
...
...
@@ -352,6 +352,7 @@ du har l
(
text-to-delete-comment-from
.
"Vilket inlgg vill du subtrahera en kommentar frn:"
)
(
text-to-add-footnote-to
.
"Vilket inlgg vill du addera en fotnot till:"
)
(
text-to-delete-footnote-from
.
"Vilket inlgg vill du subtrahera en fotnot frn:"
)
(
text-has-no-recipients-r
.
"Inlgg %#1n har inga mottagare\n"
)
(
where-on-list-q
.
"Placering p listan? (0-%#1d) "
)
(
member-in-conf
.
"Bli medlem i %#1M..."
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment