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

Checkin of stuff I forgot to save.

Detailed changes:
parent e1148a1f
......@@ -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
......
Supports Markdown
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