From: Eugeny Korekin <az@ftc.ru>
To: sisyphus@altlinux.ru
Subject: [sisyphus] gnus
Date: Tue, 05 Mar 2002 15:00:09 +0600
Message-ID: <ypo1y9h7z8x2.fsf@reks.ftc.ru> (raw)
А вот еще интересный баг:
Пишем в ~/.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.
reply other threads:[~2002-03-05 9:00 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=ypo1y9h7z8x2.fsf@reks.ftc.ru \
--to=az@ftc.ru \
--cc=sisyphus@altlinux.ru \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
ALT Linux Sisyphus discussions
This inbox may be cloned and mirrored by anyone:
git clone --mirror http://lore.altlinux.org/sisyphus/0 sisyphus/git/0.git
# If you have public-inbox 1.1+ installed, you may
# initialize and index your mirror using the following commands:
public-inbox-init -V2 sisyphus sisyphus/ http://lore.altlinux.org/sisyphus \
sisyphus@altlinux.ru sisyphus@altlinux.org sisyphus@lists.altlinux.org sisyphus@lists.altlinux.ru sisyphus@lists.altlinux.com sisyphus@linuxteam.iplabs.ru sisyphus@list.linux-os.ru
public-inbox-index sisyphus
Example config snippet for mirrors.
Newsgroup available over NNTP:
nntp://lore.altlinux.org/org.altlinux.lists.sisyphus
AGPL code for this site: git clone https://public-inbox.org/public-inbox.git