From 1429089cf9476d1c27b04932c4ac0cc12698517d Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 15 Nov 2000 17:24:04 +0000 Subject: [PATCH] 2000-11-15 13:21 ShengHuo ZHU * gnus-msg.el (gnus-inews-do-gcc): Expire the article. --- lisp/ChangeLog | 4 ++++ lisp/gnus-msg.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fa52dbdca..f5dd1f508 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-15 13:21 ShengHuo ZHU + + * gnus-msg.el (gnus-inews-do-gcc): Expire the article. + 2000-11-12 David Edmondson * message.el (message-font-lock-keywords): use diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 5ee1b4747..80885682c 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1127,7 +1127,10 @@ this is a reply." (setq gnus-newsgroup-active (gnus-active group)) t))) (gnus-group-make-articles-read group - (list article))))) + (list article)) + (when (gnus-group-auto-expirable-p group) + (gnus-add-marked-articles + group 'expire (list article)))))) (kill-buffer (current-buffer)))))))))) (defun gnus-inews-insert-gcc () -- 2.25.1