/[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.45 by miles, Fri Oct 1 06:40:26 2004 UTC revision 1.46 by jurta, Mon Oct 4 23:18:11 2004 UTC
# Line 3231  buffer that was in action when the last Line 3231  buffer that was in action when the last
3231             [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil]             [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil]
3232             0 nil t 128 t nil "" nil 1)             0 nil t 128 t nil "" nil 1)
3233            (goto-char (point-min))            (goto-char (point-min))
3234            (setq pos (list (cons 'unread (and (search-forward "\200" nil t)            (setq pos (list (cons 'unread
3235                                               (- (point) (point-min) 1)))))                                  (and (search-forward
3236                                          (string-as-multibyte "\200") nil t)
3237                                         (- (point) (point-min) 1)))))
3238            (goto-char (point-min))            (goto-char (point-min))
3239            (push (cons 'replied (and (search-forward "\201" nil t)            (push (cons 'replied (and (search-forward
3240                                         (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 "\202" nil t)            (push (cons 'score (and (search-forward
3245                                       (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            (push (cons 'download (and (search-forward
3250                        (and (search-forward "\203" nil t)                                        (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))))
3254    

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

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