Commit ad6fd53e authored by David Kågedal's avatar David Kågedal
Browse files

* commands2.el (lyskom-memb-received-1,lyskom-memb-received):

Försök inte hämta för stora mappar.

* view-text.el (lyskom-view-text): Sätt inhibit-read-only.

* startup.el (lyskom): Använd lyskom-insert istället för insert.

* lyskom-rest.el (lyskom-insert): Använd inhibit-read-only istället
för buffer-read-only.
parent 3648ed36
Wed Aug 28 11:00:40 1996 David Kgedal <kg@infovav.se>
* commands2.el (lyskom-memb-received-1,lyskom-memb-received):
Frsk inte hmta fr stora mappar.
Tue Aug 27 17:35:06 1996 David Kgedal <kg@infovav.se>
* view-text.el (lyskom-view-text): Stt inhibit-read-only.
* startup.el (lyskom): Anvnd lyskom-insert istllet fr insert.
* lyskom-rest.el (lyskom-insert): Anvnd inhibit-read-only
istllet fr buffer-read-only.
Tue Aug 27 08:49:11 1996 David Byers <davby@sen2.ida.liu.se>
* commands1.el (kom-quit): Fnga C-g.
......
......@@ -64,6 +64,45 @@
(membership->conf-no x)
x buffer))))
;;;(defun lyskom-memb-received-1 (conf-stat membership buffer)
;;; "Part of kom-membership.
;;;Get maps for the conference CONF-STAT. MEMBERSHIP is the users
;;;membership in that conference. Call lyskom-memb-received with
;;;the resulting MAP, CONF-STAT, MEMBERSHIP and BUFFER.
;;;Args: CONF-STAT MEMBERSHIP BUFFER."
;;; (if (/= (conf-stat->conf-no conf-stat)
;;; (membership->conf-no membership))
;;; (signal 'lyskom-internal-error '("lyskom-memb-received-1")))
;;; (let ((first-wanted (1+ (membership->last-text-read membership)))
;;; (last-existing (+ (conf-stat->first-local-no conf-stat)
;;; (conf-stat->no-of-texts conf-stat)
;;; -1)))
;;; (if (> first-wanted last-existing)
;;; (lyskom-run 'membership 'lyskom-memb-received
;;; nil conf-stat membership buffer)
;;; (initiate-get-map 'membership 'lyskom-memb-received
;;; (membership->conf-no membership)
;;; first-wanted
;;; (+ 1 last-existing
;;; (- first-wanted))
;;; conf-stat membership buffer))))
;;;(defun lyskom-memb-received (map conf-stat membership buffer)
;;; "Args: MAP CONF-STAT MEMBERSHIP BUFFER.
;;;Prints membership in a conferences.
;;;MAP may be nil if there are no new texts."
;;; (save-window-excursion
;;; (set-buffer buffer)
;;; (goto-char (point-max))
;;; (lyskom-format-insert 'memberships-line
;;; (lyskom-return-date-and-time (membership->last-time-read
;;; membership))
;;; (membership->priority membership)
;;; (if map
;;; (length (lyskom-list-unread map membership))
;;; 0)
;;; conf-stat)))
(defun lyskom-memb-received-1 (conf-stat membership buffer)
"Part of kom-membership.
Get maps for the conference CONF-STAT. MEMBERSHIP is the users
......@@ -73,19 +112,23 @@ Args: CONF-STAT MEMBERSHIP BUFFER."
(if (/= (conf-stat->conf-no conf-stat)
(membership->conf-no membership))
(signal 'lyskom-internal-error '("lyskom-memb-received-1")))
(let ((first-wanted (1+ (membership->last-text-read membership)))
(last-existing (+ (conf-stat->first-local-no conf-stat)
(conf-stat->no-of-texts conf-stat)
-1)))
(let* ((first-wanted (1+ (membership->last-text-read membership)))
(last-existing (+ (conf-stat->first-local-no conf-stat)
(conf-stat->no-of-texts conf-stat)
-1)))
(if (> first-wanted last-existing)
(lyskom-run 'membership 'lyskom-memb-received
nil conf-stat membership buffer)
(initiate-get-map 'membership 'lyskom-memb-received
(membership->conf-no membership)
first-wanted
(+ 1 last-existing
(- first-wanted))
conf-stat membership buffer))))
(if (> (- last-existing first-wanted) 50)
(lyskom-run 'membership 'lyskom-memb-received
(- last-existing first-wanted)
conf-stat membership buffer)
(initiate-get-map 'membership 'lyskom-memb-received
(membership->conf-no membership)
first-wanted
(+ 1 last-existing
(- first-wanted))
conf-stat membership buffer)))))
(defun lyskom-memb-received (map conf-stat membership buffer)
"Args: MAP CONF-STAT MEMBERSHIP BUFFER.
......@@ -95,12 +138,18 @@ MAP may be nil if there are no new texts."
(set-buffer buffer)
(goto-char (point-max))
(lyskom-format-insert 'memberships-line
(lyskom-return-date-and-time (membership->last-time-read
(lyskom-return-date-and-time
(membership->last-time-read
membership))
(membership->priority membership)
(if map
(length (lyskom-list-unread map membership))
0)
(cond
((null map) 0)
((numberp map) map)
((listp map)
(length (lyskom-list-unread map membership)))
(t (signal
'lyskom-internal-error
'("Erroneous map in lyskom-memb-received"))))
conf-stat)))
......
No preview for this file type
......@@ -99,7 +99,7 @@ See lyskom-mode for details."
(setcar (cdr (cdr (cdr (cdr (cdr time)))))
(- (car (cdr (cdr (cdr (cdr (cdr time))))))
1900))
(insert
(lyskom-insert
(format (lyskom-get-string 'new-session-in-buffer)
(lyskom-format-time
(apply 'lyskom-create-time time))))
......
......@@ -52,7 +52,8 @@ lyskom-reading-list to read the comments to this.
Note that this function must not be called asynchronously."
(let ((filter (and filter-active
(let ((inhibit-read-only t)
(filter (and filter-active
(lyskom-filter-text-p text-no)))
(start nil)
(end nil)
......
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