Bug fix in lyskom-client-datae

Print name of sender of imported mail in the edit buffer

src/ChangeLog

+1999-10-18  David Byers  <davby@ida.liu.se>
+
+	* utilities.el (lyskom-client-date): Off-by-one error in
+	day-of-month fixed.
+
+	* edit-text.el (lyskom-edit-get-commented-author): Print the
+	name of the real author of an imported e-mail, not the importer's
+	name. 
+
+1999-10-17  David Byers  <davby@ida.liu.se>
+
+	* utilities.el (lyskom-client-date-string): Don't add 1900 to
+	result of decode-time.
+
 Sun Oct 17 00:52:05 1999  David Byers  <davby@sen2.ida.liu.se>
 
 	* Release av 0.46-BETA-A

src/Makefile

@@ -36,7 +36,7 @@
 # makefile too!
 #
 
-CLIENTVERSION = 0.46-BETA-A
+CLIENTVERSION = 0.46-BETA-B
 DOCFILES=NEWS-0.46
 
 FTPDIR=/home/davby/www-pub

src/edit-text.el

@@ -254,9 +254,16 @@ NUMBER is the number of the person. Used if the conf-stat is nil."
 
 (defun lyskom-edit-get-commented-author (text-stat string stream number)
   (if text-stat
-      (lyskom-edit-insert-commented-author 
-       (blocking-do 'get-conf-stat (text-stat->author text-stat))
-       string stream number)
+      (let ((mx-from (car (lyskom-get-aux-item (text-stat->aux-items text-stat) 17)))
+            (mx-author (car (lyskom-get-aux-item (text-stat->aux-items text-stat) 16))))
+        
+       
+
+        (lyskom-edit-insert-commented-author 
+         (if mx-from
+             (lyskom-format-mx-author mx-from mx-author)
+           (blocking-do 'get-conf-stat (text-stat->author text-stat)))
+         string stream number))
     (lyskom-edit-insert-commented-author nil string stream number)))
 
 

src/utilities.el

@@ -558,7 +558,7 @@ minutes, the seconds, the full name of the day of week, the abbreviated
 name of the day of week."
   (let ((now (decode-time)))
     (lyskom-format (or fmt 'time-yyyy-mm-dd-hh-mm)
-                   (+ (elt now 5) 1900)
+                   (elt now 5)
                    (elt now 4)
                    (elt now 3)
                    (elt now 2)
@@ -580,7 +580,7 @@ name of the day of week."
     (lyskom-create-time (elt now 0)     ;sec
                         (elt now 1)     ;min
                         (elt now 2)     ;hour
-                        (elt now 3)     ;mday
+                        (1- (elt now 3))     ;mday
                         (elt now 4)     ;mon
                         (- (elt now 5) 1900) ;year
                         (elt now 6)     ;wday