Re: Sent message still in drafts (lisp error: "Selecting deleted buffer")

[Felix Natter]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

hi Katsumi,

sorry that it took me so long!

> Felix Natter wrote:
>> Debugger entered--Lisp error: (error "Selecting deleted buffer")
>>   nnml-add-nov("expired" 12197 [nil "Rheinblick-Cache" "Felix Natter <fnat...
>>   nnml-save-mail((("expired" . 12197)) "")
>>   nnml-request-accept-article("expired" "" nil)
>
> I'm unable to reproduce such an error.  Could you get a backtrace
> again by loading nnml.el (or nnml.el.gz, not .elc) in advance?
> I.e.:  M-x load-library RET nnml.el RET, and do mail.

Here it is, with (setq debug-on-error t) and M-x load-library nnml.el:

Debugger entered--Lisp error: (error "Selecting deleted buffer")
  set-buffer(#<killed buffer>)
  (save-excursion (set-buffer (nnml-open-nov group)) (goto-char (point-max)) 
(mail-header-set-number headers article) (nnheader-insert-nov headers))
  nnml-add-nov("expired" 13982 [nil "Re: Freeplane man page" "Felix Natter 
<fnatter@gmx.net>" "Mon, 25 Mar 2013 21:28:16 +0100" 
"<87fvzjb4u3.fsf@totally-fudged-out-message-id>" 
"<87wqsxc1i1.fsf@bitburger.home.felix> 
<17253.15.195.185.81.1364221728.squirrel@my.bawue.net>" 762 28 
"bitburger.home.felix expired:13982" ((To . "\"Eric Lavarde - Debian\" 
<deb@zorglub.s.bawue.de>"))])
  (while --cl-dolist-temp-- (setq ga (car --cl-dolist-temp--)) (nnml-add-nov 
(car ga) (cdr ga) headers) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- group-art) ga) (while --cl-dolist-temp-- (setq ga 
...) (nnml-add-nov ... ... headers) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... ga) (while --cl-dolist-temp-- ... 
... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... ga) (while --cl-dolist-temp-- ... ... ...) nil))
  (dolist (ga group-art) (nnml-add-nov (car ga) (cdr ga) headers))
  (if nnmail-group-names-not-encoded-p (dolist (ga group-art) (nnml-add-nov ... 
... headers)) (dolist (ga group-art) (nnml-add-nov ... ... headers)))
  (let* ((chars ...) (extension ...) decoded dec file first headers) (when 
nnmail-group-names-not-encoded-p (dolist ... ...) (setq dec decoded)) 
(nnmail-insert-xref group-art) (run-hooks (quote 
nnmail-prepare-save-mail-hook)) (run-hooks (quote nnml-prepare-save-mail-hook)) 
(goto-char (point-min)) (while (looking-at "From ") (replace-match 
"X-From-Line: ") (forward-line 1)) (dolist (ga group-art) (if 
nnmail-group-names-not-encoded-p ... ... ...) (if first ... ... ...)) (setq 
headers (nnml-parse-head chars)) (if nnmail-group-names-not-encoded-p (dolist 
... ...) (dolist ... ...)))
  nnml-save-mail((("expired" . 13982)) "")
  (car (nnml-save-mail (list ...) server))
  (setq result (car (nnml-save-mail ... server)))
  (and (nnmail-activate (quote nnml)) (setq result (car ...)) (progn 
(nnmail-save-active nnml-group-alist nnml-active-file) (and last ...)))
  (if (stringp group) (and (nnmail-activate ...) (setq result ...) (progn ... 
...)) (and (nnmail-activate ...) (if ... ... ...) (when last ... ... ...)))
  (let (result) (when nnmail-cache-accepted-message-ids (nnmail-cache-insert 
... group ... ...)) (if (stringp group) (and ... ... ...) (and ... ... ...)) 
result)
  nnml-request-accept-article("expired" "" nil)
  gnus-request-accept-article("nnml:expired" nil nil t)
  nnmail-expiry-target-group("nnml:expired" "drafts")
  nnmh-request-expire-articles((140) "drafts" nil t)
  apply(nnmh-request-expire-articles ((140) "drafts" nil t))
  nnoo-parent-function(nndraft nnmh-request-expire-articles ((140) "drafts" nil 
t))
  nndraft-request-expire-articles((140) "drafts" nil t)
  message-disassociate-draft()
  message-send(nil)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit nil nil)

Thank you very much!
-- 
Felix Natter