Skip to content
GitLab
Commit 12dad0d4 authored by David Byers's avatar David Byers
Browse files

Fixed definition of def-kom-emacs-command. Fixed warnings in new kom-list-news.

parent abb27d10
Hide whitespace changes
Inline Side-by-side
src/ChangeLog
View file @ 12dad0d4
2000-05-29 David Byers <davby@ida.liu.se>
* commands2.el (lyskom-iter-list-news): Added at-least and at-most
arguments. Renamed all variables referenced in the calleing
environment to lyskom-iter-list-news-*.
(kom-list-news): Same here.
* command.el (def-kom-emacs-command): Moved paren that caused
commands never to be run as Emacs commands.
(def-kom-emacs-command): Removed pointless concat.
2000-05-29 Johan Sundström <jhs@lysator.liu.se>
* view-text.el (lyskom-view-text): Marks now show themselves,
......
src/command.el
View file @ 12dad0d4
......@@ -138,7 +138,7 @@
(setq forms (cons interactive-decl forms))
(setq interactive-decl '(interactive))))
(let ((rsym (intern (concat (format "%S-running-as-kom-command" cmd))))
(let ((rsym (intern (format "%S-running-as-kom-command" cmd)))
(bufsym (intern (format "%S-start-buffer" cmd))))
`(defun ,cmd ,args
,doc
......@@ -146,7 +146,7 @@
(let ((,rsym nil))
(condition-case nil
(progn (lyskom-start-of-command ',cmd)
(setq ,rsym) t)
(setq ,rsym t))
(error nil))
(let ((,bufsym (current-buffer)))
(unwind-protect
......
src/commands2.el
View file @ 12dad0d4
......@@ -722,7 +722,14 @@ send. If DONTSHOW is non-nil, don't display the sent message."
"Regexp to match conf names that are special.")
(defun lyskom-iter-list-news (unreads conf-stat)
(defvar lyskom-iter-list-news-total-confs)
(defvar lyskom-iter-list-news-mship-confs)
(defvar lyskom-iter-list-news-shown-unreads)
(defvar lyskom-iter-list-news-shown-confs)
(defvar lyskom-iter-list-news-total-unreads)
(defvar lyskom-iter-list-news-total-confs)
(defun lyskom-iter-list-news (unreads conf-stat at-least at-most)
"Callback function used to show the number of unread messages of a
conference. It heavily relies on (and destructively modifies) its
environment."
......@@ -730,8 +737,10 @@ environment."
(>= unreads at-least)) ; unreads within lower bound
(or (not at-most)
(<= unreads at-most))) ; unreads within upper bound
(when mship-confs ; remember all read conferences?
(setq mship-confs (delq (conf-stat->conf-no conf-stat) mship-confs)))
(when lyskom-iter-list-news-mship-confs ; remember all read conferences?
(setq lyskom-iter-list-news-mship-confs
(delq (conf-stat->conf-no conf-stat)
lyskom-iter-list-news-mship-confs)))
(cond
((and (boundp 'lyskom-special-conf-name)
(stringp lyskom-special-conf-name)
......@@ -739,10 +748,14 @@ environment."
(conf-stat->name conf-stat)))
(lyskom-format-insert 'you-have-unreads-special unreads conf-stat))
(t (lyskom-format-insert 'you-have-unreads unreads conf-stat)))
(setq shown-unreads (+ shown-unreads unreads)
shown-confs (1+ shown-confs)))
(setq total-unreads (+ total-unreads unreads)
total-confs (1+ total-confs)))
(setq lyskom-iter-list-news-shown-unreads
(+ lyskom-iter-list-news-shown-unreads unreads)
lyskom-iter-list-news-shown-confs
(1+ lyskom-iter-list-news-shown-confs)))
(setq lyskom-iter-list-news-total-unreads
(+ lyskom-iter-list-news-total-unreads unreads)
lyskom-iter-list-news-total-confs
(1+ lyskom-iter-list-news-total-confs)))
(def-kom-command kom-list-news (&optional num)
......@@ -756,23 +769,24 @@ prefix argument sets an upper bound on the number of unread messages."
((and (listp num)
(numberp (car num))) (car num))
(t nil)))
(mship-confs nil)
(lyskom-iter-list-news-mship-confs nil)
(at-least 1)
(at-most nil)
(shown-unreads 0)
(total-unreads 0)
(shown-confs 0)
(total-confs 0))
(lyskom-iter-list-news-shown-unreads 0)
(lyskom-iter-list-news-total-unreads 0)
(lyskom-iter-list-news-shown-confs 0)
(lyskom-iter-list-news-total-confs 0))
(when num-arg
(cond
((= num-arg 0)
(setq at-least nil
mship-confs (delq nil
(mapcar (lambda (el)
(when (not (membership-type->passive
(membership->type el)))
(membership->conf-no el)))
lyskom-membership))))
lyskom-iter-list-news-mship-confs
(delq nil
(mapcar (lambda (el)
(when (not (membership-type->passive
(membership->type el)))
(membership->conf-no el)))
lyskom-membership))))
((> num-arg 0)
(lyskom-format-insert 'list-unread-with-n-unread
(setq at-least num-arg)))
......@@ -780,22 +794,33 @@ prefix argument sets an upper bound on the number of unread messages."
(lyskom-format-insert 'list-unread-with-at-most-n-unread
(setq at-most (- num-arg))))))
(lyskom-list-news 'lyskom-iter-list-news)
;; The following variables are bound in the callback
;; lyskom-iter-list-news-total-unreads
;; lyskom-iter-list-news-shown-unreads
;; lyskom-iter-list-news-total-confs
;; lyskom-iter-list-news-shown-confs
;; lyskom-iter-list-news-mship-confs
(when mship-confs ; then list all read conferences too
(lyskom-traverse conf-no mship-confs
(lyskom-list-news 'lyskom-iter-list-news (list at-least at-most))
(when lyskom-iter-list-news-mship-confs ; then list all read conferences too
(lyskom-traverse conf-no lyskom-iter-list-news-mship-confs
(lyskom-format-insert 'you-have-no-unreads conf-no)))
(if (= 0 total-unreads)
(if (= 0 lyskom-iter-list-news-total-unreads)
(lyskom-insert-string 'you-have-read-everything)
(if (= 0 shown-unreads)
(if (= 0 lyskom-iter-list-news-shown-unreads)
(lyskom-insert-string 'no-unreads-shown)
(lyskom-insert "\n")) ; separate the shown list from the summary message
(when (and
(> shown-unreads 0)
(< shown-unreads total-unreads))
(lyskom-format-insert 'shown-unreads shown-unreads shown-confs))
(lyskom-format-insert 'total-unreads total-unreads total-confs))))
(> lyskom-iter-list-news-shown-unreads 0)
(< lyskom-iter-list-news-shown-unreads
lyskom-iter-list-news-total-unreads))
(lyskom-format-insert 'shown-unreads
lyskom-iter-list-news-shown-unreads
lyskom-iter-list-news-shown-confs))
(lyskom-format-insert 'total-unreads
lyskom-iter-list-news-total-unreads
lyskom-iter-list-news-total-confs))))
(defun lyskom-list-news (&optional callback &optional callback-args)
......
Supports Markdown
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