1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; Copyright (C) 1991-2002 Lysator Academic Computer Association.
;;;;;
;;;;; This file is part of the LysKOM Emacs LISP client.
;;;;;
;;;;; LysKOM is free software; you can redistribute it and/or modify it
;;;;; under the terms of the GNU General Public License as published by
;;;;; the Free Software Foundation; either version 2, or (at your option)
;;;;; any later version.
;;;;;
;;;;; LysKOM is distributed in the hope that it will be useful, but WITHOUT
;;;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;;;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;;;;; for more details.
;;;;;
;;;;; You should have received a copy of the GNU General Public License
;;;;; along with LysKOM; see the file COPYING. If not, write to
;;;;; Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
;;;;; or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
;;;;; MA 02139, USA.
;;;;;
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se.
;;;;;
;;;; ================================================================
;;;; ================================================================
;;;;
;;;; File: messages.el
;;;; Author: David Byers
;;;;
;;;; This file implements the personal message handler queue
;;;;
(defvar lyskom-personal-message-handlers nil
"A list of personal message handlers.
Each element of the list is a function of four arguments, MESSAGE-TYPE
SENDER RECIPIENT and TEXT. MESSAGE-TYPE is one of personal, group or
common and denotes the type of message. SENDER is the conf-stat of the
sender of the message. RECIPIENT is the conf-stat of the message
recipient or zero for common messages.
The functions may use the lyskom-set-current-message-text function to
modify the message text. A non-nil return value from the function
indicates that the message was handled and no other handlers need to
be called and a nil return value means that the message was not
handled and should be sent to the next handler.")
(defvar lyskom-message-current-text ""
"The text of the current message. Use
lyskom-set-current-message-text to modify this variable.")
(defun lyskom-set-current-message-text (text)
"Set the current message text to TEXT. For use by personal message
handlers."
(setq lyskom-message-current-text text))
(defun lyskom-handle-personal-message (sender recipient text)
"Handle a personal message.
SENDER is the sender of the message (a conf-stat). RECIPIENT is the
recipient of the message (a conf-stat or 0 for common messages).
TEXT is the text of the message."
(let ((message-type (cond ((eq recipient 0) 'common)
((= (conf-stat->conf-no recipient)
lyskom-pers-no) 'personal)
(t 'group)))
(lyskom-message-current-text text)
(handlers lyskom-personal-message-handlers)
(done nil))
(while (and (not done)
handlers)
(setq done
(funcall (car handlers) message-type sender recipient
lyskom-message-current-text))
(setq handlers (cdr handlers)))
(if (not done)
(lyskom-show-personal-message sender recipient
lyskom-message-current-text))))
(defun lyskom-add-personal-message-handler (handler
&optional place relative new)
"Add HANDLER to the queue of personal message handlers.
Optional argument PLACE can be one of 'before or 'after. Optional
argument RELATIVE can be another handler in the queue. IF fourth argument
NEW is t, the handler is only added if it does not already exist in the list.
The new handler is placed first in the queue if PLACE is 'before and
RELATIVE is not specified; last if PLACE is 'after and RELATIVE is not
specified; or before or after the handler RELATIVE in the queue, depending
on the value of PLACE. If PLACE is nil, 'after is assumed."
(if (or (not new)
(not (memq handler lyskom-personal-message-handlers)))
(progn
(setq place (or (and (eq place 'before) 'before) 'after))
(setq relative (car-safe (memq relative lyskom-personal-message-handlers)))
(let ((pos (if relative
(- (length lyskom-personal-message-handlers)
(length (memq relative
lyskom-personal-message-handlers))))))
(cond ((and relative
(eq place 'after))
(setcdr (nthcdr pos lyskom-personal-message-handlers)
(cons handler (nthcdr (1+ pos)
lyskom-personal-message-handlers)))
)
((and relative
(eq place 'before)
(> pos 0))
(setcdr (nthcdr (1- pos) lyskom-personal-message-handlers)
(cons handler
(nthcdr pos lyskom-personal-message-handlers)))
)
((and lyskom-personal-message-handlers (eq place 'after))
(setcdr (nthcdr (1- (length lyskom-personal-message-handlers))
lyskom-personal-message-handlers)
(cons handler nil)))
((or (null lyskom-personal-message-handlers) (eq place 'before))
(setq lyskom-personal-message-handlers
(cons handler
lyskom-personal-message-handlers)))
(t (setcdr (nthcdr (1- (length lyskom-personal-message-handlers))
lyskom-personal-message-handlers)
(cons handler nil)))))
lyskom-personal-message-handlers)))
(defun lyskom-info-request-handler (message-type sender recipient text)
(if (lyskom-string= text "\011\016\006\017")
(progn
(initiate-send-message
'follow
nil
(conf-stat->conf-no sender)
(format "emacs-version: %s\nclient-version: %s"
(emacs-version)
lyskom-clientversion))
t)
nil))
(defun lyskom-filter-message-handler (message-type sender recipient text)
"Optionally kill messages from certain senders or to certain recipients.
See the documentation for kom-ignore-message-recipients and
kom-ignore-message-senders for more information."
(condition-case nil
(or (memq (cond ((lyskom-conf-stat-p sender) (conf-stat->conf-no sender))
((lyskom-uconf-stat-p sender) (uconf-stat->conf-no sender))
(t sender))
kom-ignore-message-senders)
(memq (cond ((lyskom-conf-stat-p recipient) (conf-stat->conf-no recipient))
((lyskom-uconf-stat-p recipient) (uconf-stat->conf-no recipient))
(t recipient))
kom-ignore-message-recipients))
(error nil)))
(lyskom-add-personal-message-handler 'lyskom-filter-message-handler 'before)
(lyskom-add-personal-message-handler 'lyskom-info-request-handler 'before)
(eval-and-compile (provide 'lyskom-messages))
;;; messages.el ends here
|
