Re: .newsrc.eld should have one newline per group

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Thu, Dec 06 2007, James Cloos wrote:

> In retrospect, I suppose one could add a call to the equivilent
> elisp to (gnus-save-newsrc-file) between each call to
> (gnus-gnus-to-quick-newsrc-format) and the ensuing call to
> (save-buffer) to accomplish one-line per group.  Have fun with the
> regexp!  And read the last paragraph of the docstring for
> (replace-regexp) for the proper idiom to use.

Here's what I use in `gnus-save-quick-newsrc-hook'.  The pretty-print
variant has been discussed here, but IIRC it is quite slow.

;;;###autoload
(defun rs-gnus-save-newsrc-with-whitespace-1 ()
  "Save ~/.newsrc.eld with extra whitespace."
  (gnus-message 5 "Adding whitespace to .newsrc.eld")
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "(\\\"\\| ((\\| (nn" nil t)
      (replace-match "\n  \\&" t))
    (delete-trailing-whitespace)))
;; <oq1ykgajdm.fsf@carouge.sram.qc.ca>

(defun rs-gnus-save-newsrc-pretty-print ()
  "Save pretty-printed ~/.newsrc.eld."
  (gnus-message 5 "Pretty printing .newsrc.eld")
  (let ((emacs-lisp-mode-hook nil))
    (emacs-lisp-mode))
  (pp-buffer)
  (while (re-search-forward "(setq gnus-" nil t)
    (replace-match "\n\\&" t))
  ;;   (save-excursion
  ;;     (goto-char (point-min))
  ;;     (search-forward-regexp "(setq gnus-zombie-list")
  ;;     (fill-region (point-at-bol) (point-max)))
  (indent-region (point-min) (point-max))
  (delete-trailing-whitespace))

(add-hook 'gnus-save-quick-newsrc-hook 'rs-gnus-save-newsrc-with-whitespace-1)

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/