nndraft:queue in 5.8.5?

nndraft:queue in 5.8.5?

[Pavel Janik ml.]

Hi,

I just wanted to test if everything is fixed in sending from nndraft:queue
with 5.8.5 so I sent test message to myself when unplugged, and it is on the
disc in the correct file ~/Mail/Drafts/queue/1. However if I;d like to enter
nndraft:queue I got:

Signaling: (error "Couldn't request group nndraft:queue: Opened server  using directory ~/Mail/Drafts")
  signal(error ("Couldn't request group nndraft:queue: Opened server  using directory ~/Mail/Drafts"))
  error("Couldn't request group %s: %s" "nndraft:queue" "Opened server  using directory ~/Mail/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:queue" 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:queue" 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:queue" 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)
  (if (gnus-group-topic-p) (let (...) (gnus-topic-fold all)) (gnus-group-select-group all))
  gnus-topic-select-group(nil)
* call-interactively(gnus-topic-select-group)

BTW - is it normal that there is "Opened server  using" so server is empty?
-- 
Pavel Janík ml.
Pavel.Janik@inet.cz

Re: nndraft:queue in 5.8.5?

[Lars Magne Ingebrigtsen]

Pavel.Janik@inet.cz (Pavel Janik ml.) writes:

> I just wanted to test if everything is fixed in sending from nndraft:queue
> with 5.8.5 so I sent test message to myself when unplugged, and it is on the
> disc in the correct file ~/Mail/Drafts/queue/1. However if I;d like to enter
> nndraft:queue I got:

I think that should be "~/News/drafts/queue/1", shouldn't it?

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: nndraft:queue in 5.8.5?

[Pavel Janik ml.]

   From: Lars Magne Ingebrigtsen <larsi@gnus.org>
   Date: 22 Apr 2000 15:16:56 +0200

Hi,

   > > I just wanted to test if everything is fixed in sending from
   > > nndraft:queue with 5.8.5 so I sent test message to myself when
   > > unplugged, and it is on the disc in the correct file
   > > ~/Mail/Drafts/queue/1. However if I;d like to enter nndraft:queue I
   > > got:
   > 
   > I think that should be "~/News/drafts/queue/1", shouldn't it?

no, I normally use 20.6 and 5.8.4 and have this at the end of .gnus:

(setq nndraft-directory "~/Mail/Drafts")
(setq gnus-agent-directory "~/Mail/Agent")
(gnus-agentize)

And 5.8.4 does work. Really, I have four mails in the queue and there are four
files in ~/Mail/Drafts/queue/.

When I uncomment

;   (setq load-path (cons "~/.Emacs/Work/gnus/lisp" load-path))

at the beginning of my .emacs (this is the path where I have CVS version). It
does not :-(
-- 
Pavel Janík ml.
Pavel.Janik@inet.cz

Re: nndraft:queue in 5.8.5?

[Lars Magne Ingebrigtsen]

Pavel.Janik@inet.cz (Pavel Janik ml.) writes:

> no, I normally use 20.6 and 5.8.4 and have this at the end of .gnus:
> 
> (setq nndraft-directory "~/Mail/Drafts")

You can't alter server slots from .gnus.  You either have to set them
before Gnus is loaded, or define them properly in the virtual server
definition. 

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: nndraft:queue in 5.8.5?

[Pavel Janik ml.]

   From: Pavel.Janik@inet.cz (Pavel Janik ml.)
   Date: 23 Apr 2000 22:03:31 +0200

Hi,

   > no, I normally use 20.6 and 5.8.4 and have this at the end of .gnus:
   > 
   > (setq nndraft-directory "~/Mail/Drafts")
   > (setq gnus-agent-directory "~/Mail/Agent")
   > (gnus-agentize)
   > 
   > And 5.8.4 does work. Really, I have four mails in the queue and there are
   > four files in ~/Mail/Drafts/queue/.
   > 
   > When I uncomment
   > 
   > ;   (setq load-path (cons "~/.Emacs/Work/gnus/lisp" load-path))
   > 
   > at the beginning of my .emacs (this is the path where I have CVS version). It
   > does not :-(

hmm, when I compile this version it is OK. When I removed .elc, it is NOT. So
I must have compiled version if I need to go to queue? Isn't it weird?
-- 
Pavel Jan‚ík ml.
Pavel.Janik@inet.cz

Re: nndraft:queue in 5.8.5?

[Pavel Janik ml.]

   From: Lars Magne Ingebrigtsen <larsi@gnus.org>
   Date: 24 Apr 2000 16:33:16 +0200

Hi,

   > You can't alter server slots from .gnus.  You either have to set them
   > before Gnus is loaded, or define them properly in the virtual server
   > definition. 

ok, I have it in .emacs now. When I start Emacs, both values are set
correctly:

(setq nndraft-directory "~/Mail/Drafts")
(setq gnus-agent-directory "~/Mail/Agent")

Now I start gnus from my CVS directory (not compiled). Both drafts and queue
are unaccessible. cd gnus/ && ./configure && make && emacs and it works! Why?
-- 
Pavel Janík ml.
Pavel.Janik@inet.cz

Re: nndraft:queue in 5.8.5?

[Lars Magne Ingebrigtsen]

Pavel.Janik@inet.cz (Pavel Janik ml.) writes:

> Now I start gnus from my CVS directory (not compiled). Both drafts and queue
> are unaccessible. cd gnus/ && ./configure && make && emacs and it works! Why?

Gnus has a pretty deep Lisp eval depth (lots of macros that create
lexical environments (ahem)), and when running Gnus uncompiled, the
default Emacs max-lisp-eval-depth is exceeded, which makes Gnus bug
out.  However, there's an ignore-error around the group activation
calls, which makes Gnus ignore the bugout, leading Gnus just to ignore
those groups.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: nndraft:queue in 5.8.5?

[Florian Weimer]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Gnus has a pretty deep Lisp eval depth (lots of macros that create
> lexical environments (ahem)), and when running Gnus uncompiled,

Perhaps it's time to apply the following patch?  Unfortunately, Emacs
and XEmacs both have deprecated one of "byte-code-function-p" and
"compiled-function-p", but not the same. :-/ The following code will
therefore result in a compilation-time warning on XEmacs 21.1, but on
XEmacs 21.2, "byte-code-function-p" is an FSF compatibility alias, and
there won't be any warning.

Index: gnus.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus.el,v
retrieving revision 5.141
diff -u -r5.141 gnus.el
--- gnus.el	2000/07/13 23:11:45	5.141
+++ gnus.el	2000/08/12 17:27:10
@@ -2896,6 +2896,9 @@
 startup level.	If ARG is non-nil and not a positive number, Gnus will
 prompt the user for the name of an NNTP server to use."
   (interactive "P")
+  (unless (byte-code-function-p (symbol-function 'gnus))
+    (message "You really should byte-compile Gnus.")
+    (sit-for 2))
   (gnus-1 arg dont-connect slave))
 
 ;; Allow redefinition of Gnus functions.

Re: nndraft:queue in 5.8.5?

[Lars Magne Ingebrigtsen]

Florian Weimer <fw@deneb.enyo.de> writes:

>> Gnus has a pretty deep Lisp eval depth (lots of macros that create
>> lexical environments (ahem)), and when running Gnus uncompiled,
>
> Perhaps it's time to apply the following patch? 

[...]

> +  (unless (byte-code-function-p (symbol-function 'gnus))
> +    (message "You really should byte-compile Gnus.")
> +    (sit-for 2))

Thanks for the patch; I've applied it to Oort Gnus v0.04 (i. e., CVS).

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen