2001-04-10 08:01:15 Katsumi Yamaoka <yamaoka@jpl.org>

	Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus-msg.el (gnus-post-news): Fill the Newsgroups header by the
	newsgroup names when the original article is a news message.

2001-04-12 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* message.el (message-cite-prefix-regexp): Use POSIX regexp if
	supported. Suggest by Jim Meyering <jim@meyering.net>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9840d90..0a505b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2001-04-10 08:01:15  Katsumi Yamaoka <yamaoka@jpl.org>
+       Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-post-news): Fill the Newsgroups header by the
+       newsgroup names when the original article is a news message.
+       
+2001-04-12 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-cite-prefix-regexp): Use POSIX regexp if
+       supported. Suggest by Jim Meyering <jim@meyering.net>.
+
 2001-04-02  Nevin Kapur  <nevin@jhu.edu>
        Committed by Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>.
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 238609c..c5dc6ec 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -572,7 +572,13 @@ header line with the old Message-ID."
                (message-news (or to-group group))
              (set-buffer gnus-article-copy)
              (gnus-msg-treat-broken-reply-to)
-             (message-followup (if (or newsgroup-p force-news) "" to-group)))
+             (message-followup (if (or newsgroup-p force-news)
+                                   (if (save-restriction
+                                         (article-narrow-to-head)
+                                         (message-fetch-field "newsgroups"))
+                                       nil
+                                     "")
+                                 to-group)))
          ;; The is mail.
          (if post
              (progn

diff --git a/lisp/message.el b/lisp/message.el
index a60aa16..d0ac833 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -338,8 +338,10 @@ The provided functions are:
   :type 'regexp)
 
 (defcustom message-cite-prefix-regexp
-  ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
-  "\\([ \t]*\\(\\w\\|[-_.]\\)+>+\\|[ \t]*[]>»|:}+]\\)+"
+  (if (string-match "[[:digit:]]" "1") ;; support POSIX?
+      "\\([ \t]*[-_.[:word:]]+>+\\|[ \t]*[]>»|:}+]\\)+" 
+    ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
+    "\\([ \t]*\\(\\w\\|[-_.]\\)+>+\\|[ \t]*[]>»|:}+]\\)+")
   "*Regexp matching the longest possible citation prefix on a line."
   :group 'message-insertion
   :type 'regexp)