Re: DWIM region

[Emanuel Berg]

I'm starting to think this method in general
has a positive impact not only on the hybrid
interface but also on the function body...

Here is another function, one I suspect is
somewhere in vanilla Gnus as well, but what the
heck.

Anyway don't be confused by the word "mark"
here where we previously have been talking
about `mark' and regions - here, "mark" is in
the `gnus-summary-mark-article' sense...

BTW In Australian Survivor S4 there was an
ex-elite soldier named Mark. He is also
completely unrelated :)

(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) ))

-- 
underground experts united
http://user.it.uu.se/~embe8573