Skip to content
GitLab
Menu
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
dc208a5c
Commit
dc208a5c
authored
May 10, 2003
by
David Byers
Browse files
Checkin of stuff I forgot to save.
Detailed changes:
parent
e1148a1f
Changes
1
Show whitespace changes
Inline
Side-by-side
src/commands2.el
View file @
dc208a5c
...
...
@@ -3319,19 +3319,19 @@ that this command could take a very long time to complete."
(
def-kom-command
kom-limit-import
(
conf-stat
)
"Specify restrictions on importing e-mail. Note that such restrictions
are advisory; clients may ignore them."
(
interactive
(
list
(
lyskom-read-conf-stat
"Begrnsa import till vilket mte"
(
interactive
(
list
(
lyskom-read-conf-stat
'limit-import-to-conf
'
(
conf
pers
)
nil
nil
t
)))
(
when
conf-stat
(
let*
((
what
(
lyskom-a-or-b-or-c-p
"Frbjud import av vad?"
(
let*
((
what
(
lyskom-a-or-b-or-c-p
'limit-import-of-what
'
(
abc-spam
abc-everything
)
'abc-spam
))
(
data
(
cond
((
eq
what
'abc-spam
)
"spam"
)
((
eq
what
'abc-everything
)
"all"
))))
(
when
(
or
(
lyskom-is-supervisor
(
conf-stat->conf-no
conf-stat
)
lyskom-pers-no
)
(
lyskom-j-or-n-p
"Du verkar inte vara organisatr fr mtet. Frsk nd?"
))
(
lyskom-j-or-n-p
'limit-import-not-super
))
(
when
data
(
lyskom-format-insert
"Begrnsar import av %#1s i %#2M..."
(
lyskom-format-insert
'limiting-import
(
substring
(
lyskom-get-string
what
)
1
)
conf-stat
)
(
lyskom-report-command-answer
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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