Commit d4a70fae authored by David Byers's avatar David Byers
Browse files

Print creating-software correctly.

Don't set creating-software on anonymous texts.
parent f80469d4
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.
......
......@@ -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.
......
......@@ -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)
......@@ -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)
......
......@@ -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
......
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