Commit 22e26e38 authored by Linus Tolke's avatar Linus Tolke
Browse files

Privare-answer to non-existing texts just gives error message.

parent f365d9d7
......@@ -824,20 +824,23 @@ that text instead."
(lyskom-collect 'main)
(initiate-get-text-stat 'main nil text-no)
(initiate-get-text 'main nil text-no)
(lyskom-use 'main 'lyskom-private-answer-soon))
(lyskom-use 'main 'lyskom-private-answer-soon text-no))
(lyskom-start-of-command 'kom-private-answer)
(lyskom-insert-string 'confusion-who-to-reply-to)
(lyskom-end-of-command)))
(defun lyskom-private-answer-soon (text-stat text)
(defun lyskom-private-answer-soon (text-stat text text-no)
"Write a private answer to TEXT-STAT, TEXT."
(lyskom-start-of-command 'kom-private-answer)
(if (and text-stat text)
(if (string-match "\n" (text->text-mass text))
(lyskom-private-answer text-stat
(substring (text->text-mass text)
0 (match-beginning 0)))
(lyskom-private-answer text-stat "")))
(lyskom-private-answer text-stat ""))
(lyskom-format-insert 'no-such-text-no text-no)
(lyskom-end-of-command)))
(defun lyskom-private-answer (text-stat subject)
......
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