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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-sum.el
diff -c emacs/lisp/gnus/gnus-sum.el:1.47 emacs/lisp/gnus/gnus-sum.el:1.48
*** emacs/lisp/gnus/gnus-sum.el:1.47    Wed Oct  6 15:51:45 2004
--- emacs/lisp/gnus/gnus-sum.el Thu Oct  7 05:53:41 2004
***************
*** 3233,3253 ****
          (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))))
--- 3233,3253 ----
          (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))))