From: yamaoka Date: Sun, 14 Jan 2001 22:42:42 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_0-04-quimby~11 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=56b09166b31702e8a6ae17d19715d573d9d3a677;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- diff --git a/contrib/ChangeLog b/contrib/ChangeLog index 647125a..ff2e151 100644 --- a/contrib/ChangeLog +++ b/contrib/ChangeLog @@ -1,3 +1,7 @@ +2001-01-13 23:00:00 ShengHuo ZHU + + * gpg.el (gpg-build-arg-list): Use copy-sequence. + 2000-12-19 22:00:00 ShengHuo ZHU * gpg.el (defalias): Use eval-and-compile. diff --git a/contrib/gpg.el b/contrib/gpg.el index 6e5bf89..a223759 100644 --- 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 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,16 @@ +2001-01-12 22:00:00 ShengHuo ZHU + + * gnus-group.el (gnus-group-sort-by-score): Reverse order. + +2001-01-12 17:00:00 ShengHuo ZHU + + * gnus-win.el (gnus-configure-windows): switch-to-buffer in XEmacs. + (gnus-remove-some-windows): Ditto. + +2001-01-12 14:00:00 ShengHuo ZHU + + * gnus-art.el (article-make-date-line): 11th. + 2001-01-11 23:00:00 ShengHuo ZHU * mml2015.el (mml2015-gpg-encrypt): Remove CR. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 355d505..2a7e012 100644 --- 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 --- 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 --- 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 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,10 @@ +2001-01-13 Kai Gro,A_(Bjohann + + * 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 * 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 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -9159,12 +9159,6 @@ Superseding} $B$r;2>H$7$F$/$@$5$$!#(B @code{nil} $B$G$J$1$l$P!"(B@kbd{a} $B$r$7$?$H$-$K!"(B@code{to-list} $B%0%k!<%W%Q%i(B $B%a!<%?$r$=$l$N$J$$%a!<%k%0%k!<%W$KIU$12C$($^$9!#(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 --- 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 --- a/texi/message-ja.texi +++ b/texi/message-ja.texi @@ -1017,6 +1017,12 @@ Lines (optional . X-Mailer))} $B$G$9!#(B $B$J$?$N(B MH $B$,$3$l$i$N%X%C%@!<$r07$($k$N$G$"$l$P!"$=$l$r(B @code{nil} $B$K@_Dj(B $B$7$F2<$5$$!#(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 --- 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