Commit 2dda8677 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

New format for unread for member.

parent 1e1b47f3
No preview for this file type
......@@ -276,15 +276,17 @@ is the one we are interested in."
(null membership))
(lyskom-insert-string 'secret-membership)
(lyskom-print-date-and-time (membership->last-time-read membership))
(lyskom-insert (concat (format "%7d "
(- (+ (conf-stat->first-local-no conf-stat)
(conf-stat->no-of-texts conf-stat))
(membership->last-text-read membership)
(length (membership->read-texts
membership))
1))
(conf-stat->name member-conf-stat)
"\n"))))
(let ((unread (- (+ (conf-stat->first-local-no conf-stat)
(conf-stat->no-of-texts conf-stat))
(membership->last-text-read membership)
(length (membership->read-texts
membership))
1)))
(lyskom-insert (concat (if (zerop unread)
" "
(format "%7d " unread))
(conf-stat->name member-conf-stat)
"\n")))))
;;; ================================================================
......
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