(let ((end (point))
(beg (progn (forward-line -1) (point))))
(remove-text-properties beg end '(gnus-group nil gnus-unread nil))
(let ((end (point))
(beg (progn (forward-line -1) (point))))
(remove-text-properties beg end '(gnus-group nil gnus-unread nil))