2001-11-12 13:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-start.el (gnus-auto-subscribed-groups): Use ^nnml.

	* gnus-sum.el (gnus-summary-move-article): Use number-to-string.
	  From <Michael.Cook@cisco.com>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f8f222..2b91c9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-11-12 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-start.el (gnus-auto-subscribed-groups): Use ^nnml.
+
+       * gnus-sum.el (gnus-summary-move-article): Use number-to-string.
+         From <Michael.Cook@cisco.com>
+
 2001-11-11  Simon Josefsson  <jas@extundo.com>
 
        * message.el (top-level): Autoload sha1.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 19b76a3..4650fae 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -303,7 +303,7 @@ hierarchy in its entirety."
   :type 'boolean)
 
 (defcustom gnus-auto-subscribed-groups
-  "nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl"
+  "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl"
   "*All new groups that match this regexp will be subscribed automatically.
 Note that this variable only deals with new groups.  It has no effect
 whatsoever on old groups.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ffef484..e6d6fe0 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8077,7 +8077,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
                      (mail-header-xref (gnus-summary-article-header article))
                      " ")))
           (setq new-xref (concat (gnus-group-real-name gnus-newsgroup-name)
-                                 ":" article))
+                                 ":" (number-to-string article)))
           (unless xref
             (setq xref (list (system-name))))
           (setq new-xref
@@ -8094,7 +8094,8 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
                                (gnus-request-accept-article
                                 to-newsgroup select-method (not articles))))
               (setq new-xref (concat new-xref " " (car art-group)
-                                     ":" (cdr art-group)))
+                                     ":"
+                                     (number-to-string (cdr art-group))))
               ;; Now we have the new Xrefs header, so we insert
               ;; it and replace the new article.
               (nnheader-replace-header "Xref" new-xref)