Print creating-software correctly.

Don't set creating-software on anonymous texts.

src/ChangeLog

+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

@@ -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

@@ -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

@@ -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

@@ -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