Commit 80ecceb3 authored by Linus Tolke Y's avatar Linus Tolke Y

Allowed Quit.

parent ec5fc14d
No preview for this file type
......@@ -238,28 +238,32 @@ as TYPE. If no such misc-info, return NIL"
(defun kom-send-letter ()
"Send a personal letter to a person or a conference."
(interactive)
(lyskom-start-of-command 'kom-send-letter)
(lyskom-tell-internat 'kom-tell-write-letter)
(let* ((tono (lyskom-read-conf-no (lyskom-get-string 'who-letter-to) 'all))
(conf-stat (blocking-do 'get-conf-stat tono)))
(if (if (zerop (conf-stat->msg-of-day conf-stat))
t
(progn
(recenter 0)
(lyskom-format-insert 'has-motd (conf-stat->name conf-stat))
(lyskom-view-text 'main (conf-stat->msg-of-day conf-stat))
(if (j-or-n-p (lyskom-get-string 'motd-persist-q))
t
(lyskom-end-of-command)
nil)))
(if (= tono lyskom-pers-no)
(lyskom-edit-text lyskom-proc
(lyskom-create-misc-list 'recpt tono)
"" "")
(lyskom-edit-text lyskom-proc
(lyskom-create-misc-list 'recpt tono
'recpt lyskom-pers-no)
"" "")))))
(condition-case error
(progn
(lyskom-start-of-command 'kom-send-letter)
(lyskom-tell-internat 'kom-tell-write-letter)
(let* ((tono (lyskom-read-conf-no (lyskom-get-string 'who-letter-to) 'all))
(conf-stat (blocking-do 'get-conf-stat tono)))
(if (if (zerop (conf-stat->msg-of-day conf-stat))
t
(progn
(recenter 0)
(lyskom-format-insert 'has-motd (conf-stat->name conf-stat))
(lyskom-view-text 'main (conf-stat->msg-of-day conf-stat))
(if (j-or-n-p (lyskom-get-string 'motd-persist-q))
t
(lyskom-end-of-command)
nil)))
(if (= tono lyskom-pers-no)
(lyskom-edit-text lyskom-proc
(lyskom-create-misc-list 'recpt tono)
"" "")
(lyskom-edit-text lyskom-proc
(lyskom-create-misc-list 'recpt tono
'recpt lyskom-pers-no)
"" "")))))
(quit (lyskom-end-of-command)
(signal 'quit "Quitting in letter"))))
;;; ================================================================
......
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