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