From: yamaoka <yamaoka>
Date: Mon, 17 May 2004 23:19:38 +0000 (+0000)
Subject: Synch to No Gnus 200405172312.
X-Git-Tag: t-gnus-6_17_4-quimby-~925
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ddd097bfc1c91c9cc277cfc4b82645cfb918780f;p=elisp%2Fgnus.git-

Synch to No Gnus 200405172312.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02ca1d5..9c557bf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-18  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-art.el (gnus-article-followup-with-original)
+	(gnus-article-reply-with-original): gnus-mark-active-p ->
+	gnus-region-active-p.
+
 2004-05-17  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* spam.el (spam-summary-prepare-exit): fix messages, so they show
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1709871..e698658 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5620,7 +5620,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)))
@@ -5639,7 +5639,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)))