/[emacs]/emacs/lisp/gnus/gnus-group.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-group.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by miles, Wed Mar 30 08:14:31 2005 UTC revision 1.38 by miles, Sun Apr 10 04:20:13 2005 UTC
# Line 482  simple manner.") Line 482  simple manner.")
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)
# Line 1441  if it is a string, only list groups matc Line 1447  if it is a string, only list groups matc
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)
# Line 2244  ADDRESS." Line 2250  ADDRESS."
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))
# Line 2305  be removed from the server, even when it Line 2311  be removed from the server, even when it
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)
# Line 2588  If there is, use Gnus to create an nnrss Line 2595  If there is, use Gnus to create an nnrss
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    
# Line 3101  up is returned." Line 3118  up is returned."
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))
# Line 3179  Uses the process/prefix convention." Line 3196  Uses the process/prefix convention."
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))
# Line 3204  Uses the process/prefix convention." Line 3222  Uses the process/prefix convention."
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    
# Line 3243  Uses the process/prefix convention." Line 3262  Uses the process/prefix convention."
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))
# Line 3392  of groups killed." Line 3412  of groups 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))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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