Commit d6a9a7e5 authored by David Byers's avatar David Byers
Browse files

Synkning inför release av 0.46-BETA-8

parent 3fa85185
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
......
......@@ -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)))
......
......@@ -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
......
......@@ -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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment