[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#33005: 27.0.50; Data loss with Gnus registry
From: |
Michael Heerdegen |
Subject: |
bug#33005: 27.0.50; Data loss with Gnus registry |
Date: |
Mon, 14 Oct 2019 11:53:15 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) |
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.
- bug#33005: 27.0.50; Data loss with Gnus registry, Eric Abrahamsen, 2019/10/01
- bug#33005: 27.0.50; Data loss with Gnus registry,
Michael Heerdegen <=
- bug#33005: 27.0.50; Data loss with Gnus registry, Eric Abrahamsen, 2019/10/14
- bug#33005: 27.0.50; Data loss with Gnus registry, Michael Heerdegen, 2019/10/15
- bug#33005: 27.0.50; Data loss with Gnus registry, Eric Abrahamsen, 2019/10/15
- bug#33005: 27.0.50; Data loss with Gnus registry, Michael Heerdegen, 2019/10/16
- bug#33005: 27.0.50; Data loss with Gnus registry, Eric Abrahamsen, 2019/10/16
- bug#33005: 27.0.50; Data loss with Gnus registry, Michael Heerdegen, 2019/10/17
- bug#33005: 27.0.50; Data loss with Gnus registry, Eric Abrahamsen, 2019/10/17
- bug#33005: 27.0.50; Data loss with Gnus registry, Michael Heerdegen, 2019/10/18
- bug#33005: 27.0.50; Data loss with Gnus registry, Michael Heerdegen, 2019/10/18
- bug#33005: 27.0.50; Data loss with Gnus registry, Phil Sainty, 2019/10/18