From: yamaoka <yamaoka>
Date: Sun, 22 Sep 2002 01:50:56 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-04-quimby~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=97edc99ebb7a1e83be5ae8ffaea15719b203fa53;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2c85d9..5f961e3 100644
--- 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 baa6c2b..59b641d 100644
--- 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)