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

Fixed bug 868. Minor cosmetic fix.

Detailed changes:
> 2003-05-09  David Byers  <byers@lysator.liu.se>
>
> 	Fix bug 868:
> 	* commands2.el (kom-add-private-answer): New function.
>
> 	Minor usability fix:
> 	* english-strings.el,swedish-strings.el: Clarify error-2.
>
parent e9c4554a
2003-05-09 David Byers <byers@lysator.liu.se>
Fix bug 868:
* commands2.el (kom-add-private-answer): New function.
Minor usability fix:
* english-strings.el,swedish-strings.el: Clarify error-2.
2003-05-04 David Byers <byers@lysator.liu.se>
Fix bug 1024:
......
......@@ -3315,6 +3315,39 @@ that this command could take a very long time to complete."
(setq confs (cdr confs)))
))
(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"
'(conf pers) nil nil t)))
(when conf-stat
(let* ((what (lyskom-a-or-b-or-c-p "Frbjud import av vad?"
'(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?"))
(when data
(lyskom-format-insert "Begrnsar import av %#1s i %#2M..."
(substring (lyskom-get-string what) 1)
conf-stat)
(lyskom-report-command-answer
(blocking-do 'modify-conf-info
(conf-stat->conf-no conf-stat)
nil
(list
(lyskom-create-aux-item
0 35 nil nil
(lyskom-create-aux-item-flags nil nil nil nil
nil nil nil nil)
0 data))))
(cache-del-conf-stat (conf-stat->conf-no conf-stat)))))))
;;; ================================================================
;;; Temporary function for when we moved kom-extended-command from a
;;; to x.
......
......@@ -1910,7 +1910,13 @@ environment to one that uses \"%#2s\" to encode text.
(no-comment-to-to-unread . "There is no commented text to mark as unread.\n")
(mx-refuse-import-spam . "Spam")
(mx-refuse-import-all . "All imported texts")
(mx-refuse-import-all . "All texts")
(abc-spam . "sSpam")
(abc-everything . "aAll texts")
(limit-import-to-conf . "Limit import to which conference? ")
(limit-import-of-what . "Limit import of what? ")
(limit-import-not-super . "You do not seem to be the supervisor of the conference. Try anyway? ")
(limiting-import . "Limiting import of %#1s to %#2M...")
))
......@@ -2140,6 +2146,7 @@ environment to one that uses \"%#2s\" to encode text.
(kom-join-all-conferences . "Join all conferences")
(kom-leave-all-conferences . "Leave (almost) all conferences")
(kom-limit-import . "Limit imported texts")
))
(lyskom-language-var global lyskom-language-codes en
......@@ -4248,8 +4255,8 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(lyskom-language-strings local lyskom-error-texts en
'((error-0 . "No error")
(error-2 . "Not yet implemented")
(error-3 . "No longer implemented")
(error-2 . "Not yet implemented by the server")
(error-3 . "No longer implemented by the server")
(error-4 . "Wrong password")
(error-5 . "String too long")
(error-6 . "You have not logged on")
......
......@@ -1944,7 +1944,13 @@ teckenkodning.
(no-comment-to-to-unread . "Det finns inget kommenterat inlgg att markera som olst.\n")
(mx-refuse-import-spam . "Spam")
(mx-refuse-import-all . "Alla importade texter")
(mx-refuse-import-all . "Alla texter")
(abc-spam . "sSpam")
(abc-everything . "aAlla texter")
(limit-import-to-conf . "Begrnsa import till vilket mte? ")
(limit-import-of-what . "Begrnsa import av vad? ")
(limit-import-not-super . "Du verkar inte vara organisatr fr mtet. Frsk nd? ")
(limiting-import . "Begrnsar import av %#1s i %#2M...")
))
(lyskom-language-var local lyskom-month-names sv
......@@ -2173,6 +2179,7 @@ teckenkodning.
(kom-join-all-conferences . "Bli medlem i alla mten")
(kom-leave-all-conferences . "Uttrd ur (nstan) alla mten")
(kom-limit-import . "Begrnsa import av texter")
))
(lyskom-language-var local lyskom-language-codes sv
......@@ -4369,8 +4376,8 @@ i servern. Annars sparas det i din .emacs.")
(lyskom-language-strings local lyskom-error-texts sv
'((error-0 . "Inget fel har intrffat")
(error-2 . "nnu ej implementerat")
(error-3 . "Inte lngre implementerat")
(error-2 . "nnu ej implementerat i servern")
(error-3 . "Inte lngre implementerat i servern")
(error-4 . "Felaktigt lsenord")
(error-5 . "Strngen fr lng")
(error-6 . "Du r inte inloggad")
......
......@@ -2975,6 +2975,7 @@ Users are encouraged to use their best sense of humor."
kom-join-all-conferences
kom-leave-all-conferences
kom-will-person-read-text
kom-limit-import
))
;;; ================================================================
......
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