Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-ems.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children ec9a17fef872
line wrap: on
line diff
--- a/lisp/gnus/gnus-ems.el	Mon Aug 13 08:50:06 2007 +0200
+++ b/lisp/gnus/gnus-ems.el	Mon Aug 13 08:50:29 2007 +0200
@@ -195,6 +195,12 @@
       (insert " " gnus-tmp-subject-or-nil "\n"))
     )))
 
+(defun gnus-region-active-p ()
+  "Say whether the region is active."
+  (and (boundp 'transient-mark-mode)
+       transient-mark-mode
+       (boundp 'mark-active)
+       mark-active))
 
 (provide 'gnus-ems)