Re: Posts to foreign nntp groups

[Jan Vroonhof <vroonhof@math.ethz.ch>]

Alan Shutko <ats@acm.org> writes:

> Well, since he _didn't_ give in, anyone have a patch to make it so?
> What with so many corporate run nntp servers these days, it's useless
> to try to send posts to anywhere else.  I'm sick of watching leafnode
> core dump because it can't handle groups not existing....

I just hacked this up (there have been patches like this before).
I do not have gnus.texi at hand so I cannot provide a patch for that.

1998-04-01  Jan Vroonhof  <vroonhof@math.ethz.ch>

	* gnus-msg.el (gnus-post-method): Customized. Added 'native
	option. In the function, added support for new value.


diff -c /u/users/vroonhof/.xemacs/lisp/gnus/gnus-msg.el.orig /u/users/vroonhof/.xemacs/lisp/gnus/gnus-msg.el
*** /u/users/vroonhof/.xemacs/lisp/gnus/gnus-msg.el.orig	Wed Apr  1 19:43:24 1998
--- /u/users/vroonhof/.xemacs/lisp/gnus/gnus-msg.el	Wed Apr  1 19:43:24 1998
***************
*** 34,50 ****
  (require 'gnus-art)
  
  ;; Added by Sudish Joseph <joseph@cis.ohio-state.edu>.
! (defvar gnus-post-method nil
!   "*Preferred method for posting USENET news.
! If this variable is nil, Gnus will use the current method to decide
! which method to use when posting.  If it is non-nil, it will override
! the current method.  This method will not be used in mail groups and
! the like, only in \"real\" newsgroups.
! 
! 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.")
  
  (defvar gnus-outgoing-message-group nil
    "*All outgoing messages will be put in this group.
--- 34,55 ----
  (require 'gnus-art)
  
  ;; Added by Sudish Joseph <joseph@cis.ohio-state.edu>.
! (defcustom gnus-post-method 'native
!   "*Preferred method for posting USENET news. If this variable is nil,
! Gnus will use the current method to decide which method to use when
! posting. If it is 'native Gnus will use the native posting method of
! the server. Otherwise it will override the current method. This method
! will not be used in mail groups and the like, only in \"real\"
! newsgroups.
! 
! In the latter case he 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
!   :type `(choice (const nil)
! 		 (const native)
! 		 (sexp :tag "Methods" ,gnus-select-method)))
  
  (defvar gnus-outgoing-message-group nil
    "*All outgoing messages will be put in this group.
***************
*** 428,434 ****
       ((null group-method)
        (or gnus-post-method gnus-select-method message-post-method))
       ;; We want this group's method.
!      ((and arg (not (eq arg 0)))
        group-method)
       ;; We query the user for a post method.
       ((or arg
--- 433,441 ----
       ((null group-method)
        (or gnus-post-method gnus-select-method message-post-method))
       ;; We want this group's method.
!      ((and arg (if (eq gnus-post-method 'native)
! 		   (eq arg 0)
! 		   (not (eq arg 0))))
        group-method)
       ;; We query the user for a post method.
       ((or arg
***************
*** 437,443 ****
        (let* ((methods
  	      ;; Collect all methods we know about.
  	      (append
! 	       (when gnus-post-method
  		 (if (listp (car gnus-post-method))
  		     gnus-post-method
  		   (list gnus-post-method)))
--- 444,450 ----
        (let* ((methods
  	      ;; Collect all methods we know about.
  	      (append
! 	       (when (and gnus-post-method (null (eq gnus-post-method 'native)))
  		 (if (listp (car gnus-post-method))
  		     gnus-post-method
  		   (list gnus-post-method)))