2001-10-23 Per Abrahamsen <abraham@dina.kvl.dk>

	* gnus.texi (Posting Server): Use `native' instead of `nil' for
	posting to native server.

2001-10-23  Per Abrahamsen  <abraham@dina.kvl.dk>

	* gnus.el (post-method): Use `native' instead of `nil'.
	* gnus-msg.el (gnus-post-method): Ditto.

2001-10-23  Per Abrahamsen  <abraham@dina.kvl.dk>

	* gnus.el (gnus-define-group-parameter): Grammar fix.

(and fixed Simons ChangeLog entry to give proper credit for the
User-Agent change)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf234fe..cc2db68 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,17 @@
+2001-10-23  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * gnus.el (post-method): Use `native' instead of `nil'.
+       * gnus-msg.el (gnus-post-method): Ditto.
+
+2001-10-23  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * gnus.el (gnus-define-group-parameter): Grammar fix.
+
 2001-10-22  Simon Josefsson  <jas@extundo.com>
 
        * gnus-msg.el (gnus-extended-version): Include
-       system-configuration, suggested by Per Abrahamsen
-       <abraham@dina.kvl.dk>.
+       system-configuration.
+       Suggested by Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Gro\e,A_\e(Bjohann).
 
 2001-10-22  Per Abrahamsen  <abraham@dina.kvl.dk>
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 455e738..99142b6 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -38,19 +38,19 @@
   "*Preferred method for posting USENET news.
 
 If this variable is `current' (which is the default), Gnus will use
-the \"current\" select method when posting.  If it is nil, Gnus will
-use the native select method when posting.
+the \"current\" select method when posting.  If it is `native', Gnus
+will use the native select method when posting.
 
 This method will not be used in mail groups and the like, only in
 \"real\" newsgroups.
 
-If not nil nor `current', the value must be a valid method as discussed
+If not `native' nor `current', the value must be a valid method as discussed
 in the documentation of `gnus-select-method'.  It can also be a list of
 methods.  If that is the case, the user will be queried for what select
 method to use when posting."
   :group 'gnus-group-foreign
   :link '(custom-manual "(gnus)Posting Server")
-  :type `(choice (const nil)
+  :type `(choice (const native)
                 (const current)
                 (sexp :tag "Methods" ,gnus-select-method)))
 
@@ -667,8 +667,11 @@ If SILENT, don't prompt the user."
      ;; If the group-method is nil (which shouldn't happen) we use
      ;; the default method.
      ((null group-method)
-      (or (and (not (eq gnus-post-method 'current)) gnus-post-method)
-         gnus-select-method message-post-method))
+      (or (and (listp gnus-post-method)        ;If not current/native/nil
+              (not (listp (car gnus-post-method))) ; and not a list of methods
+              gnus-post-method)        ;then use it.
+         gnus-select-method 
+         message-post-method))
      ;; We want the inverse of the default
      ((and arg (not (eq arg 0)))
       (if (eq gnus-post-method 'current)
@@ -676,14 +679,12 @@ If SILENT, don't prompt the user."
        group-method))
      ;; We query the user for a post method.
      ((or arg
-         (and gnus-post-method
-              (not (eq gnus-post-method 'current))
+         (and (listp gnus-post-method)
               (listp (car gnus-post-method))))
       (let* ((methods
              ;; Collect all methods we know about.
              (append
-              (when (and gnus-post-method
-                         (not (eq gnus-post-method 'current)))
+              (when (listp gnus-post-method)
                 (if (listp (car gnus-post-method))
                     gnus-post-method
                   (list gnus-post-method)))
@@ -723,13 +724,14 @@ If SILENT, don't prompt the user."
      ;; Override normal method.
      ((and (eq gnus-post-method 'current)
           (not (eq (car group-method) 'nndraft))
-          (gnus-get-function group-method 'request-post t)
-          (not arg))
+          (gnus-get-function group-method 'request-post t))
+      (assert (not arg))
       group-method)
-     ((and gnus-post-method
-          (not (eq gnus-post-method 'current)))
+     ;; Use gnus-post-method.
+     ((listp gnus-post-method)         ;A method...
+      (assert (not (listp (car gnus-post-method)))) ;... not a list of methods.
       gnus-post-method)
-     ;; Use the normal select method.
+     ;; Use the normal select method (nil or native).
      (t gnus-select-method))))
 
 \f

diff --git a/lisp/gnus.el b/lisp/gnus.el
index b93a872..e6a5c22 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -883,11 +883,11 @@ For example:
 REST is a plist of following:
 :type               One of `bool', `list' or `nil'.
 :function           The name of the function.
-:function-document  The document of the function.
+:function-document  The documentation of the function.
 :parameter-type     The type for customizing the parameter.
-:parameter-document The document for the parameter.
+:parameter-document The documentation for the parameter.
 :variable           The name of the variable.
-:variable-document  The document for the variable.
+:variable-document  The documentation for the variable.
 :variable-group     The group for customizing the variable.
 :variable-type      The type for customizing the variable.
 :variable-default   The default value of the variable."
@@ -1590,7 +1590,7 @@ posting an article."
  :variable-group gnus-group-foreign
  :parameter-type
  '(choice :tag "Posting Method"
-         (const :tag "Use native server" nil)
+         (const :tag "Use native server" native)
          (const :tag "Use current server" current)
          (list :convert-widget
                (lambda (widget)

diff --git a/texi/ChangeLog b/texi/ChangeLog
index f997aec..27c421a 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-23  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * gnus.texi (Posting Server): Use `native' instead of `nil' for
+       posting to native server.
+
 2001-10-22  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * dir (File): Add standard explanation header.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 65c09be..9116e47 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -10273,7 +10273,7 @@ If that's the case, Gnus will always prompt you for what method to use
 for posting.
 
 Finally, if you want to always post using the native select method,
-you can set this variable to @code{nil}.
+you can set this variable to @code{native}.
 
 
 @node Mail and Post