Re: registry seems to be saved for 27.0.50 any longer/Gnorb

[Uwe Brauer <oub@mat.ucm.es>]

[-- Attachment #1: Type: text/plain, Size: 1936 bytes --]

>>> "Michael" == Michael Heerdegen <michael_heerdegen@web.de> writes:

   > Uwe Brauer <oub@mat.ucm.es> writes:
   >> Does anybody suffer the same behavior?

   > Yes, I had suffered the same.

   > The Gnorb registry was horribly broken at that time. It has now
   > been fixed, so you need to upgrade. You probably also need to fix
   > your Gnus registry. How that can be done should have been posted to
   > this Group (or emacs-dev). Or wait until Eric tells more details.


Thanks for confirming! I just realised that Eric indeed send me two
functions, which seem to fix the problem.

I have to call gnus-registry-fixit everytime after I restart gnus, maybe
I should put it in some hook but it is not clear to me into which.

I upgraded (this time successfully to gnorb 1.4.X).

So everything looks ok now, but I think the registry should be fixed
also by Lars/or the GNU emacs maintainers.

Thanks Eric for providing this fix.

Uwe 


(defun gnus-registry-strip-quotes (lst)
  (let (acc)
    (when (consp lst)
      (while (eq (car lst) 'quote)
	(setq lst (cadr lst)))
      (while (consp lst)
	(if (eq (car lst) 'quote)
	    (setq lst (cadr lst))
	  (push (gnus-registry-strip-quotes (car lst)) acc)
	  (setq lst (cdr lst)))))
    (nconc (nreverse (delete-dups acc))
	   lst)))

(defun gnus-registry-fixit ()
  "Fix Gnus registry after eieio-persistent patches.
For use with Emacs master branch, after installing 0afb43eeb, or
the 26 branch, after daa9e853bd."
  (interactive)
  (unless (gnus-alive-p)
    (gnus))
  (when gnus-registry-enabled
    (with-slots (tracker data) gnus-registry-db
      (maphash
       (lambda (track-sym hsh)
	 (maphash
	  (lambda (k v)
	    (setf (gethash k hsh)
		  (gnus-registry-strip-quotes v)))
	  hsh))
       tracker)
      (maphash
       (lambda (k v)
	 (setf (gethash k data) (gnus-registry-strip-quotes v)))
       data))))

[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 5025 bytes --]