must remove gnus-format-specs from .newsrc.eld to start gnus

must remove gnus-format-specs from .newsrc.eld to start gnus

[jidanni]

Indeed I don't know why there is gnus-format-specs in .newsrc.eld.
We the user taking it out seems to work fine.

You see otherwise for emacs-snapshot: 1:20110827-1, 1:20110821-1, there
will be invalid read errors, and you won't be able to start gnus.
(setq gnus-format-specs .... gnus-tmp-qualified-group 0 61) # ...
As you see there have been "#" injected.

Re: must remove gnus-format-specs from .newsrc.eld to start gnus

[jidanni]

Every time I take it off it gets put back on next session, causing gnus
to be unable to start.


STOP PUTTING IT back in.


Here it is:

(setq gnus-format-specs '((article-mode "Gnus: %g %S%m" (concat (format "Gnus: %s %s%s" (gnus-short-group-name gnus-tmp-group-name) gnus-tmp-subject (gnus-article-mime-part-status)))) (summary-dummy "   %(:                             :%) %S\n" (progn (insert "   ") (gnus-put-text-property (point) (progn (insert ":                             :") (point)) gnus-mouse-face-prop gnus-mouse-face) (insert " " gnus-tmp-subject "\n"))) (summary-mode "Gnus: %G [%A] %Z" (concat (format "Gnus: %s [%d] %s" gnus-tmp-group-name gnus-tmp-article-number gnus-tmp-unread-and-unselected))) (summary "%U%R%z%I%(%2t %3{%~(cut-left 2)~(max-right 6)~(pad 6)o%}%3L|%6us|%-14,14f%)%3{%un%}:%s\n" (progn (insert gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation) (gnus-put-text-property (point) (progn (insert (format "%2d " (gnus-summary-number-of-articles-in-thread (and (boundp 'thread) (car thread)) gnus-tmp-level))) (gnus-add-text-properties (point) (progn (insert (format "%6s" (let*
   ((val (eval (let
   ((val (eval (let
   ((val (eval (gnus-date-iso8601 (mail-header-date gnus-tmp-header))))) (if (> (string-width val) 2) (gnus-correct-substring val 2) val))))) (if (> (string-width val) 6) (if (gnus-lrm-string-p val) (concat (gnus-correct-substring val 0 6) #
  ("‎" 0 1 (invisible t))) (gnus-correct-substring val 0 6)) val)))) (need (- 6 (string-width val)))) (if (> need 0) (concat (make-string need 32) val nil) val)))) (point)) '(gnus-face t face bold)) (insert (format "%3s|%6s|%-14s" gnus-tmp-lines (gnus-user-format-function-s gnus-tmp-header) (let*
   ((val (eval (let
   ((val (eval (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)))) (if (> (string-width val) 14) (if (gnus-lrm-string-p val) (concat (gnus-correct-substring val 0 14) #
  ("‎" 0 1 (invisible t))) (gnus-correct-substring val 0 14)) val)))) (need (- 14 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)))) (point)) gnus-mouse-face-prop gnus-mouse-face) (gnus-add-text-properties (point) (progn (insert (gnus-user-format-function-n gnus-tmp-header)) (point)) '(gnus-face t face bold)) (insert ":" gnus-tmp-subject-or-nil "\n"))) (group "%B%T%S%p%P%3U|%3y: %(%-61,61G%) %d %L\n" (progn (insert (format "%c%d%c%c%s%3s|%3s: " gnus-tmp-summary-live (gnus-range-length (cdr (assq 'tick gnus-tmp-marked))) gnus-tmp-subscribed gnus-tmp-process-marked gnus-group-indentation (if (gnus-active gnus-tmp-group) (gnus-number-of-unseen-articles-in-group gnus-tmp-group) "*") gnus-tmp-number-of-unread)) (gnus-put-text-property (point) (progn (insert (format "%-61s" (let*
   ((val (eval (if (> (string-width gnus-tmp-qualified-group) 61) (if (gnus-lrm-string-p gnus-tmp-qualified-group) (concat (gnus-correct-substring gnus-tmp-qualified-group 0 61) #
  ("‎" 0 1 (invisible t))) (gnus-correct-substring gnus-tmp-qualified-group 0 61)) gnus-tmp-qualified-group))) (need (- 61 (string-width val)))) (if (> need 0) (concat nil val (make-string need 32)) val)))) (point)) gnus-mouse-face-prop gnus-mouse-face) (insert (format " %s %d\n" (gnus-group-timestamp-string gnus-tmp-group) gnus-tmp-level)))) (group-mode "Gnus: %%b {%M%:%S}" (concat (format "Gnus: %%b {%s%s%s}" gnus-tmp-news-method gnus-tmp-colon gnus-tmp-news-server))) (version . "24.0.50.1")))

Re: must remove gnus-format-specs from .newsrc.eld to start gnus

[jidanni]

Oh, I see, it was
(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)))
(add-hook 'gnus-save-quick-newsrc-hook 'rs-gnus-save-newsrc-with-whitespace-1)
That was messing me up.

Re: must remove gnus-format-specs from .newsrc.eld to start gnus

[Dan Christensen]

jidanni@jidanni.org writes:

> Oh, I see, it was
> (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)))
> (add-hook 'gnus-save-quick-newsrc-hook 'rs-gnus-save-newsrc-with-whitespace-1)
> That was messing me up.

The version below (with #? added to the beginning of the regexp) seems
to fix the problem for me.

Dan

(defun rs-gnus-save-newsrc-with-whitespace-1 ()
  "Save ~/.newsrc.eld with extra whitespace."
  (gnus-message 9 "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)))

Re: must remove gnus-format-specs from .newsrc.eld to start gnus

[jidanni]

>>>>> "DC" == Dan Christensen <jdc@uwo.ca> writes:
DC> The version below (with #? added to the beginning of the regexp) seems
DC> to fix the problem for me.
Until the next time "upstream" changes something. Nah, I'm getting my
fingers out of there.