From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Eric Abrahamsen Newsgroups: gmane.emacs.bugs Subject: bug#33005: 27.0.50; Data loss with Gnus registry Date: Tue, 10 Dec 2019 15:31:58 -0800 Message-ID: <87fthrdafl.fsf@ericabrahamsen.net> References: <871s8yvsrq.fsf@web.de> <87sgm8tmq6.fsf@ericabrahamsen.net> <87wobk0xza.fsf@web.de> <87imn3tv1s.fsf@ericabrahamsen.net> <87imn2luz8.fsf@web.de> <87lfrtwyu5.fsf@ericabrahamsen.net> <87immwm5po.fsf@web.de> <87r21kuhmm.fsf@ericabrahamsen.net> <877e3bn7rw.fsf@web.de> <9B6350E4-ED1B-4E95-974E-7531C9987655@ericabrahamsen.net> <8736dzn6sn.fsf@web.de> <87blsnu6yu.fsf@ericabrahamsen.net> <87y2vrlpya.fsf@web.de> <87v9qvsigm.fsf@ericabrahamsen.net> <877e3624zd.fsf@web.de> <87zhg25ymg.fsf@ericabrahamsen.net> <87h82970i9.fsf@web.de> <87k1753zfx.fsf@ericabrahamsen.net> <87d0cx6qsy.fsf@web.de> <87blsh3u57.fsf@ericabrahamsen.net> <87a78052u9.fsf@web.de> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="19378"; 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: Michael Heerdegen Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Dec 11 00:33:14 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 1iep0D-0004un-LO for geb-bug-gnu-emacs@m.gmane.org; Wed, 11 Dec 2019 00:33:13 +0100 Original-Received: from localhost ([::1]:37042 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iep0C-0002im-9S for geb-bug-gnu-emacs@m.gmane.org; Tue, 10 Dec 2019 18:33:12 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:59384) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iep03-0002iX-Oh for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2019 18:33:04 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1iep02-0001J2-Mp for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2019 18:33:03 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:50760) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1iep02-0001Ig-JH for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2019 18:33:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1iep02-0004KL-Do for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2019 18:33:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Eric Abrahamsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 10 Dec 2019 23:33:02 +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.157602072816444 (code B ref 33005); Tue, 10 Dec 2019 23:33:02 +0000 Original-Received: (at 33005) by debbugs.gnu.org; 10 Dec 2019 23:32:08 +0000 Original-Received: from localhost ([127.0.0.1]:56733 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ieozA-0004HA-4F for submit@debbugs.gnu.org; Tue, 10 Dec 2019 18:32:08 -0500 Original-Received: from ericabrahamsen.net ([52.70.2.18]:57570 helo=mail.ericabrahamsen.net) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ieoz7-0004Ge-Pj for 33005@debbugs.gnu.org; Tue, 10 Dec 2019 18:32:06 -0500 Original-Received: from localhost (c-73-254-86-141.hsd1.wa.comcast.net [73.254.86.141]) (Authenticated sender: eric@ericabrahamsen.net) by mail.ericabrahamsen.net (Postfix) with ESMTPSA id B58B0FA087; Tue, 10 Dec 2019 23:31:59 +0000 (UTC) In-Reply-To: <87a78052u9.fsf@web.de> (Michael Heerdegen's message of "Tue, 10 Dec 2019 03:30:54 +0100") 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:173162 Archived-At: Michael Heerdegen writes: > Eric Abrahamsen writes: > >> Oh, of course! Well in that case an :after method on >> `eieio-persistent-save' might be just the thing. > > I'll use this for now - works so far: > > #+begin_src emacs-lisp > (setf (alist-get (regexp-quote ".gnus.registry.eieio") file-name-handler-alist) > (defun my-gnus-registry-save-file-handler (operation &rest args) > (pcase-let ((`(,_start ,_end ,filename . ,_rest) args)) > (when (eq operation 'write-region) > (let ((buffer-backed-up nil) > (buffer-file-name filename) > (file-precious-flag t) > (kept-new-versions 300)) > (backup-buffer)))) > (let ((inhibit-file-name-handlers > (cons 'my-gnus-registry-save-file-handler > inhibit-file-name-handlers)) > (inhibit-file-name-operation operation)) > (apply operation args)))) > #+end_src Huh. Seems like a fair amount of work, but it's certainly low level! Nice to have it integrated into all of Emacs' regular save-file mechanisms.