moa...@zoho.com:
> If you for some reason don't want to use the
> prefix argument method, I have some Elisp to do
> just what you want:

> (defun gnus-summary-mark (char start stop)
>   (interactive
>    (let ((c (read-char "mark: ")))
>      (if (use-region-p)
>          (list c (region-beginning) (region-end))
>        (let*((strt (point))
>              (stp  (1+ strt)) )
>          (list c strt stp) ))))
>   (goto-char start)
>   (beginning-of-line)
>   (while (< (point) stop)
>     (gnus-summary-mark-article (gnus-summary-article-number) char)
>     (gnus-summary-find-next) ))

Oh! Cool stuff! Thanks for sharing!

                                Cheers,
                                  /Liman
#-------------------------------------------------------------------------
# Lars-Johan Liman, M.Sc.                ! HTTP  : //www.cafax.se/
# Cafax AB                               !
# Computer Consultants, Sweden           !
#-------------------------------------------------------------------------

_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
https://lists.gnu.org/mailman/listinfo/info-gnus-english

Reply via email to