* gnus-art.el (gnus-article-reply-with-original): Fix

	with-current-buffer scope.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99418b5..57b3780 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-09-18  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-art.el (gnus-article-reply-with-original): Fix
+       with-current-buffer scope.
+
        * message.el (message-completion-alist): Add Reply-To, From, etc.
 
 2002-09-18  Simon Josefsson  <jas@extundo.com>
@@ -9709,7 +9712,8 @@
 
        * mml2015.el (mml2015-fix-micalg): Alg might be nil.
 
-2000-12-01  Christopher Splinter  <chris@splinter.inka.de>
+2000-12-01  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       Trivial patch from Christopher Splinter  <chris@splinter.inka.de>
 
        * gnus-sum.el (gnus-summary-limit-to-age): Fix typo.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d8c4d69..6f236f3 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4832,12 +4832,12 @@ the entire article will be yanked."
     (if (not (mark t))
        (with-current-buffer gnus-summary-buffer
          (gnus-summary-reply (list (list article)) wide))
+      (setq cont (buffer-substring (point) (mark t)))
+      ;; Deactivate active regions.
+      (when (and (boundp 'transient-mark-mode)
+                transient-mark-mode)
+       (setq mark-active nil))
       (with-current-buffer gnus-summary-buffer
-       (setq cont (buffer-substring (point) (mark t)))
-       ;; Deactivate active regions.
-       (when (and (boundp 'transient-mark-mode)
-                  transient-mark-mode)
-         (setq mark-active nil))
        (gnus-summary-reply
         (list (list article cont)) wide)))))