From 6c7dcf340c37c34a3814734318adcd5fd587a84a Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 17 Jan 2003 19:40:23 +0000 Subject: [PATCH] (gnus-article-followup-with-original): Clean up. (gnus-article-reply-with-original): Ditto. --- lisp/ChangeLog | 3 +++ lisp/gnus-art.el | 14 ++++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e883a7d12..2042c9edd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2003-01-17 Lars Magne Ingebrigtsen + * gnus-art.el (gnus-article-followup-with-original): Clean up. + (gnus-article-reply-with-original): Ditto. + * gnus-sum.el (gnus-summary-catchup): Make sure downloadable, read articles don't become unread. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index aed56a924..3e67c59f1 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -4997,36 +4997,38 @@ Argument LINES specifies lines to be scrolled down." 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) + (let ((article (cdr gnus-article-current)) + contents) (if (not (gnus-mark-active-p)) (with-current-buffer gnus-summary-buffer (gnus-summary-reply (list (list article)) wide)) - (setq cont (buffer-substring (point) (mark t))) + (setq contents (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-reply - (list (list article cont)) wide))))) + (list (list article contents)) 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) + (let ((article (cdr gnus-article-current)) + contents) (if (not (gnus-mark-active-p)) (with-current-buffer gnus-summary-buffer (gnus-summary-followup (list (list article)))) - (setq cont (buffer-substring (point) (mark t))) + (setq contents (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))))))) + (list (list article contents))))))) (defun gnus-article-hide (&optional arg force) "Hide all the gruft in the current article. -- 2.25.1