Commit 00305f13 authored by David Byers's avatar David Byers
Browse files

Checkin of the lost updates

parent dddd89ed
1999-04-01 David Byers <davby@ida.liu.se>
* vars.el.in (kom-postpone-default): Ny variabel.
* commands2.el (kom-postpone): Defaultvrdet inte hrdkodat
lngre.
1999-06-11 David Byers <davby@ida.liu.se>
* edit-text.el (lyskom-edit-insert-miscs): Fix parameter list for
......
......@@ -266,56 +266,56 @@ otherwise: the conference is read with lyskom-completing-read."
(conf-stat->conf-no conf-stat)
0 lyskom-max-int)))
(lyskom-format-insert 'conf-has-these-members
conf-stat)
(if (lyskom-j-or-n-p (lyskom-get-string 'show-membership-info-q))
(progn
(lyskom-insert-string 'member-list-header)
(lyskom-traverse
member (member-list->members member-list)
(let ((membership (blocking-do
'query-read-texts
(member->pers-no member)
(conf-stat->conf-no conf-stat))))
;; Print a row describing the membership of MEMBER
;; (described by MEMBERSHIP) in CONF-STAT.
(if (or (null membership))
(lyskom-insert-string 'secret-membership)
(lyskom-insert
(format "%17s"
(lyskom-return-date-and-time
(membership->last-time-read membership))))
(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-format-insert 'conf-membership-line
(if (zerop unread)
" "
(format "%7d " unread))
(member->pers-no member)
(lyskom-return-membership-type (member->membership-type member))
)
(when (and (member->created-by member)
(not (zerop (member->created-by member)))
(not (eq (member->pers-no member)
(member->created-by member))))
(lyskom-format-insert 'conf-membership-line-2
(lyskom-return-date-and-time
(member->created-at member))
(member->created-by member)))
)))))
(if (null member-list)
(lyskom-format-insert 'conf-has-no-members conf-stat)
(lyskom-format-insert 'conf-has-these-members conf-stat)
(if (lyskom-j-or-n-p (lyskom-get-string 'show-membership-info-q))
(progn
(lyskom-insert-string 'member-list-header)
(lyskom-traverse
member (member-list->members member-list)
(let ((membership (blocking-do
'query-read-texts
(member->pers-no member)
(conf-stat->conf-no conf-stat))))
;; Print a row describing the membership of MEMBER
;; (described by MEMBERSHIP) in CONF-STAT.
(if (or (null membership))
(lyskom-insert-string 'secret-membership)
(lyskom-insert
(format "%17s"
(lyskom-return-date-and-time
(membership->last-time-read membership))))
(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-format-insert 'conf-membership-line
(if (zerop unread)
" "
(format "%7d " unread))
(member->pers-no member)
(lyskom-return-membership-type (member->membership-type member))
)
(when (and (member->created-by member)
(not (zerop (member->created-by member)))
(not (eq (member->pers-no member)
(member->created-by member))))
(lyskom-format-insert 'conf-membership-line-2
(lyskom-return-date-and-time
(member->created-at member))
(member->created-by member)))
)))))
;; Don't show membership info
(lyskom-insert "\n")
(lyskom-traverse
member (member-list->members member-list)
(lyskom-format-insert " %#1P\n"
(member->pers-no member))))))))))
;; Don't show membership info
(lyskom-insert "\n")
(lyskom-traverse
member (member-list->members member-list)
(lyskom-format-insert " %#1P\n"
(member->pers-no member)))))))))))
;;; ================================================================
......@@ -1480,7 +1480,7 @@ current conference to another session."
((null current-prefix-arg)
(lyskom-read-number
(lyskom-get-string 'postpone-prompt)
17))
kom-postpone-default))
(t (prefix-numeric-value current-prefix-arg)))))
(let ((len (read-list-length lyskom-reading-list))
......
......@@ -1700,7 +1700,7 @@ Contents: \"%#9s\"
;;;)
(defvar lyskom-en-prioritize-mode-map nil)
(lyskom-language-keymap lyskom-filter-edit-map en lyskom-en-filter-edit-map)
(lyskom-language-keymap lyskom-prioritize-mode-map en lyskom-en-prioritize-mode-map)
(if lyskom-en-prioritize-mode-map
nil
......
......@@ -707,6 +707,7 @@ than 0. Args: ITEMS-TO-PARSE PRE-FETCHED. Returns -1 if ITEMS-TO-PARSE is
(lyskom-parse-vector (lyskom-parse-num)
'lyskom-parse-num)))
(defun lyskom-parse-conf-list ()
"Parse result from functions that return a conf-list."
(let* ((list-len (lyskom-parse-num)))
......
......@@ -483,6 +483,7 @@ i svensk datorhistoria. L
(show-members-list-also-q . "Vill du se medlemslistan ocks? ")
(show-membership-info-q . "Visa antalet olsta? ")
(conf-has-these-members . "\n%#1M har fljande medlemmar:\n")
(conf-has-no-members . "\n%#1M har inga medlemmar.\n")
(member-list-header . "Senast inne Osett Namn\n\n")
(secret-membership . "*** Hemlig rad ***\n")
(conf-membership-line . "%#1s%#2M %#3s\n")
......
......@@ -204,6 +204,11 @@ enabled mode."
server
inherited)
(def-kom-var kom-postpone-default 17
"*The number of articles to postpone by default."
server)
(def-kom-var kom-dashed-lines t
"*If Non-nil then all texts will be surrounded by lines of dashes."
server
......
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