Wrapper for setting process marks

Wrapper for setting process marks

[Christoph Conrad]

Hi!

for me it's very inconvenient to have two bindings for setting process
marks, i.e.

#   `gnus-summary-mark-as-processable'
M-# `gnus-summary-unmark-as-processable'

M P g `gnus-uu-unmark-region'
M P r `gnus-uu-mark-region'

so i wrapped them with a defadvice for the simpler of the two
keybindings. Maybe this could be build into Gnus, or does anyone see
problems?

;; maybe `gnus-region-active-p' (gnus-ems.el) is sufficient here??
(defun region-active-p()
  (or (and (boundp 'zmacs-region-active-p)
           zmacs-region-active-p)
      (and (boundp 'transient-mark-mode)
           transient-mark-mode mark-active)))

(defadvice gnus-summary-mark-as-processable
  ( around gnus-summary-mark-as-processable-ad activate compile )
  (if (region-active-p)
      (gnus-uu-mark-region (region-beginning) (region-end))
    ad-do-it ))

(defadvice gnus-summary-unmark-as-processable
  ( around gnus-summary-unmark-as-processable-ad activate compile )
  (if (region-active-p)
      (gnus-uu-unmark-region (region-beginning) (region-end))
    ad-do-it ))


Best regards,
cu, -cc-
-- 
=> GNU Emacs Webring @ <http://www.gnusoftware.com/WebRing/> <=
Look Ma, this man can twist his fingers as if they were made of rubber,
isn't that amazing? -- Not really, he's been using emacs for years...!

Re: Wrapper for setting process marks

[Christoph Conrad]

    Christoph> (defun region-active-p()

The symbolname seems to be already used in XEmacs... Also GNU Emacs
makes errors (`c-region-is-active-p') when defining this symbolname.

i. A.
Christoph Conrad
-- 
TTi Entwicklungszentrum GmbH,  Matthiashofstr. 28-30,  D-52064 Aachen
Fon: +49 241 47051-0  Fax: +49 241 47051-89 Web: http://www.cli.de
Look Ma, this man can twist his fingers as if they were made of rubber,
isn't that amazing? -- Not really, he's been using emacs for years...!

Re: Wrapper for setting process marks

[ShengHuo ZHU]

Christoph Conrad <christoph.conrad@gmx.de> writes:

> Hi!
> 
> for me it's very inconvenient to have two bindings for setting process
> marks, i.e.
> 
> #   `gnus-summary-mark-as-processable'
> M-# `gnus-summary-unmark-as-processable'
> 
> M P g `gnus-uu-unmark-region'
> M P r `gnus-uu-mark-region'
> 
> so i wrapped them with a defadvice for the simpler of the two
> keybindings. Maybe this could be build into Gnus, or does anyone see
> problems?

I've built it into oGnus v0.01.

ShengHuo

-- 
(setq gnus-posting-styles '((".*" (signature-file "~/.signature"))))