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

[Amos Gouaux <amos+lists.ding@utdallas.edu>]

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