From 44ec62d3a8fc2026f8182d0dc7ea6dda1a8fe0a7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 8 Jan 2003 09:00:08 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/nnmail.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) 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 + + * nnmail.el (nnmail-expiry-target-group): Request group, create it + not successful. + 2003-01-08 Katsumi Yamaoka * 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'." -- 1.7.10.4