Current Gnus is incompatible with Emacs unicode-2 branch.

[zrr]

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