New patcher comin'in hot

[Didier Verna]

Mike Kupfer <mike.kupfer at xemacs.org> wrote:

> Okay, here's what I have so far. It's very close to my patch for
> patcher 3.11, which seemed to work okay, but it errors out in
> patcher-after-send with patcher 4.0 (backtrace below).
>
> I'm not entirely sure I'm on the right path. MH-E has its own major
> mode for sending email, and it doesn't support a post-send hook. So I
> wrote a helper function to send the message and then invoke
> patcher-after-send. Maybe I should forget about trying to invoke
> patcher-after-send?
>
> Here's the backtrace:
>
> Debugger entered--Lisp error: (error "patcher-project-sources accessing a non-patcher-project")
>   signal(error ("patcher-project-sources accessing a non-patcher-project"))

> [...]

>   patcher-delete-project(nil)
>   patcher-after-send()

> +(defun patcher-send-mh ()
> +  "Helper function for patcher-mail-mh.  Sends the composed mail and
> +  then invokes the patcher post-send cleanup function."
> +  (interactive)
> +  (mh-send-letter)
> +  (patcher-after-send))

  Here, I think that after calling mh-send-letter, you might not be in
the mail buffer anymore, so the value of the (local) variable
patcher-project is nil. Try to enclose the call to patcher-after-send
within a (with-current-form <the-mail-buffer> ...) form.

-- 
Resistance is futile. You will be jazzimilated.

Scientific site:   http://www.lrde.epita.fr/~didier
Music (Jazz) site: http://www.didierverna.com