(gnus-article-followup-with-original): Clean up.
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Fri, 17 Jan 2003 19:40:23 +0000 (19:40 +0000)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Fri, 17 Jan 2003 19:40:23 +0000 (19:40 +0000)
(gnus-article-reply-with-original): Ditto.

lisp/ChangeLog
lisp/gnus-art.el

index e883a7d..2042c9e 100644 (file)
@@ -1,5 +1,8 @@
 2003-01-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * 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.
 
index aed56a9..3e67c59 100644 (file)
@@ -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.