* Current Gnus is incompatible with Emacs unicode-2 branch.
@ 2004-10-15 10:24 zrr
0 siblings, 0 replies; only message in thread
From: zrr @ 2004-10-15 10:24 UTC (permalink / raw)
Hello,
Current Gnus which was merged into emacs-unicode-2 branch CVS
repository is incompatible with Emacs 22.0.0.
I can't mark articles in summary buffer. For instance, I use 'M
r' to mark the article as read, but there is no mark symbol
appears and the article line is not highlighted. The text
properties of the "marked" line is
"gnus-summary-normal-unread-face", but it should be
"gnus-summary-normal-read-face", which foreground color is
"PaleGreen" by default. I kill the summary buffer and enter
that group again, however, the article which I marked before is
recognized as read and correctly highlighted. It seems that
Gnus can not "dynamicly" update article display.
I have found out this bug was caused by the modification of
"gnus-update-summary-mark-positions" function, which is defined
in "gnus-sum.el". Because I managed to eval(C-x C-e) this
function in previous version "gnus-sum.el", it works!
The newest "gnus-update-summary-mark-positions" definition is as
follows:
------------------------------------------------------------------------------
(defun gnus-update-summary-mark-positions ()
"Compute where the summary marks are to go."
(save-excursion
(when (gnus-buffer-exists-p gnus-summary-buffer)
(set-buffer gnus-summary-buffer))
(let ((gnus-replied-mark 129)
(gnus-score-below-mark 130)
(gnus-score-over-mark 130)
(gnus-undownloaded-mark 131)
(spec gnus-summary-line-format-spec)
gnus-visual pos)
(save-excursion
(gnus-set-work-buffer)
(let ((gnus-summary-line-format-spec spec)
(gnus-newsgroup-downloadable '(0)))
(gnus-summary-insert-line
[0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil]
0 nil t 128 t nil "" nil 1)
(goto-char (point-min))
(setq pos (list (cons 'unread
(and (search-forward
(mm-string-as-multibyte "\200") nil t)
(- (point) (point-min) 1)))))
(goto-char (point-min))
(push (cons 'replied (and (search-forward
(mm-string-as-multibyte "\201") nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
(push (cons 'score (and (search-forward
(mm-string-as-multibyte "\202") nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
(push (cons 'download (and (search-forward
(mm-string-as-multibyte "\203") nil t)
(- (point) (point-min) 1)))
pos)))
(setq gnus-summary-mark-positions pos))))
--------------------------------------------------------------------------------------------
and following is the perfectly works version copyed from
2004-09-21 Emacs CVS trunk.
--------------------------------------------------------------------------------------------
(defun gnus-update-summary-mark-positions ()
"Compute where the summary marks are to go."
(save-excursion
(when (gnus-buffer-exists-p gnus-summary-buffer)
(set-buffer gnus-summary-buffer))
(let ((gnus-replied-mark 129)
(gnus-score-below-mark 130)
(gnus-score-over-mark 130)
(gnus-undownloaded-mark 131)
(spec gnus-summary-line-format-spec)
gnus-visual pos)
(save-excursion
(gnus-set-work-buffer)
(let ((gnus-summary-line-format-spec spec)
(gnus-newsgroup-downloadable '(0)))
(gnus-summary-insert-line
[0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil]
0 nil t 128 t nil "" nil 1)
(goto-char (point-min))
(setq pos (list (cons 'unread (and (search-forward "\200" nil t)
(- (point) (point-min) 1)))))
(goto-char (point-min))
(push (cons 'replied (and (search-forward "\201" nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
(push (cons 'score (and (search-forward "\202" nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
(push (cons 'download
(and (search-forward "\203" nil t)
(- (point) (point-min) 1)))
pos)))
(setq gnus-summary-mark-positions pos))))
---------------------------------------------------------------------------------------------
Maybe the "mm-string-as-multibyte" fuction brings trouble.
I have reported this bug to Gnus develop group. Since this
bug only appears in unicode-2 branch, I think it is necessary
to send report to this mail list too.
Regards!
Tang
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2004-10-15 10:24 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2004-10-15 10:24 Current Gnus is incompatible with Emacs unicode-2 branch zrr
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).