Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
d6a9a7e5
Commit
d6a9a7e5
authored
Oct 09, 1999
by
David Byers
Browse files
Synkning inför release av 0.46-BETA-8
parent
3fa85185
Changes
5
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
d6a9a7e5
Sat Oct 9 18:54:16 1999 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-8
1999-10-07 David Byers <davby@ida.liu.se>
* async.el (lyskom-format-as-personal-message): Show date if
kom-show-personal-message-date is non-nil.
* vars.el.in (kom-show-personal-message-date): New variable.
1999-09-28 David Byers <davby@ida.liu.se>
* compatibility.el (last): Added compatibility definition.
1999-10-09 David Byers <davby@ida.liu.se>
* swedish-strings.el (lyskom-command): Updated translation of mail
...
...
src/async.el
View file @
d6a9a7e5
...
...
@@ -475,8 +475,9 @@ Non-nil NOBEEP means don't beep."
(
let
((
lyskom-last-text-format-flags
nil
))
(
if
(
null
when
)
(
setq
when
(
current-time-string
)))
(
if
(
not
(
string=
(
substring
when
0
10
)
(
substring
(
current-time-string
)
0
10
)))
(
if
(
or
kom-show-personal-message-date
(
not
(
string=
(
substring
when
0
10
)
(
substring
(
current-time-string
)
0
10
))))
(
setq
when
(
substring
when
4
19
))
(
setq
when
(
substring
when
11
19
)))
...
...
src/compatibility.el
View file @
d6a9a7e5
...
...
@@ -269,7 +269,7 @@ string to search in."
;;; ============================================================
;;;
Character
stuff
;;;
Basic
stuff
(
lyskom-provide-function
char-to-int
(
c
)
c
)
...
...
@@ -282,6 +282,19 @@ string to search in."
(
lyskom-provide-function
set-process-coding-system
(
proc
&optional
encoding
decoding
)
)
(
lyskom-provide-function
last
(
x
&optional
n
)
"Returns the last link in the list LIST.
With optional argument N, returns the Nth-to-last link (default 1)."
"Returns the last link in the list LIST.
With optional argument N, returns Nth-to-last link (default 1)."
(
if
n
(
let
((
m
0
)
(
p
x
))
(
while
(
consp
p
)
(
setq
m
(
1+
m
))
(
setq
p
(
cdr
p
)))
(
if
(
<=
n
0
)
p
(
if
(
<
n
m
)
(
nthcdr
(
-
m
n
)
x
)
x
)))
(
while
(
consp
(
cdr
x
))
(
setq
x
(
cdr
x
)))
x
))
;;; ======================================================================
;;; Event stuff
...
...
src/reading.el
View file @
d6a9a7e5
...
...
@@ -69,7 +69,7 @@ also means modifying the lyskom-reading-list. The zero text-nos are skipped."
(
set-membership->position
(
car
mship
)
num
)
(
setq
num
(
1+
num
)
mship
(
cdr
mship
)))
;; FIXME: If something changed, tell the server.
(
lyskom-sort-to-do-list
)))
(
lyskom-sort-to-do-list
)))
(
defun
lyskom-add-memberships-to-membership
(
memberships
)
"Adds a newly fetched MEMBERSHIP-PART to the list in lyskom-membership.
...
...
src/vars.el.in
View file @
d6a9a7e5
...
...
@@ -588,6 +588,10 @@ to call."
"*List of recipients you do not want group messages to."
server
)
(
def-kom-var
kom-show-personal-message-date
t
"*Show date on personal messages is non-nil."
server
)
(
def-kom-var
kom-default-message-recipient
'group
"*Determines default recipient of personal messages.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment