Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 25f70ba0133c
children 85ec50267440
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
421 [(meta control return)] gnus-group-select-group-ephemerally 421 [(meta control return)] gnus-group-select-group-ephemerally
422 "j" gnus-group-jump-to-group 422 "j" gnus-group-jump-to-group
423 "n" gnus-group-next-unread-group 423 "n" gnus-group-next-unread-group
424 "p" gnus-group-prev-unread-group 424 "p" gnus-group-prev-unread-group
425 "\177" gnus-group-prev-unread-group 425 "\177" gnus-group-prev-unread-group
426 [backspace] gnus-group-prev-unread-group
426 [delete] gnus-group-prev-unread-group 427 [delete] gnus-group-prev-unread-group
427 "N" gnus-group-next-group 428 "N" gnus-group-next-group
428 "P" gnus-group-prev-group 429 "P" gnus-group-prev-group
429 "\M-n" gnus-group-next-unread-group-same-level 430 "\M-n" gnus-group-next-unread-group-same-level
430 "\M-p" gnus-group-prev-unread-group-same-level 431 "\M-p" gnus-group-prev-unread-group-same-level
503 "f" gnus-group-make-doc-group 504 "f" gnus-group-make-doc-group
504 "w" gnus-group-make-web-group 505 "w" gnus-group-make-web-group
505 "r" gnus-group-rename-group 506 "r" gnus-group-rename-group
506 "c" gnus-group-customize 507 "c" gnus-group-customize
507 "\177" gnus-group-delete-group 508 "\177" gnus-group-delete-group
509 [backspace] gnus-group-delete-group
508 [delete] gnus-group-delete-group) 510 [delete] gnus-group-delete-group)
509 511
510 (gnus-define-keys (gnus-group-soup-map "s" gnus-group-group-map) 512 (gnus-define-keys (gnus-group-soup-map "s" gnus-group-group-map)
511 "b" gnus-group-brew-soup 513 "b" gnus-group-brew-soup
512 "w" gnus-soup-save-areas 514 "w" gnus-soup-save-areas
1272 (forward-line way)) 1274 (forward-line way))
1273 (while (and 1275 (while (and
1274 (not (eobp)) 1276 (not (eobp))
1275 (not (setq 1277 (not (setq
1276 found 1278 found
1277 (and (or all 1279 (and
1278 (and 1280 (get-text-property (point) 'gnus-group)
1279 (let ((unread 1281 (or all
1280 (get-text-property (point) 'gnus-unread))) 1282 (and
1281 (and (numberp unread) (> unread 0))) 1283 (let ((unread
1282 (setq lev (get-text-property (point) 1284 (get-text-property (point) 'gnus-unread)))
1285 (and (numberp unread) (> unread 0)))
1286 (setq lev (get-text-property (point)
1287 'gnus-level))
1288 (<= lev gnus-level-subscribed)))
1289 (or (not level)
1290 (and (setq lev (get-text-property (point)
1283 'gnus-level)) 1291 'gnus-level))
1284 (<= lev gnus-level-subscribed))) 1292 (or (= lev level)
1285 (or (not level) 1293 (and (< lev low)
1286 (and (setq lev (get-text-property (point) 1294 (< level lev)
1287 'gnus-level)) 1295 (progn
1288 (or (= lev level) 1296 (setq low lev)
1289 (and (< lev low) 1297 (setq pos (point))
1290 (< level lev) 1298 nil))))))))
1291 (progn
1292 (setq low lev)
1293 (setq pos (point))
1294 nil))))))))
1295 (zerop (forward-line way))))) 1299 (zerop (forward-line way)))))
1296 (if found 1300 (if found
1297 (progn (gnus-group-position-point) t) 1301 (progn (gnus-group-position-point) t)
1298 (goto-char (or pos beg)) 1302 (goto-char (or pos beg))
1299 (and pos t)))) 1303 (and pos t))))
2020 (interactive "P") 2024 (interactive "P")
2021 (require 'nnweb) 2025 (require 'nnweb)
2022 (let* ((group 2026 (let* ((group
2023 (if solid (gnus-read-group "Group name: ") 2027 (if solid (gnus-read-group "Group name: ")
2024 (message-unique-id))) 2028 (message-unique-id)))
2029 (default-type (or (car gnus-group-web-type-history)
2030 (symbol-name (caar nnweb-type-definition))))
2025 (type 2031 (type
2026 (completing-read 2032 (gnus-string-or
2027 "Search engine type: " 2033 (completing-read
2028 (mapcar (lambda (elem) (list (symbol-name (car elem)))) 2034 (format "Search engine type (default %s): " default-type)
2029 nnweb-type-definition) 2035 (mapcar (lambda (elem) (list (symbol-name (car elem))))
2030 nil t (cons (or (car gnus-group-web-type-history) 2036 nnweb-type-definition)
2031 (symbol-name (caar nnweb-type-definition))) 2037 nil t nil 'gnus-group-web-type-history)
2032 0) 2038 default-type))
2033 'gnus-group-web-type-history))
2034 (search 2039 (search
2035 (read-string 2040 (read-string
2036 "Search string: " 2041 "Search string: "
2037 (cons (or (car gnus-group-web-search-history) "") 0) 2042 (cons (or (car gnus-group-web-search-history) "") 0)
2038 'gnus-group-web-search-history)) 2043 'gnus-group-web-search-history))
2911 If given a prefix argument, prompt for the FAQ dir 2916 If given a prefix argument, prompt for the FAQ dir
2912 to use." 2917 to use."
2913 (interactive 2918 (interactive
2914 (list 2919 (list
2915 (gnus-group-group-name) 2920 (gnus-group-group-name)
2916 (cond (current-prefix-arg 2921 (when current-prefix-arg
2917 (completing-read 2922 (completing-read
2918 "Faq dir: " (and (listp gnus-group-faq-directory) 2923 "Faq dir: " (and (listp gnus-group-faq-directory)
2919 (mapcar (lambda (file) (list file)) 2924 (mapcar (lambda (file) (list file))
2920 gnus-group-faq-directory))))))) 2925 gnus-group-faq-directory))))))
2921 (unless group 2926 (unless group
2922 (error "No group name given")) 2927 (error "No group name given"))
2923 (let ((dirs (or faq-dir gnus-group-faq-directory)) 2928 (let ((dirs (or faq-dir gnus-group-faq-directory))
2924 dir found file) 2929 dir found file)
2925 (unless (listp dirs) 2930 (unless (listp dirs)