Synch with Oort Gnus.

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 647125a..ff2e151 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-13 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gpg.el (gpg-build-arg-list): Use copy-sequence.
+
 2000-12-19 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gpg.el (defalias): Use eval-and-compile.

diff --git a/contrib/gpg.el b/contrib/gpg.el
index 6e5bf89..a223759 100644 (file)
--- a/contrib/gpg.el
+++ b/contrib/gpg.el
@@ -548,7 +548,7 @@ it are replaced by SUBSTITUTIONS.
 SUBSTITIONS is a list of (SYMBOL . SEXP) pairs, where SEXP is either a
 string (which is inserted literally), a list of strings (which are
 inserted as well), or nil, which means to insert nothing."
-  (let ((arglist (copy-list gpg-command-all-arglist)))
+  (let ((arglist (copy-sequence gpg-command-all-arglist)))
     (while template
       (let* ((templ (pop template))
             (repl (assoc templ substitutions))

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index caf3c20..bdde421 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2001-01-12 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-group.el (gnus-group-sort-by-score): Reverse order.
+
+2001-01-12 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-win.el (gnus-configure-windows): switch-to-buffer in XEmacs.
+       (gnus-remove-some-windows): Ditto.
+
+2001-01-12 14:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (article-make-date-line): 11th.
+
 2001-01-11 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mml2015.el (mml2015-gpg-encrypt): Remove CR.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 355d505..2a7e012 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2445,6 +2445,7 @@ should replace the \"Date:\" one, or should be added below it."
         (number-to-string (nth 3 dtime))
         (let ((digit (% (nth 3 dtime) 10)))
           (cond
+           ((memq (nth 3 dtime) '(11 12 13)) "th")
            ((= digit 1) "st")
            ((= digit 2) "nd")
            ((= digit 3) "rd")

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 7e6f7ba..4b6dd49 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2805,7 +2805,7 @@ sort in reverse order."
 
 (defun gnus-group-sort-by-score (info1 info2)
   "Sort by group score."
-  (< (gnus-info-score info1) (gnus-info-score info2)))
+  (> (gnus-info-score info1) (gnus-info-score info2)))
 
 (defun gnus-group-sort-by-rank (info1 info2)
   "Sort by level and score."

diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el
index 51934fd..07e693e 100644 (file)
--- a/lisp/gnus-win.el
+++ b/lisp/gnus-win.el
@@ -452,11 +452,15 @@ See the Gnus manual for an explanation of the syntax used.")
                    (gnus-delete-windows-in-gnusey-frames))
                ;; Just remove some windows.
                (gnus-remove-some-windows)
-               (set-buffer nntp-server-buffer))
+               (if (featurep 'xemacs)
+                   (switch-to-buffer nntp-server-buffer)
+                 (set-buffer nntp-server-buffer)))
            (select-frame frame)))
 
        (let (gnus-window-frame-focus)
-         (set-buffer nntp-server-buffer)
+         (if (featurep 'xemacs)
+             (switch-to-buffer nntp-server-buffer)
+           (set-buffer nntp-server-buffer))
          (gnus-configure-frame split)
          (when gnus-window-frame-focus
            (select-frame (window-frame gnus-window-frame-focus))))))))
@@ -541,7 +545,9 @@ should have point."
                  lowest-buf buf))))
       (when lowest-buf
        (pop-to-buffer lowest-buf)
-       (set-buffer nntp-server-buffer))
+       (if (featurep 'xemacs)
+           (switch-to-buffer nntp-server-buffer)
+         (set-buffer nntp-server-buffer)))
       (mapcar (lambda (b) (delete-windows-on b t)) bufs))))
 
 (provide 'gnus-win)

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 145512b..bc21a5e 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,10 @@
+2001-01-13  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus.texi (Mail): Move explanation of
+       `message-send-mail-partially-limit' to message.texi
+
+       * message.texi (Mail Variables): Ditto.
+
 2001-01-10 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus.texi (Article Washing): makeinfo 1.69 doesn't grok `anchor'. 

diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index 86a318f..ba4eab1 100644 (file)
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -9159,12 +9159,6 @@ Superseding} \e$B$r;2>H$7$F$/$@$5$$!#\e(B
 @code{nil} \e$B$G$J$1$l$P!"\e(B@kbd{a} \e$B$r$7$?$H$-$K!"\e(B@code{to-list} \e$B%0%k!<%W%Q%i\e(B
 \e$B%a!<%?$r$=$l$N$J$$%a!<%k%0%k!<%W$KIU$12C$($^$9!#\e(B
 
-@c @item message-send-mail-partially-limit
-@c @vindex message-send-mail-partially-limit
-@c The limitation of messages sent as message/partial.
-@c The lower bound of message size in characters, beyond which the message
-@c should be sent in several parts. If it is nil, the size is unlimited.
-
 @end table
 
 @node Posting Server

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 9dd9333..be39854 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -9588,12 +9588,6 @@ headers will be included in the sequence they are matched.
 If non-@code{nil}, add a @code{to-list} group parameter to mail groups
 that have none when you do a @kbd{a}.
 
-@item message-send-mail-partially-limit
-@vindex message-send-mail-partially-limit
-The limitation of messages sent as message/partial.
-The lower bound of message size in characters, beyond which the message 
-should be sent in several parts. If it is nil, the size is unlimited.
-
 @end table
 
 

diff --git a/texi/message-ja.texi b/texi/message-ja.texi
index 56c807d..a81e5b2 100644 (file)
--- a/texi/message-ja.texi
+++ b/texi/message-ja.texi
@@ -1017,6 +1017,12 @@ Lines (optional . X-Mailer))} \e$B$G$9!#\e(B
 \e$B$J$?$N\e(B MH \e$B$,$3$l$i$N%X%C%@!<$r07$($k$N$G$"$l$P!"$=$l$r\e(B @code{nil} \e$B$K@_Dj\e(B
 \e$B$7$F2<$5$$!#\e(B
 
+@c @item message-send-mail-partially-limit
+@c @vindex message-send-mail-partially-limit
+@c The limitation of messages sent as message/partial.
+@c The lower bound of message size in characters, beyond which the message 
+@c should be sent in several parts. If it is nil, the size is unlimited.
+
 @end table
 
 @node News Headers

diff --git a/texi/message.texi b/texi/message.texi
index 75899f6..0780a66 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1041,6 +1041,12 @@ the default), these headers will be removed before mailing when sending
 messages via MH.  Set it to @code{nil} if your MH can handle these
 headers.
 
+@item message-send-mail-partially-limit
+@vindex message-send-mail-partially-limit
+The limitation of messages sent as message/partial.
+The lower bound of message size in characters, beyond which the message 
+should be sent in several parts. If it is nil, the size is unlimited.
+
 @end table