draft group problem (Gnus 5.8.3)

draft group problem (Gnus 5.8.3)

[Kjetil Ødegaard]

I just upgraded my Gnus from 5.8.2 to 5.8.3 and now I can't seem to
enter my `drafts' group anymore.  Emacs says "Couldn't request group
nndraft:drafts: Opened server  using directory ~/News/drafts/".  I've
checked, and ~/News/drafts/ contains a `drafts' directory.

I did not change anything, so I'm a bit unsure just what is causing
this (I'm also not very good with elisp).

the draft group parameters are

((timestamp 14477 26788)
 (gnus-dummy
  (gnus-draft-mode)))

I'd be gratefull for any help on this.

-- 
do not try to bend the spoon.  that's impossible.

Re: draft group problem (Gnus 5.8.3)

[Anders Melchiorsen]

"Kjetil Ødegaard" <kjetilod@orakel.ntnu.no> wrote:

> I just upgraded my Gnus from 5.8.2 to 5.8.3 and now I can't seem to
> enter my `drafts' group anymore.  Emacs says "Couldn't request group
> nndraft:drafts: Opened server  using directory ~/News/drafts/".  I've
> checked, and ~/News/drafts/ contains a `drafts' directory.

Not much help, but I can report that I have the exact same problem
(also with 5.8.3).

-- 
Regards, Anders
(address is valid)

Re: draft group problem (Gnus 5.8.3)

[Kjetil Ødegaard]

* Anders Melchiorsen
|
| "Kjetil Ødegaard" <kjetilod@orakel.ntnu.no> wrote:
| 
| > I just upgraded my Gnus from 5.8.2 to 5.8.3 and now I can't seem to
| > enter my `drafts' group anymore.  Emacs says "Couldn't request group
| > nndraft:drafts: Opened server  using directory ~/News/drafts/".  I've
| > checked, and ~/News/drafts/ contains a `drafts' directory.
| 
| Not much help, but I can report that I have the exact same problem
| (also with 5.8.3).

hm.  here's a backtrace, anyway (I don't know if it is of interest to
anyone):

Signaling: (error "Couldn't request group nndraft:drafts: ")
  signal(error ("Couldn't request group nndraft:drafts: "))
  cerror("Couldn't request group %s: %s" "nndraft:drafts" "")
  apply(cerror ("Couldn't request group %s: %s" "nndraft:drafts" ""))
  error("Couldn't request group %s: %s" "nndraft:drafts" "")
  (progn (when (equal major-mode ...) (kill-buffer ...)) (error "Couldn't request group %s: %s" group (gnus-status-message group)))
)
  (or (and entry (not ...)) (gnus-activate-group group) (progn (when ... ...) (error "Couldn't request group %s: %s" group ...)))
)
  (let* ((entry ...) (gnus-summary-ignore-duplicates ...) (info ...) articles fetched-articles cached) (unless (gnus-check-server ...) (error "Couldn't open server")) (or (and entry ...) (gnus-activate-group group) (progn ... ...)) (unless (gnus-request-group group t) (when ... ...) (error "Couldn't request group %s: %s" group ...)) (setq gnus-newsgroup-name group) (setq gnus-newsgroup-unselected nil) (setq gnus-newsgroup-unreads (gnus-list-of-unread-articles group)) (gnus-summary-setup-default-charset) (when info (gnus-adjust-marked-articles info)) (when (gnus-virtual-group-p group) (setq cached gnus-newsgroup-cached)) (setq gnus-newsgroup-unreads (gnus-set-difference ... gnus-newsgroup-dormant)) (setq gnus-newsgroup-processable nil) (gnus-update-read-articles group gnus-newsgroup-unreads) (if (setq articles select-articles) (setq gnus-newsgroup-unselected ...) (setq articles ...)) (cond (... ...) (... nil) (t ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .
 .!
.)))
)
  gnus-select-newsgroup("nndraft:drafts" nil nil)
  (and new-group (gnus-select-newsgroup group show-all select-articles))
)
  (let* ((new-group ...) (quit-config ...) (did-select ...)) (cond (... ... ... ... ... ... ... t) (... ... ... nil) (... ... ... ... ...) (t ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
)
  gnus-summary-read-group-1("nndraft:drafts" nil t nil nil nil)
  (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil))
)
  (let ((gnus-auto-select-next nil)) (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil)))
)
  (setq result (let (...) (or ... ...)))
)
  (null (setq result (let ... ...)))
)
  (and group (null (setq result ...)) (eq gnus-auto-select-next (quote quietly)))
)
  (while (and group (null ...) (eq gnus-auto-select-next ...)) (set-buffer gnus-group-buffer) (when backward (gnus-group-prev-unread-group 2)) (if (not ...) (setq group ...) (setq group nil)))
)
  (let (result) (while (and group ... ...) (set-buffer gnus-group-buffer) (when backward ...) (if ... ... ...)) result)
)
  gnus-summary-read-group("nndraft:drafts" nil t nil nil nil nil)
  (let ((no-display ...) (group ...) number active marked entry) (when (eq all 0) (setq all nil)) (unless group (error "No group on current line")) (setq marked (gnus-info-marks ...)) (setq number (cond ... ... ...)) (gnus-summary-read-group group (or all ...) no-article nil no-display nil select-articles))
)
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  call-interactively(gnus-group-select-group)


