X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=e7d658f5528f04eeab97640a4bee9a43f8102b1c;hb=3547012b6fa52dc919b22bc5c3e5f6249e5611b8;hp=0f4b95fb0d28af6998848db15c6d10e13b4f59ff;hpb=93217a87be65a87c23f0543a300595f0e3515b33;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0f4b95f..e7d658f 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -106,8 +106,11 @@ the second with the current group name.")
 (defvar gnus-posting-styles nil
   "*Alist of styles to use when posting.")
 
+(defvar gnus-inews-mark-gcc-as-read nil
+  "If non-nil, automatically mark Gcc articles as read.")
+
 (defcustom gnus-group-posting-charset-alist
-  '(("^\\(no\\|fr\\|dk\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\|dk\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1))
+  '(("^\\(no\\|fr\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1))
     ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ \t\n]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r (koi8-r))
     (message-this-is-mail nil nil)
     (message-this-is-news nil t))
@@ -1158,7 +1161,7 @@ this is a reply."
 	(let ((gcc (or gcc (mail-fetch-field "gcc" nil t)))
 	      (coding-system-for-write 'raw-text)
 	      (output-coding-system 'raw-text)
-	      groups group method)
+	      groups group method group-art)
 	  (when gcc
 	    (message-remove-header "gcc")
 	    (widen)
@@ -1179,10 +1182,39 @@ this is a reply."
 		       (concat "^" (regexp-quote mail-header-separator) "$")
 		       nil t)
 		  (replace-match "" t t ))
-		(unless (gnus-request-accept-article group method t t)
+		(unless (setq group-art 
+			      (gnus-request-accept-article group method t t))
 		  (gnus-message 1 "Couldn't store article in group %s: %s"
 				group (gnus-status-message method))
 		  (sit-for 2))
+		(when (and group-art gnus-inews-mark-gcc-as-read)
+		  (let ((active (gnus-active group)))
+		    (if active
+			(if (< (cdr active) (cdr group-art))
+			    (gnus-set-active group (cons (car active) 
+							 (cdr group-art))))
+		      (gnus-activate-group group)))
+		  (let ((buffer (concat "*Summary " group "*"))
+			(mark gnus-read-mark)
+			(article (cdr group-art)))
+		    (unless 
+			(and 
+			 (get-buffer buffer)
+			 (with-current-buffer buffer
+			   (when gnus-newsgroup-prepared
+			     (when (and gnus-newsgroup-auto-expire
+					(memq mark gnus-auto-expirable-marks))
+			       (setq mark gnus-expirable-mark))
+			     (setq mark (gnus-request-update-mark 
+					 group article mark))
+			     (gnus-mark-article-as-read article mark)
+			     (setq gnus-newsgroup-active (gnus-active group))
+			     t)))
+		      (gnus-group-make-articles-read group 
+						     (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 ()