Bugfixes. Misspelled and quit.

src/commands1.el

@@ -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

src/commands2.el

@@ -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."