From: yamaoka <yamaoka>
Date: Wed, 15 Nov 2000 22:26:17 +0000 (+0000)
Subject: Synch with Gnus.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ba8ba8591312f51a55a17de8a882e5497db6ccb8;p=elisp%2Fgnus.git-

Synch with Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83cb54c..c5d9193 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+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
+	message-cite-prefix-regexp.
+
 2000-11-15  Kai Gro,A_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
 	* gnus-group.el (gnus-group-jump-to-group-prompt): New variable by
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 9afcc03..8ac688d 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1211,7 +1211,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 ()
diff --git a/lisp/message.el b/lisp/message.el
index 842f32c..cd223db 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -437,7 +437,7 @@ The provided functions are:
   :type 'regexp)
 
 (defcustom message-cite-prefix-regexp
-  "^[]>»|:}+ ]*[]>»|:}+]\\(\\w*>»\\)?\\|^\\w*>"
+  "[ \t]*\\(\\(\\w\\|[_-\\.]\\)+>+[ \t]*\\|[]>»|:}+ ]*[]>»|:}+][ \t]*\\)+"
   "*Regexp matching the longest possible citation prefix on a line."
   :group 'message-insertion
   :type 'regexp)
@@ -1181,10 +1181,12 @@ See also the documentations for the following variables:
 
 (defvar message-font-lock-keywords-2
   (append message-font-lock-keywords-1
-	  '((message-font-lock-cited-text-matcher
+	  `((message-font-lock-cited-text-matcher
 	     (1 'message-cited-text-face)
 	     (2 'message-cited-text-face))
-	    ("<#/?\\(multipart\\|part\\|external\\).*>"
+	    (,(concat "^\\(" message-cite-prefix-regexp "\\).*")
+	     (0 'message-cited-text-face))
+	    ("<#/?\\(multipart\\|part\\|external\\|mml\\).*>"
 	     (0 'message-mml-face)))))
 
 (defvar message-font-lock-keywords message-font-lock-keywords-2
@@ -2137,7 +2139,7 @@ With the prefix argument FORCE, insert the header anyway."
     (insert "\n\n\n")
     (delete-region (point) (re-search-forward "[ \t]*"))
     (when quoted
-      (insert quoted " "))
+      (insert quoted))
     (fill-paragraph nil)
     (goto-char point)
     (forward-line 1)))