(gnus-article-reply-with-original)

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0cf879fd264580a9dde76015104f874f89f6d8d1..03156b7158e6c394ac036f1f47e6156933229ccf 100644 (file)
--- 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 696222e0043bf9461127c6fa0ac4fa3a7362d240..a02a7d153bb478e4f75885a79300c0eb10eb0659 100644 (file)
--- 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)))