Commit fa289249 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Bugfixes. Misspelled and quit.

parent 80ecceb3
No preview for this file type
......@@ -729,7 +729,6 @@ The default subject is SUBJECT. TYPE is either 'comment or 'footnote."
(lyskom-tell-internat (if (eq type 'comment)
'kom-tell-write-comment
'kom-tell-write-footnote))
(lyskom-collect 'edit)
(let (data)
(mapcar
(function
......@@ -744,8 +743,8 @@ The default subject is SUBJECT. TYPE is either 'comment or 'footnote."
(eq 'CC-RECPT (misc-info->type misc-info)))
(setq ccrep (cons (misc-info->recipient-no misc-info)
ccrep))
(setq data (cons (bloking-do 'get-conf-stat
(misc-info->recipient-no misc-info))
(setq data (cons (blocking-do 'get-conf-stat
(misc-info->recipient-no misc-info))
data))))))
(text-stat->misc-info-list text-stat))
(lyskom-comment-recipients data lyskom-proc text-stat
......
......@@ -486,9 +486,13 @@ Args: MEMBERSHIP-LIST CONF-STAT."
"Send a message to one of the users in KOM right now."
(interactive)
(lyskom-start-of-command 'kom-send-message)
(lyskom-send-message
(lyskom-read-conf-no (lyskom-get-string 'who-to-send-message-to)
'logins t)))
(condition-case error
(lyskom-send-message
(lyskom-read-conf-no (lyskom-get-string 'who-to-send-message-to)
'logins t))
(quit (lyskom-end-of-command)
(signal 'quit "Quitting in kom-send-message"))))
(defun kom-send-alarm ()
"Send a message to all of the users in KOM right now."
......
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