You can change the recipient type for a recipient in the edit-buffer with the

mouse.

src/ChangeLog

+2001-11-13  Ulrik Haugen  <qha@lysator.liu.se>
+
+	* vars.el.in (lyskom-button-actions): added button-type:
+	recpt-type.
+
+	* edit-text.el (lyskom-edit-add-recipient/copy): new paramter:
+	recpt - the conference to add, if set don't prompt. 
+	(lyskom-edit-insert-misc-conf): add set recipient selection menu
+	properties for the recipient spec.
+
+	* english-strings.el, swedish-strings.el (lyskom-message):
+	recpt-type-button strings. Removed trailing colon from recipient,
+	carbon-copy and blank-carbon-copy strings
+
 2001-10-16  Ulrik Haugen  <qha@lysator.liu.se>
 
 	* lyskom-buttons.el (lyskom-default-button): don't bother to set

src/edit-text.el

@@ -239,18 +239,27 @@ footn-to	-> Fotnot till text %d."
 
 
 (defun lyskom-edit-insert-misc-conf (conf-stat string stream number)
-  "Insert Mottagare: or Extra kopia: in edit-buffer.
-Args: CONF-STAT STRING STREAM NUMBER
+  "Insert Recipient:, Carbon copy: or Blind Carbon copy: in
+edit-buffer.
 CONF-STAT is the conf-stat of the conference that is about to be put in,
 STRING is the string that is inserted.
 STREAM is the buffer or a marker telling the position.
 NUMBER is the number of the person. Used if the conf-stat is nil."
-  (lyskom-princ  (lyskom-format "%#1s <%#2m> %#3M\n" 
-                                string
-                                (or conf-stat number)
-                                (or conf-stat ""))
-                 stream))
-
+  (add-text-properties
+   0 (length string)
+   (lyskom-default-button
+    'recpt-type
+    (list (or (conf-stat->conf-no conf-stat)
+	      number)
+	  (marker-buffer stream))
+    (list (lyskom-get-string 'recpt-type-popup-title)
+	  string))
+   string)
+  (lyskom-princ (lyskom-format "%#1s: <%#2m> %#3M\n" 
+			       string
+			       (or conf-stat number)
+			       (or conf-stat ""))
+		stream))
 
 (defun lyskom-edit-get-commented-author (text-stat string stream number)
   (if text-stat

src/english-strings.el

@@ -796,10 +796,10 @@ Text %#1n has more than one root but only one of the trees will be shown.\n")
 
     ; From edit-text.el:
     (press-C-c-C-c . "Enter C-c C-c to post the text.")
-    (recipient . "Recipient:")
+    (recipient . "Recipient")
     (recipient-prefix . "[Rr]")
-    (carbon-copy . "Carbon copy:")
-    (blank-carbon-copy . "Blind Carbon copy:")
+    (carbon-copy . "Carbon copy")
+    (blank-carbon-copy . "Blind Carbon copy")
     (carbon-copy-prefix . "[Cc]\\([Aa]\\|[Cc]\\)")
     (blank-carbon-copy-prefix . "[Bb]\\([Ll]\\|[Cc][Cc]\\)")
 
@@ -1255,6 +1255,7 @@ Text:
     (url-popup-title  . "URL %#1s")
     (aux-popup-title  . "Extra information")
     (timestamp-popup-title . "Timestamp %#1s")
+    (recpt-type-popup-title . "Recipient type: %#1s")
     (generic-popup-title . "%#1s")
 
     (who-i-am-not-present . "%#1P (not in any conference) \n")
@@ -1566,6 +1567,9 @@ You must become an active member of the conference to enter it.\n")
     (lyskom-button-info-aux-action . "Information")
     (lyskom-button-delete-aux-action . "Delete")
     (lyskom-button-copy-timestamp-action . "Copy")
+    (lyskom-button-recpt-type-recipient . "Recipient")
+    (lyskom-button-recpt-type-copy . "Carbon copy")
+    (lyskom-button-recpt-type-bcc . "Blind Carbon copy")
     (lyskom-edit-toggle-secret-aux-action . "Toggle \"secret\"")
     (lyskom-edit-toggle-anonymous-aux-action . "Toggle \"anonymous\"")
     (lyskom-edit-toggle-inherit-aux-action . "Toggle \"inherited\"")

src/swedish-strings.el

@@ -795,10 +795,10 @@ M
 
     ;; From edit-text.el:
     (press-C-c-C-c . "Tryck C-c C-c fr att skicka in texten.")
-    (recipient . "Mottagare:")
+    (recipient . "Mottagare")
     (recipient-prefix . "[Mm]")
-    (carbon-copy . "Extra kopia:")
-    (blank-carbon-copy . "Dold kopia:")
+    (carbon-copy . "Extra kopia")
+    (blank-carbon-copy . "Dold kopia")
     (carbon-copy-prefix . "[Ee]")
     (blank-carbon-copy-prefix . "[Dd]")
 
@@ -1254,6 +1254,7 @@ Text:
     (url-popup-title  . "URL %#1s")
     (aux-popup-title  . "Tillggsinformation")
     (timestamp-popup-title . "Tidsstmpel %#1s")
+    (recpt-type-popup-title . "Mottagartyp: %#1s")
     (generic-popup-title . "%#1s")
 
     (who-i-am-not-present . "%#1P r inte nrvarande i ngot mte\n")
@@ -1565,6 +1566,9 @@ Du m
     (lyskom-button-info-aux-action . "Information")
     (lyskom-button-delete-aux-action . "Radera")
     (lyskom-button-copy-timestamp-action . "Kopiera")
+    (lyskom-button-recpt-type-recipient . "Mottagare")
+    (lyskom-button-recpt-type-copy . "Extra kopia")
+    (lyskom-button-recpt-type-bcc . "Dold kopia")
     (lyskom-edit-toggle-secret-aux-action . "Vxla \"hemlig\"")
     (lyskom-edit-toggle-anonymous-aux-action . "Vxla \"anonym\"")
     (lyskom-edit-toggle-inherit-aux-action   . "Vxla \"rvd\"")

src/vars.el.in

@@ -1245,6 +1245,21 @@ each time ."
      (lambda (buffer argument text) nil)
      ((lyskom-button-copy-timestamp-action . lyskom-button-copy-timestamp))
      nil)
+    (recpt-type
+     recpt-type-popup-title
+     (lambda (buffer argument text) nil)
+     ((lyskom-button-recpt-type-recipient
+       . (lambda (buffer argument text)
+	   (lyskom-edit-do-add-recipient/copy
+	    'recpt (car argument) (cadr argument))))
+      (lyskom-button-recpt-type-copy
+       . (lambda (buffer argument text)
+	   (lyskom-edit-do-add-recipient/copy
+	    'cc-recpt (car argument) (cadr argument))))
+      (lyskom-button-recpt-type-bcc
+       . (lambda (buffer argument text)
+	   (lyskom-edit-do-add-recipient/copy
+	    'bcc-recpt (car argument) (cadr argument))))))
     )
   "This variable defines valid button types in LysKOM. Each element is a
 list consisting of (TYPE LABEL DEFAULT ACTIONS HINTS).