Den föråldrade funktionen lyskom-show-broadcast-message borttagen

src/async.el

@@ -132,13 +132,14 @@ this function shall be with current-buffer the BUFFER."
 					 session-no))
 	  )))
 
-     ((eq msg-no 10)			; Broadcast message
+     ((eq msg-no 10)			; Broadcast message (obsolete? /lw)
       (let ((sender (lyskom-parse-num))
 	    (lyskom-message (lyskom-parse-string)))
 	(lyskom-save-excursion
 	 (set-buffer buffer)
 	 (initiate-get-conf-stat 'follow
-				 'lyskom-show-broadcast-message sender
+				 'lyskom-show-personal-message sender
+				 recipient
 				 message))))
 
      ((eq msg-no 11)
@@ -251,25 +252,6 @@ this function shall be with current-buffer the BUFFER."
   (not (zerop (minibuffer-depth))))
 
 
-(defun lyskom-show-broadcast-message (sender message)
-  "Insert a broadcast message into the lyskom buffer.
-Args: SENDER: conf-stat for the person issuing the broadcast message or a
-	      string that is the sender.
-      MESSAGE: A string containing the message."
-  (lyskom-insert-before-prompt
-   "\n++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n")
-  (lyskom-insert-before-prompt (lyskom-format 'broadcast-from
-				       (cond
-					((stringp sender) sender)
-					(sender (conf-stat->name sender))
-					(t (lyskom-get-string 'unknown)))
-				       message
-))
-  (lyskom-insert-before-prompt
-   "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n")
-  (beep))
-
-
 (defun lyskom-show-personal-message (sender recipient message)
   "Insert a personal message into the lyskom buffer.
 Args: SENDER: conf-stat for the person issuing the broadcast message or a

src/swedish-strings.el

@@ -433,7 +433,6 @@ upptagna. Logga ut och kom tillbaks senare om du v
     (has-entered-r . "Nu har %#1s gtt in i LysKOM.\n")
     (has-left . "Nu har %#1s gtt ur LysKOM.")
     (has-left-r . "Nu har %#1s gtt ur LysKOM.\n")
-    (broadcast-from . "Allmnt meddelande frn %#1s:\n\n%#2s\n")
     (unknown . "oknd")
 
     (message-broadcast . "Allmnt meddelande frn %#1s (%#3s):\n\n%#2s\n")