822 |
|
|
823 |
;; Emacs 21 tool bar. Should be no-op otherwise. |
;; Emacs 21 tool bar. Should be no-op otherwise. |
824 |
(defun gnus-group-make-tool-bar () |
(defun gnus-group-make-tool-bar () |
825 |
(if (and |
(if (and |
826 |
(condition-case nil (require 'tool-bar) (error nil)) |
(condition-case nil (require 'tool-bar) (error nil)) |
827 |
(fboundp 'tool-bar-add-item-from-menu) |
(fboundp 'tool-bar-add-item-from-menu) |
828 |
(default-value 'tool-bar-mode) |
(default-value 'tool-bar-mode) |
938 |
(let ((item (assoc method gnus-group-name-charset-method-alist)) |
(let ((item (assoc method gnus-group-name-charset-method-alist)) |
939 |
(alist gnus-group-name-charset-group-alist) |
(alist gnus-group-name-charset-group-alist) |
940 |
result) |
result) |
941 |
(if item |
(if item |
942 |
(cdr item) |
(cdr item) |
943 |
(while (setq item (pop alist)) |
(while (setq item (pop alist)) |
944 |
(if (string-match (car item) group) |
(if (string-match (car item) group) |
1099 |
(gnus-add-text-properties |
(gnus-add-text-properties |
1100 |
(point) (prog1 (1+ (point)) |
(point) (prog1 (1+ (point)) |
1101 |
(insert " " mark " *: " |
(insert " " mark " *: " |
1102 |
(gnus-group-name-decode group |
(gnus-group-name-decode group |
1103 |
(gnus-group-name-charset |
(gnus-group-name-charset |
1104 |
nil group)) |
nil group)) |
1105 |
"\n")) |
"\n")) |
1106 |
(list 'gnus-group (gnus-intern-safe group gnus-active-hashtb) |
(list 'gnus-group (gnus-intern-safe group gnus-active-hashtb) |
1107 |
'gnus-unread t |
'gnus-unread t |
1112 |
(gnus-add-text-properties |
(gnus-add-text-properties |
1113 |
(point) (prog1 (1+ (point)) |
(point) (prog1 (1+ (point)) |
1114 |
(insert " " mark " *: " |
(insert " " mark " *: " |
1115 |
(gnus-group-name-decode group |
(gnus-group-name-decode group |
1116 |
(gnus-group-name-charset |
(gnus-group-name-charset |
1117 |
nil group)) |
nil group)) |
1118 |
"\n")) |
"\n")) |
1119 |
(list 'gnus-group (gnus-intern-safe group gnus-active-hashtb) |
(list 'gnus-group (gnus-intern-safe group gnus-active-hashtb) |
1120 |
'gnus-unread t |
'gnus-unread t |
1168 |
gnus-tmp-method) |
gnus-tmp-method) |
1169 |
"Insert a group line in the group buffer." |
"Insert a group line in the group buffer." |
1170 |
(let* ((gnus-tmp-method |
(let* ((gnus-tmp-method |
1171 |
(gnus-server-get-method gnus-tmp-group gnus-tmp-method)) |
(gnus-server-get-method gnus-tmp-group gnus-tmp-method)) |
1172 |
(group-name-charset (gnus-group-name-charset gnus-tmp-method |
(group-name-charset (gnus-group-name-charset gnus-tmp-method |
1173 |
gnus-tmp-group)) |
gnus-tmp-group)) |
1174 |
(gnus-tmp-active (gnus-active gnus-tmp-group)) |
(gnus-tmp-active (gnus-active gnus-tmp-group)) |
1188 |
((<= gnus-tmp-level gnus-level-unsubscribed) ?U) |
((<= gnus-tmp-level gnus-level-unsubscribed) ?U) |
1189 |
((= gnus-tmp-level gnus-level-zombie) ?Z) |
((= gnus-tmp-level gnus-level-zombie) ?Z) |
1190 |
(t ?K))) |
(t ?K))) |
1191 |
(gnus-tmp-qualified-group |
(gnus-tmp-qualified-group |
1192 |
(gnus-group-name-decode (gnus-group-real-name gnus-tmp-group) |
(gnus-group-name-decode (gnus-group-real-name gnus-tmp-group) |
1193 |
group-name-charset)) |
group-name-charset)) |
1194 |
(gnus-tmp-newsgroup-description |
(gnus-tmp-newsgroup-description |
1195 |
(if gnus-description-hashtb |
(if gnus-description-hashtb |
1196 |
(or (gnus-group-name-decode |
(or (gnus-group-name-decode |
1197 |
(gnus-gethash gnus-tmp-group gnus-description-hashtb) |
(gnus-gethash gnus-tmp-group gnus-description-hashtb) |
1198 |
group-name-charset) "") |
group-name-charset) "") |
1199 |
"")) |
"")) |
1200 |
(gnus-tmp-moderated |
(gnus-tmp-moderated |
1840 |
(test-marked |
(test-marked |
1841 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1842 |
(let (found) |
(let (found) |
1843 |
(while (and (not found) |
(while (and (not found) |
1844 |
(gnus-goto-char |
(gnus-goto-char |
1845 |
(text-property-any |
(text-property-any |
1846 |
(point) (point-max) |
(point) (point-max) |
1847 |
'gnus-group |
'gnus-group |
1848 |
(gnus-intern-safe group gnus-active-hashtb)))) |
(gnus-intern-safe group gnus-active-hashtb)))) |
1849 |
(if (gnus-group-mark-line-p) |
(if (gnus-group-mark-line-p) |
1850 |
(setq found t) |
(setq found t) |
2308 |
default-login 'gnus-group-warchive-login-history) |
default-login 'gnus-group-warchive-login-history) |
2309 |
user-mail-address)) |
user-mail-address)) |
2310 |
(method |
(method |
2311 |
`(nnwarchive ,address |
`(nnwarchive ,address |
2312 |
(nnwarchive-type ,(intern type)) |
(nnwarchive-type ,(intern type)) |
2313 |
(nnwarchive-login ,login)))) |
(nnwarchive-login ,login)))) |
2314 |
(gnus-group-make-group group method))) |
(gnus-group-make-group group method))) |
3175 |
(gnus-add-text-properties |
(gnus-add-text-properties |
3176 |
(point) (prog1 (1+ (point)) |
(point) (prog1 (1+ (point)) |
3177 |
(insert " *: " |
(insert " *: " |
3178 |
(gnus-group-name-decode group |
(gnus-group-name-decode group |
3179 |
(gnus-group-name-charset |
(gnus-group-name-charset |
3180 |
nil group)) |
nil group)) |
3181 |
"\n")) |
"\n")) |
3338 |
(lambda (group) |
(lambda (group) |
3339 |
(setq b (point)) |
(setq b (point)) |
3340 |
(let ((charset (gnus-group-name-charset nil (symbol-name group)))) |
(let ((charset (gnus-group-name-charset nil (symbol-name group)))) |
3341 |
(insert (format " *: %-20s %s\n" |
(insert (format " *: %-20s %s\n" |
3342 |
(gnus-group-name-decode |
(gnus-group-name-decode |
3343 |
(symbol-name group) charset) |
(symbol-name group) charset) |
3344 |
(gnus-group-name-decode |
(gnus-group-name-decode |
3709 |
"" |
"" |
3710 |
(gnus-time-iso8601 time)))) |
(gnus-time-iso8601 time)))) |
3711 |
|
|
3712 |
(defun gnus-group-prepare-flat-list-dead-predicate |
(defun gnus-group-prepare-flat-list-dead-predicate |
3713 |
(groups level mark predicate) |
(groups level mark predicate) |
3714 |
(let (group) |
(let (group) |
3715 |
(if predicate |
(if predicate |
3719 |
(when (funcall predicate group) |
(when (funcall predicate group) |
3720 |
(gnus-add-text-properties |
(gnus-add-text-properties |
3721 |
(point) (prog1 (1+ (point)) |
(point) (prog1 (1+ (point)) |
3722 |
(insert " " mark " *: " |
(insert " " mark " *: " |
3723 |
(gnus-group-name-decode group |
(gnus-group-name-decode group |
3724 |
(gnus-group-name-charset |
(gnus-group-name-charset |
3725 |
nil group)) |
nil group)) |
3726 |
"\n")) |
"\n")) |
3789 |
(assq 'cache marks))) |
(assq 'cache marks))) |
3790 |
lowest |
lowest |
3791 |
#'(lambda (group) |
#'(lambda (group) |
3792 |
(or (gnus-gethash group |
(or (gnus-gethash group |
3793 |
gnus-cache-active-hashtb) |
gnus-cache-active-hashtb) |
3794 |
;; Cache active file might use "." |
;; Cache active file might use "." |
3795 |
;; instead of ":". |
;; instead of ":". |
3796 |
(gnus-gethash |
(gnus-gethash |
3797 |
(mapconcat 'identity |
(mapconcat 'identity |
3798 |
(split-string group ":") |
(split-string group ":") |
3799 |
".") |
".") |