Synkning inför release av 0.46-BETA-8

src/ChangeLog

+Sat Oct  9 18:54:16 1999  David Byers  <davby@sen2.ida.liu.se>
+
+	* Release av 0.46-BETA-8
+
+1999-10-07  David Byers  <davby@ida.liu.se>
+
+	* async.el (lyskom-format-as-personal-message): Show date if
+	kom-show-personal-message-date is non-nil.
+
+	* vars.el.in (kom-show-personal-message-date): New variable.
+
+1999-09-28  David Byers  <davby@ida.liu.se>
+
+	* compatibility.el (last): Added compatibility definition.
+
 1999-10-09  David Byers  <davby@ida.liu.se>
 
 	* swedish-strings.el (lyskom-command): Updated translation of mail 

src/async.el

@@ -475,8 +475,9 @@ Non-nil NOBEEP means don't beep."
   (let ((lyskom-last-text-format-flags nil))
     (if (null when)
         (setq when (current-time-string)))
-    (if (not (string= (substring when 0 10)
-                      (substring (current-time-string) 0 10)))
+    (if (or kom-show-personal-message-date
+            (not (string= (substring when 0 10)
+                          (substring (current-time-string) 0 10))))
         (setq when (substring when 4 19))
       (setq when (substring when 11 19)))
 

src/compatibility.el

@@ -269,7 +269,7 @@ string to search in."
 
 
 ;;; ============================================================
-;;; Character stuff
+;;; Basic stuff
 
 (lyskom-provide-function char-to-int (c) c)
 
@@ -282,6 +282,19 @@ string to search in."
 (lyskom-provide-function set-process-coding-system (proc &optional encoding decoding)
   )
 
+(lyskom-provide-function last (x &optional n)
+  "Returns the last link in the list LIST.
+With optional argument N, returns the Nth-to-last link (default 1)."
+  "Returns the last link in the list LIST.
+With optional argument N, returns Nth-to-last link (default 1)."
+  (if n
+      (let ((m 0) (p x))
+	(while (consp p) (setq m (1+ m)) (setq p (cdr p)))
+	(if (<= n 0) p
+	  (if (< n m) (nthcdr (- m n) x) x)))
+    (while (consp (cdr x)) (setq x (cdr x)))
+    x))
+
 ;;; ======================================================================
 ;;; Event stuff
 

src/reading.el

@@ -69,7 +69,7 @@ also means modifying the lyskom-reading-list. The zero text-nos are skipped."
       (set-membership->position (car mship) num)
       (setq num (1+ num) mship (cdr mship)))
   ;; FIXME: If something changed, tell the server.
-  (lyskom-sort-to-do-list)))
+    (lyskom-sort-to-do-list)))
 
 (defun lyskom-add-memberships-to-membership (memberships)
   "Adds a newly fetched MEMBERSHIP-PART to the list in lyskom-membership.

src/vars.el.in

@@ -588,6 +588,10 @@ to call."
   "*List of recipients you do not want group messages to."
   server)
 
+(def-kom-var kom-show-personal-message-date t
+  "*Show date on personal messages is non-nil."
+  server)
+
 (def-kom-var kom-default-message-recipient 'group
   "*Determines default recipient of personal messages.