Commit 9165315a authored by David Byers's avatar David Byers
Browse files

Two more unread commands.

Detailed changes:
> 2003-03-16  David Byers  <david.byers@swipnet.se>
>
> 	Work on bug 984:
> 	* review.el (kom-unread-all): New command.
> 	(kom-unread-first): New command
>
parent e293eea7
2003-03-16 David Byers <david.byers@swipnet.se>
Work on bug 984:
* review.el (kom-unread-all): New command.
(kom-unread-first): New command
2003-03-15 David Byers <david.byers@swipnet.se>
Work on bug 984:
......
......@@ -2086,6 +2086,8 @@ environment to one that uses \"%#2s\" to encode text.
(kom-unread-root-review . "Unread tree")
(kom-unread-last-normally-read
. "Unread again")
(kom-unread-first . "Unread first")
(kom-unread-all . "Unread all")
))
(lyskom-language-var global lyskom-language-codes en
......@@ -2436,6 +2438,8 @@ environment to one that uses \"%#2s\" to encode text.
(define-key lyskom-en-unread-prefix (kbd "l") 'kom-unread-by-to)
(define-key lyskom-en-unread-prefix (kbd "M") 'kom-unread-more)
(define-key lyskom-en-unread-prefix (kbd "r") 'kom-unread-root-review)
(define-key lyskom-en-unread-prefix (kbd "f") 'kom-unread-first)
(define-key lyskom-en-unread-prefix (kbd "A") 'kom-unread-all)
(define-key lyskom-en-review-prefix (kbd "SPC") 'kom-view)
(define-key lyskom-en-review-prefix (kbd "0") 'kom-initial-digit-view)
......
......@@ -122,6 +122,13 @@ all review-related functions."
(lyskom-tell-internat 'kom-tell-review)
(lyskom-review-by-to 0))
(def-kom-command kom-unread-all ()
"Mark all articles written by a particular author to a particular
conference as unread. This can also be accomplished by using
`kom-unread-by-to' and specifying zero texts."
(interactive)
(lyskom-unread-by-to 0))
(def-kom-command kom-review-more (count)
"Review more articles using the same critera as the last review
......@@ -247,6 +254,18 @@ all review-related functions."
(lyskom-read-number
(lyskom-get-string 'review-how-many) 1)))))
(def-kom-command kom-unread-first (&optional count)
"Mark the first N articles written by a particular author to some
conference as unread. With no author specified, review texts by all
authors. With zero texts specified, review all text. With no conference
specified, review texts to all conferences. With a negative number of
texts, review the last N texts instead of the first (you can use
`kom-unread-by-to' instead."
(interactive "P")
(lyskom-unread-by-to (- (or count
(lyskom-read-number
(lyskom-get-string 'unread-how-many) 1)))))
(def-kom-command kom-review-by-to (&optional count)
"Review the last N articles written by a particular author to some
......
......@@ -2120,6 +2120,8 @@ teckenkodning.
(kom-unread-root-review . "Olsmarkera trd")
(kom-unread-last-normally-read
. "Olsmarkera igen")
(kom-unread-all . "Olsmarkera alla")
(kom-unread-first . "Olsmarkera frsta")
))
(lyskom-language-var local lyskom-language-codes sv
......@@ -2534,6 +2536,8 @@ teckenkodning.
(define-key lyskom-sv-unread-prefix (kbd "s") 'kom-unread-by-to)
(define-key lyskom-sv-unread-prefix (kbd "y") 'kom-unread-more)
(define-key lyskom-sv-unread-prefix (kbd "t") 'kom-unread-root-review)
(define-key lyskom-sv-unread-prefix (kbd "A") 'kom-unread-all)
(define-key lyskom-sv-unread-prefix (kbd "f") 'kom-unread-first)
(define-key lyskom-sv-review-prefix (kbd "SPC") 'kom-view)
(define-key lyskom-sv-review-prefix (kbd "0") 'kom-initial-digit-view)
......
......@@ -2942,6 +2942,8 @@ Users are encouraged to use their best sense of humor."
kom-unread-previous-commented-text
kom-unread-commented-text
kom-unread-more
kom-unread-all
kom-unread-first
))
;;; ================================================================
......
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