Posts to foreign nntp groups

Posts to foreign nntp groups

[Alan Shutko]

I just upgraded to Gnus v5.6.4 on one of my other account.  I
vaguely recall discussion that Lars was changing the default for posts
in foreign groups to post to the server the group came from.  I'm not
seeing this yet.  Am I recalling incorrectly, or is there a variable
somewhere to configure this?

No... the manual still says it's the old behavior... any way to change
that?


-- 
Alan Shutko <ats@acm.org> - By consent of the corrupted
IBM = (I)nferior (B)ut (M)arketable

Re: Posts to foreign nntp groups

[Jan Vroonhof]

[-- Attachment #1: Type: text/plain, Size: 352 bytes --]

Alan Shutko <ats@acm.org> writes:

> I just upgraded to Gnus v5.6.4 on one of my other account.  I
> vaguely recall discussion that Lars was changing the default for posts
> in foreign groups to post to the server the group came from.

I did too! MiniLars has rewritten history to change it back. I am not
alone! 

This is is the official word on it:


[-- Attachment #2: Type: message/rfc822, Size: 987 bytes --]

From: Lars Magne Ingebrigtsen <lmi@gnus.org>
Subject: Re: Gnus end Foreign groups
Date: 26 Mar 1998 15:35:00 +0100
Message-ID: <m34t0lr04r.fsf@sparky.gnus.org>

Jan Vroonhof <vroonhof@frege.math.ethz.ch> writes:

> Weird.. I thought I remembered Lars giving in the end. 

We shall fight them on the beaches!  We shall fight them in the
streets!  We shall not give in!

-- 
(domestic pets only, the antidote for overdose, milk.)
  lmi@gnus.org * Lars Magne Ingebrigtsen

Re: Posts to foreign nntp groups

[Alan Shutko]

>>>>> "J" == Jan Vroonhof <vroonhof@math.ethz.ch> writes:

J> --Multipart_Wed_Apr__1_18:17:02_1998-1 Content-Type: text/plain;
J> charset=US-ASCII

J> Alan Shutko <ats@acm.org> writes:

>> I just upgraded to Gnus v5.6.4 on one of my other account.  I
>> vaguely recall discussion that Lars was changing the default for
>> posts in foreign groups to post to the server the group came from.

J> I did too! MiniLars has rewritten history to change it back. I am
J> not alone!

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....

-- 
Alan Shutko <ats@acm.org> - By consent of the corrupted
100% Damage to life support!!!!

Re: Posts to foreign nntp groups

[Jan Vroonhof]

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)))

	

Re: Posts to foreign nntp groups

[Jan Vroonhof]

Ahum... Always patch against your *latest* version

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.

bolzano:~/.xemacs/lisp/gnus> diff -u gnus-msg.el.orig  gnus-msg.el
--- gnus-msg.el.orig	Sun Mar  8 00:23:12 1998
+++ gnus-msg.el	Wed Apr  1 20:15:44 1998
@@ -34,17 +34,22 @@
 (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.")
+(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.
@@ -426,18 +431,21 @@
      ;; If the group-method is nil (which shouldn't happen) we use
      ;; the default method.
      ((null group-method)
-      (or gnus-post-method gnus-select-method message-post-method))
-     ;; We want this group's method.
+      (or (and (null (eq gnus-post-method 'active)) gnus-post-method)
+	       gnus-select-method message-post-method))
+     ;; We want the inverse of the default
      ((and arg (not (eq arg 0)))
-      group-method)
+      (if (eq gnus-post-method 'active)
+	  gnus-select-method
+	group-method))
      ;; We query the user for a post method.
      ((or arg
-	  (and gnus-post-method
+	  (and gnus-post-method (null (eq gnus-post-method 'native))
 	       (listp (car gnus-post-method))))
       (let* ((methods
 	      ;; Collect all methods we know about.
 	      (append
-	       (when gnus-post-method
+	       (when (and gnus-post-method (null (eq gnus-post-method 'native)))
 		 (if (listp (car gnus-post-method))
 		     gnus-post-method
 		   (list gnus-post-method)))
@@ -470,6 +478,8 @@
 		   (cons (or gnus-last-posting-server "") 0))))
 	  method-alist))))
      ;; Override normal method.
+     ((eq gnus-post-method 'native)
+      group-method) 
      (gnus-post-method
       gnus-post-method)
      ;; Use the normal select method.