--- gnus-msg.el~	Wed Aug  1 01:02:04 2001
+++ gnus-msg.el	Thu Aug  2 10:58:02 2001
@@ -649,9 +649,9 @@
 (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.
--- gnus.el~	Sun Jul 29 21:58:27 2001
+++ gnus.el	Thu Aug  2 10:58:02 2001
@@ -1582,6 +1582,28 @@
  :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