Commit bbf90d38 authored by David Byers's avatar David Byers

Fixed bug 722

parent 1da39a88
2002-09-16 David Byers <david.byers@swipnet.se>
Fix bug 722:
* edit-text.el (kom-edit-send-anonymous): Set is-anonymous
parameter to non-nil.
(lyskom-edit-send): Ask to remove self when sending anonymously.
Fix bug 679:
* commands1.el (kom-delete-text): Nag if the user tries to delete
a text with comments. Rewrote the main logic.
......
......@@ -443,7 +443,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 nil))
(lyskom-edit-send 'initiate-create-anonymous-text t))
(defun kom-edit-send ()
"Send the text to the server."
......@@ -501,6 +501,17 @@ anonymously and take actions to avoid revealing the sender."
(nconc (elt headers 1)
extra-headers)))))
;;
;; Check that we don't add ourselves to an anon text
;;
(when (and is-anonymous
(rassq lyskom-pers-no (cdr misc-list))
(lyskom-j-or-n-p
(lyskom-get-string 'remove-self-sending-anonymous)))
(rplacd misc-list (delq (rassq lyskom-pers-no (cdr misc-list))
(cdr misc-list))))
;;
;; Run user hooks
;; ####: ++++: FIXME: We should quit more graciously.
......
......@@ -1411,6 +1411,7 @@ On since %#8s%#9s")
(calc-expression . "Expression: ")
(do-send-anonymous . "Send the text anonymously? ")
(remove-self-sending-anonymous . "Remove yourself as a recipient of the text? ")
(anonymous . "anonymous")
(Anonymous . "Anonymous")
......
......@@ -1424,6 +1424,7 @@ Uppkopplad sedan %#8s%#9s")
(calc-expression . "Uttryck: ")
(do-send-anonymous . "Skicka in texten anonymt? ")
(remove-self-sending-anonymous . "Vill du ta bort dig sjlv som mottagare frn inlgget? ")
(anonymous . "anonym")
(Anonymous . "Anonym")
......
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