added a button in lyskom-edit-mode for adding recipients.

src/ChangeLog

+2001-11-23  Ulrik Haugen  <qha@lysator.liu.se>
+
+	* edit-text.el (lyskom-edit-insert-miscs): print a button with
+	type add-recipient after the recipients.
+	(lyskom-edit-parse-headers): Ignorera 'add-recipient i headrarna.
+
+	* vars.el.in (lyskom-button-actions): new button type:
+	add-recipient.
+
+	* swedish-strings.el, english-strings.el (lyskom-message): new
+	string: add-recipient
+
 2001-11-21  Johan Sundstrm  <jhs@lysator.liu.se>
 
 	* startup.el (lyskom): A `C-u' prefix argument makes the session
@@ -18,10 +30,10 @@
 
 	* vars.el.in (lyskom-button-actions): added "remove" option to the
 	recpt-type menu. Better argument names for the lambda-functions in
-	recpt-type 
+	recpt-type.
 
 	* lyskom-buttons.el (lyskom-generate-button): do a car on
-	menu-title so we get an errormessage if it's not a cons when the
+	menu-title so we get an error message if it's not a cons when the
 	button is generated in stead of when it's used.
 
 	* swedish-strings.el, english-strings.el (lyskom-message): new

src/edit-text.el

@@ -209,6 +209,11 @@ nil             -> Ingenting."
 					    (lyskom-get-string 'footnote)
 					    where-put-misc data)))
 	(setq misc-list (cdr misc-list))))
+    (lyskom-princ (lyskom-format "%[%#1@%#2s%]\n"
+                                 (lyskom-default-button 'add-recipient
+                                                        edit-buffer)
+                                 (lyskom-get-string 'add-recipient))
+                  where-put-misc)
     (mapcar (function
              (lambda (item)
                (let ((data (lyskom-aux-item-call
@@ -1288,7 +1293,6 @@ RECPT-TYPE is the type of recipient to add."
 
 (defun lyskom-edit-sub-recipient/copy (recpt-no edit-buffer)
   "Remove the recipient having RECPT-NO from EDIT-BUFFER"
-  ;; XXX: lyskom-edit-sub-recipient/copy: Symbol's value as variable is void: recpt
   (save-excursion
     (set-buffer edit-buffer)
     (let* ((headers (lyskom-edit-parse-headers))
@@ -1559,6 +1563,7 @@ easy to use the result in a call to `lyskom-create-misc-list'."
                 (lyskom-looking-at-header 'carbon-copy-prefix 'empty)
                 (lyskom-looking-at-header 'recipient-prefix 'empty))
             nil)
+           ((lyskom-looking-at-header 'add-recipient nil) nil)
 
 	   (t (signal 'lyskom-unknown-header (list 'unknown-header (point))))))
 	(forward-line 1)))

src/english-strings.el

@@ -802,6 +802,7 @@ Text %#1n has more than one root but only one of the trees will be shown.\n")
     (blank-carbon-copy . "Blind Carbon copy")
     (carbon-copy-prefix . "[Cc]\\([Aa]\\|[Cc]\\)")
     (blank-carbon-copy-prefix . "[Bb]\\([Ll]\\|[Cc][Cc]\\)")
+    (add-recipient . "Add a recipient")
 
     (secret-aux-flag . "secret")
     (anonymous-aux-flag . "anonymous")

src/swedish-strings.el

@@ -796,11 +796,12 @@ M
     ;; From edit-text.el:
     (press-C-c-C-c . "Tryck C-c C-c fr att skicka in texten.")
     (recipient . "Mottagare")
-    (recipient-prefix . "[Mm]")
     (carbon-copy . "Extra kopia")
     (blank-carbon-copy . "Dold kopia")
+    (recipient-prefix . "[Mm]")
     (carbon-copy-prefix . "[Ee]")
     (blank-carbon-copy-prefix . "[Dd]")
+    (add-recipient . "Addera mottagare")
 
     (secret-aux-flag . "hemlig")
     (anonymous-aux-flag . "anonym")

src/vars.el.in

@@ -1268,6 +1268,21 @@ each time ."
 	   (lyskom-edit-sub-recipient/copy
 	    (car recpt-and-buffer)
 	    (cadr recpt-and-buffer))))))
+    (add-recipient
+     add-recipient
+     (lambda (buffer argument text) nil)
+     ((lyskom-button-recpt-type-recipient
+       . (lambda (buffer buffer text)
+           (set-buffer buffer)
+	   (kom-edit-add-recipient)))
+      (lyskom-button-recpt-type-copy
+       . (lambda (buffer buffer text)
+           (set-buffer buffer)
+	   (kom-edit-add-copy)))
+      (lyskom-button-recpt-type-bcc
+       . (lambda (buffer buffer text)
+           (set-buffer buffer)
+	   (kom-edit-add-bcc)))))
     )
   "This variable defines valid button types in LysKOM. Each element is a
 list consisting of (TYPE LABEL DEFAULT ACTIONS HINTS).