From f7023e9df2a3d483f5cbd4e02afc7a6b6ed605cb Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 16 Sep 2002 14:40:47 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-art.el | 41 ++++++++++++++++++++++------------------- 2 files changed, 28 insertions(+), 19 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index acfa109..9c9c428 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-09-16 ShengHuo ZHU + + * gnus-art.el (gnus-article-reply-with-original, + gnus-article-followup-with-original): Switch to + gnus-summary-buffer before reply/followup. + 2002-09-15 John Paul Wallington * gnus-sum.el (gnus-summary-toggle-header): The article window may diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index b6b0584..6f13913 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -5214,31 +5214,34 @@ the entire article will be yanked." (interactive "P") (let ((article (cdr gnus-article-current)) cont) (if (not (mark t)) - (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)) - (gnus-summary-reply - (list (list article cont)) wide)))) + (with-current-buffer gnus-summary-buffer + (gnus-summary-reply (list (list article)) wide)) + (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))))) (defun gnus-article-followup-with-original () "Compose a followup to the current article. The text in the region will be yanked. If the region isn't active, the entire article will be yanked." (interactive) - (let ((article (cdr gnus-article-current)) - cont) - (if (not (mark t)) - (gnus-summary-followup (list (list article))) - (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-followup - (list (list article cont)))))) + (let ((article (cdr gnus-article-current)) cont) + (if (not (mark t)) + (with-current-buffer gnus-summary-buffer + (gnus-summary-followup (list (list article)))) + (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 + (gnus-summary-followup + (list (list article cont))))))) (defun gnus-article-hide (&optional arg force) "Hide all the gruft in the current article. -- 1.7.10.4