Lost gnus-draft-mode in nndraft:drafts

Lost gnus-draft-mode in nndraft:drafts

[Reiner Steib]

Hi,

a known problem with nndraft:drafts is that it sometimes loses its
special property and is not in `gnus-draft-mode' anymore.  We have
added[1] the following work around in the manual in Gnus 5.10:

,----[ (info "(gnus)Drafts") ]
| The special properties of the draft group comes from a group
| property (*note Group Parameters::), and if lost the group behaves
| like any other group.  This means the commands below will not be
| available.  To restore the special properties of the group, the
| simplest way is to kill the group, using `C-k', and restart Gnus.
| The group is automatically created again with the correct
| parameters.  The content of the group is not lost.
`----

I wonder why we don't enforce `gnus-draft-mode' for nndraft:drafts at
startup.  Is there any good reason _not_ to install this change?

--8<---------------cut here---------------start------------->8---
--- gnus-start.el	13 Nov 2005 23:01:53 -0000	6.87.2.19
+++ gnus-start.el	6 Dec 2005 13:45:07 -0000
@@ -805,8 +805,12 @@
   "Make sure the draft group exists."
   (gnus-request-create-group "drafts" '(nndraft ""))
   (unless (gnus-gethash "nndraft:drafts" gnus-newsrc-hashtb)
+    (gnus-message 3 "Subscribing drafts group")
     (let ((gnus-level-default-subscribed 1))
-      (gnus-subscribe-group "nndraft:drafts" nil '(nndraft "")))
+      (gnus-subscribe-group "nndraft:drafts" nil '(nndraft ""))))
+  (unless (equal (gnus-group-get-parameter "nndraft:drafts" 'gnus-dummy t)
+		 '((gnus-draft-mode)))
+    (gnus-message 3 "Setting up drafts group")
     (gnus-group-set-parameter
      "nndraft:drafts" 'gnus-dummy '((gnus-draft-mode)))))
 
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.

[1]
,----[ texi/ChangeLog ]
| 2003-03-22  Simon Josefsson  <jas@extundo.com>
| 
| 	* gnus.texi (Troubleshooting): Fix typo.
| 	(Drafts): Mention how to restore special property, suggested by
| 	Florian Weimer <fw@deneb.enyo.de>.
`----
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/