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
d4a70fae
Commit
d4a70fae
authored
Aug 09, 1999
by
David Byers
Browse files
Print creating-software correctly.
Don't set creating-software on anonymous texts.
parent
f80469d4
Changes
5
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
d4a70fae
1999-08-09 David Byers <davby@ida.liu.se>
* edit-text.el (lyskom-create-text-handler): Changed name of
parameter never-mark-as-read to is-anonymous.
(lyskom-edit-send): Ditto and don't set creating-software if
sending anonymously.
* vars.el.in (kom-show-creating-software): New variable.
* aux-items.el (lyskom-print-creating-software): Show creating
software only when kom-show-creating-software is non-nil.
1999-07-14 David Kgedal <davidk@lysator.liu.se>
* aux-items.el (lyskom-print-creating-software): Typo fix.
...
...
src/TODO
View file @
d4a70fae
...
...
@@ -7,6 +7,10 @@ Att g
listan, glöm inte att ta bort det från listan!
Oops. Vi visar creating-software som en tom rad i headern för texten.
Se tiden borde kunna visa veckonummer.
Om man går med i ett möte man är passiv i så borde man inte få frågan
om prioritet etc.
...
...
src/aux-items.el
View file @
d4a70fae
...
...
@@ -498,9 +498,10 @@
(
lyskom-aux-item-terminating-button
item
obj
)))
(
defun
lyskom-print-creating-software
(
item
&optional
obj
)
(
concat
(
lyskom-format
'creating-software-aux
(
aux-item->data
item
))
(
lyskom-aux-item-terminating-button
item
obj
)))
(
when
kom-show-creating-software
(
concat
(
lyskom-format
'creating-software-aux
(
aux-item->data
item
))
(
lyskom-aux-item-terminating-button
item
obj
))))
(
provide
'lyskom-aux-items
)
src/edit-text.el
View file @
d4a70fae
...
...
@@ -465,7 +465,7 @@ so it's not as clean as it ought to be."
(
defun
kom-edit-send-anonymous
()
"Send the text anonymously to the server."
(
interactive
)
(
lyskom-edit-send
'initiate-create-anonymous-text
))
(
lyskom-edit-send
'initiate-create-anonymous-text
nil
))
(
defun
kom-edit-send
()
"Send the text to the server."
...
...
@@ -475,8 +475,10 @@ so it's not as clean as it ought to be."
(
lyskom-edit-send
'initiate-create-anonymous-text
t
)
(
lyskom-edit-send
'initiate-create-text
nil
)))
(
defun
lyskom-edit-send
(
send-function
&optional
never-mark-as-read
)
"Send the text to the server by calling SEND-FUNCTION."
(
defun
lyskom-edit-send
(
send-function
&optional
is-anonymous
)
"Send the text to the server by calling SEND-FUNCTION.
If optional IS-ANONYMOUS is non-nil, assume that the text is being submitted
anonymously and take actions to avoid revealing the sender."
(
condition-case
err
(
if
(
or
(
not
lyskom-edit-text-sent
)
;++MINOR checked mode-name against lyskom-edit-mode-name
(
j-or-n-p
(
lyskom-get-string
'already-sent
)))
...
...
@@ -553,7 +555,7 @@ so it's not as clean as it ought to be."
(
set-buffer
lyskom-buffer
)
;; Don't change the prompt if we won't see our own text
(
if
(
and
kom-created-texts-are-read
(
not
never-mark-as-read
))
(
not
is-anonymous
))
(
setq
lyskom-dont-change-prompt
t
))
(
setq
lyskom-is-writing
nil
)
(
lyskom-tell-internat
'kom-tell-send
)
...
...
@@ -562,17 +564,16 @@ so it's not as clean as it ought to be."
'lyskom-create-text-handler
full-message
misc-list
;; Wait a minute, this should not be done on
;; anonymous articles.
(
cons
(
lyskom-create-aux-item
0
15
0
0
(
lyskom-create-aux-item-flags
nil
nil
nil
nil
nil
nil
nil
nil
)
0
(
concat
"lyskom.el "
lyskom-clientversion
))
aux-list
)
(
unless
is-anonymous
(
cons
(
lyskom-create-aux-item
0
15
0
0
(
lyskom-create-aux-item-flags
nil
nil
nil
nil
nil
nil
nil
nil
)
0
(
concat
"lyskom.el "
lyskom-clientversion
))
aux-list
))
buffer
never-mark-as-read
))))
is-anonymous
))))
(
lyskom-undisplay-buffer
)
(
goto-char
(
point-max
))))
;;
...
...
@@ -1460,7 +1461,7 @@ Point must be located on the line where the subject is."
(
defun
lyskom-create-text-handler
(
text-no
edit-buffer
&optional
never-mark-as-read
)
&optional
is-anonymous
)
"Handle an attempt to write a text."
(
lyskom-tell-internat
'kom-tell-silence
)
(
message
""
)
...
...
@@ -1480,11 +1481,12 @@ Point must be located on the line where the subject is."
(
lyskom-insert-before-prompt
(
lyskom-format
'text-created
text-no
))
;; Immediately mark the text as read if kom-created-texts-are-read is set.
;; Immediately mark the text as read if kom-created-texts-are-read is set
;; and we are not sending the text anonymously.
(
cond
((
and
kom-created-texts-are-read
(
not
never-mark-as-read
))
(
not
is-anonymous
))
(
lyskom-is-read
text-no
)
(
initiate-get-text-stat
'background
'lyskom-mark-as-read
text-no
)
...
...
src/vars.el.in
View file @
d4a70fae
...
...
@@ -278,6 +278,11 @@ nil nil \"(%n) %f\"
(
def-kom-var
kom-show-creating-software
nil
"*If non-nil then show the creating software of each text, if specitfied."
server
inherited
)
(
def-kom-var
kom-show-author-at-end
t
"*If non-nil then the author will be shown at the end of each text."
server
...
...
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