From 46cc9810b2f0e21630fdcc6c15b57570ff88b77f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 6 Aug 2002 14:37:18 +0000 Subject: [PATCH] T-gnus 6.15.8 revision 00. --- ChangeLog | 4 ++++ README.T-gnus | 2 +- contrib/hashcash.el | 2 +- lisp/ChangeLog | 29 +++++++++++++++++++++++++++++ lisp/gnus-mailcap.el | 22 +++++++++++----------- lisp/gnus-sum.el | 25 +++++++++++++++++++++++-- lisp/gnus-vers.el | 4 ++-- lisp/mail-source.el | 3 ++- lisp/mm-util.el | 3 +-- texi/ChangeLog | 4 ++++ texi/gnus-ja.texi | 21 ++++++++++++++++----- texi/gnus.texi | 29 ++++++++++++++++++++--------- 12 files changed, 114 insertions(+), 34 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8beeef3..33488aa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2002-08-06 Katsumi Yamaoka + + * lisp/gnus-vers.el: T-gnus 6.15.8 revision 00. + 2002-08-06 TSUCHIYA Masatoshi * lisp/gnus-namazu.el (gnus-namazu-update-index): Handle error diff --git a/README.T-gnus b/README.T-gnus index 23ef7ee..b90acbd 100644 --- a/README.T-gnus +++ b/README.T-gnus @@ -33,6 +33,6 @@ NEWS: * T-gnus 6.15 - this is based on Oort Gnus. - The latest T-gnus is T-gnus 6.15.7 (based on Oort Gnus 0.07). It + The latest T-gnus is T-gnus 6.15.8 (based on Oort Gnus 0.08). It requires SEMI/WEMI (1.13.5 or later), FLIM (1.13.1 or later), and APEL (10.0 or later). diff --git a/contrib/hashcash.el b/contrib/hashcash.el index 1f8c3f2..d87edad 100644 --- a/contrib/hashcash.el +++ b/contrib/hashcash.el @@ -1,6 +1,6 @@ ;;; hashcash.el --- Add hashcash payments to email -;; $Revision: 1.1.2.3 $ +;; $Revision: 1.1.2.4 $ ;; Copyright (C) 1997,2001 Paul E. Foley ;; Maintainer: Paul Foley diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 824b4b2..6ebcbb4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,32 @@ +2002-05-27 Jesper Harder + + * mailcap.el (mailcap-mime-data): Test window-system rather than + mm-device-type. + (mailcap-mime-data): Call xdvi and gv with "-safer". + + * mm-util.el: Don't define mm-device-type. + +2002-08-05 Simon Josefsson + + * mm-util.el (mm-coding-system-priorities): coding-system type not + supported everywhere. + +2002-08-04 Lars Magne Ingebrigtsen + + * gnus.el (gnus-version-number): Bumped version number. + +2002-08-04 01:48:57 Lars Magne Ingebrigtsen + + * gnus.el: Oort Gnus v0.07 is released. + +2002-08-04 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-thread-sort-functions): Doc fix. + (gnus-article-sort-functions): Doc fix. + (t): New keystroke. + (gnus-article-sort-by-random): New function. + (gnus-thread-sort-by-random): New function. + 2002-08-02 Simon Josefsson * gnus-logic.el (gnus-advanced-integer): Swap arguments in diff --git a/lisp/gnus-mailcap.el b/lisp/gnus-mailcap.el index 7375288..06570ce 100644 --- a/lisp/gnus-mailcap.el +++ b/lisp/gnus-mailcap.el @@ -76,8 +76,8 @@ ;; (type . "application/dvi") ;; (test . (eq (mm-device-type) 'ns))) ("dvi" - (viewer . "xdvi %s") - (test . (eq (mm-device-type) 'x)) + (viewer . "xdvi -safer %s") + (test . (eq window-system 'x)) ("needsx11") (type . "application/dvi")) ("dvi" @@ -121,13 +121,13 @@ ("copiousoutput")) ;; Prefer free viewers. ("pdf" - (viewer . "gv %s") + (viewer . "gv -safer %s") (type . "application/pdf") (test . window-system)) ("pdf" (viewer . "xpdf %s") (type . "application/pdf") - (test . (eq (mm-device-type) 'x))) + (test . (eq window-system 'x))) ("pdf" (viewer . "acroread %s") (type . "application/pdf")) @@ -144,7 +144,7 @@ ("postscript" (viewer . "ghostview -dSAFER %s") (type . "application/postscript") - (test . (eq (mm-device-type) 'x)) + (test . (eq window-system 'x)) ("needsx11")) ("postscript" (viewer . "ps2ascii %s") @@ -184,19 +184,19 @@ (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") - (test . (eq (mm-device-type) 'x)) + (test . (eq window-system 'x)) ("needsx11")) ("x11-dump" (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") - (test . (eq (mm-device-type) 'x)) + (test . (eq window-system 'x)) ("needsx11")) ("windowdump" (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") - (test . (eq (mm-device-type) 'x)) + (test . (eq window-system 'x)) ("needsx11")) ;;; XEmacs says `ns' device-type not implemented. ;; (".*" @@ -206,12 +206,12 @@ (".*" (viewer . "display %s") (type . "image/*") - (test . (eq (mm-device-type) 'x)) + (test . (eq window-system 'x)) ("needsx11")) (".*" (viewer . "ee %s") (type . "image/*") - (test . (eq (mm-device-type) 'x)) + (test . (eq window-system 'x)) ("needsx11"))) ("text" ("plain" @@ -237,7 +237,7 @@ ("mpeg" (viewer . "mpeg_play %s") (type . "video/mpeg") - (test . (eq (mm-device-type) 'x)) + (test . (eq window-system 'x)) ("needsx11"))) ("x-world" ("x-vrml" diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 63a8511..3834da6 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -671,7 +671,8 @@ was sent, sorting by number means sorting by arrival time.) Ready-made functions include `gnus-article-sort-by-number', `gnus-article-sort-by-author', `gnus-article-sort-by-subject', -`gnus-article-sort-by-date' and `gnus-article-sort-by-score'. +`gnus-article-sort-by-date', `gnus-article-sort-by-random' +and `gnus-article-sort-by-score'. When threading is turned on, the variable `gnus-thread-sort-functions' controls how articles are sorted." @@ -681,6 +682,7 @@ controls how articles are sorted." (function-item gnus-article-sort-by-subject) (function-item gnus-article-sort-by-date) (function-item gnus-article-sort-by-score) + (function-item gnus-article-sort-by-random) (function :tag "other")))) (defcustom gnus-thread-sort-functions '(gnus-thread-sort-by-number) @@ -700,7 +702,8 @@ Ready-made functions include `gnus-thread-sort-by-number', `gnus-thread-sort-by-author', `gnus-thread-sort-by-subject', `gnus-thread-sort-by-date', `gnus-thread-sort-by-score', `gnus-thread-sort-by-most-recent-number', -`gnus-thread-sort-by-most-recent-date', and +`gnus-thread-sort-by-most-recent-date', +`gnus-thread-sort-by-random', and `gnus-thread-sort-by-total-score' (see `gnus-thread-score-function'). When threading is turned off, the variable @@ -712,6 +715,7 @@ When threading is turned off, the variable (function-item gnus-thread-sort-by-date) (function-item gnus-thread-sort-by-score) (function-item gnus-thread-sort-by-total-score) + (function-item gnus-thread-sort-by-random) (function :tag "other")))) (defcustom gnus-thread-score-function '+ @@ -1575,6 +1579,7 @@ increase the score of each group you read." "\C-c\C-s\C-d" gnus-summary-sort-by-date "\C-c\C-s\C-i" gnus-summary-sort-by-score "\C-c\C-s\C-o" gnus-summary-sort-by-original + "\C-c\C-s\C-r" gnus-summary-sort-by-random "=" gnus-summary-expand-window "\C-x\C-s" gnus-summary-reselect-current-group "\M-g" gnus-summary-rescan-group @@ -2321,6 +2326,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs)))) ["Sort by score" gnus-summary-sort-by-score t] ["Sort by lines" gnus-summary-sort-by-lines t] ["Sort by characters" gnus-summary-sort-by-chars t] + ["Randomize" gnus-summary-sort-by-random t] ["Original sort" gnus-summary-sort-by-original t]) ("Help" ["Fetch group FAQ" gnus-summary-fetch-faq t] @@ -4255,6 +4261,15 @@ using some other form will lead to serious barfage." (gnus-article-sort-by-number (gnus-thread-header h1) (gnus-thread-header h2))) +(defsubst gnus-article-sort-by-random (h1 h2) + "Sort articles by article number." + (zerop (random 2))) + +(defun gnus-thread-sort-by-random (h1 h2) + "Sort threads by root article number." + (gnus-article-sort-by-random + (gnus-thread-header h1) (gnus-thread-header h2))) + (defsubst gnus-article-sort-by-lines (h1 h2) "Sort articles by article Lines header." (< (mail-header-lines h1) @@ -10277,6 +10292,12 @@ Argument REVERSE means reverse order." (interactive "P") (gnus-summary-sort 'number reverse)) +(defun gnus-summary-sort-by-random (&optional reverse) + "Randomize the order in the summary buffer. +Argument REVERSE means to randomize in reverse order." + (interactive "P") + (gnus-summary-sort 'random reverse)) + (defun gnus-summary-sort-by-author (&optional reverse) "Sort the summary buffer by author name alphabetically. If `case-fold-search' is non-nil, case of letters is ignored. diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index ab2b8c0..3e7fe7e 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -34,7 +34,7 @@ (require 'product) (provide 'gnus-vers) -(defconst gnus-revision-number "02" +(defconst gnus-revision-number "00" "Revision number for this version of gnus.") ;; Product information of this gnus. @@ -43,7 +43,7 @@ (list 6 15 7 (string-to-number gnus-revision-number)))) -(defconst gnus-original-version-number "0.07" +(defconst gnus-original-version-number "0.08" "Version number for this version of Gnus.") (provide 'running-pterodactyl-gnus-0_73-or-later) diff --git a/lisp/mail-source.el b/lisp/mail-source.el index 5cf4016..e0fc8a5 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -466,7 +466,8 @@ Return the number of files that were found." (funcall function source callback) (error (unless (yes-or-no-p - (format "Mail source error (%s). Continue? " + (format "Mail source %s error (%s). Continue? " + source (cadr err))) (error "Cannot get new mail")) 0))))))))) diff --git a/lisp/mm-util.el b/lisp/mm-util.el index fe7afff..750c3ec 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -43,7 +43,6 @@ (coding-system-list . ignore) (decode-coding-region . ignore) (char-int . identity) - (device-type . ignore) (coding-system-equal . equal) (annotationp . ignore) (set-buffer-file-coding-system . ignore) @@ -283,7 +282,7 @@ prefer iso-2022-jp to japanese-shift-jis: \(setq mm-coding-system-priorities '(iso-2022-jp iso-2022-jp-2 japanese-shift-jis iso-latin-1 utf-8)) " - :type '(repeat (coding-system :tag "Coding system")) + :type '(repeat (symbol :tag "Coding system")) :group 'mime) (defvar mm-use-find-coding-systems-region diff --git a/texi/ChangeLog b/texi/ChangeLog index e9baa36..4b51606 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +2002-08-04 Lars Magne Ingebrigtsen + + * gnus.texi (Summary Sorting): Document randomization. + 2002-07-28 Kai Gro,b_(Bjohann * gnus.texi (Web Searches): Added gmane and removed old diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index f3fdd70..d8234ad 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -6578,6 +6578,7 @@ gnus $B$OA4$F$N5-;v$N40A4$J(B @code{References} $BMs$r8+$F!"F1$8%9%l%C%I$KB0$ @findex gnus-thread-sort-by-subject @findex gnus-thread-sort-by-author @findex gnus-thread-sort-by-number +@findex gnus-thread-sort-by-random @vindex gnus-thread-sort-functions @findex gnus-thread-sort-by-most-recent-thread $B$b$7%9%l%C%I$N35N,I=<($r;H$C$F$$$k$N$G$"$l$P!"(B @@ -6589,8 +6590,9 @@ gnus $B$OA4$F$N5-;v$N40A4$J(B @code{References} $BMs$r8+$F!"F1$8%9%l%C%I$KB0$ @code{gnus-thread-sort-by-subject}, @code{gnus-thread-sort-by-date}, @code{gnus-thread-sort-by-score}, @code{gnus-thread-sort-by-most-recent-number}, -@code{gnus-thread-sort-by-most-recent-date} $B$*$h$S(B -@code{gnus-thread-sort-by-total-score} $B$G$9!#(B +@code{gnus-thread-sort-by-most-recent-date}, +@code{gnus-thread-sort-by-random} $B$*$h(B +$B$S(B @code{gnus-thread-sort-by-total-score} $B$G$9!#(B $B3F4X?t$OFs$D$N%9%l%C%I$r$H$j!":G=i$N%9%l%C%I$,B>$N%9%l%C%I$h$j@h$KJB$SBX(B $B$($i$l$k$Y$-$G$"$l$P!"(B@code{nil} $B$G$J$$CM$r$+$($7$^$9!#IaDL!"JB$SBX$($O(B @@ -6635,13 +6637,17 @@ gnus $B$OA4$F$N5-;v$N40A4$J(B @code{References} $BMs$r8+$F!"F1$8%9%l%C%I$KB0$ @findex gnus-article-sort-by-score @findex gnus-article-sort-by-subject @findex gnus-article-sort-by-author +@findex gnus-article-sort-by-random @findex gnus-article-sort-by-number $B2?$+4qL/$JM}M3$J$I$G%9%l%C%II=<($r;H$C$F$$$J$$$N$J$i!"JQ(B $B?t(B @code{gnus-article-sort-functions} $B$r$$$8$/$kI,MW$,$"$j$^$9!#$3$l(B $B$O(B @code{gnus-thread-sort-functions} $B$HHs>o$K;w$F$$$^$9$,!"5-;v$NHf3S$K(B $B$O>/!90c$C$?4X?t$r;H$$$^$9!#;HMQ2DG=$JJB$SBX$(=R8l4X?t(B -$B$O(B @code{gnus-article-sort-by-number}, @code{gnus-article-sort-by-author}, @code{gnus-article-sort-by-subject}, @code{gnus-article-sort-by-date} $B$*(B -$B$h$S(B @code{gnus-article-sort-by-score} $B$G$9!#(B +$B$O(B @code{gnus-article-sort-by-number}, +@code{gnus-article-sort-by-author}, +@code{gnus-article-sort-by-subject}, @code{gnus-article-sort-by-date}, +@code{gnus-article-sort-by-random} $B$*$h(B +$B$S(B @code{gnus-article-sort-by-score} $B$G$9!#(B $B%9%l%C%I$r;H$C$F$$$J$$I=Bj$N35N,I=<($rJB$SBX$($?$$$N$G$"$l$P!"rM}$KCV$-(B @item C-c C-s C-c @kindex C-c C-s C-c ($B35N,(B) @findex gnus-summary-sort-by-chars -$B5-;v$ND9$5$GJB$S49$($^$9(B (@code{gnus-summary-sort-by-chars})$B!#(B +$B5-;v$ND9$5$GJB$SBX$($^$9(B (@code{gnus-summary-sort-by-chars})$B!#(B @item C-c C-s C-i @kindex C-c C-s C-i ($B35N,(B) @findex gnus-summary-sort-by-score $B%9%3%"$K$h$C$FJB$SBX$($^$9(B (@code{gnus-summary-sort-by-score})$B!#(B +@item C-c C-s C-r +@kindex C-c C-s C-r (Summary) +@findex gnus-summary-sort-by-random +$B%i%s%@%`$KJB$SBX$($^$9(B (@code{gnus-summary-sort-by-random})$B!#(B + @item C-c C-s C-o @kindex C-c C-s C-o ($B35N,(B) @findex gnus-summary-sort-by-original diff --git a/texi/gnus.texi b/texi/gnus.texi index e861939..818500e 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -33,7 +33,7 @@ \makeindex \begin{document} -\newcommand{\gnusversionname}{Oort Gnus v0.06} +\newcommand{\gnusversionname}{Oort Gnus v0.07} \newcommand{\gnuschaptername}{} \newcommand{\gnussectionname}{} @@ -6649,6 +6649,7 @@ Matching}). @findex gnus-thread-sort-by-subject @findex gnus-thread-sort-by-author @findex gnus-thread-sort-by-number +@findex gnus-thread-sort-by-random @vindex gnus-thread-sort-functions @findex gnus-thread-sort-by-most-recent-thread If you are using a threaded summary display, you can sort the threads by @@ -6661,7 +6662,8 @@ predicate functions include @code{gnus-thread-sort-by-number}, @code{gnus-thread-sort-by-author}, @code{gnus-thread-sort-by-subject}, @code{gnus-thread-sort-by-date}, @code{gnus-thread-sort-by-score}, @code{gnus-thread-sort-by-most-recent-number}, -@code{gnus-thread-sort-by-most-recent-date} and +@code{gnus-thread-sort-by-most-recent-date}, +@code{gnus-thread-sort-by-random} and @code{gnus-thread-sort-by-total-score}. Each function takes two threads and returns non-@code{nil} if the first @@ -6712,14 +6714,18 @@ tickles your fancy. @findex gnus-article-sort-by-score @findex gnus-article-sort-by-subject @findex gnus-article-sort-by-author +@findex gnus-article-sort-by-random @findex gnus-article-sort-by-number -If you are using an unthreaded display for some strange reason or other, -you have to fiddle with the @code{gnus-article-sort-functions} variable. -It is very similar to the @code{gnus-thread-sort-functions}, except that -it uses slightly different functions for article comparison. Available -sorting predicate functions are @code{gnus-article-sort-by-number}, -@code{gnus-article-sort-by-author}, @code{gnus-article-sort-by-subject}, -@code{gnus-article-sort-by-date}, and @code{gnus-article-sort-by-score}. +If you are using an unthreaded display for some strange reason or +other, you have to fiddle with the @code{gnus-article-sort-functions} +variable. It is very similar to the +@code{gnus-thread-sort-functions}, except that it uses slightly +different functions for article comparison. Available sorting +predicate functions are @code{gnus-article-sort-by-number}, +@code{gnus-article-sort-by-author}, +@code{gnus-article-sort-by-subject}, @code{gnus-article-sort-by-date}, +@code{gnus-article-sort-by-random}, and +@code{gnus-article-sort-by-score}. If you want to sort an unthreaded summary display by subject, you could say something like: @@ -8987,6 +8993,11 @@ Sort by article length (@code{gnus-summary-sort-by-chars}). @findex gnus-summary-sort-by-score Sort by score (@code{gnus-summary-sort-by-score}). +@item C-c C-s C-r +@kindex C-c C-s C-r (Summary) +@findex gnus-summary-sort-by-random +Randomize (@code{gnus-summary-sort-by-random}). + @item C-c C-s C-o @kindex C-c C-s C-o (Summary) @findex gnus-summary-sort-by-original -- 1.7.10.4