From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#33005: 27.0.50; Data loss with Gnus registry Date: Mon, 14 Oct 2019 11:53:15 +0200 Message-ID: <87v9srzm9g.fsf@web.de> References: <871s8yvsrq.fsf@web.de> <87in29x33z.fsf@ericabrahamsen.net> <87r2gxygox.fsf@web.de> <87efcxwzr2.fsf@ericabrahamsen.net> <874ldtlcks.fsf@web.de> <87ftxdl7w1.fsf@ericabrahamsen.net> <878t33cjf2.fsf@web.de> <87o8za4gbl.fsf@web.de> <87mueuicys.fsf@ericabrahamsen.net> <87d0fgnik0.fsf@ericabrahamsen.net> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="202955"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) Cc: 33005@debbugs.gnu.org To: Eric Abrahamsen Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Oct 14 11:54:57 2019 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1iJx45-000qce-0F for geb-bug-gnu-emacs@m.gmane.org; Mon, 14 Oct 2019 11:54:57 +0200 Original-Received: from localhost ([::1]:46340 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iJx43-00043c-Ev for geb-bug-gnu-emacs@m.gmane.org; Mon, 14 Oct 2019 05:54:55 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:37289) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iJx3D-0003gC-Ut for bug-gnu-emacs@gnu.org; Mon, 14 Oct 2019 05:54:05 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1iJx3C-00009i-4V for bug-gnu-emacs@gnu.org; Mon, 14 Oct 2019 05:54:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:57582) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1iJx3B-000096-Nl for bug-gnu-emacs@gnu.org; Mon, 14 Oct 2019 05:54:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1iJx3B-0008Of-Ki for bug-gnu-emacs@gnu.org; Mon, 14 Oct 2019 05:54:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 14 Oct 2019 09:54:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33005 X-GNU-PR-Package: emacs Original-Received: via spool by 33005-submit@debbugs.gnu.org id=B33005.157104680932235 (code B ref 33005); Mon, 14 Oct 2019 09:54:01 +0000 Original-Received: (at 33005) by debbugs.gnu.org; 14 Oct 2019 09:53:29 +0000 Original-Received: from localhost ([127.0.0.1]:38170 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iJx2e-0008Nq-Gb for submit@debbugs.gnu.org; Mon, 14 Oct 2019 05:53:28 -0400 Original-Received: from mout.web.de ([212.227.15.3]:37001) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1iJx2b-0008Nd-TG for 33005@debbugs.gnu.org; Mon, 14 Oct 2019 05:53:26 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=dbaedf251592; t=1571046789; bh=cjDB6xRNUIgq2YptJCzXni/dh6LEFrTqjcBcNRFqA2c=; h=X-UI-Sender-Class:From:To:Cc:Subject:References:Date:In-Reply-To; b=FIHkqP/rfPT8o3oE1dPdnymQ+2JCx6tu96sz5Mcy3j1LZ8g9s0+iF3YMqy5EebmA8 l+VyvbMGzpfMLu5iXvvZxb1BWAjRk1e9hAmeS25gXsPyW+eeF+7sJnejsS0vQXvfj8 zdLWmKwOPaEi4l0LGuot+r3dBliNDJpbFmKk/hik= X-UI-Sender-Class: c548c8c5-30a9-4db5-a2e7-cb6cb037b8f9 Original-Received: from drachen.dragon ([94.218.222.9]) by smtp.web.de (mrweb001 [213.165.67.108]) with ESMTPSA (Nemesis) id 0MFtKQ-1iF3EQ2fm2-00EttL; Mon, 14 Oct 2019 11:53:08 +0200 In-Reply-To: <87d0fgnik0.fsf@ericabrahamsen.net> (Eric Abrahamsen's message of "Tue, 01 Oct 2019 16:37:51 -0700") X-Provags-ID: V03:K1:0pHxMr9epgdsCcZK6HjYNzAsgtLqUBxqbANttiDgVSiT64bBPlv xuxcvM7WD4AX+CIhXrM4n73QedR2rC1GVgKUuCkf2JYDu/Qk02nlG0vPj3wgW+nQEQT3VWu 49FHyXM9Jk/huIMTN3l1KhLGWj6t6B8g7Nz6DB4HhdpaN6SZ2jcvIHZWr2eEcJdrpL4bEs/ KLrmdmKAcsd2m2WhrEoOA== X-UI-Out-Filterresults: notjunk:1;V03:K0:nOx5+nhBR0Y=:Sa/g91IMpjBXSSAfJTjwYu C2/+fGBLe9PRwmI522ikwy0VIZZQg8rmEx6F4mn8FlEiq8Y0Hoca4x900X11DsODdnEG5e+5L shLK49kjvHanLJdJa7dPYTmV5VNlC/iPt1YakOsC6NTmfeWx6oXTIuPn9BrpOZ6FdyTf+JwqL d2lOBQ+6ADqi23ei/9gqNW/D+ig1hiDWHmtGwhe0Gh9ppMs4x27POEL34qzOvIbZkTz1aN6a9 iAxAqFYUf4g64g6THBH+58EEPOG9r6sU11btCz3urjnYYQ+beV0jrt1OCOUP+A6aman0HHqeG UnBu5KGOlE2+xGOTmPwmKX/bsiWOT0S++bd3aigJB95tXlo6j4jZWAcyOSqDGElqH5i+sAg1g 3U40OYE3h4fBTiSpuiD7h82n/jEXZNmLZ/SqthYWyG24iFidNxet8ilXazqiFLEIZKnZz/VSm 494igyswYRYFp4CgLz56908VcSi3tciaFTwe92Fkmo5X6NjJG3LXbel8RN3qLFhaFeHIXuEdQ I3JMVjnUakl6w7ALS1vjw3MmB+4R5ctccJJDNMnkFlR0m9odq3delw2ksMxZrxb8pZYtSzAEu ljljxo7TSHkoNhhcJsuiyP6oxntQ4nN2x6UO4ZPNAzPp6S7MGo1DoAEhY//ib0rT1a1FgtgMa 1e5PdaKLIATdsN+w23ZMEsvTjxyLrN1laQ09jM2NQH11aYaUbD6wkF2MrxBmHE4Cl22JRfq6U i1xLbYRI4D0pS0hDFIZtzXmXQalBySr0omerZeE3jxtk84NrdZDgVQxzL9ev3ghqZZKoXLKC X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:169251 Archived-At: Eric Abrahamsen 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-dire= ctory (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 t= emp-buffer) (unwind-protect (progn (let ((standard-output ...) (print-circl= e 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-cl= eanup-p (progn ... ...)) (if gnus-mock-use-images (progn ... ...)) (write-f= ile 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 #'(lamb= da (dir) (format "%s/test/%s" mock-tmp-dir dir)) '("Welcome/new" "Welcome/t= mp" "Welcome/.nnmaildir/marks" "incoming/tmp" "incoming/new" "incoming/cur"= "incoming/.nnmaildir/marks" "incoming/.nnmaildir/nov" "mails/tmp" "mails/n= ew" "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 " *te= mp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (prog= n (insert-file-contents gnus-mock-init-file) (append-to-file ... ... init-f= ile)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (if gn= us-mock-gnus-file (progn (let ((temp-buffer (generate-new-buffer " *temp*")= )) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (in= sert-file-contents gnus-mock-gnus-file) (append-to-file ... ... ...)) (and = (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (if gnus-mock-dov= ecot-imap-program (progn (let ((temp-buffer (generate-new-buffer " *temp*")= )) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (in= sert "\n\n") (prin1 ... ...) (append-to-file ... ... ...)) (and (buffer-nam= e temp-buffer) (kill-buffer temp-buffer))))))) (save-current-buffer (set-bu= ffer (find-file-noselect (expand-file-name ".newsrc.eld" mock-tmp-dir))) (w= hile (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 (exp= and-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 "*gn= us 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 (... ...) (prin= 1 ...) (princ "\n\n") (prin1 ...) (princ "\n") (prin1 ...) (if gnus-mock-cl= eanup-p ...) (if gnus-mock-use-images ...) (write-file init-file))) (and (b= uffer-name temp-buffer) (kill-buffer temp-buffer))))) (copy-directory gnus-= mock-data-dir (file-name-as-directory mock-tmp-dir) nil nil t) (mapc #'(lam= bda (path) (make-directory path t)) (mapcar #'(lambda (dir) (format "%s/tes= t/%s" mock-tmp-dir dir)) '("Welcome/new" "Welcome/tmp" "Welcome/.nnmaildir/= marks" "incoming/tmp" "incoming/new" "incoming/cur" "incoming/.nnmaildir/ma= rks" "incoming/.nnmaildir/nov" "mails/tmp" "mails/new" "mails/.nnmaildir/ma= rks"))) (make-directory (format "%s/drafts/drafts" mock-tmp-dir) t) (make-d= irectory (format "%s/drafts/queue" mock-tmp-dir)) (if gnus-mock-init-file (= progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-bu= ffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)= ))))) (if gnus-mock-gnus-file (progn (let ((temp-buffer (generate-new-buffe= r " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protec= t (progn ... ...) (and ... ...)))))) (if gnus-mock-dovecot-imap-program (pr= ogn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buff= er (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ..= .)))))) (save-current-buffer (set-buffer (find-file-noselect (expand-file-n= ame ".newsrc.eld" mock-tmp-dir))) (while (re-search-forward "REPLACE_ME" (p= oint-max) t) (replace-match mock-tmp-dir t)) (if gnus-mock-dovecot-imap-pro= gram (progn (goto-char (point-max)) (insert "\n\n") (prin1 '(setq gnus-news= rc-alist ...) (current-buffer)))) (basic-save-buffer)) (let ((default-direc= tory (expand-file-name "lisp/gnus" (file-name-as-directory (expand-file-nam= e "../.." gnus-mock-emacs-program))))) (make-process :name "gnus-mock" :buf= fer nil :command (list gnus-mock-emacs-program "-Q" "--load" init-file) :st= derr "*gnus mock errors*"))) ((debug error) (if (and gnus-mock-cleanup-p (f= ile-exists-p mock-tmp-dir)) (progn (delete-directory mock-tmp-dir t))) (sig= nal (car err) (cdr err)))) (let ((mock-tmp-dir (make-temp-file "emacs-gnus-mock-" t))) (condition-ca= se err (let ((init-file (expand-file-name "init.el" mock-tmp-dir))) (let ((= temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buf= fer 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" "Welc= ome/.nnmaildir/marks" "incoming/tmp" "incoming/new" "incoming/cur" "incomin= g/.nnmaildir/marks" "incoming/.nnmaildir/nov" "mails/tmp" "mails/new" "mail= s/.nnmaildir/marks"))) (make-directory (format "%s/drafts/drafts" mock-tmp-= dir) t) (make-directory (format "%s/drafts/queue" mock-tmp-dir)) (if gnus-m= ock-init-file (progn (let ((temp-buffer ...)) (save-current-buffer (set-buf= fer temp-buffer) (unwind-protect ... ...))))) (if gnus-mock-gnus-file (prog= n (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (u= nwind-protect ... ...))))) (if gnus-mock-dovecot-imap-program (progn (let (= (temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-pr= otect ... ...))))) (save-current-buffer (set-buffer (find-file-noselect (ex= pand-file-name ".newsrc.eld" mock-tmp-dir))) (while (re-search-forward "REP= LACE_ME" (point-max) t) (replace-match mock-tmp-dir t)) (if gnus-mock-dovec= ot-imap-program (progn (goto-char (point-max)) (insert "\n\n") (prin1 '... = (current-buffer)))) (basic-save-buffer)) (let ((default-directory (expand-f= ile-name "lisp/gnus" (file-name-as-directory ...)))) (make-process :name "g= nus-mock" :buffer nil :command (list gnus-mock-emacs-program "-Q" "--load" = init-file) :stderr "*gnus mock errors*"))) ((debug error) (if (and gnus-moc= k-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" "gnu= s-mock") call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command) Regards, Michael.