[sisyphus] gnus

[Eugeny Korekin]

А вот еще интересный баг:

Пишем в ~/.emacs:

(setq gnus-default-adaptive-score-alist (quote ((gnus-killed-mark (thread -10)) ((gnus-read-mark (thread 1000))))))

И получаем после убивания трида и выхода из группы, к примеру,следующее:

Debugger entered--Lisp error: (void-function thread)
  thread([403 "Re: apache log rotating" "Lenni <lenni на ivgsm.ru>" #("Tue, 19 Feb 2002 05:54:36 +0000 (UTC)" 0 1 (gnus-time ...) 1 37 nil) "<MHlc8.893$gl3.975663 на news.rt.ru>" "<1474075568 на f16.n5004.z2.fidonet.ftn> <1014064021 на f696.n5020.z2.fidonet.ftn>" 2097 25 "reks.ftc.ru fido7.ru.apache:403" nil])
  funcall(thread [403 "Re: apache log rotating" "Lenni <lenni на ivgsm.ru>" #("Tue, 19 Feb 2002 05:54:36 +0000 (UTC)" 0 1 (gnus-time ...) 1 37 nil) "<MHlc8.893$gl3.975663 на news.rt.ru>" "<1474075568 на f16.n5004.z2.fidonet.ftn> <1014064021 на f696.n5020.z2.fidonet.ftn>" 2097 25 "reks.ftc.ru fido7.ru.apache:403" nil])
  (setq match (funcall (caar elem) headers))
  (while elem (setq match (funcall ... headers)) (gnus-summary-score-entry (nth 1 ...) match (cond ... ... ...) (nth 2 ...) date nil t) (setq elem (cdr elem)))
  (progn (while elem (setq match ...) (gnus-summary-score-entry ... match ... ... date nil t) (setq elem ...)))
  (if (setq headers (gnus-data-header ...)) (progn (while elem ... ... ...)))
  (when (setq headers (gnus-data-header ...)) (while elem (setq match ...) (gnus-summary-score-entry ... match ... ... date nil t) (setq elem ...)))
  (if (or (not elem) (gnus-data-pseudo-p ...)) nil (when (setq headers ...) (while elem ... ... ...)))
  (while data (setq elem (cdr ...)) (if (or ... ...) nil (when ... ...)) (setq data (cdr data)))
  (let* ((malist ...) (alist malist) (date ...) (data gnus-newsgroup-data) elem headers match func) (while malist (setq elem ...) (when ... ...) (setq elem ...) (while elem ... ...) (setq malist ...)) (while data (setq elem ...) (if ... nil ...) (setq data ...)))
  (save-excursion (let* (... ... ... ... elem headers match func) (while malist ... ... ... ... ...) (while data ... ... ...)))
  (progn (save-excursion (let* ... ... ...)))
  (if (or (not ...) (memq ... gnus-newsgroup-adaptive)) (progn (save-excursion ...)))
  (when (or (not ...) (memq ... gnus-newsgroup-adaptive)) (save-excursion (let* ... ... ...)))
  (progn (save-excursion (set-buffer gnus-summary-buffer) (gnus-score-load-file ...)) (when (or ... ...) (save-excursion ...)) (when (and ... ...) (with-temp-buffer ...)))
  (if gnus-newsgroup-adaptive (progn (save-excursion ... ...) (when ... ...) (when ... ...)))
  (when gnus-newsgroup-adaptive (save-excursion (set-buffer gnus-summary-buffer) (gnus-score-load-file ...)) (when (or ... ...) (save-excursion ...)) (when (and ... ...) (with-temp-buffer ...)))
  gnus-score-adaptive()
  gnus-summary-exit()
  call-interactively(gnus-summary-exit)

Баг(?) проявляется на именно на gnus-killed-mark. У меня
воспроизводится стопроцентно.
С Lars Magne Inge(как его там дальше) я переписывался по этому поводу,
он этот эффект воспроизвести не смог. Проверьте пожалуйста, кому не
очень лень.

-- 
	Best regards, -- Eugeny.

Old timer, n.:
	One who remembers when charity was a virtue and not an organization.