Commit 65115ed7 authored by David Byers's avatar David Byers
Browse files

> 2003-08-25 David Byers <davby@ida.liu.se>

>
>       * vars.el.in (lyskom-last-personal-message-sender): Default to
>       nil.
>       (lyskom-last-group-message-recipient): Default to nil.
>
>       * commands2.el (lyskom-default-conference-for-send-message):
>       Return nil when there is no suitable recipient.
parent fd572ec6
2003-08-25 David Byers <davby@ida.liu.se>
* vars.el.in (lyskom-last-personal-message-sender): Default to
nil.
(lyskom-last-group-message-recipient): Default to nil.
* commands2.el (lyskom-default-conference-for-send-message):
Return nil when there is no suitable recipient.
2003-08-25 David Byers <byers@lysator.liu.se>
Fixed assertion failure when receiving broadcast messages:
......
......@@ -44,7 +44,7 @@ CLIENTVERSION = 0.47.1
EMACS = xemacs
# The available languages.
LANGUAGES = english swedish
LANGUAGES = swedish english
# These files are included in all distribution archives.
DOCFILES = ../doc/NEWS-0.47 ../doc/NEWS-0.47.1
......
......@@ -593,25 +593,25 @@ This command accepts text number prefix arguments \(see
(defun lyskom-default-conference-for-send-message (&rest args)
(list
(cond
((eq kom-default-message-recipient 'everybody) nil)
((and (eq kom-default-message-recipient 'group)
lyskom-last-group-message-recipient)
lyskom-last-group-message-recipient)
((or (and (eq kom-default-message-recipient 'group)
(null lyskom-last-group-message-recipient))
(and (eq kom-default-message-recipient 'sender)
lyskom-last-personal-message-sender))
lyskom-last-personal-message-sender)
((and (eq kom-default-message-recipient 'last-recipient)
lyskom-last-message-recipient
(not (eq 0 lyskom-last-message-recipient))
lyskom-last-message-recipient))
(t
(if lyskom-last-personal-message-sender
lyskom-last-personal-message-sender
nil)))))
(let ((tmp (cond
((eq kom-default-message-recipient 'everybody) nil)
((and (eq kom-default-message-recipient 'group)
lyskom-last-group-message-recipient)
lyskom-last-group-message-recipient)
((or (and (eq kom-default-message-recipient 'group)
(null lyskom-last-group-message-recipient))
(and (eq kom-default-message-recipient 'sender)
lyskom-last-personal-message-sender))
lyskom-last-personal-message-sender)
((and (eq kom-default-message-recipient 'last-recipient)
lyskom-last-message-recipient
(not (eq 0 lyskom-last-message-recipient))
lyskom-last-message-recipient))
(t
(if lyskom-last-personal-message-sender
lyskom-last-personal-message-sender
nil)))))
(and tmp (list tmp))))
(def-kom-command kom-send-message (&optional who message)
"Send a message to another user or all members of a conference.
......
......@@ -4034,11 +4034,11 @@ an unknown person.")
local
minibuffer)
(def-kom-var lyskom-last-personal-message-sender ""
(def-kom-var lyskom-last-personal-message-sender nil
"Name of sender of last personal message received."
local)
(def-kom-var lyskom-last-group-message-recipient ""
(def-kom-var lyskom-last-group-message-recipient nil
"Name of target for last group message received."
local)
......
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