Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 408758e..95ef95b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2001-08-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <jas@extundo.com>
 
        * smime.el (smime-extra-arguments): Removed.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 235f051..fe44147 100644 (file)
--- 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 (file)
--- 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 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,10 @@
+2001-08-02 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * emacs-mime.texi (Non-MIME): Addition.
+
+       * gnus.texi (Group Parameters): Addition.
+       (Mailing List): Addition.
+
 2001-08-01  Simon Josefsson  <jas@extundo.com>
 
        * 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 (file)
--- 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 (file)
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -570,6 +570,7 @@ Summary Buffer
 * Crosspost Handling::         \e$B%/%m%9%]%9%H$5$l$?5-;v$,$I$N$h$&$K07$o$l$k$+\e(B
 * Duplicate Suppression::      \e$B%/%m%9%]%9%H$N07$$$K<:GT$7$?$H$-$NBeBX<jCJ\e(B
 @c * Security::                    Decrypt and Verify.
+* Mailing List::               \e$B%a!<%j%s%0%j%9%H%^%$%J!<%b!<%I\e(B
 
 Summary Buffer Format
 
@@ -2630,6 +2631,9 @@ kiboze \e$B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"\e(Bkiboze \e$B%0%k!<%W$K!V4^$
 \e$B$b$7\e(B @kbd{a} \e$B%3%^%s%I$r%a!<%k%0%k!<%W$G<B9T$7$?$H$-!"\e(B@code{to-list} \e$B%0%k!<\e(B
 \e$B%W%Q%i%a!<%?$,$J$1$l$P!"Aw?.;~$K<+F0E*$KIU2C$5$l$^$9!#\e(B
 
+\e$B$b$7$3$N%0%k!<%W%Q%i%a!<%?$,@_Dj$5$l$F$$$k$H!"35N,%P%C%U%!$KF~$C$?$H$-\e(B
+\e$B$K\e(B @code{gnus-mailing-list-mode} \e$B$,M-8z$K$J$j$^$9!#\e(B
+
 @code{gnus-parameter-to-list-alist} \e$B$b;2>H$7$F2<$5$$!#\e(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
+\e$B$b$7$3$l$,@_Dj$5$l$F$$$k$H!"%a%C%;!<%8$rAw?.$9$k$?$a$NA*BrJ}K!$H$7\e(B
+\e$B$F\e(B @code{gnus-post-method} \e$B$NBe$o$j$K;H$o$l$^$9!#\e(B
+
 @item banner
 @code{(banner . "regex")} \e$B$N$h$&$J9`L\$O!"5-;v$N$9$Y$F$N>l=j$G@55,I=\e(B
 \e$B8=\e(B "regex" \e$B$K%^%C%A$9$k$b$N$r:o=|$7$^$9!#\e(B"regex" \e$B$NBe$o$j$K%7%s%\\e(B
@@ -3930,6 +3939,7 @@ Gnus \e$B$K!"$"$J$?$,:G8e$K$$$D%0%k!<%W$rFI$s$@$+$r5-O?$5$;$k$HJXMx$+$b$7$l\e(B
 * Crosspost Handling::         \e$B%/%m%9%]%9%H$5$l$?5-;v$,$I$N$h$&$K07$o$l$k$+\e(B
 * Duplicate Suppression::      \e$B%/%m%9%]%9%H$N07$$$K<:GT$7$?$H$-$NBeBX<jCJ\e(B
 @c * Security::                    Decrypt and Verify.
+* Mailing List::               \e$B%a!<%j%s%0%j%9%H%^%$%J!<%b!<%I\e(B
 @end menu
 
 @node Summary Buffer Format
@@ -8731,6 +8741,50 @@ protocols. Otherwise, ask user.
 @end table
 @end ignore
 
+@node Mailing List
+@section \e$B%a!<%j%s%0%j%9%H\e(B
+
+Gnus \e$B$O\e(B RFC 2369 \e$B$G4{Dj$5$l$?3F<o$N%a!<%j%s%0%j%9%H$G;H$o$l$k%U%#!<%k%I\e(B
+\e$B$rM}2r$7$^$9!#\e(B
+
+@table @kbd
+
+@item C-c C-n h
+@kindex C-c C-n h (Summary)
+@findex gnus-mailing-list-help
+List-Help \e$B%U%#!<%k%I$,$"$C$?$i!"%a!<%j%s%0%j%9%H$N%X%k%W$r<h$j4s$;$k$?$a\e(B
+\e$B$N%a%C%;!<%8$rAw?.$7$^$9!#\e(B
+
+@item C-c C-n s
+@kindex C-c C-n s (Summary)
+@findex gnus-mailing-list-subscribe
+List-Subscribe \e$B%U%#!<%k%I$,$"$C$?$i!"%a!<%j%s%0%j%9%H$N9VFI$r;O$a$k$?$a\e(B
+\e$B$N%a%C%;!<%8$rAw?.$7$^$9!#\e(B
+
+@item C-c C-n u
+@kindex C-c C-n u (Summary)
+@findex gnus-mailing-list-unsubscribe
+List-Unsubscribe \e$B%U%#!<%k%I$,$"$C$?$i!"%a!<%j%s%0%j%9%H$N9VFI$r$d$a$k$?\e(B
+\e$B$a$N%a%C%;!<%8$rAw?.$7$^$9!#\e(B
+
+@item C-c C-n p
+@kindex C-c C-n p (Summary)
+@findex gnus-mailing-list-post
+List-Post \e$B%U%#!<%k%I$,$"$C$?$i!"%a!<%j%s%0%j%9%H$KEj9F$7$^$9!#\e(B
+
+@item C-c C-n o
+@kindex C-c C-n o (Summary)
+@findex gnus-mailing-list-owner
+List-Owner \e$B%U%#!<%k%I$,$"$C$?$i!"%a!<%j%s%0%j%9%H$N4IM}<T08$F$K%a%C%;!<\e(B
+\e$B%8$rAw?.$7$^$9!#\e(B
+
+@item C-c C-n a
+@kindex C-c C-n a (Summary)
+@findex gnus-mailing-list-owner
+List-Archive \e$B%U%#!<%k%I$,$"$C$?$i!"%a!<%j%s%0%j%9%H$N%"!<%+%$%V$r1\Mw$7\e(B
+\e$B$^$9!#\e(B
+@end table
+
 @node Article Buffer
 @chapter \e$B5-;v%P%C%U%!\e(B
 @cindex article buffer

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 7e9e79c..a8bda50 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -514,6 +514,7 @@ Summary Buffer
 * Crosspost Handling::          How crossposted articles are dealt with.
 * Duplicate Suppression::       An alternative when crosspost handling fails.
 * Security::                    Decrypt and Verify.
+* Mailing List::                Mailing list minor mode.
 
 Summary Buffer Format
 
@@ -2609,6 +2610,9 @@ 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.
 
+If this variable is set, @code{gnus-mailing-list-mode} is turned on when
+entering summary buffer.
+
 See also @code{gnus-parameter-to-list-alist}.
 
 @item visible
@@ -2742,6 +2746,11 @@ like this in the group parameters:
   (signature "Funky Signature"))
 @end example
 
+@item post-method
+@cindex post-method
+If it is set, the value is used as the method for posting message
+instead of @code{gnus-post-method}.
+
 @item banner
 An item like @code{(banner . "regex")} causes any part of an article
 that matches the regular expression "regex" to be stripped. Instead of
@@ -3947,6 +3956,7 @@ You can have as many summary buffers open as you wish.
 * Crosspost Handling::          How crossposted articles are dealt with.
 * Duplicate Suppression::       An alternative when crosspost handling fails.
 * Security::                    Decrypt and Verify.
+* Mailing List::                Mailing list minor mode.
 @end menu
 
 
@@ -9276,6 +9286,46 @@ protocols. Otherwise, ask user.
 
 @end table
 
+@node Mailing List
+@section Mailing List
+
+Gnus understands some mailing list fields of RFC 2369.
+
+@table @kbd
+
+@item C-c C-n h
+@kindex C-c C-n h (Summary)
+@findex gnus-mailing-list-help
+Send a message to fetch mailing list help, if List-Help field exists.
+
+@item C-c C-n s
+@kindex C-c C-n s (Summary)
+@findex gnus-mailing-list-subscribe
+Send a message to subscribe the mailing list, if List-Subscribe field exists.
+
+@item C-c C-n u
+@kindex C-c C-n u (Summary)
+@findex gnus-mailing-list-unsubscribe
+Send a message to unsubscribe the mailing list, if List-Unsubscribe
+field exists.
+
+@item C-c C-n p
+@kindex C-c C-n p (Summary)
+@findex gnus-mailing-list-post
+Post to the mailing list, if List-Post field exists.
+
+@item C-c C-n o
+@kindex C-c C-n o (Summary)
+@findex gnus-mailing-list-owner
+Send a message to the mailing list owner, if List-Owner field exists.
+
+@item C-c C-n a
+@kindex C-c C-n a (Summary)
+@findex gnus-mailing-list-owner
+Browse the mailing list archive, if List-Archive field exists.
+
+@end table
+
 @node Article Buffer
 @chapter Article Buffer
 @cindex article buffer