From aa5804659815cd669a60c316090e27188e088450 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 10 Jun 2001 23:32:07 +0000 Subject: [PATCH] Synch with Oort Gnus. * message-ja.texi: Use `iso-2022-7bit' instead of `iso-2022-7bit-ss2' to keep a compatibility between XEmacsen and FSF Emacsen. * gnus-ja.texi: Ditto. --- ChangeLog | 7 ++ texi/ChangeLog | 5 ++ texi/gnus-faq.texi | 42 ++++++++---- texi/gnus-ja.texi | 184 ++++++++++++++++++++++++++++---------------------- texi/gnus.texi | 177 +++++++++++++++++++++++++++--------------------- texi/message-ja.texi | 2 +- 6 files changed, 242 insertions(+), 175 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4ba5fcf..078b662 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2001-06-10 Katsumi Yamaoka + + * texi/message-ja.texi: Use `iso-2022-7bit' instead of + `iso-2022-7bit-ss2' to keep a compatibility between XEmacsen and + FSF Emacsen. + * texi/gnus-ja.texi: Ditto. + 2001-06-09 TSUCHIYA Masatoshi * lisp/nnshimbun.el (top-level): Updated comments. diff --git a/texi/ChangeLog b/texi/ChangeLog index 3645414..cb0cfe4 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,8 @@ +2001-06-09 20:00:00 ShengHuo ZHU + + * gnus.texi: Apply "overfull hbox" patch from Eli Zaretskii + . + 2001-06-07 16:00:00 ShengHuo ZHU * gnus.texi (RSS): Add. diff --git a/texi/gnus-faq.texi b/texi/gnus-faq.texi index a729a70..56c46fb 100644 --- a/texi/gnus-faq.texi +++ b/texi/gnus-faq.texi @@ -306,7 +306,9 @@ The most vital entries in my (still young) all.SCORE: (("xref" ("alt.fan.oj-simpson" -1000 nil s)) ("subject" - ("\\<\\(make\\|fast\\|big\\)\\s-*\\(money\\|cash\\|bucks?\\)\\>" -1000 nil r) + (concat "\\<\\(make\\|fast\\|big\\)\\s-*" + "\\(money\\|cash\\|bucks?\\)\\>" + -1000 nil r) ("$$$$" -1000 nil s))) @end lisp @@ -334,13 +336,17 @@ I would like to contribute with mine. ;; $$$ Make Money $$$ ("$$" -10 nil s) ;; Empty subjects are worthless! - ("^ *\\([(<]none[>)]\\|(no subject\\( given\\)?)\\)? *$" -10 nil r) + ("^ *\\([(<]none[>)]\\|(no subject\\( given\\)?)\\)? *$" + -10 nil r) ;; Sometimes interesting announces occur! ("ANN?OU?NC\\(E\\|ING\\)" +10 nil r) ;; Some people think they're on mailing lists ("\\(un\\)?sub?scribe" -100 nil r) ;; Stop Micro$oft NOW!! - ("\\(m\\(icro\\)?[s$]\\(oft\\|lot\\)?-?\\)?wind?\\(ows\\|aube\\|oze\\)?[- ]*\\('?95\\|NT\\|3[.]1\\|32\\)" -1001 nil r) + ;; ("concat" used to avoid overfull box.) + (concat "\\(m\\(icro\\)?[s$]\\(oft\\|lot\\)?-?\\)?" + "wind?\\(ows\\|aube\\|oze\\)?[- ]*" + "\\('?95\\|NT\\|3[.]1\\|32\\)" -1001 nil r) ;; I've nothing to buy ("\\(for\\|4\\)[- ]*sale" -100 nil r) ;; SELF-DISCIPLINED people @@ -383,12 +389,19 @@ excessively cross posted articles. ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -2 nil r) ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -4 nil r) ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -8 nil r) - ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -16 nil r) - ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -32 nil r) - ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -64 nil r) - ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -128 nil r) - ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -256 nil r) - ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -512 nil r)) + ("^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" + -16 nil r) + (concat "^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" + " \\S-+ \\S-+" + -32 nil r) + (concat "^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" + " \\S-+ \\S-+ \\S-+" -64 nil r) + (concat "^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" + " \\S-+ \\S-+ \\S-+ \\S-+" -128 nil r) + (concat "^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" + " \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -256 nil r) + (concat "^xref: \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" + " \\S-+" \\S-+ \\S-+ \\S-+ \\S-+ \\S-+" -512 nil r)) @end lisp @end enumerate @@ -404,7 +417,7 @@ something like: @example (defconst mail-yank-ignored-headers "^.*:" - "Delete these headers from old message when it's inserted in a reply.") + "Delete these headers from message when it's inserted in reply.") @end example @@ -486,8 +499,8 @@ in your @file{.gnus} instead. @item Q3.1 How do I convert my kill files to score files? -A kill-to-score translator was written by Ethan Bradford -. It is available from@* +@email{ethanb@@ptolemy.astro.washington.edu, Ethan Bradford} write a +kill-to-score translator. It is available from@* @file{http://baugi.ifi.uio.no/~larsi/ding-various/gnus-kill-to-score.el}. @@ -526,8 +539,9 @@ Luis Fernandes writes:@* This is what I use...customize as necessary... @lisp -;;; Don't auto-select first article if reading sources, or archives or -;;; jobs postings, etc. and just display the summary buffer +;;; Don't auto-select first article if reading sources, or +;;; archives or jobs postings, etc. and just display the +;;; summary buffer (add-hook 'gnus-select-group-hook (function (lambda () diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 6c9ab8c..06b3b50 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -1,4 +1,4 @@ -@c \input texinfo @c -*- mode: texinfo; coding: iso-2022-7bit-ss2; -*- +@c \input texinfo @c -*- mode: texinfo; coding: iso-2022-7bit; -*- @setfilename gnus-ja @settitle T-gnus 6.15 Manual @@ -4681,7 +4681,7 @@ gnus $B$O$=$N%a!<%k$rl9g$O!"$=$l(B $B$r(B @code{$B%]%9%H%^%9%?!<(B} $B$K$b:FAw$7$?$$$H;W$&$G$7$g(B -$B$&!#(BOrdnung mu.AN_ sein!) +$B$&!#(BOrdnung mu,A_(B sein!) $B$3$NL?Na$O%W%m%;%9(B/$B@\F,0z?t$N=,47$K=>$$$^$9(B (@pxref{Process/Prefix})$B!#(B @@ -6527,7 +6527,8 @@ gnus $B$,J]B8$9$k5-;v$N(B @code{Archive-name} $B9T$rD4$Y$F!"$=$l$r%U%!%$%kL>$ @lisp (setq gnus-use-long-file-name '(not-save)) ; to get a hierarchy -(setq gnus-default-article-saver 'gnus-summary-save-in-file) ; no encoding +(setq gnus-default-article-saver + 'gnus-summary-save-in-file) ; no encoding @end lisp $B$=$l$+$i(B @kbd{o} $B$K$h$C$F5-;v$rJ]B8$9$k$@$1$G$9!#$=$l$+$i$3$N3,AX$rC;L?(B @@ -7652,7 +7653,7 @@ UT ($BJLL>(B GMT, ZULU) $B$GF|IU$rI=<($7$^$9(B (@code{gnus-article-date-ut}) $B$9(B (@code{gnus-article-date-lapsed})$B!#$3$s$J$U$&$K!#(B @example -X-Sent: 9 years, 6 weeks, 4 days, 9 hours, 3 minutes, 28 seconds ago +X-Sent: 6 weeks, 4 days, 1 hour, 3 minutes, 8 seconds ago @end example @code{gnus-article-date-lapsed-new-header} $B$NCM$G$3$N%X%C%@!<$r4{B8(B @@ -10254,7 +10255,8 @@ default force yes @lisp '(("nntpd 1\\.5\\.11t" - (remove-hook 'nntp-server-opened-hook 'nntp-send-mode-reader))) + (remove-hook 'nntp-server-opened-hook + 'nntp-send-mode-reader))) @end lisp $B$G!"$3$l$O(B nntpd 1.5.11t $B$K$OL?Na(B @code{MODE READER} $B$rAw$i$J$$;v$r3NC5n$N0u$rIU$1$^$9$,!"B>$K(B @samp{\Seen} $B$G$OC1$K4{FI$N0u$rIU$1$^$9!#(B -$B$3$l$i$O:G$b$"$j$=$&$JFs$D$NA*Br$G$9$,!"B>$N0u$b(B RFC2060 .AN'2.3.2 $B$GDj5A$5(B +$B$3$l$i$O:G$b$"$j$=$&$JFs$D$NA*Br$G$9$,!"B>$N0u$b(B RFC2060 ,A'(B2.3.2 $B$GDj5A$5(B $B$l$F$$$^$9!#(B @item :dontexpunge @@ -11128,7 +11134,9 @@ UNDELETED} $B$O$*$=$i$/$?$$$F$$$N?M$K$O:GNI$NA*Br$G$7$g$&$,!"$H$-$I(B IMAP $B%a!<%k%=!<%9$NNc(B: @lisp -(imap :server "mail.mycorp.com" :stream kerberos4 :fetchflag "\\Seen") +(imap :server "mail.mycorp.com" + :stream kerberos4 + :fetchflag "\\Seen") @end lisp @item webmail @@ -11166,7 +11174,9 @@ www.my-deja.com $B$J$I$N%&%'%V%a!<%k%5!<%P!<$+$i%a!<%k$r$O(B @samp{/} $B$G=*$o$i$J$/$F$O$J$j$^$;(B $B$s!#$3$l$i$N%G%#%l%/%H%j$OIaDL$O!"0l2s$N(B gnus $B;HMQ4|4VCf$K0l2s$@$1$7$+FI(B $B$_9~$_$^$;$s!#$b$71s3V%G%#%l%/%H%j$re0L$NJ,3d$H$7$F$7$+8=$l$k;v$,$G$-$J$$$H$$$&(B @@ -17272,13 +17288,14 @@ The GNU Emacs Lisp Reference Manual}. XEmacs $B$G$O!"%U%l!<%`%W%m%Q%F%#%j(B $B$N$h$&$J$b$N$G$G$-$^$9!#(B @lisp -(message (frame 1.0 - (if (not (buffer-live-p gnus-summary-buffer)) - (car (cdr (assoc 'group gnus-buffer-configuration))) - (car (cdr (assoc 'summary gnus-buffer-configuration)))) - (vertical ((user-position . t) (top . 1) (left . 1) - (name . "Message")) - (message 1.0 point)))) +(message + (frame 1.0 + (if (not (buffer-live-p gnus-summary-buffer)) + (car (cdr (assoc 'group gnus-buffer-configuration))) + (car (cdr (assoc 'summary gnus-buffer-configuration)))) + (vertical ((user-position . t) (top . 1) (left . 1) + (name . "Message")) + (message 1.0 point)))) @end lisp @findex gnus-add-configuration @@ -18947,7 +18964,7 @@ Kevin Davidson---@dfn{ding} $B$NL>A0$r;W$$IU$-$^$7$?!#$G$9$+$i!"H`$r@U$a$F(B $B2<$5$$!#(B @item -Fran.ANgois Pinard---$BB?$/$N!"B?$/$N6=L#?<$/40A4$J%P%0%l%]!<%H$H(B autoconf $B$N(B +Fran,Ag(Bois Pinard---$BB?$/$N!"B?$/$N6=L#?<$/40A4$J%P%0%l%]!<%H$H(B autoconf $B$N(B $B%5%]!<%H!#(B @end itemize @@ -18960,7 +18977,7 @@ Borges $B$K$h$C$F9;@5$5$l!"(BJost Krieger $B$K$h$C$F0lItJ,$r9;@5$5$l$^$7$?!# Christopher Davis, Andrew Eskilsson, Kai Grossjohann, -David K.ANegedal, +David K,Ae(Bgedal, Richard Pieri, Fabrice Popineau, Daniel Quinlan, @@ -19046,7 +19063,7 @@ Gunnar Horrigmo, Richard Hoskins, Brad Howes, Miguel de Icaza, -Fran.ANgois Felix Ingrand, +Fran,Ag(Bois Felix Ingrand, Tatsuya Ichikawa, @c ? Ishikawa Ichiro, @c Ishikawa Lee Iverson, @@ -21139,7 +21156,9 @@ description-buffer = *description-line "*Non-nil means that nndir will never retrieve NOV headers." nnml-nov-is-evil) -(defvoo nndir-current-group "" nil nnml-current-group nnmh-current-group) +(defvoo nndir-current-group "" + nil + nnml-current-group nnmh-current-group) (defvoo nndir-top-directory nil nil nnml-directory nnmh-directory) (defvoo nndir-get-new-mail nil nil nnml-get-new-mail nnmh-get-new-mail) @@ -21157,7 +21176,8 @@ description-buffer = *description-line (unless (assq 'nndir-directory defs) (push `(nndir-directory ,server) defs)) (push `(nndir-current-group - ,(file-name-nondirectory (directory-file-name nndir-directory))) + ,(file-name-nondirectory + (directory-file-name nndir-directory))) defs) (push `(nndir-top-directory ,(file-name-directory (directory-file-name nndir-directory))) @@ -21293,47 +21313,47 @@ description-buffer = *description-line $B%9%3%"%U%!%$%k$N(B BNF $BDj5A$G$9!#(B @example -score-file = "" / "(" *element ")" -element = rule / atom -rule = string-rule / number-rule / date-rule -string-rule = "(" quote string-header quote space *string-match ")" -number-rule = "(" quote number-header quote space *number-match ")" -date-rule = "(" quote date-header quote space *date-match ")" -quote = -string-header = "subject" / "from" / "references" / "message-id" / - "xref" / "body" / "head" / "all" / "followup" -number-header = "lines" / "chars" -date-header = "date" -string-match = "(" quote quote [ "" / [ space score [ "" / - space date [ "" / [ space string-match-t ] ] ] ] ] ")" -score = "nil" / -date = "nil" / -string-match-t = "nil" / "s" / "substring" / "S" / "Substring" / - "r" / "regex" / "R" / "Regex" / - "e" / "exact" / "E" / "Exact" / - "f" / "fuzzy" / "F" / "Fuzzy" -number-match = "(" [ "" / [ space score [ "" / - space date [ "" / [ space number-match-t ] ] ] ] ] ")" -number-match-t = "nil" / "=" / "<" / ">" / ">=" / "<=" -date-match = "(" quote quote [ "" / [ space score [ "" / - space date [ "" / [ space date-match-t ] ] ] ] ")" -date-match-t = "nil" / "at" / "before" / "after" -atom = "(" [ required-atom / optional-atom ] ")" -required-atom = mark / expunge / mark-and-expunge / files / - exclude-files / read-only / touched -optional-atom = adapt / local / eval -mark = "mark" space nil-or-number -nil-or-number = "nil" / -expunge = "expunge" space nil-or-number +score-file = "" / "(" *element ")" +element = rule / atom +rule = string-rule / number-rule / date-rule +string-rule = "(" quote string-header quote space *string-match ")" +number-rule = "(" quote number-header quote space *number-match ")" +date-rule = "(" quote date-header quote space *date-match ")" +quote = +string-header = "subject" / "from" / "references" / "message-id" / + "xref" / "body" / "head" / "all" / "followup" +number-header = "lines" / "chars" +date-header = "date" +string-match = "(" quote quote [ "" / [ space score [ "" / + space date [ "" / [ space string-match-t ] ] ] ] ] ")" +score = "nil" / +date = "nil" / +string-match-t = "nil" / "s" / "substring" / "S" / "Substring" / + "r" / "regex" / "R" / "Regex" / + "e" / "exact" / "E" / "Exact" / + "f" / "fuzzy" / "F" / "Fuzzy" +number-match = "(" [ "" / [ space score [ "" / + space date [ "" / [ space number-match-t ] ] ] ] ] ")" +number-match-t = "nil" / "=" / "<" / ">" / ">=" / "<=" +date-match = "(" quote quote [ "" / [ space score [ "" / + space date [ "" / [ space date-match-t ] ] ] ] ")" +date-match-t = "nil" / "at" / "before" / "after" +atom = "(" [ required-atom / optional-atom ] ")" +required-atom = mark / expunge / mark-and-expunge / files / + exclude-files / read-only / touched +optional-atom = adapt / local / eval +mark = "mark" space nil-or-number +nil-or-number = "nil" / +expunge = "expunge" space nil-or-number mark-and-expunge = "mark-and-expunge" space nil-or-number -files = "files" *[ space ] -exclude-files = "exclude-files" *[ space ] -read-only = "read-only" [ space "nil" / space "t" ] -adapt = "adapt" [ space "ignore" / space "t" / space adapt-rule ] -adapt-rule = "(" *[ *[ "(" ")" ] ")" -local = "local" *[ space "(" space
")" ] -eval = "eval" space -space = *[ " " / / ] +files = "files" *[ space ] +exclude-files = "exclude-files" *[ space ] +read-only = "read-only" [ space "nil" / space "t" ] +adapt = "adapt" [ space "ignore" / space "t" / space adapt-rule ] +adapt-rule = "(" *[ *[ "(" ")" ] ")" +local = "local" *[ space "(" space ")" ] +eval = "eval" space +space = *[ " " / / ] @end example $B%9%3%"%U%!%$%k$NG'<1IT2DG=$JMWAG$OL5;k$5$l$k$Y$-$G$9$,!" +group-line = group spc high-number spc low-number spc flag group = -space = " " +spc = " " high-number = low-number = flag = "y" / "n" / "m" / "j" / "x" / "=" group diff --git a/texi/gnus.texi b/texi/gnus.texi index 1a9d267..d1a7e1d 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -6637,7 +6637,8 @@ a spool, you could @lisp (setq gnus-use-long-file-name '(not-save)) ; to get a hierarchy -(setq gnus-default-article-saver 'gnus-summary-save-in-file) ; no encoding +(setq gnus-default-article-saver + 'gnus-summary-save-in-file) ; no encoding @end lisp Then just save with @kbd{o}. You'd then read this hierarchy with @@ -7807,7 +7808,7 @@ Say how much time has elapsed between the article was posted and now (@code{gnus-article-date-lapsed}). It looks something like: @example -X-Sent: 9 years, 6 weeks, 4 days, 9 hours, 3 minutes, 28 seconds ago +X-Sent: 6 weeks, 4 days, 1 hour, 3 minutes, 8 seconds ago @end example The value of @code{gnus-article-date-lapsed-new-header} determines @@ -10715,7 +10716,8 @@ The default value is @lisp '(("nntpd 1\\.5\\.11t" - (remove-hook 'nntp-server-opened-hook 'nntp-send-mode-reader))) + (remove-hook 'nntp-server-opened-hook + 'nntp-send-mode-reader))) @end lisp This ensures that Gnus doesn't send the @code{MODE READER} command to @@ -10855,10 +10857,12 @@ define a server as follows: @lisp ;; Type `C-c C-c' after you've finished editing. ;; -;; "snews" is port 563 and is predefined in our /etc/services +;; "snews" is port 563 and is predefined +;; in our /etc/services ;; (nntp "snews.bar.com" - (nntp-open-connection-function nntp-open-ssl-stream) + (nntp-open-connection-function + nntp-open-ssl-stream) (nntp-port-number "snews") (nntp-address "snews.bar.com")) @end lisp @@ -11520,11 +11524,13 @@ from locking problems). Two example maildir mail sources: @lisp -(maildir :path "/home/user-name/Maildir/" :subdirs ("cur" "new")) +(maildir :path "/home/user-name/Maildir/" + :subdirs ("cur" "new")) @end lisp @lisp -(maildir :path "/user@@remotehost.org:~/Maildir/" :subdirs ("new")) +(maildir :path "/user@@remotehost.org:~/Maildir/" + :subdirs ("new")) @end lisp @item imap @@ -11616,7 +11622,9 @@ after finishing the fetch. An example @sc{imap} mail source: @lisp -(imap :server "mail.mycorp.com" :stream kerberos4 :fetchflag "\\Seen") +(imap :server "mail.mycorp.com" + :stream kerberos4 + :fetchflag "\\Seen") @end lisp @item webmail @@ -11655,7 +11663,9 @@ folder after finishing the fetch. An example webmail source: @lisp -(webmail :subtype 'hotmail :user "user-name" :password "secret") +(webmail :subtype 'hotmail + :user "user-name" + :password "secret") @end lisp @end table @@ -13129,13 +13139,13 @@ The password to use when posting. @item nnslashdot-directory @vindex nnslashdot-directory -Where @code{nnslashdot} will store its files. The default value is +Where @code{nnslashdot} will store its files. The default is @samp{~/News/slashdot/}. @item nnslashdot-active-url @vindex nnslashdot-active-url -The @sc{url} format string that will be used to fetch the information on -news articles and comments. The default is +The @sc{url} format string that will be used to fetch the information on +news articles and comments. Default: @samp{http://slashdot.org/search.pl?section=&min=%d}. @item nnslashdot-comments-url @@ -13961,9 +13971,10 @@ Here's an example: @lisp (setq gnus-post-method - '(nngateway "mail2news@@replay.com" - (nngateway-header-transformation - nngateway-mail2news-header-transformation))) + '(nngateway + "mail2news@@replay.com" + (nngateway-header-transformation + nngateway-mail2news-header-transformation))) @end lisp @end table @@ -14273,7 +14284,8 @@ Neither did I, we need examples. @lisp (setq nnimap-split-rule - '(("INBOX.nnimap" "^Sender: owner-nnimap@@vic20.globalcom.se") + '(("INBOX.nnimap" + "^Sender: owner-nnimap@@vic20.globalcom.se") ("INBOX.junk" "^Subject:.*MAKE MONEY") ("INBOX.private" ""))) @end lisp @@ -15849,7 +15861,8 @@ returned is the local score file. Phu. For example, to do hierarchical scoring but use a non-server-specific overall score file, you could use the value @example -(list (lambda (group) ("all.SCORE")) 'gnus-score-find-hierarchical) +(list (lambda (group) ("all.SCORE")) + 'gnus-score-find-hierarchical) @end example @item gnus-score-expiry-days @@ -16533,7 +16546,9 @@ the @code{Xref} header. If you want to lower the score of articles that have been crossposted to more than, say, 3 groups: @lisp -("xref" ("[^:\n]+:[0-9]+ +[^:\n]+:[0-9]+ +[^:\n]+:[0-9]+" -1000 nil r)) +("xref" + ("[^:\n]+:[0-9]+ +[^:\n]+:[0-9]+ +[^:\n]+:[0-9]+" + -1000 nil r)) @end lisp @item Matching on the body @@ -16599,9 +16614,10 @@ All you have to do to use other people's score files is to set the or each score file directory. Gnus will decide by itself what score files are applicable to which group. -Say you want to use the score file +To use the score file @file{/ftp@@ftp.gnus.org:/pub/larsi/ding/score/soc.motss.SCORE} and -all score files in the @file{/ftp@@ftp.some-where:/pub/score} directory: +all score files in the @file{/ftp@@ftp.some-where:/pub/score} directory, +say this: @lisp (setq gnus-global-score-files @@ -16610,6 +16626,7 @@ all score files in the @file{/ftp@@ftp.some-where:/pub/score} directory: @end lisp @findex gnus-score-search-global-directories +@noindent Simple, eh? Directory names must end with a @samp{/}. These directories are typically scanned only once during each Gnus session. If you feel the need to manually re-scan the remote directories, you can @@ -17664,13 +17681,13 @@ To be slightly more formal, here's a definition of what a valid split may look like: @example -split = frame | horizontal | vertical | buffer | form -frame = "(frame " size *split ")" -horizontal = "(horizontal " size *split ")" -vertical = "(vertical " size *split ")" -buffer = "(" buffer-name " " size *[ "point" ] *[ "frame-focus"] ")" -size = number | frame-params -buffer-name = group | article | summary ... +split = frame | horizontal | vertical | buffer | form +frame = "(frame " size *split ")" +horizontal = "(horizontal " size *split ")" +vertical = "(vertical " size *split ")" +buffer = "(" buf-name " " size *[ "point" ] *[ "frame-focus"] ")" +size = number | frame-params +buf-name = group | article | summary ... @end example The limitations are that the @code{frame} split can only appear as the @@ -17766,13 +17783,14 @@ for composing mail and news while leaving the original frame intact. To accomplish that, something like the following can be done: @lisp -(message (frame 1.0 - (if (not (buffer-live-p gnus-summary-buffer)) - (car (cdr (assoc 'group gnus-buffer-configuration))) - (car (cdr (assoc 'summary gnus-buffer-configuration)))) - (vertical ((user-position . t) (top . 1) (left . 1) - (name . "Message")) - (message 1.0 point)))) +(message + (frame 1.0 + (if (not (buffer-live-p gnus-summary-buffer)) + (car (cdr (assoc 'group gnus-buffer-configuration))) + (car (cdr (assoc 'summary gnus-buffer-configuration)))) + (vertical ((user-position . t) (top . 1) (left . 1) + (name . "Message")) + (message 1.0 point)))) @end lisp @findex gnus-add-configuration @@ -21703,7 +21721,9 @@ Below is a slightly shortened version of the @code{nndir} backend. "*Non-nil means that nndir will never retrieve NOV headers." nnml-nov-is-evil) -(defvoo nndir-current-group "" nil nnml-current-group nnmh-current-group) +(defvoo nndir-current-group "" + nil + nnml-current-group nnmh-current-group) (defvoo nndir-top-directory nil nil nnml-directory nnmh-directory) (defvoo nndir-get-new-mail nil nil nnml-get-new-mail nnmh-get-new-mail) @@ -21721,7 +21741,8 @@ Below is a slightly shortened version of the @code{nndir} backend. (unless (assq 'nndir-directory defs) (push `(nndir-directory ,server) defs)) (push `(nndir-current-group - ,(file-name-nondirectory (directory-file-name nndir-directory))) + ,(file-name-nondirectory + (directory-file-name nndir-directory))) defs) (push `(nndir-top-directory ,(file-name-directory (directory-file-name nndir-directory))) @@ -21860,47 +21881,47 @@ Here's a typical score file: BNF definition of a score file: @example -score-file = "" / "(" *element ")" -element = rule / atom -rule = string-rule / number-rule / date-rule -string-rule = "(" quote string-header quote space *string-match ")" -number-rule = "(" quote number-header quote space *number-match ")" -date-rule = "(" quote date-header quote space *date-match ")" -quote = -string-header = "subject" / "from" / "references" / "message-id" / - "xref" / "body" / "head" / "all" / "followup" -number-header = "lines" / "chars" -date-header = "date" -string-match = "(" quote quote [ "" / [ space score [ "" / - space date [ "" / [ space string-match-t ] ] ] ] ] ")" -score = "nil" / -date = "nil" / -string-match-t = "nil" / "s" / "substring" / "S" / "Substring" / - "r" / "regex" / "R" / "Regex" / - "e" / "exact" / "E" / "Exact" / - "f" / "fuzzy" / "F" / "Fuzzy" -number-match = "(" [ "" / [ space score [ "" / - space date [ "" / [ space number-match-t ] ] ] ] ] ")" -number-match-t = "nil" / "=" / "<" / ">" / ">=" / "<=" -date-match = "(" quote quote [ "" / [ space score [ "" / - space date [ "" / [ space date-match-t ] ] ] ] ")" -date-match-t = "nil" / "at" / "before" / "after" -atom = "(" [ required-atom / optional-atom ] ")" -required-atom = mark / expunge / mark-and-expunge / files / - exclude-files / read-only / touched -optional-atom = adapt / local / eval -mark = "mark" space nil-or-number -nil-or-number = "nil" / -expunge = "expunge" space nil-or-number +score-file = "" / "(" *element ")" +element = rule / atom +rule = string-rule / number-rule / date-rule +string-rule = "(" quote string-header quote space *string-match ")" +number-rule = "(" quote number-header quote space *number-match ")" +date-rule = "(" quote date-header quote space *date-match ")" +quote = +string-header = "subject" / "from" / "references" / "message-id" / + "xref" / "body" / "head" / "all" / "followup" +number-header = "lines" / "chars" +date-header = "date" +string-match = "(" quote quote [ "" / [ space score [ "" / + space date [ "" / [ space string-match-t ] ] ] ] ] ")" +score = "nil" / +date = "nil" / +string-match-t = "nil" / "s" / "substring" / "S" / "Substring" / + "r" / "regex" / "R" / "Regex" / + "e" / "exact" / "E" / "Exact" / + "f" / "fuzzy" / "F" / "Fuzzy" +number-match = "(" [ "" / [ space score [ "" / + space date [ "" / [ space number-match-t ] ] ] ] ] ")" +number-match-t = "nil" / "=" / "<" / ">" / ">=" / "<=" +date-match = "(" quote quote [ "" / [ space score [ "" / + space date [ "" / [ space date-match-t ] ] ] ] ")" +date-match-t = "nil" / "at" / "before" / "after" +atom = "(" [ required-atom / optional-atom ] ")" +required-atom = mark / expunge / mark-and-expunge / files / + exclude-files / read-only / touched +optional-atom = adapt / local / eval +mark = "mark" space nil-or-number +nil-or-number = "nil" / +expunge = "expunge" space nil-or-number mark-and-expunge = "mark-and-expunge" space nil-or-number -files = "files" *[ space ] -exclude-files = "exclude-files" *[ space ] -read-only = "read-only" [ space "nil" / space "t" ] -adapt = "adapt" [ space "ignore" / space "t" / space adapt-rule ] -adapt-rule = "(" *[ *[ "(" ")" ] ")" -local = "local" *[ space "(" space ")" ] -eval = "eval" space -space = *[ " " / / ] +files = "files" *[ space ] +exclude-files = "exclude-files" *[ space ] +read-only = "read-only" [ space "nil" / space "t" ] +adapt = "adapt" [ space "ignore" / space "t" / space adapt-rule ] +adapt-rule = "(" *[ *[ "(" ")" ] ")" +local = "local" *[ space "(" space ")" ] +eval = "eval" space +space = *[ " " / / ] @end example Any unrecognized elements in a score file should be ignored, but not @@ -22267,9 +22288,9 @@ Here's a pseudo-BNF definition of this file: @example active = *group-line -group-line = group space high-number space low-number space flag +group-line = group spc high-number spc low-number spc flag group = -space = " " +spc = " " high-number = low-number = flag = "y" / "n" / "m" / "j" / "x" / "=" group diff --git a/texi/message-ja.texi b/texi/message-ja.texi index 48a2081..350de37 100644 --- a/texi/message-ja.texi +++ b/texi/message-ja.texi @@ -1,4 +1,4 @@ -\input texinfo @c -*-texinfo-*- +\input texinfo @c -*- mode: texinfo; coding: iso-2022-7bit; -*- @setfilename message-ja @settitle T-gnus 6.15 Message Manual -- 1.7.10.4