Re: Cannot subscribe or see nndrafts folder upon startup

[nyc4bos@aol.com]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> Katsumi Yamaoka wrote:
>> Katsumi Yamaoka wrote:
>>> Lars Magne Ingebrigtsen wrote:
>>>> However, the drafts group could update itself when you delete a message
>>>> from it, for instance.  That would only be slightly inconsistent.
>
> [...]
>>> I've installed a fix.
>
>> Er, the fix was incomplete.  It doesn't work properly if there're
>> sparse draft messages.
> [...]
>
> I found the easiest way to fix it.  Installed.
>
> Lars Magne Ingebrigtsen wrote:
>> The drafts group doesn't update until you hit `g', like other normal
>> groups.  It's somewhat difficult to have the group buffer update itself
>> when a message lands in the draft buffer -- it lands there by you just
>> saving the message you're composing.  And I don't want any Gnus stuff to
>> run off of `save-buffer-hook' or the like.
>
> I tried this.  A patch is below.  Not tested fully, though.

I tried this patch (below).

I still have the original problem (nndraft:drafts group not listed
in *Group* buffer when starting Gnus).

Is that problem fixed (and waiting to be synced into bzr Gnus)?

Thanks.


>
>
> --- nndraft.el~	2011-04-05 05:00:10.178750000 +0000
> +++ nndraft.el	2011-07-01 10:31:26.218750000 +0000
> @@ -161,6 +161,13 @@
>       (message-headers-to-generate
>        nndraft-required-headers message-draft-headers nil))))
>  
> +(defun nndraft-update-unread-articles (group)
> +  "Return a function that updates unread articles of GROUP."
> +  `(lambda nil
> +     (with-current-buffer gnus-group-buffer
> +       (let ((gnus-group-marked (list ,(concat "nndraft:" group))))
> +	 (gnus-group-get-new-news-this-group nil t)))))
> +
>  (deffoo nndraft-request-associate-buffer (group)
>    "Associate the current buffer with some article in the draft group."
>    (nndraft-open-server "")
> @@ -182,6 +189,10 @@
>  		  'write-contents-hooks)))
>        (gnus-make-local-hook hook)
>        (add-hook hook 'nndraft-generate-headers nil t))
> +    (let ((fn (nndraft-update-unread-articles group)))
> +      (gnus-make-local-hook 'after-save-hook)
> +      (add-hook 'after-save-hook fn nil t)
> +      (message-add-action (caddr fn) 'exit 'postpone 'kill))
>      article))
>  
>  (deffoo nndraft-request-group (group &optional server dont-check info)