Skip to content
GitLab
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
0e22565e
Commit
0e22565e
authored
Jun 13, 1992
by
Linus Tolke
Browse files
A text suggesting to write a presentation is written on login.
parent
96c56855
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/startup.el
View file @
0e22565e
...
...
@@ -249,7 +249,11 @@ Optional argument CONF-STAT is used to check for a msg-of-day on the person."
(
/=
(
conf-stat->msg-of-day
conf-stat
)
0
))
(
progn
(
lyskom-insert-string
'you-have-motd
)
(
lyskom-view-text
'main
(
conf-stat->msg-of-day
conf-stat
))))
(
lyskom-view-text
'main
(
conf-stat->msg-of-day
conf-stat
))))
(
if
(
and
conf-stat
(
zerop
(
conf-stat->presentation
conf-stat
))
(
not
(
zerop
(
conf-stat->no-of-texts
conf-stat
))))
(
lyskom-insert-string
'presentation-encouragement
))
(
lyskom-collect
'main
)
(
initiate-get-membership
'main
nil
pers-no
)
(
initiate-get-unread-confs
'main
nil
pers-no
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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