Trivial patch from Micha Wiedenmann <mw-u1@gmx.de>

	* gnus-soup.el (gnus-soup-add-article): Mark as read only when the
	article exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2c85d9..5f961e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-21  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       Trivial patch from Micha Wiedenmann <mw-u1@gmx.de>
+
+       * gnus-soup.el (gnus-soup-add-article): Mark as read only when the
+       article exists.
+
 2002-09-20  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-sum.el (gnus-summary-next-group): Switch to the summary buffer.

diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index 5fcda57..b444032 100644 (file)
--- a/lisp/gnus-soup.el
+++ b/lisp/gnus-soup.el
@@ -154,11 +154,11 @@ move those articles instead."
                           gnus-soup-encoding-type
                           gnus-soup-index-type)
          (gnus-soup-area-set-number
-          area (1+ (or (gnus-soup-area-number area) 0))))
-       ;; Mark article as read.
-       (set-buffer gnus-summary-buffer)
+          area (1+ (or (gnus-soup-area-number area) 0)))
+         ;; Mark article as read.
+         (set-buffer gnus-summary-buffer)
+         (gnus-summary-mark-as-read (car articles) gnus-souped-mark))
        (gnus-summary-remove-process-mark (car articles))
-       (gnus-summary-mark-as-read (car articles) gnus-souped-mark)
        (setq articles (cdr articles)))
       (kill-buffer tmp-buf))
     (gnus-soup-save-areas)