From b7a2a1e33080b626a45e2019ed66a10807b317e6 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sun, 10 Jun 2001 03:55:33 +0000 Subject: [PATCH] 2001-06-09 20:00:00 ShengHuo ZHU * gnus.texi: Apply "overfull hbox" patch from Eli Zaretskii . --- texi/ChangeLog | 5 ++ texi/gnus-faq.texi | 42 +++++++---- texi/gnus.texi | 177 +++++++++++++++++++++++++-------------------- 3 files changed, 132 insertions(+), 92 deletions(-) diff --git a/texi/ChangeLog b/texi/ChangeLog index 364541457..cb0cfe4bc 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 abc90547a..4e55daf1d 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.texi b/texi/gnus.texi index a8459bd59..7a5e3bbdf 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -6640,7 +6640,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 @@ -7815,7 +7816,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 @@ -10781,7 +10782,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 @@ -10921,10 +10923,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 @@ -11543,11 +11547,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 @@ -11639,7 +11645,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 @@ -11678,7 +11686,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 @@ -13152,13 +13162,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 @@ -13984,9 +13994,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 @@ -14296,7 +14307,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 @@ -15872,7 +15884,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 @@ -16556,7 +16569,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 @@ -16622,9 +16637,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 @@ -16633,6 +16649,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 @@ -17684,13 +17701,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 @@ -17786,13 +17803,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 @@ -21712,7 +21730,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) @@ -21730,7 +21750,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))) @@ -21869,47 +21890,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 @@ -22276,9 +22297,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 -- 2.34.1