From 028a106c3b4ec478fd628e9e3de77f1cba623b53 Mon Sep 17 00:00:00 2001
From: Linus Tolke Y <linus@lysator.liu.se>
Date: Sat, 7 Jan 1995 12:58:04 +0000
Subject: [PATCH] Ny text-gruppmeddelande.

---
 src/async.el | 51 +++++++++++++++++++++++++++++++++++----------------
 1 file changed, 35 insertions(+), 16 deletions(-)

diff --git a/src/async.el b/src/async.el
index 5838dccf..b830819c 100644
--- a/src/async.el
+++ b/src/async.el
@@ -176,10 +176,16 @@ this function shall be with current-buffer the BUFFER."
 				  (format "emacs-version: %s\nclient-version: %s"
 					  (emacs-version)
 					  lyskom-clientversion)))
-	  (t (initiate-get-conf-stat 'async
-				     'lyskom-show-personal-message sender
-				     recipient
-				     message))))))
+	  (t
+	   (if (zerop recipient)
+	       (initiate-get-conf-stat 'async
+				       'lyskom-show-personal-message sender
+				       0
+				       message)
+	     (lyskom-collect 'async)
+	     (initiate-get-conf-stat 'async nil sender)
+	     (initiate-get-conf-stat 'async nil recipient)
+	     (lyskom-use 'async 'lyskom-show-personal-message message)))))))
 
      ((eq msg-no 13)			; New logout
       (let ((pers-no (lyskom-parse-num))
@@ -269,8 +275,8 @@ this function shall be with current-buffer the BUFFER."
   "Insert a personal message into the lyskom buffer.
 Args: SENDER: conf-stat for the person issuing the broadcast message or a
 	      string that is the sender.
-      RECIPIENT: 0 if this message is for everybody, otherwise the pers-no 
-                 of the user.
+      RECIPIENT: 0 if this message is for everybody, otherwise the conf-stat 
+                 of the recipient.
       MESSAGE: A string containing the message."
   (lyskom-insert-personal-message sender recipient message)
   (run-hooks 'lyskom-personal-message-hook))
@@ -285,7 +291,7 @@ MESSAGE is a string containing the message.
 INSERT-FUNCTION is a function that given a string inserts it into the
 current buffer."
   (lyskom-handle-as-personal-message
-   (if (= recipient 0)
+   (if (eq recipient 0)
        (progn
 	 (if (eq t kom-ding-on-personal-messages)
 	     (beep))
@@ -296,15 +302,28 @@ current buffer."
 			 (t (lyskom-get-string 'unknown)))
 			message
 			(substring (current-time-string) 11 19)))
-     (if kom-ding-on-personal-messages
-	 (beep))
-     (lyskom-format 'message-from
-		    (cond
-		     ((stringp sender) sender)
-		     (sender (conf-stat->name sender))
-		     (t (lyskom-get-string 'unknown)))
-		    message
-		    (substring (current-time-string) 11 19)))
+     (if (= (conf-stat->conf-no recipient) lyskom-pers-no)
+	 (progn
+	   (if (memq kom-ding-on-personal-messages '(t personal)) (beep))
+	   (lyskom-format 'message-from
+			  (cond
+			   ((stringp sender) sender)
+			   (sender (conf-stat->name sender))
+			   (t (lyskom-get-string 'unknown)))
+			  message
+			  (substring (current-time-string) 11 19)))
+       (if (memq kom-ding-on-personal-messages '(t group)) (beep))
+       (lyskom-format 'message-from-to
+		      message
+		      (cond
+		       ((stringp sender) sender)
+		       (sender (conf-stat->name sender))
+		       (t (lyskom-get-string 'unknown)))
+		      (cond
+		       ((stringp recipient) recipient)
+		       (recipient (conf-stat->name recipient))
+		       (t (lyskom-get-string 'unknown)))
+		      (substring (current-time-string) 11 19))))
    (conf-stat->conf-no sender)))
 
   
-- 
GitLab