From: David Kastrup Date: Sun, 30 Sep 2007 21:03:12 +0000 (+0000) Subject: (gnus-article-reply-with-original) X-Git-Tag: emacs-pretest-23.0.90~10566 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d0df8af2e4aecf51282b3b05538640a2d3feb86;p=emacs.git (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 0cf879fd264..03156b7158e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2007-09-30 David Kastrup + + * 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 * 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)))