From: yamaoka <yamaoka>
Date: Wed, 8 Jan 2003 09:00:08 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_12-00-quimby~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=44ec62d3a8fc2026f8182d0dc7ea6dda1a8fe0a7;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8fd63be..9a1791e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-08  Simon Josefsson  <jas@extundo.com>
+
+	* nnmail.el (nnmail-expiry-target-group): Request group, create it
+	not successful.
+
 2003-01-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lpath.el (bbdb-records): Fbind it for both Emacs and XEmacs.
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 1c51c62..bd95e69 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1749,9 +1749,11 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
     (when (nnheader-functionp target)
       (setq target (funcall target group)))
     (unless (eq target 'delete)
-      (let ((group-art (gnus-request-accept-article target nil nil t)))
-	(when (consp group-art)
-	  (gnus-group-mark-article-read target (cdr group-art)))))))
+      (when (or (gnus-request-group target)
+		(gnus-request-create-group target))
+	(let ((group-art (gnus-request-accept-article target nil nil t)))
+	  (when (consp group-art)
+	    (gnus-group-mark-article-read target (cdr group-art))))))))
 
 (defun nnmail-fancy-expiry-target (group)
   "Returns a target expiry group determined by `nnmail-fancy-expiry-targets'."