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)))) |