428 |
(cons :value ("" "") regexp (repeat string)) |
(cons :value ("" "") regexp (repeat string)) |
429 |
(sexp :value nil)))) |
(sexp :value nil)))) |
430 |
|
|
431 |
|
;; FIXME: Although the custom type is `character' for the following variables, |
432 |
|
;; using multibyte characters (Latin-1, UTF-8) doesn't work. -- rs |
433 |
|
|
434 |
(defcustom gnus-unread-mark ? ;Whitespace |
(defcustom gnus-unread-mark ? ;Whitespace |
435 |
"*Mark used for unread articles." |
"*Mark used for unread articles." |
436 |
:group 'gnus-summary-marks |
:group 'gnus-summary-marks |
3234 |
[0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil] |
[0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil] |
3235 |
0 nil t 128 t nil "" nil 1) |
0 nil t 128 t nil "" nil 1) |
3236 |
(goto-char (point-min)) |
(goto-char (point-min)) |
3237 |
(setq pos (list (cons 'unread (and (search-forward "\200" nil t) |
(setq pos (list (cons 'unread |
3238 |
(- (point) (point-min) 1))))) |
(and (search-forward |
3239 |
|
(mm-string-as-multibyte "\200") nil t) |
3240 |
|
(- (point) (point-min) 1))))) |
3241 |
(goto-char (point-min)) |
(goto-char (point-min)) |
3242 |
(push (cons 'replied (and (search-forward "\201" nil t) |
(push (cons 'replied (and (search-forward |
3243 |
|
(mm-string-as-multibyte "\201") nil t) |
3244 |
(- (point) (point-min) 1))) |
(- (point) (point-min) 1))) |
3245 |
pos) |
pos) |
3246 |
(goto-char (point-min)) |
(goto-char (point-min)) |
3247 |
(push (cons 'score (and (search-forward "\202" nil t) |
(push (cons 'score (and (search-forward |
3248 |
|
(mm-string-as-multibyte "\202") nil t) |
3249 |
(- (point) (point-min) 1))) |
(- (point) (point-min) 1))) |
3250 |
pos) |
pos) |
3251 |
(goto-char (point-min)) |
(goto-char (point-min)) |
3252 |
(push (cons 'download |
(push (cons 'download (and (search-forward |
3253 |
(and (search-forward "\203" nil t) |
(mm-string-as-multibyte "\203") nil t) |
3254 |
(- (point) (point-min) 1))) |
(- (point) (point-min) 1))) |
3255 |
pos))) |
pos))) |
3256 |
(setq gnus-summary-mark-positions pos)))) |
(setq gnus-summary-mark-positions pos)))) |
3257 |
|
|
6016 |
;; Remove list identifiers from subject. |
;; Remove list identifiers from subject. |
6017 |
(when gnus-list-identifiers |
(when gnus-list-identifiers |
6018 |
(let ((gnus-newsgroup-headers (list header))) |
(let ((gnus-newsgroup-headers (list header))) |
6019 |
(gnus-summary-remove-list-identifiers) |
(gnus-summary-remove-list-identifiers))) |
|
(setq header (car gnus-newsgroup-headers)))) |
|
6020 |
(when old-header |
(when old-header |
6021 |
(mail-header-set-number header (mail-header-number old-header))) |
(mail-header-set-number header (mail-header-number old-header))) |
6022 |
(setq gnus-newsgroup-sparse |
(setq gnus-newsgroup-sparse |