Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
80ecceb3
Commit
80ecceb3
authored
Aug 09, 1993
by
Linus Tolke Y
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Allowed Quit.
parent
ec5fc14d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
30 additions
and
22 deletions
+30
-22
src/ChangeLog
src/ChangeLog
+4
-0
src/commands1.el
src/commands1.el
+26
-22
No files found.
src/ChangeLog
View file @
80ecceb3
No preview for this file type
src/commands1.el
View file @
80ecceb3
...
...
@@ -238,28 +238,32 @@ as TYPE. If no such misc-info, return NIL"
(
defun
kom-send-letter
()
"Send a personal letter to a person or a conference."
(
interactive
)
(
lyskom-start-of-command
'kom-send-letter
)
(
lyskom-tell-internat
'kom-tell-write-letter
)
(
let*
((
tono
(
lyskom-read-conf-no
(
lyskom-get-string
'who-letter-to
)
'all
))
(
conf-stat
(
blocking-do
'get-conf-stat
tono
)))
(
if
(
if
(
zerop
(
conf-stat->msg-of-day
conf-stat
))
t
(
progn
(
recenter
0
)
(
lyskom-format-insert
'has-motd
(
conf-stat->name
conf-stat
))
(
lyskom-view-text
'main
(
conf-stat->msg-of-day
conf-stat
))
(
if
(
j-or-n-p
(
lyskom-get-string
'motd-persist-q
))
t
(
lyskom-end-of-command
)
nil
)))
(
if
(
=
tono
lyskom-pers-no
)
(
lyskom-edit-text
lyskom-proc
(
lyskom-create-misc-list
'recpt
tono
)
""
""
)
(
lyskom-edit-text
lyskom-proc
(
lyskom-create-misc-list
'recpt
tono
'recpt
lyskom-pers-no
)
""
""
)))))
(
condition-case
error
(
progn
(
lyskom-start-of-command
'kom-send-letter
)
(
lyskom-tell-internat
'kom-tell-write-letter
)
(
let*
((
tono
(
lyskom-read-conf-no
(
lyskom-get-string
'who-letter-to
)
'all
))
(
conf-stat
(
blocking-do
'get-conf-stat
tono
)))
(
if
(
if
(
zerop
(
conf-stat->msg-of-day
conf-stat
))
t
(
progn
(
recenter
0
)
(
lyskom-format-insert
'has-motd
(
conf-stat->name
conf-stat
))
(
lyskom-view-text
'main
(
conf-stat->msg-of-day
conf-stat
))
(
if
(
j-or-n-p
(
lyskom-get-string
'motd-persist-q
))
t
(
lyskom-end-of-command
)
nil
)))
(
if
(
=
tono
lyskom-pers-no
)
(
lyskom-edit-text
lyskom-proc
(
lyskom-create-misc-list
'recpt
tono
)
""
""
)
(
lyskom-edit-text
lyskom-proc
(
lyskom-create-misc-list
'recpt
tono
'recpt
lyskom-pers-no
)
""
""
)))))
(
quit
(
lyskom-end-of-command
)
(
signal
'quit
"Quitting in letter"
))))
;;; ================================================================
...
...
Write
Preview
Markdown
is supported
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