Commit 2f3b9b69 authored by David Byers's avatar David Byers
Browse files

Fixed bug 742.

Detailed changes:
> 	Fix bug 742:
> 	* commands2.el (kom-will-person-read-text): New command.
>
parent 808aedf7
2003-04-05 David Byers <david.byers@swipnet.se>
Fix bug 742:
* commands2.el (kom-will-person-read-text): New command.
Fix bug 950:
* names.el (lyskom-nameday): Allow a list of nameday lists.
(lyskom-nameday-2): Added parameter show-list-name.
......
......@@ -2672,6 +2672,36 @@ See `kom-keep-alive' for more information."
nil nil "%#1s" conf-stat))))
(lyskom-format-insert 'pers-is-not-member-of-conf pers-no (conf-stat->conf-no conf-stat)))))
(def-kom-command kom-will-person-read-text (pers-no text-no)
"Check if a particular person is a member of any recipient of a text..
If a prefix argument is given, that text will be checked.
This command accepts text number prefix arguments \(see
`lyskom-read-text-no-prefix-arg')."
(interactive (list (lyskom-read-conf-no (lyskom-get-string 'pers-to-check-will-read-for)
'(all) nil nil t)
(lyskom-read-text-no-prefix-arg 'text-to-check-will-read-for
t)))
(let* ((text-stat (blocking-do 'get-text-stat text-no))
(recipients (and text-stat (lyskom-text-recipients text-stat)))
(result nil))
(lyskom-traverse rcpt recipients
(let ((mship (lyskom-is-member rcpt pers-no)))
(when mship
(if (membership-type->passive (membership->type mship))
(setq result 'passive)
(setq result t)
(lyskom-traverse-break)))))
(cond ((null result)
(lyskom-format-insert 'pers-is-not-member-of-rcpt
pers-no text-stat))
((eq result 'passive)
(lyskom-format-insert 'pers-is-passive-member-of-rcpt
pers-no text-stat))
(t (lyskom-format-insert 'pers-is-member-of-rcpt
pers-no text-stat)))))
;;; ================================================================
;;; Help
......
......@@ -602,6 +602,11 @@ Read all about it at http://www.lysator.liu.se/history/")
(pers-is-not-member-of-conf . "No, %#1P is not a member of the conference %#2M.\n")
(pers-is-member-of-conf-2 . "Number of unread: %#2D (last access %#1s)\n")
(Unknown-number . "Unknown number")
(text-to-check-will-read-for . "...for membership in recipients of text: ")
(pers-to-check-will-read-for . "Person to check: ")
(pers-is-member-of-rcpt . "Yes, %#1P is a member of at least one recipient to text %#2n.\n")
(pers-is-passive-member-of-rcpt . "Well, %#1P is only a passive member of at least one recipient of %#2n.\n")
(pers-is-not-member-of-rcpt . "No, %#1P is not a member of any recipient of %#2n.\n")
; From commands2.el:
......@@ -2087,6 +2092,8 @@ environment to one that uses \"%#2s\" to encode text.
(kom-stop-keep-alive . "Stop keeping connection alive")
(kom-is-person-member-of-conference . "Check (if person is a) member (of conference)")
(kom-will-person-read-text . "Check (if person will) read (text)")
(kom-change-conf-faq . "Change FAQ")
(kom-make-review-mark-as-read . "Review marks as read")
......
......@@ -825,6 +825,11 @@ M
(pers-is-not-member-of-conf . "Nej, %#1P r inte medlem i mtet %#2M.\n")
(pers-is-member-of-conf-2 . "Antal olsta: %#2D (senast inne %#1s)\n")
(Unknown-number . "Oknt antal")
(text-to-check-will-read-for . "...fr medlemskap i mottagare till inlgg: ")
(pers-to-check-will-read-for . "Vilken person vill du kontrollera: ")
(pers-is-member-of-rcpt . "Ja, %#1P r medlem i minst en mottagare till inlgg %#2n.\n")
(pers-is-passive-member-of-rcpt . "Nja, %#1P r bara passiv medlem ngon mottagare till %#2n.\n")
(pers-is-not-member-of-rcpt . "Nej, %#1P r inte medlem i ngon mottagare till %#2n.\n")
;; +++ cant seem to find where these are used:
(name-is-not-in-conf . "%#1s r inte nrvarande i ngot mte.\n")
......@@ -2119,6 +2124,8 @@ teckenkodning.
(kom-stop-keep-alive . "Avbryt hll frbindelsen aktiv")
(kom-is-person-member-of-conference . "Kontrollera (om person r) medlem (i mte)")
(kom-will-person-read-text . "Kontrollera (om person kommer att) lsa (inlgg)")
(kom-change-conf-faq . "ndra FAQ")
(kom-make-review-mark-as-read . "terse lsmarkerar")
......
......@@ -2965,6 +2965,7 @@ Users are encouraged to use their best sense of humor."
kom-unread-presentation
kom-join-all-conferences
kom-leave-all-conferences
kom-will-person-read-text
))
;;; ================================================================
......
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