From 25c0b76921c775aac859f0ac9232a78ccc65942c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 14 Feb 2001 23:52:30 +0000 Subject: [PATCH] Synch with Oort Gnus. --- GNUS-NEWS | 8 +++++ lisp/ChangeLog | 18 ++++++++++ lisp/gnus-cus.el | 12 ------- lisp/gnus-start.el | 8 +---- lisp/gnus-sum.el | 95 +++++++++++++++++++++++++++------------------------- lisp/gnus.el | 17 +++++++--- texi/ChangeLog | 8 +++++ texi/gnus-ja.texi | 70 +++++++++++++++++++++++++------------- texi/gnus.texi | 50 ++++++++++++++++++++------- 9 files changed, 182 insertions(+), 104 deletions(-) diff --git a/GNUS-NEWS b/GNUS-NEWS index 2551fa0..6334597 100644 --- a/GNUS-NEWS +++ b/GNUS-NEWS @@ -8,6 +8,14 @@ For older news, see Gnus info node "New Features". * Changes in Oort Gnus +** gnus-group-charset-alist and gnus-group-ignored-charsets-alist + +The regexps in these variables are compared with full group names +instead of real group names in 5.8. Users who customize these +variables should change those regexps accordingly. For example: + + ("^han\\>" euc-kr) -> ("\\(^\\|:\\)han\\>" euc-kr) + ** Gnus now supports PGP-MIME (RFC2015) and SMIME. ** Gnus inlines external parts (message/external). diff --git a/lisp/ChangeLog b/lisp/ChangeLog index beae4ac..4052629 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,20 @@ +2001-02-14 Katsumi Yamaoka + Committed by ShengHuo ZHU + + * gnus.el (gnus-define-group-parameter): Fix. + +2001-02-14 15:00:00 ShengHuo ZHU + + * gnus.el (gnus-define-group-parameter): Improved. + + * gnus-sum.el (charset): Define parameter. + (ignored-charsets): Ditto. + (gnus-summary-setup-default-charset): Use them. + + * gnus-start.el (gnus-read-descriptions-file): Use them. + + * gnus-cus.el (gnus-group-parameters): Remove them. + 2001-02-14 00:00:00 ShengHuo ZHU * gnus-sum.el (gnus-summary-print-article): Redo highlight. @@ -14,6 +31,7 @@ (to-list): Ditto. * gnus-art.el (article-hide-boring-headers): Use them. * gnus-msg.el (gnus-post-news): Ditto. + * gnus-cus.el (gnus-group-parameters): Remove them. 2001-02-13 19:00:00 ShengHuo ZHU diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el index d4268af..0b6d704 100644 --- a/lisp/gnus-cus.el +++ b/lisp/gnus-cus.el @@ -199,18 +199,6 @@ An arbitrary comment on the group.") Always display this group, even when there are no unread articles in it..") - (charset (symbol :tag "Charset") "\ -The default charset to use in the group.") - - (ignored-charsets - (choice :tag "Ignored charsets" - :value nil - (repeat (symbol))) "\ -List of charsets that should be ignored. - -When these charsets are used in the \"charset\" parameter, the -default charset will be used instead.") - (highlight-words (choice :tag "Highlight words" :value nil diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 00ea145..dc5be9f 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -2803,13 +2803,7 @@ The backup file \".newsrc.eld_\" will be created before re-reading." (name (symbol-name group)) (charset (or (gnus-group-name-charset method name) - (let ((alist gnus-group-charset-alist) - elem charset) - (while (setq elem (pop alist)) - (when (and name (string-match (car elem) name)) - (setq alist nil - charset (cadr elem)))) - charset)))) + (gnus-parameter-charset name)))) (when (and str charset (featurep 'mule)) (setq str (decode-coding-string str charset))) (set group str))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index ded62b8..d201b04 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -872,24 +872,33 @@ which it may alter in any way.") :group 'gnus-summary :type 'regexp) -(defcustom gnus-group-charset-alist - '(("^hk\\>\\|^tw\\>\\|\\" cn-big5) - ("^cn\\>\\|\\" cn-gb-2312) - ("^fj\\>\\|^japan\\>" iso-2022-jp-2) - ("^tnn\\>\\|^pin\\>\\|^sci.lang.japan" iso-2022-7bit) - ("^relcom\\>" koi8-r) - ("^fido7\\>" koi8-r) - ("^\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2) - ("^israel\\>" iso-8859-1) - ("^han\\>" euc-kr) - ("^alt.chinese.text.big5\\>" chinese-big5) - ("^soc.culture.vietnamese\\>" vietnamese-viqr) - ("^\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-1) - (".*" iso-8859-1)) +(gnus-define-group-parameter + charset + :function-document + "Return the default charset of GROUP." + :variable gnus-group-charset-alist + :variable-default + '(("\\(^\\|:\\)hk\\>\\|\\(^\\|:\\)tw\\>\\|\\" cn-big5) + ("\\(^\\|:\\)cn\\>\\|\\" cn-gb-2312) + ("\\(^\\|:\\)fj\\>\\|\\(^\\|:\\)japan\\>" iso-2022-jp-2) + ("\\(^\\|:\\)tnn\\>\\|\\(^\\|:\\)pin\\>\\|\\(^\\|:\\)sci.lang.japan" iso-2022-7bit) + ("\\(^\\|:\\)relcom\\>" koi8-r) + ("\\(^\\|:\\)fido7\\>" koi8-r) + ("\\(^\\|:\\)\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2) + ("\\(^\\|:\\)israel\\>" iso-8859-1) + ("\\(^\\|:\\)han\\>" euc-kr) + ("\\(^\\|:\\)alt.chinese.text.big5\\>" chinese-big5) + ("\\(^\\|:\\)soc.culture.vietnamese\\>" vietnamese-viqr) + ("\\(^\\|:\\)\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-1) + (".*" iso-8859-1)) + :variable-document "Alist of regexps (to match group names) and default charsets to be used when reading." - :type '(repeat (list (regexp :tag "Group") - (symbol :tag "Charset"))) - :group 'gnus-charset) + :variable-group gnus-charset + :variable-type '(repeat (list (regexp :tag "Group") + (symbol :tag "Charset"))) + :parameter-type '(symbol :tag "Charset") + :parameter-document "\ +The default charset to use in the group.") (defcustom gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown) "List of charsets that should be ignored. @@ -899,14 +908,29 @@ default charset will be used instead." :type '(repeat symbol) :group 'gnus-charset) -(defcustom gnus-group-ignored-charsets-alist - '(("alt\\.chinese\\.text" iso-8859-1)) - "Alist of regexps (to match group names) and charsets that should be ignored. +(gnus-define-group-parameter + ignored-charsets + :type list + :function-document + "Return the ignored charsets of GROUP." + :variable gnus-group-ignored-charsets-alist + :variable-default + '(("alt\\.chinese\\.text" iso-8859-1)) + :variable-document + "Alist of regexps (to match group names) and charsets that should be ignored. When these charsets are used in the \"charset\" parameter, the default charset will be used instead." - :type '(repeat (cons (regexp :tag "Group") - (repeat symbol))) - :group 'gnus-charset) + :variable-group gnus-charset + :variable-type '(repeat (cons (regexp :tag "Group") + (repeat symbol))) + :parameter-type '(choice :tag "Ignored charsets" + :value nil + (repeat (symbol))) + :parameter-document "\ +List of charsets that should be ignored. + +When these charsets are used in the \"charset\" parameter, the +default charset will be used instead.") (defcustom gnus-group-highlight-words-alist nil "Alist of group regexps and highlight regexps. @@ -10127,35 +10151,16 @@ If REVERSE, save parts that do not match TYPE." "Setup newsgroup default charset." (if (equal gnus-newsgroup-name "nndraft:drafts") (setq gnus-newsgroup-charset nil) - (let* ((name (and gnus-newsgroup-name - (gnus-group-real-name gnus-newsgroup-name))) - (ignored-charsets + (let* ((ignored-charsets (or gnus-newsgroup-ephemeral-ignored-charsets (append (and gnus-newsgroup-name - (or (gnus-group-find-parameter gnus-newsgroup-name - 'ignored-charsets t) - (let ((alist gnus-group-ignored-charsets-alist) - elem (charsets nil)) - (while (setq elem (pop alist)) - (when (and name - (string-match (car elem) name)) - (setq alist nil - charsets (cdr elem)))) - charsets))) + (gnus-parameter-ignored-charsets gnus-newsgroup-name)) gnus-newsgroup-ignored-charsets)))) (setq gnus-newsgroup-charset (or gnus-newsgroup-ephemeral-charset (and gnus-newsgroup-name - (or (gnus-group-find-parameter gnus-newsgroup-name 'charset) - (let ((alist gnus-group-charset-alist) - elem charset) - (while (setq elem (pop alist)) - (when (and name - (string-match (car elem) name)) - (setq alist nil - charset (cadr elem)))) - charset))) + (gnus-parameter-charset gnus-newsgroup-name)) gnus-default-charset)) (set (make-local-variable 'gnus-newsgroup-ignored-charsets) ignored-charsets)))) diff --git a/lisp/gnus.el b/lisp/gnus.el index e9fb6e2..85bf4ed 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -931,21 +931,30 @@ REST is a plist of following: ,parameter-type ,parameter-document)) (if (eq type 'bool) - `(defun ,function (group) + `(defun ,function (name) ,function-document - (let ((params (gnus-group-find-parameter group)) + (let ((params (gnus-group-find-parameter name)) val) (cond ((memq ',param params) t) ((setq val (assq ',param params)) (cdr val)) + ((stringp ,variable) + (string-match ,variable name)) (,variable - (string-match ,variable group))))) + (let ((alist ,variable) + elem value) + (while (setq elem (pop alist)) + (when (and name + (string-match (car elem) name)) + (setq alist nil + value (cdr elem)))) + (if (consp value) (car value) value)))))) `(defun ,function (name) ,function-document (and name - (or (gnus-group-find-parameter name ',param) + (or (gnus-group-find-parameter name ',param ,(and type t)) (let ((alist ,variable) elem value) (while (setq elem (pop alist)) diff --git a/texi/ChangeLog b/texi/ChangeLog index d816b9b..3ba8169 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,11 @@ +2001-02-13 19:00:00 ShengHuo ZHU + + * gnus.texi (Saving Articles): Addition. + +2001-02-14 15:00:00 ShengHuo ZHU + + * gnus.texi (Group Parameters): Addition. + 2001-02-11 13:00:00 ShengHuo ZHU * gnus.texi (Choosing Commands): Move `G j' here. diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 5657d39..baf0ff0 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -2585,6 +2585,9 @@ kiboze $B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"(Bkiboze $B%0%k!<%W$K!V4^$ $B$m$KCM$,$"$k$b$N!"$G9=@.$5$l$^$9!#A4$F$N%Q%i%a!<%?$O$3$N7A<0$ro$N%j%9%H$K$J$j$^$9!#(B +$B$$$/$D$+$N%Q%i%a!<%?$OBP1~$9$k%+%9%?%^%$%:2DG=$JJQ?t$r;}$C$F$$$^$9!#$=$l(B +$B$i$O@55,I=8=$HCM$NO"A[%j%9%H$G$9!#(B + $B0J2<$OMxMQ2DG=$J%0%k!<%W%Q%i%a!<%?$G$9(B: @table @code @@ -2609,6 +2612,8 @@ kiboze $B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"(Bkiboze $B%0%k!<%W$K!V4^$ $B$7$FD>@\Ej9F$9$k$3$H$OIT2DG=$G!"Be$o$j$K$=$N%a!<%j%s%0%j%9%H$K%a!<%k$rAw(B $B?.$7$J$1$l$P$J$j$^$;$s!#(B +@code{gnus-parameter-to-address-alist} $B$b;2>H$7$F2<$5$$!#(B + @item to-list @cindex to-list $B$=$N%0%k!<%W$G(B @kbd{a} $B$r2!$7$?$H$-$K;HMQ$5$l$k%"%I%l%9!#(B @@ -2631,6 +2636,8 @@ kiboze $B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"(Bkiboze $B%0%k!<%W$K!V4^$ $B$b$7(B @kbd{a} $B%3%^%s%I$r%a!<%k%0%k!<%W$GH$7$F2<$5$$!#(B + @item visible @cindex visible $B%0%k!<%W%Q%i%a!<%?$N%j%9%HCf$K(B @code{(visible . t)} $B$H$$$&MWAG$,$"$l$P!"(B @@ -2671,6 +2678,8 @@ kiboze $B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"(Bkiboze $B%0%k!<%W$K!V4^$ $B$N4{FI5-;v$O;~8B>C5n$5$l$k$h$&$K0u$rIU$1$i$l$^$9!#B>$NJ}K!$O!"(B @pxref{Expiring Mail}$B!#(B +@code{gnus-auto-expirable-newsgroups} $B$b;2>H$7$F2<$5$$!#(B + @item total-expire @cindex total-expire $B%0%k!<%W%Q%i%a!<%?$K(B @code{(total-expire . t)} $B$N$h$&$JMWAG$,$"$l$P!"4{(B @@ -2678,6 +2687,8 @@ kiboze $B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"(Bkiboze $B%0%k!<%W$K!V4^$ $B0U$7$F;HMQ$7$F$/$@$5$$!#L$FI5-;v!"0uIU$-5-;v!"J]N15-;v$O;~8B>C5n$5$l$^$;(B $B$s!#(B +@code{gnus-total-expirable-newsgroups} $B$b;2>H$7$F2<$5$$!#(B + @item expiry-wait @cindex expiry-wait @vindex nnmail-expiry-wait-function @@ -2721,26 +2732,21 @@ kiboze $B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"(Bkiboze $B%0%k!<%W$K!V4^$ $B$9$kG$0U$N%3%a%s%H$G$9!#$3$l$O8=:_$N(B gnus $B$G$OL5;k$5$l$^$9$,!"FCDj$N%0%k!<(B $B%W$KBP$9$k>pJs$r3JG<$9$k>l=j$rDs6!$7$^$9!#(B -@c FIXTGNUS Is this true? -@c @item charset -@c Elements that look like @code{(charset . iso-8859-1)} will make -@c @code{iso-8859-1} the default charset; that is, the charset that will be -@c used for all articles that do not specify a charset. +@ignore +@item charset +Elements that look like @code{(charset . iso-8859-1)} will make +@code{iso-8859-1} the default charset; that is, the charset that will be +used for all articles that do not specify a charset. -@item (@var{variable} @var{form}) -$B%0%k!<%W$KF~$k$H$-$K!"$=$N%0%k!<%W%m!<%+%k$NJQ?t$r@_Dj$9$k%0%k!<%W%Q%i%a!<(B -$B%?$r;HMQ$9$k$3$H$,$G$-$^$9!#(B@samp{news.answers} $B$K$*$$$F%9%l%C%II=<($r9T(B -$B$$$?$/$J$$$H$-$O!"$=$N%0%k!<%W$K%0%k!<%W%Q%i%a!<%?(B -$B$K(B @code{(gnus-show-threads nil)} $B$H=q$1$^$9!#(B -@code{gnus-show-threads} $B$O!"$=$N35N,%P%C%U%!$NCf$N%m!<%+%kJQ?t$K$J$j!"(B -form $B$N(B @code{nil} $B$O$=$3$GI>2A$5$l$^$9!#(B +See also @code{gnus-group-charset-alist}. -$B$3$l$O$b$7I,MW$G$"$l$P!"%0%k!<%WKh$N%U%C%/4X?t$H$7$F$b;HMQ$G$-$^$9!#$b$7(B -$B$"$k%0%k!<%W$KF~$C$?$H$-$K%S!<%W2;$rLD$i$7$?$1$l$P!"$=$N%0%k!<%W$N%Q%i%a!<(B -$B%?$K(B @code{(dummy-variable (ding))} $B$_$?$$$J$b$N$r=q$$$F$*$/$3$H$b$G$-$^(B -$B$9!#(B@code{dummy-variable} $B$H$$$&JQ?t$K(B @code{(ding)} $B$NI>2A7k2L$,@_Dj$5(B -$B$l$^$9$,!"$^$"!"C/$b5$$K$7$J$$$G$7$g(B? +@item ignored-charsets +Elements that look like @code{(ignored-charsets x-known iso-8859-1)} +will make @code{iso-8859-1} and @code{x-unknown} ignored; that is, the +default charset will be used for decoding articles. +See also @code{gnus-group-ignored-charsets-alist}. +@end ignore @item posting-style $B$3$N%0%k!<%W$NDI2C$NEj9FMM<0$r$3$3$N$_$KJ]B8$9$k$3$H$,$G$-$^(B $B$9(B (@pxref{Posting Styles})$B!#=q<0$O(B @code{gnus-posting-style} $BO"A[%j%9%H(B @@ -2765,6 +2771,20 @@ form $B$N(B @code{nil} $B$O$=$3$GI>2A$5$l$^$9!#(B $B=|(B) $B$dO"A[%j%9%H(B @code{gnus-article-banner-alist} $B$N3FMWAG$r;H$&$3$H$b$G(B $B$-$^$9!#(B +@item (@var{variable} @var{form}) +$B%0%k!<%W$KF~$k$H$-$K!"$=$N%0%k!<%W%m!<%+%k$NJQ?t$r@_Dj$9$k%0%k!<%W%Q%i%a!<(B +$B%?$r;HMQ$9$k$3$H$,$G$-$^$9!#(B@samp{news.answers} $B$K$*$$$F%9%l%C%II=<($r9T(B +$B$$$?$/$J$$$H$-$O!"$=$N%0%k!<%W$K%0%k!<%W%Q%i%a!<%?(B +$B$K(B @code{(gnus-show-threads nil)} $B$H=q$1$^$9!#(B +@code{gnus-show-threads} $B$O!"$=$N35N,%P%C%U%!$NCf$N%m!<%+%kJQ?t$K$J$j!"(B +form $B$N(B @code{nil} $B$O$=$3$GI>2A$5$l$^$9!#(B + +$B$3$l$O$b$7I,MW$G$"$l$P!"%0%k!<%WKh$N%U%C%/4X?t$H$7$F$b;HMQ$G$-$^$9!#$b$7(B +$B$"$k%0%k!<%W$KF~$C$?$H$-$K%S!<%W2;$rLD$i$7$?$1$l$P!"$=$N%0%k!<%W$N%Q%i%a!<(B +$B%?$K(B @code{(dummy-variable (ding))} $B$_$?$$$J$b$N$r=q$$$F$*$/$3$H$b$G$-$^(B +$B$9!#(B@code{dummy-variable} $B$H$$$&JQ?t$K(B @code{(ding)} $B$NI>2A7k2L$,@_Dj$5(B +$B$l$^$9$,!"$^$"!"C/$b5$$K$7$J$$$G$7$g(B? + @end table $B%0%k!<%W%Q%i%a!<%?$N=$@5$K$O(B @kbd{G p} $B$+(B @kbd{G c} $BL?Na$r;H$C$F$/$@$5(B @@ -6383,6 +6403,10 @@ MH $B%i%$%V%i%j!<$N(B @code{rcvstore} $B$rMQ$$$k;v$K$h$C$F5-;v$r(B MH $B%U% @item gnus-plain-save-name @findex gnus-plain-save-name @file{~/News/alt.andera-dworkin} $B$N$h$&$J%U%!%$%kL>!#(B + +@item gnus-sender-save-name +@findex gnus-sender-save-name +@file{~/News/larsi} $B$N$h$&$J%U%!%$%kL>!#(B @end table @vindex gnus-split-methods @@ -11008,12 +11032,12 @@ UNDELETED} $B$O$*$=$i$/$?$$$F$$$N?M$K$O:GNI$NA*Br$G$7$g$&$,!"$H$-$I(B $B$-(B @sc{imap} $B%/%i%$%"%s%H$G%a!<%k%\%C%/%9$r=|$-!"$$$/$D$+$N5-;v$K4{(B $BFI(B ($B$b$7$/$O!"(BSEEN) $B$N0u$rIU$1$k$J$i!"(B@samp{nil} $B$K@_Dj$7$?$$$+$b$7$l$^(B $B$;$s!#$=$&$9$l$P!"%a!<%k%\%C%/%9$NA4$F$N5-;v$O0u$NG!2?$K4X$o$i$:C5n$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 N'2.3.2 $B$GDj5A$5(B $B$l$F$$$^$9!#(B @item :dontexpunge @@ -16336,7 +16360,7 @@ bbbd $B%5!<%P!<$,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 +FranNgois Pinard---$BB?$/$N!"B?$/$N6=L#?<$/40A4$J%P%0%l%]!<%H$H(B autoconf $B$N(B $B%5%]!<%H!#(B @end itemize @@ -18729,7 +18753,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 KNegedal, Richard Pieri, Fabrice Popineau, Daniel Quinlan, @@ -18815,7 +18839,7 @@ Gunnar Horrigmo, Richard Hoskins, Brad Howes, Miguel de Icaza, -Fran.ANgois Felix Ingrand, +FranNgois Felix Ingrand, Tatsuya Ichikawa, @c ? Ishikawa Ichiro, @c Ishikawa Lee Iverson, diff --git a/texi/gnus.texi b/texi/gnus.texi index 351c8a1..cb1221d 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -2545,6 +2545,9 @@ the dot is the key, while the thing after the dot is the value. All the parameters have this form @emph{except} local variable specs, which are not dotted pairs, but proper lists. +Some parameters have correspondant customizable variables, each of which +is an alist of regexps and values. + The following group parameters can be used: @table @code @@ -2569,6 +2572,8 @@ the articles from a mail-to-news gateway. Posting directly to this group is therefore impossible---you have to send mail to the mailing list address instead. +See also @code{gnus-parameter-to-address-alist}. + @item to-list @cindex to-list Address used when doing @kbd{a} in that group. @@ -2591,6 +2596,8 @@ If you do an @kbd{a} command in a mail group and you don't have a @code{to-list} group parameter, one will be added automatically upon sending the message. +See also @code{gnus-parameter-to-list-alist}. + @item visible @cindex visible If the group parameter list has the element @code{(visible . t)}, @@ -2633,6 +2640,8 @@ If the group parameter has an element that looks like @code{(auto-expire . t)}, all articles read will be marked as expirable. For an alternative approach, @pxref{Expiring Mail}. +See also @code{gnus-auto-expirable-newsgroups}. + @item total-expire @cindex total-expire If the group parameter has an element that looks like @@ -2641,6 +2650,8 @@ expiry process, even if they are not marked as expirable. Use with caution. Unread, ticked and dormant articles are not eligible for expiry. +See also @code{gnus-total-expirable-newsgroups}. + @item expiry-wait @cindex expiry-wait @vindex nnmail-expiry-wait-function @@ -2692,19 +2703,14 @@ Elements that look like @code{(charset . iso-8859-1)} will make @code{iso-8859-1} the default charset; that is, the charset that will be used for all articles that do not specify a charset. -@item (@var{variable} @var{form}) -You can use the group parameters to set variables local to the group you -are entering. If you want to turn threading off in @samp{news.answers}, -you could put @code{(gnus-show-threads nil)} in the group parameters of -that group. @code{gnus-show-threads} will be made into a local variable -in the summary buffer you enter, and the form @code{nil} will be -@code{eval}ed there. +See also @code{gnus-group-charset-alist}. -This can also be used as a group-specific hook function, if you'd like. -If you want to hear a beep when you enter a group, you could put -something like @code{(dummy-variable (ding))} in the parameters of that -group. @code{dummy-variable} will be set to the result of the -@code{(ding)} form, but who cares? +@item ignored-charsets +Elements that look like @code{(ignored-charsets x-known iso-8859-1)} +will make @code{iso-8859-1} and @code{x-unknown} ignored; that is, the +default charset will be used for decoding articles. + +See also @code{gnus-group-ignored-charsets-alist}. @item posting-style You can store additional posting style information for this group only @@ -2730,6 +2736,20 @@ that matches the regular expression "regex" to be stripped. Instead of last signature or any of the elements of the alist @code{gnus-article-banner-alist}. +@item (@var{variable} @var{form}) +You can use the group parameters to set variables local to the group you +are entering. If you want to turn threading off in @samp{news.answers}, +you could put @code{(gnus-show-threads nil)} in the group parameters of +that group. @code{gnus-show-threads} will be made into a local variable +in the summary buffer you enter, and the form @code{nil} will be +@code{eval}ed there. + +This can also be used as a group-specific hook function, if you'd like. +If you want to hear a beep when you enter a group, you could put +something like @code{(dummy-variable (ding))} in the parameters of that +group. @code{dummy-variable} will be set to the result of the +@code{(ding)} form, but who cares? + @end table Use the @kbd{G p} or the @kbd{G c} command to edit group parameters of a @@ -6484,6 +6504,10 @@ File names like @file{~/News/Alt.andrea-dworkin}. @item gnus-plain-save-name @findex gnus-plain-save-name File names like @file{~/News/alt.andrea-dworkin}. + +@item gnus-sender-save-name +@findex gnus-sender-save-name +File names like @file{~/News/larsi}. @end table @vindex gnus-split-methods @@ -7986,7 +8010,7 @@ hierarchy uses @code{iso-2022-jp-2}. @vindex gnus-group-charset-alist This knowledge is encoded in the @code{gnus-group-charset-alist} -variable, which is an alist of regexps (to match group names) and +variable, which is an alist of regexps (to match full group names) and default charsets to be used when reading these groups. In addition, some people do use soi-disant @sc{mime}-aware agents that -- 1.7.10.4