482 |
(?T (gnus-range-length (cdr (assq 'tick gnus-tmp-marked))) ?d) |
(?T (gnus-range-length (cdr (assq 'tick gnus-tmp-marked))) ?d) |
483 |
(?i (+ (gnus-range-length (cdr (assq 'dormant gnus-tmp-marked))) |
(?i (+ (gnus-range-length (cdr (assq 'dormant gnus-tmp-marked))) |
484 |
(gnus-range-length (cdr (assq 'tick gnus-tmp-marked)))) ?d) |
(gnus-range-length (cdr (assq 'tick gnus-tmp-marked)))) ?d) |
485 |
(?g gnus-tmp-group ?s) |
(?g (if (boundp 'gnus-tmp-decoded-group) |
486 |
|
gnus-tmp-decoded-group |
487 |
|
gnus-tmp-group) |
488 |
|
?s) |
489 |
(?G gnus-tmp-qualified-group ?s) |
(?G gnus-tmp-qualified-group ?s) |
490 |
(?c (gnus-short-group-name gnus-tmp-group) ?s) |
(?c (gnus-short-group-name (if (boundp 'gnus-tmp-decoded-group) |
491 |
|
gnus-tmp-decoded-group |
492 |
|
gnus-tmp-group)) |
493 |
|
?s) |
494 |
(?C gnus-tmp-comment ?s) |
(?C gnus-tmp-comment ?s) |
495 |
(?D gnus-tmp-newsgroup-description ?s) |
(?D gnus-tmp-newsgroup-description ?s) |
496 |
(?o gnus-tmp-moderated ?c) |
(?o gnus-tmp-moderated ?c) |
1447 |
(point) |
(point) |
1448 |
(prog1 (1+ (point)) |
(prog1 (1+ (point)) |
1449 |
;; Insert the text. |
;; Insert the text. |
1450 |
(let ((gnus-tmp-group (gnus-group-name-decode |
(let ((gnus-tmp-decoded-group (gnus-group-name-decode |
1451 |
gnus-tmp-group group-name-charset))) |
gnus-tmp-group group-name-charset))) |
1452 |
(eval gnus-group-line-format-spec))) |
(eval gnus-group-line-format-spec))) |
1453 |
`(gnus-group ,(gnus-intern-safe gnus-tmp-group gnus-active-hashtb) |
`(gnus-group ,(gnus-intern-safe gnus-tmp-group gnus-active-hashtb) |
1454 |
gnus-unread ,(if (numberp number) |
gnus-unread ,(if (numberp number) |
2250 |
(nname (if method (gnus-group-prefixed-name name meth) name)) |
(nname (if method (gnus-group-prefixed-name name meth) name)) |
2251 |
backend info) |
backend info) |
2252 |
(when (gnus-gethash nname gnus-newsrc-hashtb) |
(when (gnus-gethash nname gnus-newsrc-hashtb) |
2253 |
(error "Group %s already exists" nname)) |
(error "Group %s already exists" (gnus-group-decoded-name nname))) |
2254 |
;; Subscribe to the new group. |
;; Subscribe to the new group. |
2255 |
(gnus-group-change-level |
(gnus-group-change-level |
2256 |
(setq info (list t nname gnus-level-default-subscribed nil nil meth)) |
(setq info (list t nname gnus-level-default-subscribed nil nil meth)) |
2311 |
(unless (gnus-check-backend-function 'request-delete-group group) |
(unless (gnus-check-backend-function 'request-delete-group group) |
2312 |
(error "This back end does not support group deletion")) |
(error "This back end does not support group deletion")) |
2313 |
(prog1 |
(prog1 |
2314 |
(if (and (not no-prompt) |
(let ((group-decoded (gnus-group-decoded-name group))) |
2315 |
(not (gnus-yes-or-no-p |
(if (and (not no-prompt) |
2316 |
(format |
(not (gnus-yes-or-no-p |
2317 |
"Do you really want to delete %s%s? " |
(format |
2318 |
group (if force " and all its contents" ""))))) |
"Do you really want to delete %s%s? " |
2319 |
() ; Whew! |
group-decoded (if force " and all its contents" ""))))) |
2320 |
(gnus-message 6 "Deleting group %s..." group) |
() ; Whew! |
2321 |
(if (not (gnus-request-delete-group group force)) |
(gnus-message 6 "Deleting group %s..." group-decoded) |
2322 |
(gnus-error 3 "Couldn't delete group %s" group) |
(if (not (gnus-request-delete-group group force)) |
2323 |
(gnus-message 6 "Deleting group %s...done" group) |
(gnus-error 3 "Couldn't delete group %s" group-decoded) |
2324 |
(gnus-group-goto-group group) |
(gnus-message 6 "Deleting group %s...done" group-decoded) |
2325 |
(gnus-group-kill-group 1 t) |
(gnus-group-goto-group group) |
2326 |
(gnus-sethash group nil gnus-active-hashtb) |
(gnus-group-kill-group 1 t) |
2327 |
t)) |
(gnus-sethash group nil gnus-active-hashtb) |
2328 |
|
t))) |
2329 |
(gnus-group-position-point))) |
(gnus-group-position-point))) |
2330 |
|
|
2331 |
(defun gnus-group-rename-group (group new-name) |
(defun gnus-group-rename-group (group new-name) |
2595 |
(setq url (read-from-minibuffer "URL to Search for RSS: "))) |
(setq url (read-from-minibuffer "URL to Search for RSS: "))) |
2596 |
(let ((feedinfo (nnrss-discover-feed url))) |
(let ((feedinfo (nnrss-discover-feed url))) |
2597 |
(if feedinfo |
(if feedinfo |
2598 |
(let ((title (read-from-minibuffer "Title: " |
(let ((title (gnus-newsgroup-savable-name |
2599 |
(cdr (assoc 'title |
(read-from-minibuffer "Title: " |
2600 |
feedinfo)))) |
(gnus-newsgroup-savable-name |
2601 |
|
(or (cdr (assoc 'title |
2602 |
|
feedinfo)) |
2603 |
|
""))))) |
2604 |
(desc (read-from-minibuffer "Description: " |
(desc (read-from-minibuffer "Description: " |
2605 |
(cdr (assoc 'description |
(cdr (assoc 'description |
2606 |
feedinfo)))) |
feedinfo)))) |
2607 |
(href (cdr (assoc 'href feedinfo)))) |
(href (cdr (assoc 'href feedinfo))) |
2608 |
(push (list title href desc) |
(encodable (mm-coding-system-p 'utf-8))) |
2609 |
nnrss-group-alist) |
(when encodable |
2610 |
(gnus-group-make-group title '(nnrss "")) |
;; Unify non-ASCII text. |
2611 |
|
(setq title (mm-decode-coding-string |
2612 |
|
(mm-encode-coding-string title 'utf-8) 'utf-8))) |
2613 |
|
(gnus-group-make-group (if encodable |
2614 |
|
(mm-encode-coding-string title 'utf-8) |
2615 |
|
title) |
2616 |
|
'(nnrss "")) |
2617 |
|
(push (list title href desc) nnrss-group-alist) |
2618 |
(nnrss-save-server-data nil)) |
(nnrss-save-server-data nil)) |
2619 |
(error "No feeds found for %s" url)))) |
(error "No feeds found for %s" url)))) |
2620 |
|
|
3118 |
"Do you really want to mark all articles in %s as read? " |
"Do you really want to mark all articles in %s as read? " |
3119 |
"Mark all unread articles in %s as read? ") |
"Mark all unread articles in %s as read? ") |
3120 |
(if (= (length groups) 1) |
(if (= (length groups) 1) |
3121 |
(car groups) |
(gnus-group-decoded-name (car groups)) |
3122 |
(format "these %d groups" (length groups))))))) |
(format "these %d groups" (length groups))))))) |
3123 |
n |
n |
3124 |
(while (setq group (pop groups)) |
(while (setq group (pop groups)) |
3196 |
|
|
3197 |
(defun gnus-group-expire-articles-1 (group) |
(defun gnus-group-expire-articles-1 (group) |
3198 |
(when (gnus-check-backend-function 'request-expire-articles group) |
(when (gnus-check-backend-function 'request-expire-articles group) |
3199 |
(gnus-message 6 "Expiring articles in %s..." group) |
(gnus-message 6 "Expiring articles in %s..." |
3200 |
|
(gnus-group-decoded-name group)) |
3201 |
(let* ((info (gnus-get-info group)) |
(let* ((info (gnus-get-info group)) |
3202 |
(expirable (if (gnus-group-total-expirable-p group) |
(expirable (if (gnus-group-total-expirable-p group) |
3203 |
(cons nil (gnus-list-of-read-articles group)) |
(cons nil (gnus-list-of-read-articles group)) |
3222 |
(gnus-request-expire-articles |
(gnus-request-expire-articles |
3223 |
(gnus-uncompress-sequence (cdr expirable)) group)))) |
(gnus-uncompress-sequence (cdr expirable)) group)))) |
3224 |
(gnus-close-group group)) |
(gnus-close-group group)) |
3225 |
(gnus-message 6 "Expiring articles in %s...done" group) |
(gnus-message 6 "Expiring articles in %s...done" |
3226 |
|
(gnus-group-decoded-name group)) |
3227 |
;; Return the list of un-expired articles. |
;; Return the list of un-expired articles. |
3228 |
(cdr expirable)))) |
(cdr expirable)))) |
3229 |
|
|
3262 |
(while (setq group (pop groups)) |
(while (setq group (pop groups)) |
3263 |
(gnus-group-remove-mark group) |
(gnus-group-remove-mark group) |
3264 |
(gnus-message 6 "Changed level of %s from %d to %d" |
(gnus-message 6 "Changed level of %s from %d to %d" |
3265 |
group (or (gnus-group-group-level) gnus-level-killed) |
(gnus-group-decoded-name group) |
3266 |
|
(or (gnus-group-group-level) gnus-level-killed) |
3267 |
level) |
level) |
3268 |
(gnus-group-change-level |
(gnus-group-change-level |
3269 |
group level (or (gnus-group-group-level) gnus-level-killed)) |
group level (or (gnus-group-group-level) gnus-level-killed)) |
3412 |
gnus-list-of-killed-groups)) |
gnus-list-of-killed-groups)) |
3413 |
(gnus-group-change-level |
(gnus-group-change-level |
3414 |
(if entry entry group) gnus-level-killed (if entry nil level)) |
(if entry entry group) gnus-level-killed (if entry nil level)) |
3415 |
(message "Killed group %s" group)) |
(message "Killed group %s" (gnus-group-decoded-name group))) |
3416 |
;; If there are lots and lots of groups to be killed, we use |
;; If there are lots and lots of groups to be killed, we use |
3417 |
;; this thing instead. |
;; this thing instead. |
3418 |
(dolist (group (nreverse groups)) |
(dolist (group (nreverse groups)) |