Synkning inför release av 0.46-BETA-W

doc/Makefile

@@ -22,7 +22,7 @@
 #
 # Please mail bug reports to bug-lyskom@lysator.liu.se.
 
-CLIENTVERSION = 0.46-BETA-Q
+CLIENTVERSION = 0.46-BETA-W
 
 SHELL = /bin/sh
 RM = rm -f

src/ChangeLog

+2000-09-01  David Byers  <davby@sen2.ida.liu.se>
+
+	* Release of 0.46-BETA-W
+
 2000-09-01  David Byers  <davby@ida.liu.se>
 
+	
+	Selective checking of commented author's membership:
+	* edit-text.el (lyskom-edit-send-check-recipients): Use
+	kom-dont-check-commented-authors. 
+
+	* vars.el.in (kom-dont-check-commented-authors): New variable.
+
+	Better command completion:
 	* command.el (lyskom-complete-command): Fix. We didn't handle
 	check for exact match properly. Fix unibyte incompatibility.
 	(lyskom-read-extended-command): Use lyskom-complete-command.

src/Makefile

@@ -36,7 +36,7 @@
 # makefile too!
 #
 
-CLIENTVERSION = 0.46-BETA-Q
+CLIENTVERSION = 0.46-BETA-W
 DOCFILES=NEWS-0.46
 DEBIANCLIENTVERSION = $(shell echo $(CLIENTVERSION) | tr - .)
 

src/edit-text.el

@@ -896,13 +896,14 @@ Cannot be called from a callback."
           (lyskom-message "%s" (lyskom-get-string 'checking-rcpt))
 
           ;;
-          ;; For each commented text, get the author
-          ;;
+          ;; For each commented text, get the author. Do not include
+          ;; ones that are listed in kom-dont-check-commented-authors
         
           (mapcar 
            (lambda (x)
              (let ((text (blocking-do 'get-text-stat x)))
-               (when text
+               (when (and text (not (memq (text-stat->author text)
+                                          kom-dont-check-commented-authors)))
                  (add-to-list 'author-list (text-stat->author text)))))
            comm-to-list)
 

src/english-strings.el

@@ -2420,6 +2420,10 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
         If not, LysKOM will offer to add the commented authos as a recipient
         to the comment you are writing.
 
+    Authors not to check
+        A list of authors not to check even if check membership of
+        commented author is on.
+
     Check for unread comments
         When this is on, LysKOM will check that you have read all the other
         comments to the text you are commenting before sending your
@@ -3186,6 +3190,8 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
   trimmed back to the maximum size. The variable must be an integer;
   the default is 4096.")
 
+    (kom-dont-check-commented-authors-doc . "")
+
 
     ;;
     ;; Tags for variables
@@ -3342,6 +3348,7 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
     (kom-created-texts-are-saved-tag . "Save created texts:")
     (kom-confirm-add-recipients-tag . "Ask if comments should be sent to new recipients:")
     (kom-trim-buffer-minimum-tag . "How small parts of the LysKOM buffer are trimmed:")
+    (kom-dont-check-commented-authors-tag . "Authors not to check:")
     )
 )
 

src/option-edit.el

@@ -197,6 +197,7 @@
     "\n\n"
     [kom-confirm-multiple-recipients]
     [kom-check-commented-author-membership]
+    [kom-dont-check-commented-authors]
     [kom-check-for-new-comments]
 
     "\n\n"
@@ -665,6 +666,8 @@ customize buffer but do not save them to the server."
     (kom-show-unread-in-frame-title (toggle (yes no)))
     (kom-confirm-add-recipients (toggle (yes no)))
     (kom-trim-buffer-minimum (number))
+    (kom-dont-check-commented-authors (repeat (person nil 
+                                                      :tag name) :indent 4))
 ))
 
 (defvar lyskom-widget-functions 

src/swedish-strings.el

@@ -2453,6 +2453,10 @@ i servern. Annars sparas det i din .emacs.")
         erbjuder LysKOM att lgga till frfattaren som mottagare till
         inlgget. 
 
+    Frfattare som inte kontrolleras
+        En lista av frfattare som inte skall kontrolleras ven om
+        kontroll av kommenterad frfattares medlemskap r pslaget.
+
     Kontroll av olsta kommentarer
         Nr detta r pslaget s kontrollerar LysKOM att det inlgg man
         kommenterar inte har ngra kommentarer man inte har lst. Detta r
@@ -3184,6 +3188,7 @@ i servern. Annars sparas det i din .emacs.")
     (kom-ding-on-wait-done-doc . "")
     (kom-ding-on-priority-break-doc . "")
     (kom-ding-on-new-letter-doc . "")
+
     (kom-check-for-new-comments-doc . "")
     (kom-check-commented-author-membership . "")
     (kom-confirm-multiple-recipients-doc . "")
@@ -3227,6 +3232,8 @@ i servern. Annars sparas det i din .emacs.")
   Om du begrnsar LysKOM-buffertens storlek s mste den bli s hr mycket
   fr stor innan text i bufferten raderas. Variablen ska vara ett heltal,
   default r 4096.")
+    (kom-dont-check-commented-authors-doc . "")
+
 
 
     ;;
@@ -3384,6 +3391,7 @@ i servern. Annars sparas det i din .emacs.")
     (kom-created-texts-are-saved-tag . "Spara frfattade inlgg:")
     (kom-confirm-add-recipients-tag . "Frga om kommentarer skall sndas till nya mottagare:")
     (kom-trim-buffer-minimum-tag . "Minsta storlek av LysKOM-bufferten som tas bort:")
+    (kom-dont-check-commented-authors-tag . "Frfattare som inte kontrolleras:")
     )
 )
 

src/vars.el.in

@@ -683,6 +683,11 @@ to be displayed in the buffer."
   "*List of people whose names should be formatted using kom-morons-face."
   server)
 
+(def-kom-var kom-dont-check-commented-authors nil
+  "*List of recipients who do not need to be added to comments that they
+might not see. Typically this list consists of import agents."
+  server)
+
 (def-kom-var kom-default-face-scheme nil  
   "*Face scheme to use per default for new logins.")