From: yamaoka Date: Fri, 3 Aug 2001 07:03:09 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_4-06-quimby~6 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8a9bf9c43313d283a70ca2be0dc6b753c8c2ec7f;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 408758e..95ef95b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2001-08-02 Katsumi Yamaoka + + * gnus.el (post-method): New group parameter. It also provides + the user option `gnus-post-method-alist' and the internal function + `gnus-parameter-post-method'. + + * gnus-msg.el (gnus-post-method): Bind the value of + `gnus-post-method' to the group parameter if it is defined. + 2001-08-02 Simon Josefsson * smime.el (smime-extra-arguments): Removed. diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 235f051..fe44147 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -701,9 +701,9 @@ header line with the old Message-ID." (defun gnus-post-method (arg group &optional silent) "Return the posting method based on GROUP and ARG. If SILENT, don't prompt the user." - (let ((group-method - (or (car (gnus-group-find-parameter group 'gnus-post-method t)) - (gnus-find-method-for-group group)))) + (let ((gnus-post-method (or (gnus-parameter-post-method group) + gnus-post-method)) + (group-method (gnus-find-method-for-group group))) (cond ;; If the group-method is nil (which shouldn't happen) we use ;; the default method. diff --git a/lisp/gnus.el b/lisp/gnus.el index 293e16f..7314e6f 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1623,6 +1623,28 @@ Use with caution.") :parameter-document "\ The default charset to use in the group.") +(gnus-define-group-parameter + post-method + :type list + :function-document + "Return a posting method for GROUP." + :variable gnus-post-method-alist + :variable-document + "Alist of regexps (to match group names) and method to be used when +posting an article." + :variable-group gnus-group-foreign + :parameter-type + '(choice :tag "Posting Method" + (const nil) + (const current) + (const native) + (list :convert-widget + (lambda (widget) + (list 'sexp :tag "Methods" + :value gnus-select-method)))) + :parameter-document + "Posting method for this group.") + (defcustom gnus-group-uncollapsed-levels 1 "Number of group name elements to leave alone when making a short group name." :group 'gnus-group-visual diff --git a/texi/ChangeLog b/texi/ChangeLog index 911e6dc..5e98338 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,10 @@ +2001-08-02 22:00:00 ShengHuo ZHU + + * emacs-mime.texi (Non-MIME): Addition. + + * gnus.texi (Group Parameters): Addition. + (Mailing List): Addition. + 2001-08-01 Simon Josefsson * texi2latex.el (latexi-translate-file): Don't use point-at-bol. diff --git a/texi/emacs-mime.texi b/texi/emacs-mime.texi index a41377b..778229c 100644 --- a/texi/emacs-mime.texi +++ b/texi/emacs-mime.texi @@ -824,6 +824,7 @@ returned as a result of this analysis. @menu * Dissection:: Analyzing a @sc{mime} message. +* Non-MIME:: Analyzing a non-@sc{mime} message. * Handles:: Handle manipulations. * Display:: Displaying handles. * Customization:: Variables that affect display. @@ -839,6 +840,62 @@ a @sc{mime} article. If given a multipart message, it will recursively descend the message, following the structure, and return a tree of @sc{mime} handles that describes the structure of the message. +@node Non-MIME +@section Non-MIME + +Gnus also understands some non-MIME attachments, such as postscript, +uuencode, binhex, shar, forward, gnatsweb, pgp. Each of these features +can be disabled by add an item into @code{mm-uu-configure-list}. +For example, + +@lisp +(require 'mm-uu) +(add-to-list 'mm-uu-configure-list '(pgp-signed . disabled)) +@end lisp + +@table @code +@item postscript +@findex postscript +Postscript file. + +@item uu +@findex uu +Uuencoded file. + +@item binhex +@findex binhex +Binhex encoded file. + +@item shar +@findex shar +Shar archive file. + +@item forward +@findex forward +Non-@sc{mime} forwarded message. + +@item gnatsweb +@findex gnatsweb +Gnatsweb attachment. + +@item pgp-signed +@findex pgp-signed +PGP signed clear text. + +@item pgp-encrypted +@findex pgp-encrypted +PGP encrypted clear text. + +@item pgp-key +@findex pgp-key +PGP public keys. + +@item emacs-sources +@findex emacs-sources +Emacs source code. This item works only in the groups matching +@code{mm-uu-emacs-sources-regexp}. + +@end table @node Handles @section Handles diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index effa653..cd1719c 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -570,6 +570,7 @@ Summary Buffer * Crosspost Handling:: $B%/%m%9%]%9%H$5$l$?5-;v$,$I$N$h$&$K07$o$l$k$+(B * Duplicate Suppression:: $B%/%m%9%]%9%H$N07$$$K<:GT$7$?$H$-$NBeBXA0$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 @@ -2758,6 +2762,11 @@ See also @code{gnus-group-ignored-charsets-alist}. (signature "Funky Signature")) @end example +@item post-method +@cindex post-method +$B$b$7$3$l$,@_Dj$5$l$F$$$k$H!"%a%C%;!<%8$rAw?.$9$k$?$a$NA*BrJ}K!$H$7(B +$B$F(B @code{gnus-post-method} $B$NBe$o$j$K;H$o$l$^$9!#(B + @item banner @code{(banner . "regex")} $B$N$h$&$J9`L\$O!"5-;v$N$9$Y$F$N>l=j$G@55,I=(B $B8=(B "regex" $B$K%^%C%A$9$k$b$N$r:o=|$7$^$9!#(B"regex" $B$NBe$o$j$K%7%s%\(B @@ -3930,6 +3939,7 @@ Gnus $B$K!"$"$J$?$,:G8e$K$$$D%0%k!<%W$rFI$s$@$+$r5-O?$5$;$k$HJXMx$+$b$7$l(B * Crosspost Handling:: $B%/%m%9%]%9%H$5$l$?5-;v$,$I$N$h$&$K07$o$l$k$+(B * Duplicate Suppression:: $B%/%m%9%]%9%H$N07$$$K<:GT$7$?$H$-$NBeBX