2000-11-15 13:21 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-msg.el (gnus-inews-do-gcc): Expire the article.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fa52dbd..f5dd1f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-15 13:21  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-inews-do-gcc): Expire the article.
+
 2000-11-12  David Edmondson  <dme@dme.org>
 
        * message.el (message-font-lock-keywords): use

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5ee1b47..8088568 100644 (file)
--- 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 ()