-- 
do not try to bend the spoon.  that's impossible.

Re: draft group problem (Gnus 5.8.3)

[Jari Aalto+mail.emacs]

* 2000-02-03 Kjetil Ødegaard <kjetilod@orakel.ntnu.no> list.emacs-ding
* Message-Id: <jevwvomp5zo.fsf@apollo.orakel.ntnu.no>
| * Anders Melchiorsen
| [
| | "Kjetil Ødegaard" <kjetilod@orakel.ntnu.no> wrote:
| | 
| | > I just upgraded my Gnus from 5.8.2 to 5.8.3 and now I can't seem to
| | > enter my `drafts' group anymore.  Emacs says "Couldn't request group
| | > nndraft:drafts: Opened server  using directory ~/News/drafts/".  I've
| | > checked, and ~/News/drafts/ contains a `drafts' directory.
| | 
| | Not much help, but I can report that I have the exact same problem
| | (also with 5.8.3).

I have had that problem since pgnus days and I never understood what was wrong.
It turned out that for some unknown reason the nndaft-request-group function
was defined as 'ignore.

So I wrote this code and draft has been working since. Could anybody investigate
better why it get's that ignore function definition? Or at least make a 
double check somewhere that the function definition is not 'ignore  when 
enetring dtarfts.

The trace chart where "Can't select group" appears has been appended below.


jari

;;; ----------------------------------------------------------------------
;;; See nnoo.el::nno-import-1 and nndraft.el
;;;
(defun my-gnus-nndraft-fix  ()
  "Bug in my gnus that prevent accessing nndraft.
Define function `nndaft-request-group'."
  (interactive)
  (let* ((function          'nndraft-request-group)
         (call-function     'nnoo-parent-function)
         (backend           'nndraft)
         (this-function     'nnmh-request-group)
         )

    ;; nndraft.el
    ;; (defvoo nndraft-directory (nnheader-concat gnus-directory "drafts/"))

    (unless (stringp nndraft-directory)
      (setq nndraft-directory (nnheader-concat gnus-directory "drafts/")))

    (eval `(deffoo ,function (&rest args)
             (,call-function ',backend ',this-function args)))
    ))

;;; ----------------------------------------------------------------------
;;;
(defadvice gnus-topic-read-group (before my-gnus-fix-nndraft act)
  "Fix broken nndraft."
  (let* ((fid   "gnus-topic-read-group")
         (arg  (ad-get-arg 0))

         ;; See also (gnus-group-group-name)

         (groups (gnus-group-process-prefix nil))
         (group  (car groups))
         unread-arts
         )

    (when (and group
               (string-match "nndraft" group))
      (gnus-topic-get-new-news-this-topic)
      (when (eq 'ignore (symbol-function 'nndraft-request-group))
        (my-gnus-nndraft-fix))
      )))


;;; ----------------------------------------------------------------------
;;;
;;; (gnus-topic-read-group &optional ALL NO-ARTICLE GROUP)
;;; Disabled, old version
;;;
;;; gnus-topic-read-group
;;;  gnus-group-read-group
;;;   gnus-summary-read-group
;;;
;;;     gnus-summary-read-group-1  ;; ONLY NOW BEGINS TO HAPPEN
;;;
;;;       gnus-select-newsgroup  (return non-nil if group present)
;;;        (gnus-select-newsgroup '("nndraft:drafts") t nil) :: gnus-sum.el
;;;           gnus-activate-group :: gnus-start.el
;;;              gnus-request-group :: gnus-int.el
;;;
;;;                 nnagent-request-group --> nnoo-parent-function -->
;;;                                           nnml-request-group
;;;                    ;; nnagent-directory"~/News/agent/nntp/uutiset.saunalahti.fi/"
;;;                    ;; nnagent-active-file"~/News/agent/nntp/uutiset.saunalahti.fi/agent.lib/active"
;;;                 (lambda (&rest args)
;;;                    (nnoo-parent-function 'nnagent
;;;                       'nnml-request-group args))
;;;
;;;          (gnus-get-function '(nndraft "") 'request-group)
;;;          (gnus-request-group "nndraft:drafts" t)
;;;          (gnus-select-newsgroup "nndraft:drafts" t)
;;;            (gnus-request-group "nndraft:drafts")  gnus-int.el
;;;          --> Can't select group
;;;
;;;
;;;          nndraft-request-group
;;;            (nnmh-request-group "drafts" "" t)
;;;
;;;     (defun nndraft-request-group (&rest args)
;;;        (nnoo-parent-function 'nndraft
;;;                     'nnmh-request-group args))
;;;