Can't post-followup or post-forward in nnml groups

Can't post-followup or post-forward in nnml groups

[Katsumi Yamaoka]

Hi,

I am reading news in native groups and foreign groups like
nntp+quimby:gnus.ding (news://news.gnus.org/gnus.ding).
`current' the default value of `gnus-post-method' is very useful
for posting an article in such a foreign group.  However,
probably because of this, I can not send a news to followup to
or to forward an article in a nnml group.  I do not want to post
articles to nnml groups, so I tried the following code at first,
but it did not achieve my purpose.

(let ((props (memq 'post-mail
		   (assoc "nnml" gnus-valid-select-methods))))
  (if props
      (setcar props 'mail)))

Is there any other solutions than the barbarous code below?

(fmakunbound 'nnml-request-post)
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: Can't post-followup or post-forward in nnml groups

[Kai Großjohann]

On Tue, 31 Jul 2001, Katsumi Yamaoka wrote:

> However, probably because of this, I can not send a news to followup
> to or to forward an article in a nnml group.

Is it sufficient for you to use `C-u 0 C-c C-c' to post?  Then you can
select a server to post to.

Alternatively, you can set the posting server via group parameters.

Or do I have to remove nnml-request-post again?

kai
-- 
~/.signature: No such file or directory

Re: Can't post-followup or post-forward in nnml groups

[Katsumi Yamaoka]

>>>>> In <vafsnfdqruf.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de> 
>>>>>	Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:

>> However, probably because of this, I can not send a news to followup
>> to or to forward an article in a nnml group.

Kai> Is it sufficient for you to use `C-u 0 C-c C-c' to post?  Then
Kai> you can select a server to post to.

Thanks.  I'm receptive to that idea.  And I've confirmed that I
could do it.

Kai> Alternatively, you can set the posting server via group
Kai> parameters.

I feel it's much better.  However, I don't know what the
parameter symbol is for the posting server.  BTW, I wish I could
do as such as follows:

(setq gnus-secondary-select-methods
      `((nnml "" (gnus-post-method ,gnus-select-method))))
;;or
(setq gnus-post-methods `(nntp current) (t ,gnus-select-method))

Kai> Or do I have to remove nnml-request-post again?

You have no need to remove it.  I'm happy enough that I can use
`C-u 0 C-c C-c'. :-)
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: Can't post-followup or post-forward in nnml groups

[Kai Großjohann]

On Tue, 31 Jul 2001, Katsumi Yamaoka wrote:

> I feel it's much better.  However, I don't know what the
> parameter symbol is for the posting server.  BTW, I wish I could
> do as such as follows:
> 
> (setq gnus-secondary-select-methods
>       `((nnml "" (gnus-post-method ,gnus-select-method))))

How about the variable gnus-parameters?

(setq gnus-parameters
      `(("^nnml:" (gnus-post-method ,gnus-select-method))))

Does this work?

kai
-- 
~/.signature: No such file or directory

Re: Can't post-followup or post-forward in nnml groups

[Amos Gouaux]

>>>>> On Tue, 31 Jul 2001 15:53:37 +0200,
>>>>> Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> (kg) writes:

kg> (setq gnus-parameters
kg>       `(("^nnml:" (gnus-post-method ,gnus-select-method))))

Cool!  I never knew about this.  Guess I overlooked it in the past.
Occasionally I would wonder if there was a way to set '(display
. all) on all my IMAP folders.  This looks to be the trick.

Do group-specific parameters override gnus-parameters?

Now if only I could supply a default response to
gnus-large-newsgroup to these IMAP folders as well.  (Always open
say the last 100 or so messages, rather than getting prompted for a
message count each time.  I could set this gnus-large-newsgroup
variable to something really huge so I'm not prompted, but
considering the size of some of my/our IMAP folders, that would be a
drag.  ;-)


-- 
Amos

Re: Can't post-followup or post-forward in nnml groups

[Kai Großjohann]

On Tue, 31 Jul 2001, Amos Gouaux wrote:

> Now if only I could supply a default response to
> gnus-large-newsgroup to these IMAP folders as well.  (Always open
> say the last 100 or so messages, rather than getting prompted for a
> message count each time.  I could set this gnus-large-newsgroup
> variable to something really huge so I'm not prompted, but
> considering the size of some of my/our IMAP folders, that would be a
> drag.  ;-)

You could mark the old messages as read...

Or hit `9 9 =' or `1 1 1 =' which is easy to do, at least on a US
kbd.  But `1 1 1 RET' should be easy on all keyboards.

kai
-- 
~/.signature: No such file or directory

Re: Can't post-followup or post-forward in nnml groups

[Katsumi Yamaoka]

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

>>>>> In <vafu1ztnr1a.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de> 
>>>>>	Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:

> I feel it's much better.  However, I don't know what the
> parameter symbol is for the posting server.  BTW, I wish I could
> do as such as follows:
>
> (setq gnus-secondary-select-methods
>       `((nnml "" (gnus-post-method ,gnus-select-method))))

Kai> How about the variable gnus-parameters?

Kai> (setq gnus-parameters
Kai>       `(("^nnml:" (gnus-post-method ,gnus-select-method))))

Kai> Does this work?

No.  But it's a good idea.  There is a need to modify the
function `gnus-post-method'.  Could you please apply the
following patch?


2001-07-31  Katsumi Yamaoka  <yamaoka@jpl.org>

	* gnus-msg.el (gnus-post-method): Refer to `gnus-parameters'.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-msg.el.diff --]
[-- Type: text/x-patch, Size: 550 bytes --]

--- gnus-msg.el~	Wed Jul 25 22:17:04 2001
+++ gnus-msg.el	Tue Jul 31 22:43:02 2001
@@ -649,7 +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 (gnus-find-method-for-group group)))
+  (let ((group-method
+	 (or (car (gnus-group-find-parameter group 'gnus-post-method t))
+	     (gnus-find-method-for-group group))))
     (cond
      ;; If the group-method is nil (which shouldn't happen) we use
      ;; the default method.

Re: Can't post-followup or post-forward in nnml groups

[ShengHuo ZHU]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

>>>>>> In <vafu1ztnr1a.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de> 
>>>>>>	Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:
> 
>> I feel it's much better.  However, I don't know what the
>> parameter symbol is for the posting server.  BTW, I wish I could
>> do as such as follows:
>>
>> (setq gnus-secondary-select-methods
>>       `((nnml "" (gnus-post-method ,gnus-select-method))))
> 
>Kai> How about the variable gnus-parameters?
> 
>Kai> (setq gnus-parameters
>Kai>       `(("^nnml:" (gnus-post-method ,gnus-select-method))))
> 
>Kai> Does this work?
> 
> No.  But it's a good idea.  There is a need to modify the
> function `gnus-post-method'.  Could you please apply the
> following patch?
> 
> 
> 2001-07-31  Katsumi Yamaoka  <yamaoka@jpl.org>
> 
> 	* gnus-msg.el (gnus-post-method): Refer to `gnus-parameters'.

Installed. Thanks.

ShengHuo

Re: Can't post-followup or post-forward in nnml groups

[Didier Verna]

Katsumi Yamaoka <yamaoka@jpl.org> wrote:

> No.  But it's a good idea.  There is a need to modify the
> function `gnus-post-method'.  Could you please apply the
> following patch?

Nice ! Please people, also make an effort to properly document this kind of
stuff. It's a nightmare to have the doc up to date otherwise. Thanks!

-- 
Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier

EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (1) 53 14 59 47
94276 Le Kremlin-Bicêtre, France   Fax.+33 (1) 44 08 01 99   didier@xemacs.org

Re: Can't post-followup or post-forward in nnml groups

[Kai Großjohann]

On Wed, 01 Aug 2001, Katsumi Yamaoka wrote:

> --- gnus-msg.el~	Wed Jul 25 22:17:04 2001
> +++ gnus-msg.el	Tue Jul 31 22:43:02 2001
> @@ -649,7 +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 (gnus-find-method-for-group group)))
> +  (let ((group-method
> +	 (or (car (gnus-group-find-parameter group 'gnus-post-method t))
> +	     (gnus-find-method-for-group group))))
>      (cond
>       ;; If the group-method is nil (which shouldn't happen) we use
>       ;; the default method.

Up to now, the convention has been that special group parameters get
short names, and the gnus-foo names have just been local variables.

How about renaming that parameter to `post-method' and documenting it
along with all the other group parameters?

kai
-- 
~/.signature: No such file or directory

Re: Can't post-followup or post-forward in nnml groups

[Katsumi Yamaoka]

>>>>> In <vaf8zh4cdev.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de> 
>>>>>	Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:

>> +  (let ((group-method
>> +	 (or (car (gnus-group-find-parameter group 'gnus-post-method t))
>> +	     (gnus-find-method-for-group group))))

Kai> Up to now, the convention has been that special group parameters
Kai> get short names, and the gnus-foo names have just been local
Kai> variables.

Kai> How about renaming that parameter to `post-method' and
Kai> documenting it along with all the other group parameters?

I agree to `post-method'.  However, the documentation for
`gnus-parameters' introduces `gnus-show-threads', `gnus-use-scoring',
etc. for an example.  Should all of those symbols be renamed?
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: Can't post-followup or post-forward in nnml groups

[Kai Großjohann]

On Wed, 01 Aug 2001, Katsumi Yamaoka wrote:

> I agree to `post-method'.  However, the documentation for
> `gnus-parameters' introduces `gnus-show-threads', `gnus-use-scoring',
> etc. for an example.  Should all of those symbols be renamed?

No, these are variables.  Note the difference between the
following two lines:

(gnus-show-threads nil)
(gcc-self . t)

The former is a buffer-local variable, the latter is a group
parameter.  You can tell the difference from the `.' in the
middle.

Maybe this needs to be explained better...

kai
-- 
~/.signature: No such file or directory

Re: Can't post-followup or post-forward in nnml groups

[Katsumi Yamaoka]

>>>>> In <vafd76g9h3q.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de> 
>>>>>	Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:

>> Should all of those symbols be renamed?

Kai> No, these are variables.  Note the difference between the
Kai> following two lines:

Kai> (gnus-show-threads nil)
Kai> (gcc-self . t)

Kai> The former is a buffer-local variable, the latter is a group
Kai> parameter.  You can tell the difference from the `.' in the
Kai> middle.

Kai> Maybe this needs to be explained better...

Oh! my eyes are opened.  Thank you for the precise explaination.
I give my wholehearted support to the renaming to `post-method'.
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: Can't post-followup or post-forward in nnml groups

[Katsumi Yamaoka]

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

>>>>> In <yosuofq09fj8.fsf@jpl.org> 
>>>>>	Katsumi Yamaoka <yamaoka@jpl.org> wrote:

> I give my wholehearted support to the renaming to `post-method'.

Hi,

Here is an another solution.  The attached patch creates the new
group parameter `post-method' and related things.  How about it?
If it is adopted in Gnus, I will use the following setting
instead of the use of the group parameter for each nnml group.

(setq gnus-post-method-alist `(("^nnml:" . ,gnus-select-method)))

By the way, since I am not good at English writing, I am happy
if anyone writes the documentations for this feature in
gnus.texi, will you?


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.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: post-method.patch --]
[-- Type: text/x-patch, Size: 1542 bytes --]

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

Re: Can't post-followup or post-forward in nnml groups

[ShengHuo ZHU]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

>>>>>> In <yosuofq09fj8.fsf@jpl.org> 
>>>>>>	Katsumi Yamaoka <yamaoka@jpl.org> wrote:
> 
>> I give my wholehearted support to the renaming to `post-method'.
> 
> Hi,
> 
> Here is an another solution.  The attached patch creates the new
> group parameter `post-method' and related things.  How about it?
> If it is adopted in Gnus, I will use the following setting
> instead of the use of the group parameter for each nnml group.
> 
> (setq gnus-post-method-alist `(("^nnml:" . ,gnus-select-method)))

Installed.

> By the way, since I am not good at English writing, I am happy
> if anyone writes the documentations for this feature in
> gnus.texi, will you?

Added.

ShengHuo

Re: Can't post-followup or post-forward in nnml groups

[Katsumi Yamaoka]

>>>>> In <2n1ymtn3kr.fsf@piglet.jia.vnet> 
>>>>>	ShengHuo ZHU <zsh@cs.rochester.edu> wrote:

>> The attached patch creates the new group parameter `post-method'

ZSH> Installed.

>> By the way, since I am not good at English writing, I am happy if
>> anyone writes the documentations for this feature in gnus.texi,
>> will you?

ZSH> Added.

Thank you!  It gives me a pleasure to have the opportunity to
contribute to Gnus.
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: Can't post-followup or post-forward in nnml groups

[Amos Gouaux]

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

>>>>> On Tue, 31 Jul 2001 19:51:13 +0200,
>>>>> Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> (kg) writes:

kg> You could mark the old messages as read...

I do.  Oh, I should point out that for nnimap groups I tend to have
`(display . all)'.  While I prefer to only show new articles for
USENET groups, that's something I've never gotten used to with IMAP
groups.  Before setting `(display . all)', I tended to flag all my
messages, which kinda defeats the usefulness of that feature.  It
also pissed off others using the same shared folders as me.  ;-)

kg> Or hit `9 9 =' or `1 1 1 =' which is easy to do, at least on a US
kg> kbd.  But `1 1 1 RET' should be easy on all keyboards.

Yeah, but I was pondering something perhaps a bit more streamlined.
As an experiment, I came up with the following cheesy hack.  I
suspect there's probably a better way already available in gnus, or
maybe I ought to be better at adapting my mail management.  Anyway,
here it is such as it is....

-- 
Amos


[-- Attachment #2: gnus.el._diff --]
[-- Type: text/plain, Size: 855 bytes --]

*** gnus.el._orig	Sun Aug  5 11:57:34 2001
--- gnus.el	Sun Aug  5 12:11:43 2001
***************
*** 1229,1234 ****
--- 1229,1243 ----
    :group 'gnus-group-select
    :type 'integer)
  
+ (defcustom gnus-limit-to-x-articles nil 
+   "*The maximum number of articles to display by default.  If the number
+ number of articles in the group is less than this value, then just those
+ articles will be displayed.  May override by manually specifying number
+ of articles to display.  This may be useful if you utilize the group
+ parameter `(display . all)'."
+   :group 'gnus-group-select 
+   :type 'integer) 
+  
  (defcustom gnus-use-long-file-name (not (memq system-type '(usg-unix-v xenix)))
    "*Non-nil means that the default name of a file to save articles in is the group name.
  If it's nil, the directory form of the group name is used instead.

[-- Attachment #3: gnus-sum._diff --]
[-- Type: text/plain, Size: 521 bytes --]

*** gnus-sum.el._orig	Sun Aug  5 11:37:37 2001
--- gnus-sum.el	Sun Aug  5 12:09:12 2001
***************
*** 4611,4616 ****
--- 4611,4620 ----
  	   (t
  	    (condition-case ()
  		(cond
+                  ((numberp gnus-limit-to-x-articles)
+                   (if (> number gnus-limit-to-x-articles)
+                       gnus-limit-to-x-articles
+                     number))
  		 ((and (or (<= scored marked) (= scored number))
  		       (numberp gnus-large-newsgroup)
  		       (> number gnus-large-newsgroup))

Re: Can't post-followup or post-forward in nnml groups

[Kai Großjohann]

The feature you've got there looks useful.  If somebody is willing to
test it and gives me the go-ahead, then I'll install the patch.  Okay?
kai
-- 
~/.signature: No such file or directory

Re: Can't post-followup or post-forward in nnml groups

[Amos Gouaux]

kg> The feature you've got there looks useful.  If somebody is willing to
kg> test it and gives me the go-ahead, then I'll install the patch.  Okay?
kg> kai

I only fiddled with gnus-articles-to-read.  I notice
gnus-large-newsgroup is also used in gnus-summary-insert-old-articles,
but wasn't sure if it was worth fiddling with that.

Oh, is this valid?

(setq gnus-parameters 
      `(("^nnimap:"   
         (gnus-large-newsgroup 1000)) 
        ("^nntp:" 
         (gnus-large-newsgroup 100)))) 
 
-- 
Amos

Re: Can't post-followup or post-forward in nnml groups

[Kai Großjohann]

Amos Gouaux <amos+lists.ding@utdallas.edu> writes:

> Oh, is this valid?
> 
> (setq gnus-parameters 
>       `(("^nnimap:"   
>          (gnus-large-newsgroup 1000)) 
>         ("^nntp:" 
>          (gnus-large-newsgroup 100)))) 

The "^nntp:" regexp will not match your primary groups.  I don't know
if this was intended.

You use ` rather than ', without necessity.  A typo?  Or purpose?

kai
-- 
~/.signature: No such file or directory