Ask if normal recipient or carbon copy recipient should be added.

doc/NEWS-0.46.1

@@ -98,6 +98,11 @@
 
 ** RydKOM har flyttats till kom.hem.liu.se.
 
+** När klienten frågar om man vill addera den kommenterades brevlåda
+   om man skriver en kommentar i ett möte där den kommentarade inte är
+   medlem får man numera en fråga om huruvida det ska vara en extra
+   kopiemottagare eller vanlig mottagare.
+
 * Bugfixar
 
 ** Klienten fungerar i Gnu Emacs 21.

src/ChangeLog

 2000-12-06  Joel Rosdahl  <joel@rosdahl.net>
 
+	* edit-text.el (lyskom-edit-send-check-recipients): Ask if normal
+	recipient or carbon copy recipient should be added.
+
 	* distribution-configure.in: Ignore stderr output from Emacs.
 
 	* autoconf.el (extract-autoconf-data): Print autoconf data to

src/edit-text.el

@@ -955,18 +955,24 @@ Cannot be called from a callback."
                              (setq author-is-member t
                                    tmp nil))
                            (setq tmp (cdr tmp))))
-                             
+
                        (if (and (not author-is-member)
 				(not (zerop author-number))
                                 (lyskom-is-permitted-author
                                  (blocking-do 'get-conf-stat author-number))
                                 (lyskom-j-or-n-p
-                                 (let ((kom-deferred-printing nil))
-                                   (lyskom-format
-                                    'add-recipient-p
-                                    author-number)) t))
+                                 (lyskom-format
+                                  'add-recipient-p
+                                  author-number)
+                                 t))
                            (setq extra-headers
-                                 (nconc (list 'recpt 
+                                 (nconc (list (if (lyskom-j-or-n-p
+                                                   (lyskom-format
+                                                    'really-add-as-recpt-q
+                                                    author-number)
+                                                   t)
+                                                  'recpt
+                                                'cc-recpt)
                                               author-number)
                                         extra-headers)))))
                     author-list))))