bug#33005: 27.0.50; Data loss with Gnus registry

[Michael Heerdegen]

Eric Abrahamsen <eric@ericabrahamsen.net> writes:

> Hey do let me know what system you're running!

Sorry for the delay.  Ok, Debian testing here.

> If I do:
>
> 1. emacs -Q
> 2. M-x load-file -> ~/.emacs.d/elpa/gnus-mock-0.4.2/gnus-mock.el
>
> Then gnus-mock-data-dir is set correctly. I don't know what else might
> be going wrong!

I tried again.  I get gnus-mock-data-dir ->
"/home/micha/.emacs.d/elpa/gnus-mock-0.4.2/data/".  When I do M-x
gnus-mock-start I currently get this error:

Debugger entered--Lisp error: (file-missing "Setting current directory" "No 
such file or directory" "/home/lisp/gnus")
  make-process(:name "gnus-mock" :buffer nil :command ("emacs" "-Q" "--load" 
"/tmp/emacs-gnus-mock-jvYPdC/init.el") :stderr "*gnus mock errors*")
  (let ((default-directory (expand-file-name "lisp/gnus" 
(file-name-as-directory (expand-file-name "../.." gnus-mock-emacs-program))))) 
(make-process :name "gnus-mock" :buffer nil :command (list 
gnus-mock-emacs-program "-Q" "--load" init-file) :stderr "*gnus mock errors*"))
  (let ((init-file (expand-file-name "init.el" mock-tmp-dir))) (let 
((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect (progn (let ((standard-output ...) 
(print-circle nil)) (prin1 (list ... ... mock-tmp-dir ... "mockturtle" ... ... 
... mock-tmp-dir ... ... ... ... ... ... ... ... ... ...)) (princ "\n\n") 
(prin1 '...) (princ "\n") (prin1 (list ... ... gnus-mock-data-dir)) (if 
gnus-mock-cleanup-p (progn ... ...)) (if gnus-mock-use-images (progn ... ...)) 
(write-file init-file))) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer))))) (copy-directory gnus-mock-data-dir (file-name-as-directory 
mock-tmp-dir) nil nil t) (mapc #'(lambda (path) (make-directory path t)) 
(mapcar #'(lambda (dir) (format "%s/test/%s" mock-tmp-dir dir)) '("Welcome/new" 
"Welcome/tmp" "Welcome/.nnmaildir/marks" "incoming/tmp" "incoming/new" 
"incoming/cur" "incoming/.nnmaildir/marks" "incoming/.nnmaildir/nov" 
"mails/tmp" "mails/new" "mails/.nnmaildir/marks"))) (make-directory (format 
"%s/drafts/drafts" mock-tmp-dir) t) (make-directory (format "%s/drafts/queue" 
mock-tmp-dir)) (if gnus-mock-init-file (progn (let ((temp-buffer 
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) 
(unwind-protect (progn (insert-file-contents gnus-mock-init-file) 
(append-to-file ... ... init-file)) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer))))))) (if gnus-mock-gnus-file (progn (let ((temp-buffer 
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) 
(unwind-protect (progn (insert-file-contents gnus-mock-gnus-file) 
(append-to-file ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer))))))) (if gnus-mock-dovecot-imap-program (progn (let ((temp-buffer 
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) 
(unwind-protect (progn (insert "\n\n") (prin1 ... ...) (append-to-file ... ... 
...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) 
(save-current-buffer (set-buffer (find-file-noselect (expand-file-name 
".newsrc.eld" mock-tmp-dir))) (while (re-search-forward "REPLACE_ME" 
(point-max) t) (replace-match mock-tmp-dir t)) (if 
gnus-mock-dovecot-imap-program (progn (goto-char (point-max)) (insert "\n\n") 
(prin1 '(setq gnus-newsrc-alist (append gnus-newsrc-alist ...)) 
(current-buffer)))) (basic-save-buffer)) (let ((default-directory 
(expand-file-name "lisp/gnus" (file-name-as-directory (expand-file-name "../.." 
gnus-mock-emacs-program))))) (make-process :name "gnus-mock" :buffer nil 
:command (list gnus-mock-emacs-program "-Q" "--load" init-file) :stderr "*gnus 
mock errors*")))
  (condition-case err (let ((init-file (expand-file-name "init.el" 
mock-tmp-dir))) (let ((temp-buffer (generate-new-buffer " *temp*"))) 
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let (... 
...) (prin1 ...) (princ "\n\n") (prin1 ...) (princ "\n") (prin1 ...) (if 
gnus-mock-cleanup-p ...) (if gnus-mock-use-images ...) (write-file init-file))) 
(and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (copy-directory 
gnus-mock-data-dir (file-name-as-directory mock-tmp-dir) nil nil t) (mapc 
#'(lambda (path) (make-directory path t)) (mapcar #'(lambda (dir) (format 
"%s/test/%s" mock-tmp-dir dir)) '("Welcome/new" "Welcome/tmp" 
"Welcome/.nnmaildir/marks" "incoming/tmp" "incoming/new" "incoming/cur" 
"incoming/.nnmaildir/marks" "incoming/.nnmaildir/nov" "mails/tmp" "mails/new" 
"mails/.nnmaildir/marks"))) (make-directory (format "%s/drafts/drafts" 
mock-tmp-dir) t) (make-directory (format "%s/drafts/queue" mock-tmp-dir)) (if 
gnus-mock-init-file (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) 
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) 
(and ... ...)))))) (if gnus-mock-gnus-file (progn (let ((temp-buffer 
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) 
(unwind-protect (progn ... ...) (and ... ...)))))) (if 
gnus-mock-dovecot-imap-program (progn (let ((temp-buffer (generate-new-buffer " 
*temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
... ... ...) (and ... ...)))))) (save-current-buffer (set-buffer 
(find-file-noselect (expand-file-name ".newsrc.eld" mock-tmp-dir))) (while 
(re-search-forward "REPLACE_ME" (point-max) t) (replace-match mock-tmp-dir t)) 
(if gnus-mock-dovecot-imap-program (progn (goto-char (point-max)) (insert 
"\n\n") (prin1 '(setq gnus-newsrc-alist ...) (current-buffer)))) 
(basic-save-buffer)) (let ((default-directory (expand-file-name "lisp/gnus" 
(file-name-as-directory (expand-file-name "../.." gnus-mock-emacs-program))))) 
(make-process :name "gnus-mock" :buffer nil :command (list 
gnus-mock-emacs-program "-Q" "--load" init-file) :stderr "*gnus mock 
errors*"))) ((debug error) (if (and gnus-mock-cleanup-p (file-exists-p 
mock-tmp-dir)) (progn (delete-directory mock-tmp-dir t))) (signal (car err) 
(cdr err))))
  (let ((mock-tmp-dir (make-temp-file "emacs-gnus-mock-" t))) (condition-case 
err (let ((init-file (expand-file-name "init.el" mock-tmp-dir))) (let 
((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect (progn (let ... ... ... ... ... ... 
... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) 
(copy-directory gnus-mock-data-dir (file-name-as-directory mock-tmp-dir) nil 
nil t) (mapc #'(lambda (path) (make-directory path t)) (mapcar #'(lambda (dir) 
(format "%s/test/%s" mock-tmp-dir dir)) '("Welcome/new" "Welcome/tmp" 
"Welcome/.nnmaildir/marks" "incoming/tmp" "incoming/new" "incoming/cur" 
"incoming/.nnmaildir/marks" "incoming/.nnmaildir/nov" "mails/tmp" "mails/new" 
"mails/.nnmaildir/marks"))) (make-directory (format "%s/drafts/drafts" 
mock-tmp-dir) t) (make-directory (format "%s/drafts/queue" mock-tmp-dir)) (if 
gnus-mock-init-file (progn (let ((temp-buffer ...)) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect ... ...))))) (if gnus-mock-gnus-file 
(progn (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) 
(unwind-protect ... ...))))) (if gnus-mock-dovecot-imap-program (progn (let 
((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) 
(unwind-protect ... ...))))) (save-current-buffer (set-buffer 
(find-file-noselect (expand-file-name ".newsrc.eld" mock-tmp-dir))) (while 
(re-search-forward "REPLACE_ME" (point-max) t) (replace-match mock-tmp-dir t)) 
(if gnus-mock-dovecot-imap-program (progn (goto-char (point-max)) (insert 
"\n\n") (prin1 '... (current-buffer)))) (basic-save-buffer)) (let 
((default-directory (expand-file-name "lisp/gnus" (file-name-as-directory 
...)))) (make-process :name "gnus-mock" :buffer nil :command (list 
gnus-mock-emacs-program "-Q" "--load" init-file) :stderr "*gnus mock 
errors*"))) ((debug error) (if (and gnus-mock-cleanup-p (file-exists-p 
mock-tmp-dir)) (progn (delete-directory mock-tmp-dir t))) (signal (car err) 
(cdr err)))))
  gnus-mock-start()
  funcall-interactively(gnus-mock-start)
  call-interactively(gnus-mock-start record nil)
  command-execute(gnus-mock-start record)
  execute-extended-command(nil "gnus-mock-start" "gnus-mock")
  funcall-interactively(execute-extended-command nil "gnus-mock-start" 
"gnus-mock")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)


Regards,

Michael.