Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 57321:3381cb76bac3
* gnus-group.el (gnus-update-group-mark-positions):
* gnus-sum.el (gnus-update-summary-mark-positions):
* message.el (message-check-news-body-syntax):
* gnus-msg.el (gnus-debug): Use `string-as-multibyte' to convert
8-bit unibyte values to a multibyte string for search functions.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 04 Oct 2004 23:18:11 +0000 |
| parents | 4e4ef6960726 |
| children | c9d90ef9b02c |
comparison
equal
deleted
inserted
replaced
| 57320:360e84818bf3 | 57321:3381cb76bac3 |
|---|---|
| 3229 (gnus-newsgroup-downloadable '(0))) | 3229 (gnus-newsgroup-downloadable '(0))) |
| 3230 (gnus-summary-insert-line | 3230 (gnus-summary-insert-line |
| 3231 [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil] | 3231 [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil] |
| 3232 0 nil t 128 t nil "" nil 1) | 3232 0 nil t 128 t nil "" nil 1) |
| 3233 (goto-char (point-min)) | 3233 (goto-char (point-min)) |
| 3234 (setq pos (list (cons 'unread (and (search-forward "\200" nil t) | 3234 (setq pos (list (cons 'unread |
| 3235 (- (point) (point-min) 1))))) | 3235 (and (search-forward |
| 3236 (string-as-multibyte "\200") nil t) | |
| 3237 (- (point) (point-min) 1))))) | |
| 3236 (goto-char (point-min)) | 3238 (goto-char (point-min)) |
| 3237 (push (cons 'replied (and (search-forward "\201" nil t) | 3239 (push (cons 'replied (and (search-forward |
| 3240 (string-as-multibyte "\201") nil t) | |
| 3238 (- (point) (point-min) 1))) | 3241 (- (point) (point-min) 1))) |
| 3239 pos) | 3242 pos) |
| 3240 (goto-char (point-min)) | 3243 (goto-char (point-min)) |
| 3241 (push (cons 'score (and (search-forward "\202" nil t) | 3244 (push (cons 'score (and (search-forward |
| 3245 (string-as-multibyte "\202") nil t) | |
| 3242 (- (point) (point-min) 1))) | 3246 (- (point) (point-min) 1))) |
| 3243 pos) | 3247 pos) |
| 3244 (goto-char (point-min)) | 3248 (goto-char (point-min)) |
| 3245 (push (cons 'download | 3249 (push (cons 'download (and (search-forward |
| 3246 (and (search-forward "\203" nil t) | 3250 (string-as-multibyte "\203") nil t) |
| 3247 (- (point) (point-min) 1))) | 3251 (- (point) (point-min) 1))) |
| 3248 pos))) | 3252 pos))) |
| 3249 (setq gnus-summary-mark-positions pos)))) | 3253 (setq gnus-summary-mark-positions pos)))) |
| 3250 | 3254 |
| 3251 (defun gnus-summary-insert-dummy-line (gnus-tmp-subject gnus-tmp-number) | 3255 (defun gnus-summary-insert-dummy-line (gnus-tmp-subject gnus-tmp-number) |
| 3252 "Insert a dummy root in the summary buffer." | 3256 "Insert a dummy root in the summary buffer." |