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>
* compatibility.el (string-to-vector): Don't just compute the
......
......@@ -3478,9 +3478,10 @@ are advisory; clients may ignore them."
'(conf pers) nil nil t)))
(when conf-stat
(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))
(data (cond ((eq what 'abc-spam) "spam")
((eq what 'abc-html) "html")
((eq what 'abc-everything) "all"))))
(when (or (lyskom-is-supervisor (conf-stat->conf-no conf-stat)
lyskom-pers-no)
......
......@@ -251,8 +251,10 @@ nil -> Ingenting."
(lyskom-get-string 'header-separator))
body
(lyskom-get-string 'header-subject)
`(read-only t)
`(read-only t rear-nonsticky t end-open t))
'(read-only 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)
(set-buffer edit-buffer)
(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")
Post: \\[kom-edit-send], \
Kill: \\[kom-edit-quit], \
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")
(already-sent . "You have already posted this text. Post it anyway? ")
(subject . "Subject: ")
......@@ -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")
(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-all . "All texts")
(abc-html . "hHTML")
(abc-spam . "sSpam")
(abc-everything . "aAll texts")
(limit-import-to-conf . "Limit import to which conference? ")
......
......@@ -957,7 +957,7 @@ M
Skicka in=\\[kom-edit-send], \
Avbryt=\\[kom-edit-quit], \
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")
(already-sent . "Du har redan skickat denna text en gng. Snd nd? ")
(subject . "rende: ")
......@@ -1970,8 +1970,10 @@ teckenkodning.
(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")
(mx-refuse-import-html . "HTML")
(mx-refuse-import-spam . "Spam")
(mx-refuse-import-all . "Alla texter")
(abc-html . "hHTML")
(abc-spam . "sSpam")
(abc-everything . "aAlla texter")
(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