[email protected]:
> 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
[email protected]
https://lists.gnu.org/mailman/listinfo/info-gnus-english
