Fixade datumfel i skrivna-inläggs-loggen.

Nytt kommando Ändra FAQ
Ta bort FAQ frågar bara om det finns mer än en FAQ

src/ChangeLog

+2000-08-28  David Byers  <davby@ida.liu.se>
+
+	* vars.el.in (lyskom-commands): Added kom-change-conf-faq.
+
+	* commands1.el (lyskom-change-conf-faq-2): New function.
+	(lyskom-change-conf-faq): New function.
+	(kom-change-conf-faq): New command.
+
+	* commands2.el (kom-del-faq): If there is only one FAQ, assume
+	that is the one to delete.
+
+Fri Aug 25 22:12:16 2000  David Byers  <davby@sen2.ida.liu.se>
+
+	Correct definition of mday in lyskom-client-date:
+	* async.el (lyskom-format-as-personal-message): Assume correct
+ 	value of mday.
+
+	* utilities.el (lyskom-client-date): Correct setting of mday.
+
+2000-08-23  David Byers  <davby@ida.liu.se>
+
+	* talkback.el (lyskom-insert-bug-report): Added command-line-args
+	to output.
+
 2000-08-23  David Byers  <davby@sen2.ida.liu.se>
 
 	* Release of 0.46-BETA-O

src/async.el

@@ -500,7 +500,7 @@ Non-nil NOBEEP means don't beep."
         (setq when (lyskom-format 'time-yyyy-mm-dd-hh-mm
                                   (+ (time->year when) 1900)
                                   (time->mon when)
-                                  (1+ (time->mday when))
+                                  (time->mday when)
                                   (time->hour when)
                                   (time->min when)))
       (setq when (lyskom-format 'time-hh-mm

src/commands1.el

@@ -1094,6 +1094,101 @@ Don't ask for confirmation."
      (blocking-do 'get-conf-stat no))
    'pres))
 
+(def-kom-command kom-change-conf-faq ()
+  "Change a FAQ for a conference."
+  (interactive)
+  (let* ((conf-no (lyskom-read-conf-no
+                   (lyskom-get-string 'what-to-change-faq-you)
+                   '(conf) 
+                   nil
+                   (cons (if lyskom-current-conf
+                             (let ((tmp (blocking-do 'get-uconf-stat lyskom-current-conf)))
+                               (if tmp (uconf-stat->name tmp) ""))
+                           "") 0)
+                   t))
+         (conf-stat (when conf-no       ; Need this to make sure the conf-stat is up-to-date!
+                      (cache-del-conf-stat conf-no)
+                      (blocking-do 'get-conf-stat conf-no)))
+         (faq-list (when conf-stat
+                     (let ((tmp nil))
+                       (lyskom-traverse-aux item 
+                           (conf-stat->aux-items conf-stat)
+                         (progn
+                           (when (eq (aux-item->tag item) 14)
+                             (setq tmp (cons (cons (aux-item->data item) (aux-item->aux-no item)) tmp)))))
+                       tmp)))
+         (text-no-aux (cond ((eq (length faq-list) 1) 
+                             (car faq-list))
+                            ((> (length faq-list) 1)
+                             (lyskom-string-assoc
+                              (lyskom-completing-read 
+                               (lyskom-get-string 'text-to-change-as-faq)
+                               (lyskom-maybe-frob-completion-table 
+                                faq-list)
+                               nil t)
+                              faq-list)))))
+    (cond ((null conf-stat)
+           (lyskom-insert (lyskom-get-string 'conf-does-not-exist)))
+;          ((null text-no)
+;           (lyskom-format-insert 'conf-has-no-faq conf-stat))
+          (t (lyskom-change-conf-faq conf-stat 
+                                     (if text-no-aux (string-to-int (car text-no-aux)))
+                                     (if text-no-aux (cdr text-no-aux)))))))
+
+(defun lyskom-change-conf-faq (conf-stat text-no aux-no)
+  "Interactively edit the FAQ for CONF-STAT in TEXT-NO."
+  (cond ((null conf-stat)
+         (lyskom-insert-string 'cant-get-conf-stat))
+        ((or lyskom-is-administrator
+             (lyskom-is-supervisor (conf-stat->conf-no conf-stat) lyskom-pers-no))
+         (blocking-do-multiple ((text-stat (get-text-stat text-no))
+                                (text-mass (get-text text-no)))
+           (let* ((str (and text-mass (text->decoded-text-mass text-mass text-stat)))
+                  (subject (if (and str (string-match "\n" str))
+                               (substring str 0 (match-beginning 0))
+                             ""
+                               ))
+                  (body (if (and str (string-match "\n" str))
+                            (substring str (match-end 0))
+                          (or str ""))))
+             (lyskom-dispatch-edit-text
+              lyskom-proc
+              (apply 'lyskom-create-misc-list
+                     (if (and text-stat text-mass)
+                         (append (lyskom-get-recipients-from-misc-list
+                                  (text-stat->misc-info-list text-stat))
+                                 (list 'comm-to (text-stat->text-no text-stat)))
+                       (list 'recpt (conf-stat->conf-no conf-stat))))
+              subject
+              body
+              'lyskom-change-conf-faq-2
+              conf-stat
+              (text-stat->text-no text-stat)
+              aux-no))))
+        (t (lyskom-format-insert 'not-supervisor-for conf-stat))))
+
+(defun lyskom-change-conf-faq-2 (text-no conf-stat old-text-no old-aux-no)
+  (cache-del-conf-stat (conf-stat->conf-no conf-stat))
+  (initiate-modify-conf-info
+   'background
+   (lambda (retval conf-stat old-text-no text-no)
+     (if retval
+         (lyskom-format-insert-before-prompt 'changed-faq-for-conf-done conf-stat old-text-no text-no)
+       (lyskom-format-insert-before-prompt 'changed-faq-for-conf-failed conf-stat 
+                                           old-text-no text-no
+                                           (lyskom-current-error))))
+   (conf-stat->conf-no conf-stat)
+   (when old-aux-no (list old-aux-no))
+   (list (lyskom-create-aux-item 
+          0 14 0 0
+          (lyskom-create-aux-item-flags nil nil nil nil
+                                        nil nil nil nil)
+          0
+          (int-to-string text-no)))
+   conf-stat
+   old-text-no
+   text-no))
+                
 
 (def-kom-command kom-change-conf-motd ()
   "Change motd for a person or a conference."

src/commands2.el

@@ -2157,10 +2157,13 @@ Return-value: 'no-session if there is no suitable session to switch to
       (lyskom-format-insert 'conf-no-does-not-exist-r conf-no))
      ((null faq-list) 
       (lyskom-format-insert 'conf-has-no-faq conf-stat))
-     (t (setq text-no (lyskom-completing-read (lyskom-get-string 'text-to-del-as-faq)
-                                              (lyskom-maybe-frob-completion-table 
-                                               faq-list)
-                                              nil t))
+     (t (setq text-no
+              (if (eq 1 (length faq-list))
+                  (car faq-list)
+                (lyskom-completing-read (lyskom-get-string 'text-to-del-as-faq)
+                                        (lyskom-maybe-frob-completion-table 
+                                         faq-list)
+                                        nil t)))
         (when text-no
           (lyskom-format-insert 'deleting-faq 
                                 (string-to-int text-no)
@@ -2432,3 +2435,4 @@ The variable kom-keep-alive-interval controls the frequency of the request."
     (if (lyskom-is-member pers-no conf-no)
 	(lyskom-format-insert 'pers-is-member-of-conf pers-no conf-no)
       (lyskom-format-insert 'pers-is-not-member-of-conf pers-no conf-no))))
+

src/distribution-README

@@ -44,13 +44,17 @@
     You need an Emacs. The client appears to work with the following
     versions of Emacs:
 
-    * XEmacs version 21.1 and 21.2
+    * XEmacs version 20.4, 21.1 and 21.2.
     * Gnu Emacs version 19.34 [1]
-    * Gnu Emacs version 20.5 and newer
+    * Gnu Emacs version 20.5 and newer [2]
 
     [1] You'll have to replace the included custom package, and if you 
         use Gnus, you may have to update that as well.
 
+    [2] It should be possible to run the client in Gnu Emacs 20.2 and
+        later, but you may experience some problems. Column alignment
+        is known to fail in version 20.2.
+
     You need to have a recent version of the custom package installed.
     The custom.el file that is bundled with Gnu Emacs 19.34 and older
     versions of Gnus will not work.
@@ -60,7 +64,9 @@
     need. 
 
     Custom is not longer distributed as a separate package, but it may
-    still be available at <URL:http://www.dina.kvl.dk/~abraham/custom/>. 
+    be available at <URL:http://www.dina.kvl.dk/~abraham/custom/>. An
+    old version is available in the elisp-client ftp directory at
+    <URL:ftp://ftp.lysator.liu.se/pub/lyskom/elisp-client/>.
 
     If you have a version of Gnus installed that uses the old custom
     package, it's time to upgrade. The latest version of Gnus is
@@ -77,9 +83,8 @@
 2.  What should I have
 
     LysKOM can use w3 for displaying HTML and calc for performing
-    calculations. You don't really need any of these packages, but
-    they're so useful in their own right that you might as well make
-    sure you have them.
+    calculations. Neither package is required, but since they are
+    useful in their own right you might as well install them anyway.
 
     At the time of writing this, the latest version of W3 is 4.0. It
     is available from <URL:http://www.cs.indiana.edu/elisp/w3/w3.html>

src/english-strings.el

@@ -311,6 +311,7 @@ and you have finished reading. Please come back later.
 ===============================================================================
 \n")
     (what-to-change-pres-you . "Change presentation of who/what (yourself): ")
+    (what-to-change-faq-you . "Change FAQ for which conference: ")
     (who-to-put-motd-for . "Post notice on who/what (yourself): ")
 
     (cant-get-conf-stat . "Cannot get the status of that conference.\n")
@@ -1298,6 +1299,7 @@ On since %#8s%#9s")
     (faq-in-text-aux . "FAQ in text:                 %10#1n")
     (conf-to-add-faq . "Which conference to you want to add a FAQ for? ")
     (text-to-add-as-faq . "Which text is the new FAQ? ")
+    (text-to-change-as-faq . "Which FAQ do you want to change? ")
     (adding-faq . "Adding text %#1n as a FAQ for %#2M...")
     (conf-to-del-faq . "Which conference do you want to remove a FAQ from? ")
     (text-to-del-as-faq . "Which text do you want to remove as FAQ? ")
@@ -1305,6 +1307,10 @@ On since %#8s%#9s")
     (conf-has-no-faq . "%#1M has no FAQ\n")
     (view-which-faq . "View FAQ for which conference? ")
     (review-faq-for-r . "View FAQ for %#1M.\n")
+    (changed-faq-for-conf-done . "FAQ for %#1M changed to text %#3n.\n")
+    (changed-faq-for-conf-failed . "Unable to change FAQ for %#1M to text %#3n.
+%#2?b%[Text %#2n is still the FAQ.
+%]%[%]%#4s")
     
     (too-many-languages . "Cannot code that many character sets. Send uncoded? ")
     (too-many-content-types . "Cannot figure out what content type you want. Simplify the text.")
@@ -1677,6 +1683,7 @@ You must become an active member of the conference to enter it.\n")
     (kom-stop-keep-alive      . "Stop keeping connection alive")
 
     (kom-is-person-member-of-conference . "Check (if person is a) member (of conference)")
+    (kom-change-conf-faq      . "Change FAQ")
     ))
 
 (lyskom-language-var lyskom-language-codes en

src/swedish-strings.el

@@ -293,6 +293,7 @@ du har l
 ===============================================================================
 \n")
     (what-to-change-pres-you . "Vilket mte/person vill du ndra presentationen fr (dig sjlv): ")
+    (what-to-change-faq-you . "Vilket mte vill du ndra FAQ fr: ")
     (who-to-put-motd-for . "Vilket mte/person vill du stta lapp p drr fr (dig sjlv): ")
 
     (cant-get-conf-stat . "Kan ej hmta mtesstatus fr mtet.\n")
@@ -1301,6 +1302,7 @@ Uppkopplad sedan %#8s%#9s")
     (faq-in-text-aux . "FAQ i inlgg:                   %10#1n")
     (conf-to-add-faq . "Vilket mte vill du lgga till en FAQ fr? ")
     (text-to-add-as-faq . "Vilken text vill du lgga till som FAQ? ")
+    (text-to-change-as-faq . "Vilken FAQ vill du ndra? ")
     (adding-faq . "Lgger till inlgg %#1n som FAQ fr %#2M...")
     (conf-to-del-faq . "Vilket mte vill du ta bort en FAQ frn? ")
     (text-to-del-as-faq . "Vilken text vill du ta bort som FAQ? ")
@@ -1308,7 +1310,10 @@ Uppkopplad sedan %#8s%#9s")
     (conf-has-no-faq . "%#1M har ingen FAQ\n")
     (view-which-faq . "terse FAQ fr vilket mte? ")
     (review-faq-for-r . "terse FAQ fr %#1M.\n")
-
+    (changed-faq-for-conf-done . "FAQ fr %#1M ndrad till text %#3n.\n")
+    (changed-faq-for-conf-failed . "Kunde inte ndra FAQ fr %#1M till text %#3n.
+%#2?b%[Text %#2n r fortfarande FAQ.
+%]%[%]%#4s")
     (too-many-languages . "Fr mnga teckenuppsttningar fr att koda. Skicka in okodat? ")
     (too-many-content-types . "Kan inte avgra innehllstyp. Frenkla inlgget.")
 
@@ -1680,6 +1685,7 @@ Du m
     (kom-stop-keep-alive      . "Avbryt hll frbindelsen aktiv")
 
     (kom-is-person-member-of-conference . "Kontrollera (om person r) medlem (i mte)")
+    (kom-change-conf-faq      . "ndra FAQ")
     ))
 
 (lyskom-language-var lyskom-language-codes sv

src/talkback.el

@@ -96,6 +96,7 @@ Client version: %s (%s)
 LysKOM server:  %s:%S
 Server version: %s %s %S
 Current person: %S (%s)
+Command line:   %S
 
 Please describe the precise symptoms of the bug and exactly what
 actions triggered the bug. Be as detailed as possible. Do not try to
@@ -116,6 +117,7 @@ make any conclusions of your own.
                (condition-case nil
                    (uconf-stat->name (cache-get-uconf-stat lyskom-pers-no))
                  (error ""))
+               command-line-args
                ))))
   (let ((saved-place (point)))
     (insert "\n\n")

src/utilities.el

@@ -842,7 +842,7 @@ name of the day of week."
     (lyskom-create-time (elt now 0)     ;sec
                         (elt now 1)     ;min
                         (elt now 2)     ;hour
-                        (1- (elt now 3))     ;mday
+                        (elt now 3)	;mday
                         (elt now 4)     ;mon
                         (- (elt now 5) 1900) ;year
                         (elt now 6)     ;wday

src/vars.el.in

@@ -1375,6 +1375,7 @@ Users are encouraged to use their best sense of humor."
     kom-stop-keep-alive
 
     kom-is-person-member-of-conference
+    kom-change-conf-faq
     ))
 
 ;;; ================================================================