Be smarted about default values in kom-move-text

src/ChangeLog

+1999-12-10  David Byers  <davby@ida.liu.se>
+
+	* commands1.el (kom-move-text): Supply better defaults for
+	conferences. 
+
 1999-12-07  David Kgedal  <davidk@lysator.liu.se>
 
 	* swedish-strings.el (lyskom-sv-mode-map): lyskom-keys was called

src/commands1.el

@@ -2935,21 +2935,52 @@ the user has used a prefix command argument."
 If the argument TEXT-NO-ARG is non-nil, the user has used a prefix
 command argument."
   (interactive "P")
-  (blocking-do-multiple ((default-from (get-conf-stat lyskom-current-conf))
-			 (default-to (get-conf-stat lyskom-last-added-rcpt)))
-    (lyskom-add-sub-recipient text-no-arg
-			      (lyskom-get-string 'text-to-move)
-			      'move
-			      default-to
-			      default-from)))
+  (let* ((text-no (lyskom-read-number (lyskom-get-string 'text-to-move)
+                                      (or text-no-arg lyskom-current-text)))
+         (text-stat (blocking-do 'get-text-stat text-no))
+         default-recpt found)
+
+    (lyskom-traverse misc-item
+        (text-stat->misc-info-list text-stat)
+      (when (memq (misc-info->type misc-item)
+                  '(RECPT CC-RECPT BCC-RECPT))
+        (when (not found)
+          (setq default-recpt (misc-info->recipient-no misc-item)
+                found (eq (misc-info->type misc-item) 'RECPT)))
+        (when (eq (misc-info->recipient-no misc-item) lyskom-current-conf)
+          (setq default-recpt lyskom-current-conf found t))))
+
+    (cond ((null text-stat)
+           (lyskom-format-insert 'no-such-text-no text-no))
+          ((null default-recpt) 
+           (lyskom-format-insert 'text-has-no-recipients-r text-no))
+          (t (blocking-do-multiple
+                 ((default-from (get-conf-stat default-recpt))
+                  (default-to (get-conf-stat
+                               (or lyskom-last-added-rcpt
+                                   lyskom-current-conf))))
+               (lyskom-add-sub-recipient text-no-arg
+                                         (lyskom-get-string 'text-to-move)
+                                         'move
+                                         default-to
+                                         default-from t))))))
 
 (defun lyskom-add-sub-recipient (text-no-arg
 				 prompt
 				 action
 				 conf
-				 &optional conf2)
-  (let* ((text-no (lyskom-read-number prompt 
-				      (or text-no-arg lyskom-current-text)))
+				 &optional conf2 text-no-is-read)
+  "Add or remove a recipient.
+TEXT-NO-ARG is the prefix argument from (interactive \"P\"); PROMPT is
+the prompt string to use when reading the text number; ACTION is what
+to do (one of add-rcpt, add-copy, add-bcc, sub or move), CONF is the
+conference to add, remove or move from, CONF2 is thee conference to 
+move to (for move) and a non-nil TEXT-NO-IS-READ means that the user has
+already been prompted for a text number so TEXT-NO-ARG contains the 
+actual text to do whatever on."
+  (let* ((text-no (if text-no-is-read text-no-arg
+                    (lyskom-read-number prompt 
+                                        (or text-no-arg lyskom-current-text))))
 	 (text-stat (blocking-do 'get-text-stat text-no))
 	 (was-read (lyskom-text-read-p text-stat))
 

src/swedish-strings.el

@@ -352,6 +352,7 @@ du har l
     (text-to-delete-comment-from . "Vilket inlgg vill du subtrahera en kommentar frn:")
     (text-to-add-footnote-to . "Vilket inlgg vill du addera en fotnot till:")
     (text-to-delete-footnote-from . "Vilket inlgg vill du subtrahera en fotnot frn:")
+    (text-has-no-recipients-r . "Inlgg %#1n har inga mottagare\n")
 
     (where-on-list-q . "Placering p listan? (0-%#1d) ")
     (member-in-conf . "Bli medlem i %#1M...")