Commit 4d39e9fa authored by David Byers's avatar David Byers
Browse files

Fixed bugs 1128 and 1125.

Detailed changes:
> 2003-08-28  David Byers  <byers@lysator.liu.se>
>
> 	Fix bug 1128:
> 	* commands2.el (kom-limit-import): Support refusing HTML import.
>
> 	Fix bug 1125:
> 	* edit-text.el (lyskom-edit-insert-miscs): Make more of the
> 	separator line read-only, taking care (I hope) to get text
> 	properties right so the read-only property does not affect the
> 	subject line.
>
parent b2114982
2003-08-28 David Byers <byers@lysator.liu.se>
Fix bug 1128:
* commands2.el (kom-limit-import): Support refusing HTML import.
Fix bug 1125:
* edit-text.el (lyskom-edit-insert-miscs): Make more of the
separator line read-only, taking care (I hope) to get text
properties right so the read-only property does not affect the
subject line.
2003-08-27 David Byers <davby@ida.liu.se> 2003-08-27 David Byers <davby@ida.liu.se>
* compatibility.el (string-to-vector): Don't just compute the * compatibility.el (string-to-vector): Don't just compute the
......
...@@ -3478,9 +3478,10 @@ are advisory; clients may ignore them." ...@@ -3478,9 +3478,10 @@ are advisory; clients may ignore them."
'(conf pers) nil nil t))) '(conf pers) nil nil t)))
(when conf-stat (when conf-stat
(let* ((what (lyskom-a-or-b-or-c-p 'limit-import-of-what (let* ((what (lyskom-a-or-b-or-c-p 'limit-import-of-what
'(abc-spam abc-everything) '(abc-spam abc-html abc-everything)
'abc-spam)) 'abc-spam))
(data (cond ((eq what 'abc-spam) "spam") (data (cond ((eq what 'abc-spam) "spam")
((eq what 'abc-html) "html")
((eq what 'abc-everything) "all")))) ((eq what 'abc-everything) "all"))))
(when (or (lyskom-is-supervisor (conf-stat->conf-no conf-stat) (when (or (lyskom-is-supervisor (conf-stat->conf-no conf-stat)
lyskom-pers-no) lyskom-pers-no)
......
...@@ -251,8 +251,10 @@ nil -> Ingenting." ...@@ -251,8 +251,10 @@ nil -> Ingenting."
(lyskom-get-string 'header-separator)) (lyskom-get-string 'header-separator))
body body
(lyskom-get-string 'header-subject) (lyskom-get-string 'header-subject)
`(read-only t) '(read-only t)
`(read-only t rear-nonsticky t end-open t)) '(read-only t front-sticky nil start-open t rear-nonsticky nil end-open nil)
'(read-only t rear-nonsticky t end-open t front-sticky t start-open nil)
)
where-put-misc) where-put-misc)
(set-buffer edit-buffer) (set-buffer edit-buffer)
(goto-char where-put-misc) (goto-char where-put-misc)
......
...@@ -926,7 +926,7 @@ Text %#1n has more than one root but only one of the trees will be shown.\n") ...@@ -926,7 +926,7 @@ Text %#1n has more than one root but only one of the trees will be shown.\n")
Post: \\[kom-edit-send], \ Post: \\[kom-edit-send], \
Kill: \\[kom-edit-quit], \ Kill: \\[kom-edit-quit], \
Help: \\[describe-mode] ---") Help: \\[describe-mode] ---")
(text-mass . "%#4s%#1s\n%[%#5@%#2s%]%[%#6@\n%]%#3s") (text-mass . "%#4s%#1s%[%#6@\n%]%[%#5@%#2s%]%[%#7@\n%]%#3s")
(comment-to-by . "%#1s to text %#2n%#3s.\n") (comment-to-by . "%#1s to text %#2n%#3s.\n")
(already-sent . "You have already posted this text. Post it anyway? ") (already-sent . "You have already posted this text. Post it anyway? ")
(subject . "Subject: ") (subject . "Subject: ")
...@@ -1937,8 +1937,10 @@ environment to one that uses \"%#2s\" to encode text. ...@@ -1937,8 +1937,10 @@ environment to one that uses \"%#2s\" to encode text.
(confusion-what-to-mark-unread . "I can't figure out what text you want to mark as unread.\n") (confusion-what-to-mark-unread . "I can't figure out what text you want to mark as unread.\n")
(no-comment-to-to-unread . "There is no commented text to mark as unread.\n") (no-comment-to-to-unread . "There is no commented text to mark as unread.\n")
(mx-refuse-import-html . "HTML")
(mx-refuse-import-spam . "Spam") (mx-refuse-import-spam . "Spam")
(mx-refuse-import-all . "All texts") (mx-refuse-import-all . "All texts")
(abc-html . "hHTML")
(abc-spam . "sSpam") (abc-spam . "sSpam")
(abc-everything . "aAll texts") (abc-everything . "aAll texts")
(limit-import-to-conf . "Limit import to which conference? ") (limit-import-to-conf . "Limit import to which conference? ")
......
...@@ -957,7 +957,7 @@ M ...@@ -957,7 +957,7 @@ M
Skicka in=\\[kom-edit-send], \ Skicka in=\\[kom-edit-send], \
Avbryt=\\[kom-edit-quit], \ Avbryt=\\[kom-edit-quit], \
Annat se \\[describe-mode] ---") Annat se \\[describe-mode] ---")
(text-mass . "%#4s%#1s\n%[%#5@%#2s%]%[%#6@\n%]%#3s") (text-mass . "%#4s%#1s%[%#6@\n%]%[%#5@%#2s%]%[%#7@\n%]%#3s")
(comment-to-by . "%#1s till text %#2n%#3s.\n") (comment-to-by . "%#1s till text %#2n%#3s.\n")
(already-sent . "Du har redan skickat denna text en gng. Snd nd? ") (already-sent . "Du har redan skickat denna text en gng. Snd nd? ")
(subject . "rende: ") (subject . "rende: ")
...@@ -1970,8 +1970,10 @@ teckenkodning. ...@@ -1970,8 +1970,10 @@ teckenkodning.
(confusion-what-to-mark-unread . "Jag frstr inte vilken text du vill markera olst.\n") (confusion-what-to-mark-unread . "Jag frstr inte vilken text du vill markera olst.\n")
(no-comment-to-to-unread . "Det finns inget kommenterat inlgg att markera som olst.\n") (no-comment-to-to-unread . "Det finns inget kommenterat inlgg att markera som olst.\n")
(mx-refuse-import-html . "HTML")
(mx-refuse-import-spam . "Spam") (mx-refuse-import-spam . "Spam")
(mx-refuse-import-all . "Alla texter") (mx-refuse-import-all . "Alla texter")
(abc-html . "hHTML")
(abc-spam . "sSpam") (abc-spam . "sSpam")
(abc-everything . "aAlla texter") (abc-everything . "aAlla texter")
(limit-import-to-conf . "Begrnsa import till vilket mte? ") (limit-import-to-conf . "Begrnsa import till vilket mte? ")
......
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