[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el

[Juri Linkov]

Index: emacs/lisp/gnus/gnus-sum.el
diff -c emacs/lisp/gnus/gnus-sum.el:1.45 emacs/lisp/gnus/gnus-sum.el:1.46
*** emacs/lisp/gnus/gnus-sum.el:1.45    Fri Oct  1 06:40:26 2004
--- emacs/lisp/gnus/gnus-sum.el Mon Oct  4 23:18:11 2004
***************
*** 3231,3250 ****
           [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))))
  
--- 3231,3254 ----
           [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
!                                     (string-as-multibyte "\200") nil t)
!                                    (- (point) (point-min) 1)))))
          (goto-char (point-min))
!         (push (cons 'replied (and (search-forward
!                                    (string-as-multibyte "\201") nil t)
                                    (- (point) (point-min) 1)))
                pos)
          (goto-char (point-min))
!         (push (cons 'score (and (search-forward
!                                  (string-as-multibyte "\202") nil t)
                                  (- (point) (point-min) 1)))
                pos)
          (goto-char (point-min))
!         (push (cons 'download (and (search-forward
!                                     (string-as-multibyte "\203") nil t)
!                                    (- (point) (point-min) 1)))
                pos)))
        (setq gnus-summary-mark-positions pos))))