* gnus-art.el (gnus-article-followup-with-original): Mark with

force, prevent errors when following up from article buffer.
(gnus-article-reply-with-original): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2f73714..2c2323d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-02-04  Simon Josefsson  <jas@extundo.com>
 
+       * gnus-art.el (gnus-article-followup-with-original): Mark with
+       force, prevent errors when following up from article buffer.
+       (gnus-article-reply-with-original): Ditto.
+
        * binhex.el (binhex-decoder-switches): Fix doc.  From
        Pavel@Janik.cz (Pavel Jan\e,Bm\e(Bk).
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 4155ad4..9b9b2a2 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4734,9 +4734,9 @@ The text in the region will be yanked.  If the region isn't active,
 the entire article will be yanked."
   (interactive "P")
   (let ((article (cdr gnus-article-current)) cont)
-    (if (not (mark))
+    (if (not (mark t))
        (gnus-summary-reply (list (list article)) wide)
-      (setq cont (buffer-substring (point) (mark)))
+      (setq cont (buffer-substring (point) (mark t)))
       ;; Deactivate active regions.
       (when (and (boundp 'transient-mark-mode)
                 transient-mark-mode)
@@ -4751,9 +4751,9 @@ the entire article will be yanked."
   (interactive)
   (let ((article (cdr gnus-article-current))
        cont)
-    (if (not (mark))
+    (if (not (mark t))
        (gnus-summary-followup (list (list article)))
-      (setq cont (buffer-substring (point) (mark)))
+      (setq cont (buffer-substring (point) (mark t)))
       ;; Deactivate active regions.
       (when (and (boundp 'transient-mark-mode)
                 transient-mark-mode)