From: yamaoka Date: Mon, 15 Oct 2001 04:29:33 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_4-08-quimby-last-~46 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=96be8f727e4d3393e38f6a005c418465db304dd2;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- diff --git a/GNUS-NEWS b/GNUS-NEWS index 2ff520f..bfb5e60 100644 --- a/GNUS-NEWS +++ b/GNUS-NEWS @@ -8,6 +8,11 @@ For older news, see Gnus info node "New Features". * Changes in Oort Gnus +** `/ *' (gnus-summary-limit-include-cached) is rewritten. + +It was aliased to `Y c' (gnus-summary-insert-cached-articles). The new +function filters out other articles. + ** Group names are treated as UTF-8 by default. This is supposedly what USEFOR wants to migrate to. See diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 983f74d..b1a3a66 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,58 @@ +2001-09-04 21:42:23 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-group-sort-by-server): Use it. + + * gnus.el (gnus-method-to-full-server-name): New, bogus function. + + * gnus-topic.el (gnus-topic-sort-groups-by-server): New command + and keystroke. + +2001-10-14 Simon Josefsson + + * dig.el: Doc fix. + + * smime.el: Doc fix. + + * gnus-msg.el (gnus-inews-do-gcc): Port header encoded-word + charset magic from message.el. + +2001-10-12 Simon Josefsson + Suggested by david.goldberg6@verizon.net (David S. Goldberg) + + * gnus-cite.el (gnus-article-toggle-cited-text): Don't remove + 'cite from g-a-wash-types. + (gnus-cite-toggle): Ditto. Add 'cite. Set modeline. + (gnus-article-hide-citation): Fix. + + * gnus-cite.el (gnus-article-hide-citation): Add `c' mode line + character. + (gnus-article-toggle-cited-text): Toggle `c' mode line character. + + * gnus-art.el (gnus-treat-hide-citation-maybe): Remove duplicate + definition. + (gnus-signature-toggle): Toggle `s' mode line character. + + * gnus-art.el (article-emphasize): Set `g-a-wash-types' after + doing stuff that clears it. + +2001-10-12 Simon Josefsson + + * gnus-cache.el (gnus-summary-limit-include-cached): Rewrite. + From Eric Marsden . + +2001-10-12 10:00:00 ShengHuo ZHU + + * message.el (message-do-auto-fill): Use gnus-point-at-bol. + (autoload): Add some autoloads. + +2001-10-12 Kai Gro,A_(Bjohann + Suggested by Oliver Scholz . + + * message.el (message-do-auto-fill): New function. Like + `do-auto-fill' but don't fill when in the message header. + (message-setup-1): Put a text property on the message header. + (message-setup-fill-variables): Use `message-do-auto-fill'. + 2001-10-10 12:00:00 ShengHuo ZHU * message.el (message-send-mail-partially): Insert an empty line diff --git a/lisp/dig.el b/lisp/dig.el index de6a769..eb70722 100644 --- a/lisp/dig.el +++ b/lisp/dig.el @@ -31,6 +31,10 @@ ;; For use in elisp programs, call `dig-invoke' and use ;; `dig-extract-rr' to extract resource records. +;;; Release history: + +;; 2000-10-28 posted on gnu.emacs.sources + ;;; Code: (eval-when-compile (require 'cl)) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 1e38b21..cde3bca 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -931,13 +931,6 @@ See the manual for details." :group 'gnus-article-treat :type gnus-article-treat-custom) -(defcustom gnus-treat-hide-citation-maybe nil - "Hide cited text. -Valid values are nil, t, `head', `last', an integer or a predicate. -See the manual for details." - :group 'gnus-article-treat - :type gnus-article-treat-custom) - (defcustom gnus-treat-strip-list-identifiers 'head "Strip list identifiers from `gnus-list-identifiers`. Valid values are nil, t, `head', `last', an integer or a predicate. @@ -2717,13 +2710,13 @@ This format is defined by the `gnus-article-time-format' variable." face (nth 3 elem)) (while (re-search-forward regexp nil t) (when (and (match-beginning visible) (match-beginning invisible)) - (push 'emphasis gnus-article-wash-types) (gnus-article-hide-text (match-beginning invisible) (match-end invisible) props) (gnus-article-unhide-text-type (match-beginning visible) (match-end visible) 'emphasis) (gnus-put-text-property-excluding-newlines (match-beginning visible) (match-end visible) 'face face) + (push 'emphasis gnus-article-wash-types) (goto-char (match-end invisible))))))))) (defun gnus-article-setup-highlight-words (&optional highlight-words) @@ -5610,14 +5603,21 @@ specified by `gnus-button-alist'." (limit (next-single-property-change end 'mime-view-entity nil (point-max)))) (if (text-property-any end limit 'article-type 'signature) - (gnus-remove-text-properties-when - 'article-type 'signature end limit - (cons 'article-type (cons 'signature - gnus-hidden-properties))) + (progn + (setq gnus-article-wash-types + (delq 'signature gnus-article-wash-types)) + (gnus-remove-text-properties-when + 'article-type 'signature end limit + (cons 'article-type (cons 'signature + gnus-hidden-properties)))) + (or (memq 'signature gnus-article-wash-types) + (push 'signature gnus-article-wash-types)) (gnus-add-text-properties-when 'article-type nil end limit (cons 'article-type (cons 'signature - gnus-hidden-properties))))))) + gnus-hidden-properties))))) + (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) + (gnus-set-mode-line 'article)))) (defun gnus-button-entry () ;; Return the first entry in `gnus-button-alist' matching this place. diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index e02b157..74134be 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -375,8 +375,16 @@ Returns the list of articles removed." (while cached (gnus-summary-goto-subject (pop cached) t)))) -(defalias 'gnus-summary-limit-include-cached - 'gnus-summary-insert-cached-articles) +(defun gnus-summary-limit-include-cached () + "Limit the summary buffer to articles that are cached." + (interactive) + (let ((cached (sort (copy-sequence gnus-newsgroup-cached) '>)) + (gnus-verbose (max 6 gnus-verbose))) + (if cached + (progn + (gnus-summary-limit cached) + (gnus-summary-position-point)) + (gnus-message 3 "No cached articles for this group")))) ;;; Internal functions. diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 657313b..73b17b8 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -511,6 +511,8 @@ always hide." (setq beg nil) (setq end (point-marker)))))) (when (and beg end) + (or (memq 'cite gnus-article-wash-types) + (push 'cite gnus-article-wash-types)) ;; We use markers for the end-points to facilitate later ;; wrapping and mangling of text. (setq beg (set-marker (make-marker) beg) @@ -549,14 +551,21 @@ means show, nil means toggle." (and (> arg 0) (not hidden)) (and (< arg 0) hidden)) (if hidden - (gnus-remove-text-properties-when - 'article-type 'cite beg end - (cons 'article-type (cons 'cite - gnus-hidden-properties))) + (progn + ;; Can't remove 'cite from g-a-wash-types here because + ;; multiple citations may be hidden -jas + (gnus-remove-text-properties-when + 'article-type 'cite beg end + (cons 'article-type (cons 'cite + gnus-hidden-properties)))) + (or (memq 'cite gnus-article-wash-types) + (push 'cite gnus-article-wash-types)) (gnus-add-text-properties-when 'article-type nil beg end (cons 'article-type (cons 'cite gnus-hidden-properties)))) + (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) + (gnus-set-mode-line 'article)) (save-excursion (goto-char start) (gnus-delete-line) @@ -959,14 +968,21 @@ See also the documentation for `gnus-article-highlight-citation'." (goto-char (point-min)) (forward-line (1- number)) (cond ((get-text-property (point) 'invisible) + ;; Can't remove 'cite from g-a-wash-types here because + ;; multiple citations may be hidden -jas (remove-text-properties (point) (progn (forward-line 1) (point)) gnus-hidden-properties)) ((assq number gnus-cite-attribution-alist)) (t + (or (memq 'cite gnus-article-wash-types) + (push 'cite gnus-article-wash-types)) (gnus-add-text-properties (point) (progn (forward-line 1) (point)) (nconc (list 'article-type 'cite) - gnus-hidden-properties)))))))) + gnus-hidden-properties)))) + (let ((gnus-article-mime-handle-alist-1 + gnus-article-mime-handle-alist)) + (gnus-set-mode-line 'article)))))) (defun gnus-cite-find-prefix (line) ;; Return citation prefix for LINE. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 154c260..4bbeee7 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -2810,10 +2810,10 @@ sort in reverse order." (defun gnus-group-sort-by-server (info1 info2) "Sort alphabetically by server name." - (string< (gnus-method-to-server-name + (string< (gnus-method-to-full-server-name (gnus-find-method-for-group (gnus-info-group info1) info1)) - (gnus-method-to-server-name + (gnus-method-to-full-server-name (gnus-find-method-for-group (gnus-info-group info2) info2)))) diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index ff26e1d..bca0737 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -1040,6 +1040,7 @@ articles in the topic and its subtopics." "a" gnus-topic-sort-groups-by-alphabet "u" gnus-topic-sort-groups-by-unread "l" gnus-topic-sort-groups-by-level + "e" gnus-topic-sort-groups-by-server "v" gnus-topic-sort-groups-by-score "r" gnus-topic-sort-groups-by-rank "m" gnus-topic-sort-groups-by-method)) @@ -1622,6 +1623,12 @@ If REVERSE, sort in reverse order." (interactive "P") (gnus-topic-sort-groups 'gnus-group-sort-by-method reverse)) +(defun gnus-topic-sort-groups-by-server (&optional reverse) + "Sort the current topic alphabetically by server name. +If REVERSE, sort in reverse order." + (interactive "P") + (gnus-topic-sort-groups 'gnus-group-sort-by-server reverse)) + (defun gnus-topic-sort-topics-1 (top reverse) (if (cdr top) (let ((subtop diff --git a/lisp/gnus.el b/lisp/gnus.el index dc810a1..5f7f346 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2775,6 +2775,9 @@ that that variable is buffer-local to the summary buffers." (not (string= (nth 1 method) ""))) (concat "+" (nth 1 method))))) +(defsubst gnus-method-to-full-server-name (method) + (format "%s+%s" (car method) (nth 1 method))) + (defun gnus-group-prefixed-name (group method) "Return the whole name from GROUP and METHOD." (and (stringp method) (setq method (gnus-server-to-method method))) diff --git a/lisp/message.el b/lisp/message.el index 0bcc600..f945794 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1346,6 +1346,8 @@ no, only reply back to the author." (autoload 'gnus-alive-p "gnus-util") (autoload 'gnus-server-string "gnus") (autoload 'gnus-group-name-charset "gnus-group") + (autoload 'gnus-group-name-decode "gnus-group") + (autoload 'gnus-groups-from-server "gnus") (autoload 'rmail-output "rmailout") (autoload 'mu-cite-original "mu-cite")) @@ -1893,7 +1895,9 @@ M-RET `message-newline-and-reformat' (break the line and reformat)." (setq adaptive-fill-first-line-regexp (concat quote-prefix-regexp "\\|" adaptive-fill-first-line-regexp)) - (setq auto-fill-inhibit-regexp "^[A-Z][^: \n\t]+:"))) + ;;(setq auto-fill-inhibit-regexp "^[A-Z][^: \n\t]+:") + (setq auto-fill-inhibit-regexp nil) + (setq auto-fill-function 'message-do-auto-fill))) @@ -2195,6 +2199,11 @@ Prefix arg means justify as well." (message-newline-and-reformat arg t) t)) +(defun message-do-auto-fill () + "Like `do-auto-fill', but don't fill in message header." + (unless (text-property-any (gnus-point-at-bol) (point) 'field 'header) + (do-auto-fill))) + (defun message-insert-signature (&optional force) "Insert a signature. See documentation for variable `message-signature'." (interactive (list 0)) @@ -2376,31 +2385,11 @@ However, if `message-yank-prefix' is non-nil, insert that prefix on each line." (indent-rigidly start (mark t) message-indentation-spaces) (save-excursion (goto-char start) - (let (last-line) - ;; `last-line' describes the contents of the last line - ;; encountered in the loop below. nil means "empty line", - ;; spaces "line consisting entirely of whitespace", - ;; right-angle "line starts with >", quoted "quote character - ;; at the beginning of the line", text "the remaining cases". - (while (< (point) (mark t)) - (cond - ((eolp) + (while (< (point) (mark t)) + (if (looking-at ">") (insert message-yank-cited-prefix) - (setq last-line nil)) - ((looking-at ">") - (if (memq last-line '(nil spaces right-angle quoted)) - (progn - (insert message-yank-cited-prefix) - (setq last-line 'quoted)) - (insert message-yank-prefix) - (setq last-line 'right-angle))) - ((looking-at "\\s-+$") - (insert message-yank-prefix) - (setq last-line 'spaces)) - (t - (insert message-yank-prefix) - (setq last-line 'text))) - (forward-line 1))))) + (insert message-yank-prefix)) + (forward-line 1)))) (goto-char start))) (defun message-list-references (refs-list &rest refs-strs) @@ -4636,6 +4625,7 @@ than 988 characters long, and if they are not, trim them until they are." (when message-default-headers (insert message-default-headers) (or (bolp) (insert ?\n))) + (put-text-property (point-min) (point) 'field 'header) (put-text-property (point) (progn diff --git a/lisp/smime.el b/lisp/smime.el index 9146963..ce69cd5 100644 --- a/lisp/smime.el +++ b/lisp/smime.el @@ -41,6 +41,9 @@ ;; PKCSx or similar, it's intended to perform common operations ;; done on messages encoded in these formats. The terminology chosen ;; reflect this. +;; +;; The home of this file is in Gnus CVS, but also available from +;; http://josefsson.org/smime.html. ;;; Quick introduction: @@ -93,7 +96,7 @@ ;; ;; Suggestions and comments are appreciated, mail me at simon@josefsson.org. -;; +;; begin rant ;; ;; I would include pointers to introductory text on concepts used in ;; this library here, but the material I've read are so horrible I @@ -105,11 +108,13 @@ ;; Also, I'm not going to mention anything about the wonders of ;; cryptopolitics. Oops, I just did. ;; -;; +;; end rant ;;; Revision history: -;; version 0 not released +;; 2000-06-05 initial version, committed to Gnus CVS contrib/ +;; 2000-10-28 retrieve certificates via DNS CERT RRs +;; 2001-10-14 posted to gnu.emacs.sources ;;; Code: diff --git a/texi/ChangeLog b/texi/ChangeLog index f3f1af4..8e8c8db 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,31 @@ +2001-09-04 21:43:05 Lars Magne Ingebrigtsen + + * gnus.texi (Topic Sorting): Addition. + +2001-10-13 19:00:00 ShengHuo ZHU + + * refcard.tex, gnusref.tex: Merge with the version + from Felix Natter + +2001-10-13 12:00:00 ShengHuo ZHU + + * refcard.tex: Set version to Oort. + + * gnusref.tex: New key bindings in Oort Gnus. + +2001-10-12 18:00:00 ShengHuo ZHU + + * Makefile.in (.dvi.ps): Use TEXPICTS. + (.latexi.dvi-x): Remove gnus.toc as well. + + * gnuslogo-refcard.eps: Remove BeginProcSet. + +2001-10-12 Simon Josefsson + + * gnus.texi (Misc Group Stuff): Add UTF-8. + (Misc Article): Document wash status characters. Suggested by + david.goldberg6@verizon.net (David S. Goldberg). + 2001-10-10 08:00:00 ShengHuo ZHU * gnusref.tex, refcard.tex: Use epsfig. diff --git a/texi/Makefile.in b/texi/Makefile.in index 4e39998..e079239 100644 --- a/texi/Makefile.in +++ b/texi/Makefile.in @@ -80,7 +80,7 @@ pdf: gnus.pdf message.pdf refcard.pdf emacs-mime.pdf rm -f gnustmp.* .dvi.ps : - TEXINPUTS=$(srcdir):$$TEXINPUTS $(DVIPS) -t $(PAPERTYPE) -f $< > $@ + TEXPICTS=$(srcdir) $(DVIPS) -t $(PAPERTYPE) -f $< > $@ .texi.pdf : sed -e '/@iflatex/,/@end iflatex/d' $< > gnustmp.texi @@ -118,7 +118,7 @@ gnus.latexi gnus-faq.latexi message.latexi emacs-mime.latexi: $(srcdir)/gnus.tex .latexi.dvi-x: make gnusconfig.tex make tmps - rm -f gnus.aux + rm -f gnus.aux gnus.toc cp $< gnus.tmplatexi TEXINPUTS=$(srcdir):$$TEXINPUTS $(LATEX) gnus.tmplatexi $(srcdir)/splitindex @@ -137,7 +137,7 @@ gnus.latexi gnus-faq.latexi message.latexi emacs-mime.latexi: $(srcdir)/gnus.tex make gnusconfig.tex make tmps cd ps; make pdf - rm -f gnus.aux + rm -f gnus.aux gnus.toc cp $< gnus.tmplatexi TEXINPUTS=$(srcdir):$$TEXINPUTS $(PDFLATEX) gnus.tmplatexi $(srcdir)/splitindex @@ -153,7 +153,7 @@ gnus.latexi gnus-faq.latexi message.latexi emacs-mime.latexi: $(srcdir)/gnus.tex mv gnus.pdf $@ latexps: gnus.dvi-x - TEXINPUTS=$(srcdir):$$TEXINPUTS $(DVIPS) -t a4 -f $< > gnus.ps + TEXPICTS=$(srcdir) $(DVIPS) -t a4 -f $< > gnus.ps latexpdf: gnus.pdf-x mv gnus.pdf-x gnus.pdf @@ -165,10 +165,10 @@ gnus-manual-standard.latexi: gnus.latexi sed 's/,a4paper/,letterpaper/' $< > $@ gnus-manual-a4.ps.gz: gnus-manual-a4.dvi-x - TEXINPUTS=$(srcdir):$$TEXINPUTS $(DVIPS) -t a4 -f $< | gzip -c > $@ + TEXPICTS=$(srcdir) $(DVIPS) -t a4 -f $< | gzip -c > $@ gnus-manual-standard.ps.gz: gnus-manual-standard.dvi-x - TEXINPUTS=$(srcdir):$$TEXINPUTS $(DVIPS) -t letter -f $< | gzip -c > $@ + TEXPICTS=$(srcdir) $(DVIPS) -t letter -f $< | gzip -c > $@ pdfs: gnus-manual-a4.pdf-x gnus-manual-standard.pdf-x mv gnus-manual-a4.pdf-x gnus-manual-a4.pdf diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index f971693..2035399 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -3733,6 +3733,12 @@ Gnus $B$,CN$C$F$$$k%H%T%C%/2=$5$l$?%0%k!<%W$rA4$FI=<($7$^(B @findex gnus-topic-sort-groups-by-method $B8=:_$N%H%T%C%/$r%P%C%/%(%s%I$NL>A0$G%"%k%U%!%Y%C%H=g$KJB$YBX$($^(B $B$9(B (@code{gnus-topic-sort-groups-by-method})$B!#(B + +@item T S e +@kindex T S e (Topic) +@findex gnus-topic-sort-groups-by-server +$B8=:_$N%H%T%C%/$r%5!<%P!<$NL>A0$G%"%k%U%!%Y%C%H=g$KJB$YBX$($^(B +$B$9(B (@code{gnus-topic-sort-groups-by-server})$B!#(B @end table $B%0%k!<%W$N%=!<%H$K$D$$$F$N$5$i$J$k>pJs$O(B @xref{Sorting Groups} $B$r;2>H$7(B @@ -3911,9 +3917,11 @@ Gnus @end lisp @item gnus-group-name-charset-group-alist +@cindex UTF-8 group names @vindex gnus-group-name-charset-group-alist $B%0%k!<%WL>MQ$N%0%k!<%WL>$N@55,I=8=$HJ8;z=89g$NO"A[%j%9%H$G$9!#$3$l$O1Q;z(B -$B$G$O$J$$%0%k!<%WL>$rI=<($9$k$?$a$K;H$$$^$9!#(B +$B$G$O$J$$%0%k!<%WL>$rI=<($9$k$?$a$K;H$$$^$9!#%G%#%U%)%k%HCM$O!"(BUTF-8 $B$,%5(B +$B%]!<%H$5$l$F$$$k>l9g$O(B @code{((".*" utf-8))}$B!"$=$l0J30$N>l9g$O(B nil $B$G$9!#(B $BNc(B: @lisp @@ -9550,8 +9558,32 @@ GNUS $B$d(B Gnus $B$G$O!"$3$N$?$A$N0-$$LdBj$G6C$+$5$l$J$$$h$&$K$9$k$K$O!"35N, @table @samp @item w -$B5-;v$N!V@vBu>uBV!W(B@dfn{wash status}$B!#$3$l$O5-;v$KBP$7$F9T$o$l$?(B -$B$G$"$m$&@vBuA`:n$r<($90lJ8;z$+$i$J$kC;$$J8;zNs$K$J$j$^$9!#(B +$B5-;v$N!V@vBu>uBV!W(B@dfn{wash status}$B!#$3$l$O5-;v$KBP$7$F9T$o$l$?$G$"$m$&(B +$B@vBuA`:n$r<($90lJ8;z$+$i$J$kC;$$J8;zNs$K$J$j$^$9!#J8;z$H$=$l$i$N0UL#$O(B: + +@table @samp +@item c +$B5-;v%P%C%U%!$K$*$$$F!"0zMQ$5$l$?J8$,1#$5$l$F$$$k$+$b$7$l$J$$>l9g$KI=<($5(B +$B$l$^$9!#(B + +@item h +$B5-;v%P%C%U%!$K$*$$$F!"%X%C%@!<$,1#$5$l$F$$$k>l9g$KI=<($5$l$^$9!#(B + +@c @item p +@c Displayed when article is digitally signed or encrypted, and Gnus has +@c hidden the security headers. (N.B. does not tell anything about +@c security status, i.e. good or bad signature.) + +@item s +$B5-;v%P%C%U%!$K$*$$$F!"=pL>$,1#$5$l$F$$$k>l9g$KI=<($5$l$^$9!#(B + +@item o +$B5-;v%P%C%U%!$K=E$MBG$AJ8;z$,$"$k>l9g$KI=<($5$l$^$9!#(B + +@item e +$B5-;v%P%C%U%!$K6/D4$5$l$?J8;zNs$,$"$k>l9g$KI=<($5$l$^$9!#(B +@end table + @c FIXMETGNUS Does this work? @item m $B5-;v$N(B @sc{mime} $BItJ,$N?t$G$9!#(B diff --git a/texi/gnus.texi b/texi/gnus.texi index 71b9fd8..0c3ae50 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -3683,6 +3683,12 @@ Sort the current topic by group rank Sort the current topic alphabetically by back end name (@code{gnus-topic-sort-groups-by-method}). +@item T S e +@kindex T S e (Topic) +@findex gnus-topic-sort-groups-by-server +Sort the current topic alphabetically by server name +(@code{gnus-topic-sort-groups-by-server}). + @end table @xref{Sorting Groups}, for more information about group sorting. @@ -3863,9 +3869,11 @@ For example: @end lisp @item gnus-group-name-charset-group-alist +@cindex UTF-8 group names @vindex gnus-group-name-charset-group-alist -An alist of regexp of group name and the charset for group names. -It is used to show non-ASCII group names. +An alist of regexp of group name and the charset for group names. It +is used to show non-ASCII group names. @code{((".*" utf-8))} is the +default value if UTF-8 is supported, otherwise the default is nil. For example: @lisp @@ -10052,12 +10060,39 @@ accepts the same format specifications as that variable, with two extensions: @table @samp + @item w The @dfn{wash status} of the article. This is a short string with one character for each possible article wash operation that may have been -performed. +performed. The characters and their meaning: + +@table @samp + +@item c +Displayed when cited text may be hidden in the article buffer. + +@item h +Displayed when headers are hidden in the article buffer. + +@item p +Displayed when article is digitally signed or encrypted, and Gnus has +hidden the security headers. (N.B. does not tell anything about +security status, i.e. good or bad signature.) + +@item s +Displayed when the signature has been hidden in the Article buffer. + +@item o +Displayed when Gnus has treated overstrike characters in the article buffer. + +@item e +Displayed when Gnus has treated emphasised strings in the article buffer. + +@end table + @item m The number of @sc{mime} parts in the article. + @end table @vindex gnus-break-pages diff --git a/texi/gnuslogo-refcard.eps b/texi/gnuslogo-refcard.eps index 44c64a6..41f1979 100644 --- a/texi/gnuslogo-refcard.eps +++ b/texi/gnuslogo-refcard.eps @@ -7,7 +7,6 @@ %%ColorUsage: B & W %%TileBox: 17 11 127 122 %%EndComments -%%BeginProcSet:Adobe_Illustrator_1.1 0 0 % Copyright 1992 Corel Corporation. % All rights reserved. diff --git a/texi/gnusref.tex b/texi/gnusref.tex index bd151ce..72dd7be 100644 --- a/texi/gnusref.tex +++ b/texi/gnusref.tex @@ -1,16 +1,17 @@ % -*- mode: latex; TeX-master: "refcard.tex" -*- - % include file for the Gnus refcard and booklet +%% include file for the Gnus refcard and booklet +%% \newlength{\keycolwidth} \newenvironment{keys}[1]% #1 is the widest key {\nopagebreak%\noindent% \settowidth{\keycolwidth}{#1}% \addtolength{\keycolwidth}{\tabcolsep}% \addtolength{\keycolwidth}{-\columnwidth}% - \begin{tabular}{@{}l@{\hspace{\tabcolsep}}p{-\keycolwidth}@{}}}% - {\end{tabular}\\} + \begin{supertabular}{@{}l@{\hspace{\tabcolsep}}p{-\keycolwidth}@{}}}% + {\end{supertabular}\\} - % uncomment the first definition if you do not want pagebreaks in maps - %\newcommand{\esamepage}{\samepage} +%% uncomment the first definition if you do not want pagebreaks in maps +%%\newcommand{\esamepage}{\samepage} \newcommand{\esamepage}{} \newcommand*{\B}[1]{{\bf#1})} % bold l)etter @@ -29,8 +30,10 @@ \newcommand{\Copyright}{% \begin{center} Copyright \copyright\ 1995 Free Software Foundation, Inc.\\* - Copyright \copyright\ 1995 \author.\\* + Copyright \copyright\ 1995 Vladimir Alexiev + $<$vladimir@cs.ualberta.ca$>$.\\* Copyright \copyright\ 2000 Felix Natter $<$fnatter@gmx.net$>$.\\* + Copyright \copyright\ 2001 \author.\\* Created from the Gnus manual Copyright \copyright\ 1994 Lars Magne Ingebrigtsen.\\* and the Emacs Help Bindings feature (C-h b).\\* @@ -78,13 +81,20 @@ \quad [score] An article score. If no prefix is given, `gnus-summary-default-score' is used. \\*[\baselineskip] % some keys - \begin{keys}{C-c C-i} + Gnus startup-commands: + \begin{keys}{M-x gnus-unplugged} M-x gnus & start Gnus. \\ - M-x gnus-no-server & start Gnus without trying to connect to server + M-x gnus-no-server & start Gnus without connecting to server (i.e. to read mail). \\ - M-x gnus-unplugged & start Gnus in \texttt{unplugged}-mode - (first see the manual, C-c C-i g Gnus Unplugged RET).\\ + \end{keys} + Additionally, there are the two commands \texttt{gnus-plugged} and + \texttt{gnus-unplugged}, which are only used if you want to download + news and/or read previously downloaded news offline (see C-c C-i g Gnus + Unplugged RET). Note: \texttt{gnus-no-server} ignores the stuff in + \texttt{gnus-agent-directory}, and thus does not allow you to use Gnus + Unplugged. % + \begin{keys}{C-c C-i} C-c C-i & Go to the Gnus online {\bf info}.\\ C-c C-b & Send a Gnus {\bf bug} report.\\ \end{keys} @@ -519,7 +529,7 @@ \newcommand{\ArticleModeGeneral}{% {\esamepage - The normal navigation keys work in Article mode. Some additional keys are:\\* + The normal navigation keys work in Article mode. Some additional keys are:\\ \begin{keys}{C-c RET} C-c \^{} & Get the article with the Message-ID near point.\\ C-c RET & Send reply to address near point.\\ @@ -711,7 +721,8 @@ /v & Limit to score. [score]\\ /E & (M S) Include all expunged articles in the limit.\\ /D & Include all dormant articles in the limit.\\ - /* & Include all cached articles in the limit.\\ + /* & Limit to cached articles.\\ + Y C & Include all cached articles in the limit.\\ /d & Exclude all dormant articles from the limit.\\ /M & Exclude all marked articles.\\ /T & Include all articles from the current thread in the limit.\\ @@ -955,16 +966,16 @@ \newcommand{\MsgCompositionMML}{% {\esamepage - \begin{keys}{M-m P} - M-m f & (C-c C-a) Attach \textbf{file}.\\ - M-m b & Attach contents of \textbf{buffer}.\\ - M-m e & Attach \textbf{external} file (ftp..).\\ - M-m P & Create MIME-\textbf{preview} (new buffer).\\ - M-m v & \textbf{Validate} article.\\ - M-m p & Insert \textbf{part}.\\ - M-m m & Insert \textbf{multi}-part.\\ - M-m q & \textbf{Quote} region.\\ - % TODO: narrow headers (M-m n) ? + \begin{keys}{C-c C-m P} + C-c C-m f & (C-c C-a) Attach \textbf{file}.\\ + C-c C-m b & Attach contents of \textbf{buffer}.\\ + C-c C-m e & Attach \textbf{external} file (ftp..).\\ + C-c C-m P & Create MIME-\textbf{preview} (new buffer).\\ + C-c C-m v & \textbf{Validate} article.\\ + C-c C-m p & Insert \textbf{part}.\\ + C-c C-m m & Insert \textbf{multi}-part.\\ + C-c C-m q & \textbf{Quote} region.\\ + % TODO: narrow headers (C-c C-m n) ? \end{keys} } } diff --git a/texi/ps/gnus-big-logo.eps b/texi/ps/gnus-big-logo.eps index 88ea3b8..ea713d8 100644 --- a/texi/ps/gnus-big-logo.eps +++ b/texi/ps/gnus-big-logo.eps @@ -7,7 +7,6 @@ %%ColorUsage: B & W %%TileBox: 0 0 890.3 909.7 %%EndComments -%%BeginProcSet:Adobe_Illustrator_1.1 0 0 % Copyright 1992 Corel Corporation. % All rights reserved. diff --git a/texi/ps/gnus-head.eps b/texi/ps/gnus-head.eps index 82206f8..cb74c10 100644 --- a/texi/ps/gnus-head.eps +++ b/texi/ps/gnus-head.eps @@ -7,7 +7,6 @@ %%ColorUsage: B & W %%TileBox: 0 0 430.6 312.5 %%EndComments -%%BeginProcSet:Adobe_Illustrator_1.1 0 0 % Copyright 1992 Corel Corporation. % All rights reserved. diff --git a/texi/refcard.tex b/texi/refcard.tex index 5bc2281..4b654b4 100644 --- a/texi/refcard.tex +++ b/texi/refcard.tex @@ -1,19 +1,23 @@ % -*- latex -*- -% Reference Card for (ding) Gnus 5.8.x: to be processed with LaTeX2e +% Reference Card for Oort Gnus: to be processed with LaTeX2e \documentclass{article} + +\usepackage{supertabular} + \def\Guide{Card}\def\guide{card} \def\logoscale{0.25} -\textwidth 7.26in \textheight 10in \topmargin -1.0in +\setlength{\textwidth}{7.26in} \setlength{\textheight}{10in} +\setlength{\topmargin}{-1.0in} % the same settings work for A4, although there is a bit of space at the % top and bottom of the page. -\oddsidemargin -0.5in \evensidemargin -0.5in +\setlength{\oddsidemargin}{-0.5in} \setlength{\evensidemargin}{-0.5in} \usepackage{epsfig} % README: % *** purpose -% this was originally thought of as a reference card, but as it is now 5+ -% pages long, I doubt that it is more useful than the online-help. It helped +% this was originally thought of as a reference card (but as it is now 5+ +% pages long, it may not be more useful than the online-help). It helps % to get an overview for the Gnus-functionality. % % *** files @@ -70,12 +74,13 @@ \newlength{\logowidth} \setlength{\logowidth}{6.861in} \newlength{\logoheight} \setlength{\logoheight}{7.013in} -\def\progver{5.8}\def\refver{5.8-4} % program and refcard versions -\def\date{July 27th, 2000} -\def\author{Vladimir Alexiev $<$vladimir@cs.ualberta.ca$>$} +\def\progver{5.10}\def\refver{5.10-1} % program and refcard versions +\def\date{Oct 13th, 2001} +\def\author{Gnus Bugfixing Girls + Boys $<$bugs@gnus.org$>$} \raggedbottom\raggedright \twocolumn +% use \tiny to shrink it to 4 pages (needs a high-resaoultion printer, though) %\tiny \scriptsize \pagestyle{plain}