(gnus-article-reply-with-original)

(gnus-article-followup-with-original): When `transient-mark-mode' is
off, refrain from active-region behavior for followups.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0cf879fd264..03156b7158e 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2007-09-30  David Kastrup  <dak@gnu.org>
+
+        * gnus-art.el (gnus-article-reply-with-original)
+        (gnus-article-followup-with-original): When `transient-mark-mode' is
+        off, refrain from active-region behavior for followups.
+
 2007-08-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * mml.el (mml-generate-mime): Make sure it uses multibyte temp buffer.
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 696222e0043..a02a7d153bb 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5749,7 +5749,7 @@ the entire article will be yanked."
   (interactive "P")
   (let ((article (cdr gnus-article-current))
         contents)
-    (if (not (gnus-mark-active-p))
+    (if (not (gnus-region-active-p))
         (with-current-buffer gnus-summary-buffer
           (gnus-summary-reply (list (list article)) wide))
       (setq contents (buffer-substring (point) (mark t)))
@@ -5768,7 +5768,7 @@ the entire article will be yanked."
   (interactive)
   (let ((article (cdr gnus-article-current))
         contents)
-      (if (not (gnus-mark-active-p))
+      (if (not (gnus-region-active-p))
           (with-current-buffer gnus-summary-buffer
             (gnus-summary-followup (list (list article))))
         (setq contents (buffer-substring (point) (mark t)))