/[emacs]/emacs/lisp/gnus/gnus-sum.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-sum.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by miles, Wed Oct 6 15:51:45 2004 UTC revision 1.48 by miles, Thu Oct 7 05:53:41 2004 UTC
# Line 3233  buffer that was in action when the last Line 3233  buffer that was in action when the last
3233            (goto-char (point-min))            (goto-char (point-min))
3234            (setq pos (list (cons 'unread            (setq pos (list (cons 'unread
3235                                  (and (search-forward                                  (and (search-forward
3236                                        (string-as-multibyte "\200") nil t)                                        (mm-string-as-multibyte "\200") nil t)
3237                                       (- (point) (point-min) 1)))))                                       (- (point) (point-min) 1)))))
3238            (goto-char (point-min))            (goto-char (point-min))
3239            (push (cons 'replied (and (search-forward            (push (cons 'replied (and (search-forward
3240                                       (string-as-multibyte "\201") nil t)                                       (mm-string-as-multibyte "\201") nil t)
3241                                      (- (point) (point-min) 1)))                                      (- (point) (point-min) 1)))
3242                  pos)                  pos)
3243            (goto-char (point-min))            (goto-char (point-min))
3244            (push (cons 'score (and (search-forward            (push (cons 'score (and (search-forward
3245                                     (string-as-multibyte "\202") nil t)                                     (mm-string-as-multibyte "\202") nil t)
3246                                    (- (point) (point-min) 1)))                                    (- (point) (point-min) 1)))
3247                  pos)                  pos)
3248            (goto-char (point-min))            (goto-char (point-min))
3249            (push (cons 'download (and (search-forward            (push (cons 'download (and (search-forward
3250                                        (string-as-multibyte "\203") nil t)                                        (mm-string-as-multibyte "\203") nil t)
3251                                       (- (point) (point-min) 1)))                                       (- (point) (point-min) 1)))
3252                  pos)))                  pos)))
3253        (setq gnus-summary-mark-positions pos))))        (setq gnus-summary-mark-positions pos))))

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26