Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-vis.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
236 variable it the real callback function.") 236 variable it the real callback function.")
237 237
238 (defvar gnus-header-button-alist 238 (defvar gnus-header-button-alist
239 `(("^\\(References\\|Message-I[Dd]\\):" "<[^>]+>" 239 `(("^\\(References\\|Message-I[Dd]\\):" "<[^>]+>"
240 0 t gnus-button-message-id 0) 240 0 t gnus-button-message-id 0)
241 ("^\\(From\\|Reply-To\\): " ": *\\(.+\\)$" 1 t gnus-button-reply 0) 241 ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 1 t gnus-button-reply 1)
242 ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+" 242 ("^\\(Cc\\|To\\):" "[^ \t\n<>,()\"]+@[^ \t\n<>,()\"]+"
243 0 t gnus-button-mailto 0) 243 0 t gnus-button-mailto 0)
244 ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t gnus-button-url 0) 244 ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t gnus-button-url 0)
245 ("^[^:]+:" ,gnus-button-url-regexp 0 t gnus-button-url 0) 245 ("^[^:]+:" ,gnus-button-url-regexp 0 t gnus-button-url 0)
246 ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t 246 ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t
299 299
300 ;; Newsgroup buffer 300 ;; Newsgroup buffer
301 301
302 (defun gnus-group-make-menu-bar () 302 (defun gnus-group-make-menu-bar ()
303 (gnus-visual-turn-off-edit-menu 'group) 303 (gnus-visual-turn-off-edit-menu 'group)
304 (or 304 (unless (boundp 'gnus-group-reading-menu)
305 (boundp 'gnus-group-reading-menu) 305
306 (progn 306 (easy-menu-define
307 (easy-menu-define 307 gnus-group-reading-menu gnus-group-mode-map ""
308 gnus-group-reading-menu gnus-group-mode-map "" 308 '("Group"
309 '("Group" 309 ["Read" gnus-group-read-group (gnus-group-group-name)]
310 ["Read" gnus-group-read-group (gnus-group-group-name)] 310 ["Select" gnus-group-select-group (gnus-group-group-name)]
311 ["Select" gnus-group-select-group (gnus-group-group-name)] 311 ["See old articles" (gnus-group-select-group 'all)
312 ["See old articles" (gnus-group-select-group 'all) 312 :keys "C-u SPC" :active (gnus-group-group-name)]
313 :keys "C-u SPC" :active (gnus-group-group-name)] 313 ["Catch up" gnus-group-catchup-current (gnus-group-group-name)]
314 ["Catch up" gnus-group-catchup-current (gnus-group-group-name)] 314 ["Catch up all articles" gnus-group-catchup-current-all
315 ["Catch up all articles" gnus-group-catchup-current-all 315 (gnus-group-group-name)]
316 ["Check for new articles" gnus-group-get-new-news-this-group
317 (gnus-group-group-name)]
318 ["Toggle subscription" gnus-group-unsubscribe-current-group
319 (gnus-group-group-name)]
320 ["Kill" gnus-group-kill-group (gnus-group-group-name)]
321 ["Yank" gnus-group-yank-group gnus-list-of-killed-groups]
322 ["Describe" gnus-group-describe-group (gnus-group-group-name)]
323 ["Fetch FAQ" gnus-group-fetch-faq (gnus-group-group-name)]
324 ["Edit kill file" gnus-group-edit-local-kill
325 (gnus-group-group-name)]
326 ;; Actually one should check, if any of the marked groups gives t for
327 ;; (gnus-check-backend-function 'request-expire-articles ...)
328 ["Expire articles" gnus-group-expire-articles
329 (or (and (gnus-group-group-name)
330 (gnus-check-backend-function
331 'request-expire-articles
332 (gnus-group-group-name))) gnus-group-marked)]
333 ["Set group level" gnus-group-set-current-level
334 (gnus-group-group-name)]
335 ["Select quick" gnus-group-quick-select-group (gnus-group-group-name)]
336 ))
337
338 (easy-menu-define
339 gnus-group-group-menu gnus-group-mode-map ""
340 '("Groups"
341 ("Listing"
342 ["List unread subscribed groups" gnus-group-list-groups t]
343 ["List (un)subscribed groups" gnus-group-list-all-groups t]
344 ["List killed groups" gnus-group-list-killed gnus-killed-list]
345 ["List zombie groups" gnus-group-list-zombies gnus-zombie-list]
346 ["List level..." gnus-group-list-level t]
347 ["Describe all groups" gnus-group-describe-all-groups t]
348 ["Group apropos..." gnus-group-apropos t]
349 ["Group and description apropos..." gnus-group-description-apropos t]
350 ["List groups matching..." gnus-group-list-matching t]
351 ["List all groups matching..." gnus-group-list-all-matching t]
352 ["List active file" gnus-group-list-active t])
353 ("Sort"
354 ["Default sort" gnus-group-sort-groups
355 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))]
356 ["Sort by method" gnus-group-sort-groups-by-method
357 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))]
358 ["Sort by rank" gnus-group-sort-groups-by-rank
359 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))]
360 ["Sort by score" gnus-group-sort-groups-by-score
361 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))]
362 ["Sort by level" gnus-group-sort-groups-by-level
363 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))]
364 ["Sort by unread" gnus-group-sort-groups-by-unread
365 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))]
366 ["Sort by name" gnus-group-sort-groups-by-alphabet
367 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))])
368 ("Mark"
369 ["Mark group" gnus-group-mark-group
370 (and (gnus-group-group-name)
371 (not (memq (gnus-group-group-name) gnus-group-marked)))]
372 ["Unmark group" gnus-group-unmark-group
373 (and (gnus-group-group-name)
374 (memq (gnus-group-group-name) gnus-group-marked))]
375 ["Unmark all" gnus-group-unmark-all-groups gnus-group-marked]
376 ["Mark regexp..." gnus-group-mark-regexp t]
377 ["Mark region" gnus-group-mark-region t]
378 ["Mark buffer" gnus-group-mark-buffer t]
379 ["Execute command" gnus-group-universal-argument
380 (or gnus-group-marked (gnus-group-group-name))])
381 ("Subscribe"
382 ["Subscribe to a group" gnus-group-unsubscribe-group t]
383 ["Kill all newsgroups in region" gnus-group-kill-region t]
384 ["Kill all zombie groups" gnus-group-kill-all-zombies
385 gnus-zombie-list]
386 ["Kill all groups on level..." gnus-group-kill-level t])
387 ("Foreign groups"
388 ["Make a foreign group" gnus-group-make-group t]
389 ["Add a directory group" gnus-group-make-directory-group t]
390 ["Add the help group" gnus-group-make-help-group t]
391 ["Add the archive group" gnus-group-make-archive-group t]
392 ["Make a doc group" gnus-group-make-doc-group t]
393 ["Make a kiboze group" gnus-group-make-kiboze-group t]
394 ["Make a virtual group" gnus-group-make-empty-virtual t]
395 ["Add a group to a virtual" gnus-group-add-to-virtual t]
396 ["Rename group" gnus-group-rename-group
397 (gnus-check-backend-function
398 'request-rename-group (gnus-group-group-name))]
399 ["Delete group" gnus-group-delete-group
400 (gnus-check-backend-function
401 'request-delete-group (gnus-group-group-name))])
402 ("Editing groups"
403 ["Parameters" gnus-group-edit-group-parameters
316 (gnus-group-group-name)] 404 (gnus-group-group-name)]
317 ["Check for new articles" gnus-group-get-new-news-this-group 405 ["Select method" gnus-group-edit-group-method
318 (gnus-group-group-name)] 406 (gnus-group-group-name)]
319 ["Toggle subscription" gnus-group-unsubscribe-current-group 407 ["Info" gnus-group-edit-group (gnus-group-group-name)])
320 (gnus-group-group-name)] 408 ("Score file"
321 ["Kill" gnus-group-kill-group (gnus-group-group-name)] 409 ["Flush cache" gnus-score-flush-cache
322 ["Yank" gnus-group-yank-group gnus-list-of-killed-groups] 410 (or gnus-score-cache gnus-short-name-score-file-cache)])
323 ["Describe" gnus-group-describe-group (gnus-group-group-name)] 411 ("Move"
324 ["Fetch FAQ" gnus-group-fetch-faq (gnus-group-group-name)] 412 ["Next" gnus-group-next-group t]
325 ["Edit kill file" gnus-group-edit-local-kill 413 ["Previous" gnus-group-prev-group t]
326 (gnus-group-group-name)] 414 ["Next unread" gnus-group-next-unread-group t]
327 ;; Actually one should check, if any of the marked groups gives t for 415 ["Previous unread" gnus-group-prev-unread-group t]
328 ;; (gnus-check-backend-function 'request-expire-articles ...) 416 ["Next unread same level" gnus-group-next-unread-group-same-level t]
329 ["Expire articles" gnus-group-expire-articles 417 ["Previous unread same level"
330 (or (and (gnus-group-group-name) 418 gnus-group-previous-unread-group-same-level t]
331 (gnus-check-backend-function 419 ["Jump to group" gnus-group-jump-to-group t]
332 'request-expire-articles 420 ["First unread group" gnus-group-first-unread-group t]
333 (gnus-group-group-name))) gnus-group-marked)] 421 ["Best unread group" gnus-group-best-unread-group t])
334 ["Set group level" gnus-group-set-current-level 422 ["Transpose" gnus-group-transpose-groups
335 (gnus-group-group-name)] 423 (gnus-group-group-name)]
336 ["Select quick" gnus-group-quick-select-group (gnus-group-group-name)] 424 ["Read a directory as a group..." gnus-group-enter-directory t]
337 )) 425 ))
338 426
339 (easy-menu-define 427 (easy-menu-define
340 gnus-group-group-menu gnus-group-mode-map "" 428 gnus-group-misc-menu gnus-group-mode-map ""
341 '("Groups" 429 '("Misc"
342 ("Listing" 430 ["Send a bug report" gnus-bug t]
343 ["List unread subscribed groups" gnus-group-list-groups t] 431 ["Send a mail" gnus-group-mail t]
344 ["List (un)subscribed groups" gnus-group-list-all-groups t] 432 ["Post an article..." gnus-group-post-news t]
345 ["List killed groups" gnus-group-list-killed gnus-killed-list] 433 ["Customize score file" gnus-score-customize t]
346 ["List zombie groups" gnus-group-list-zombies gnus-zombie-list] 434 ["Check for new news" gnus-group-get-new-news t]
347 ["List level..." gnus-group-list-level t] 435 ["Activate all groups" gnus-activate-all-groups t]
348 ["Describe all groups" gnus-group-describe-all-groups t] 436 ["Delete bogus groups" gnus-group-check-bogus-groups t]
349 ["Group apropos..." gnus-group-apropos t] 437 ["Find new newsgroups" gnus-find-new-newsgroups t]
350 ["Group and description apropos..." gnus-group-description-apropos t] 438 ["Restart Gnus" gnus-group-restart t]
351 ["List groups matching..." gnus-group-list-matching t] 439 ["Read init file" gnus-group-read-init-file t]
352 ["List all groups matching..." gnus-group-list-all-matching t] 440 ["Browse foreign server" gnus-group-browse-foreign-server t]
353 ["List active file" gnus-group-list-active t]) 441 ["Enter server buffer" gnus-group-enter-server-mode t]
354 ("Sort" 442 ["Expire all expirable articles" gnus-group-expire-all-groups t]
355 ["Default sort" gnus-group-sort-groups 443 ["Generate any kiboze groups" nnkiboze-generate-groups t]
356 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))] 444 ["Gnus version" gnus-version t]
357 ["Sort by method" gnus-group-sort-groups-by-method 445 ["Save .newsrc files" gnus-group-save-newsrc t]
358 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))] 446 ["Suspend Gnus" gnus-group-suspend t]
359 ["Sort by rank" gnus-group-sort-groups-by-rank 447 ["Clear dribble buffer" gnus-group-clear-dribble t]
360 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))] 448 ["Edit global kill file" gnus-group-edit-global-kill t]
361 ["Sort by score" gnus-group-sort-groups-by-score 449 ["Read manual" gnus-info-find-node t]
362 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))] 450 ["Toggle topics" gnus-topic-mode t]
363 ["Sort by level" gnus-group-sort-groups-by-level 451 ("SOUP"
364 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))] 452 ["Pack replies" nnsoup-pack-replies (fboundp 'nnsoup-request-group)]
365 ["Sort by unread" gnus-group-sort-groups-by-unread 453 ["Send replies" gnus-soup-send-replies
366 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))] 454 (fboundp 'gnus-soup-pack-packet)]
367 ["Sort by name" gnus-group-sort-groups-by-alphabet 455 ["Pack packet" gnus-soup-pack-packet (fboundp 'gnus-soup-pack-packet)]
368 (or (not (boundp 'gnus-topic-mode)) (not gnus-topic-mode))]) 456 ["Save areas" gnus-soup-save-areas (fboundp 'gnus-soup-pack-packet)]
369 ("Mark" 457 ["Brew SOUP" gnus-soup-brew-soup (fboundp 'gnus-soup-pack-packet)])
370 ["Mark group" gnus-group-mark-group 458 ["Exit from Gnus" gnus-group-exit t]
371 (and (gnus-group-group-name) 459 ["Exit without saving" gnus-group-quit t]
372 (not (memq (gnus-group-group-name) gnus-group-marked)))] 460 ))
373 ["Unmark group" gnus-group-unmark-group 461
374 (and (gnus-group-group-name) 462 (run-hooks 'gnus-group-menu-hook)
375 (memq (gnus-group-group-name) gnus-group-marked))] 463 ))
376 ["Unmark all" gnus-group-unmark-all-groups gnus-group-marked]
377 ["Mark regexp..." gnus-group-mark-regexp t]
378 ["Mark region" gnus-group-mark-region t]
379 ["Mark buffer" gnus-group-mark-buffer t]
380 ["Execute command" gnus-group-universal-argument
381 (or gnus-group-marked (gnus-group-group-name))])
382 ("Subscribe"
383 ["Subscribe to random group" gnus-group-unsubscribe-group t]
384 ["Kill all newsgroups in region" gnus-group-kill-region t]
385 ["Kill all zombie groups" gnus-group-kill-all-zombies
386 gnus-zombie-list]
387 ["Kill all groups on level..." gnus-group-kill-level t])
388 ("Foreign groups"
389 ["Make a foreign group" gnus-group-make-group t]
390 ["Add a directory group" gnus-group-make-directory-group t]
391 ["Add the help group" gnus-group-make-help-group t]
392 ["Add the archive group" gnus-group-make-archive-group t]
393 ["Make a doc group" gnus-group-make-doc-group t]
394 ["Make a kiboze group" gnus-group-make-kiboze-group t]
395 ["Make a virtual group" gnus-group-make-empty-virtual t]
396 ["Add a group to a virtual" gnus-group-add-to-virtual t]
397 ["Rename group" gnus-group-rename-group
398 (gnus-check-backend-function
399 'request-rename-group (gnus-group-group-name))]
400 ["Delete group" gnus-group-delete-group
401 (gnus-check-backend-function
402 'request-delete-group (gnus-group-group-name))])
403 ("Editing groups"
404 ["Parameters" gnus-group-edit-group-parameters
405 (gnus-group-group-name)]
406 ["Select method" gnus-group-edit-group-method
407 (gnus-group-group-name)]
408 ["Info" gnus-group-edit-group (gnus-group-group-name)])
409 ("Score file"
410 ["Flush cache" gnus-score-flush-cache
411 (or gnus-score-cache gnus-short-name-score-file-cache)])
412 ("Move"
413 ["Next" gnus-group-next-group t]
414 ["Previous" gnus-group-prev-group t]
415 ["Next unread" gnus-group-next-unread-group t]
416 ["Previous unread" gnus-group-prev-unread-group t]
417 ["Next unread same level" gnus-group-next-unread-group-same-level t]
418 ["Previous unread same level"
419 gnus-group-previous-unread-group-same-level t]
420 ["Jump to group" gnus-group-jump-to-group t]
421 ["First unread group" gnus-group-first-unread-group t]
422 ["Best unread group" gnus-group-best-unread-group t])
423 ["Transpose" gnus-group-transpose-groups
424 (gnus-group-group-name)]
425 ["Read a directory as a group..." gnus-group-enter-directory t]
426 ))
427
428 (easy-menu-define
429 gnus-group-misc-menu gnus-group-mode-map ""
430 '("Misc"
431 ["Send a bug report" gnus-bug t]
432 ["Send a mail" gnus-group-mail t]
433 ["Post an article..." gnus-group-post-news t]
434 ["Customize score file" gnus-score-customize t]
435 ["Check for new news" gnus-group-get-new-news t]
436 ["Activate all groups" gnus-activate-all-groups t]
437 ["Delete bogus groups" gnus-group-check-bogus-groups t]
438 ["Find new newsgroups" gnus-find-new-newsgroups t]
439 ["Restart Gnus" gnus-group-restart t]
440 ["Read init file" gnus-group-read-init-file t]
441 ["Browse foreign server" gnus-group-browse-foreign-server t]
442 ["Enter server buffer" gnus-group-enter-server-mode t]
443 ["Expire all expirable articles" gnus-group-expire-all-groups t]
444 ["Generate any kiboze groups" nnkiboze-generate-groups t]
445 ["Gnus version" gnus-version t]
446 ["Save .newsrc files" gnus-group-save-newsrc t]
447 ["Suspend Gnus" gnus-group-suspend t]
448 ["Clear dribble buffer" gnus-group-clear-dribble t]
449 ["Exit from Gnus" gnus-group-exit t]
450 ["Exit without saving" gnus-group-quit t]
451 ["Edit global kill file" gnus-group-edit-global-kill t]
452 ["Read manual" gnus-info-find-node t]
453 ["Toggle topics" gnus-topic-mode t]
454 ("SOUP"
455 ["Pack replies" nnsoup-pack-replies (fboundp 'nnsoup-request-group)]
456 ["Send replies" gnus-soup-send-replies
457 (fboundp 'gnus-soup-pack-packet)]
458 ["Pack packet" gnus-soup-pack-packet (fboundp 'gnus-soup-pack-packet)]
459 ["Save areas" gnus-soup-save-areas (fboundp 'gnus-soup-pack-packet)]
460 ["Brew SOUP" gnus-soup-brew-soup (fboundp 'gnus-soup-pack-packet)])
461 ))
462 (run-hooks 'gnus-group-menu-hook)
463 )))
464 464
465 ;; Summary buffer 465 ;; Summary buffer
466 (defun gnus-summary-make-menu-bar () 466 (defun gnus-summary-make-menu-bar ()
467 (gnus-visual-turn-off-edit-menu 'summary) 467 (gnus-visual-turn-off-edit-menu 'summary)
468 468
469 (unless (boundp 'gnus-summary-misc-menu) 469 (unless (boundp 'gnus-summary-misc-menu)
470
471 (easy-menu-define
472 gnus-summary-misc-menu gnus-summary-mode-map ""
473 '("Misc"
474 ("Mark"
475 ("Read"
476 ["Mark as read" gnus-summary-mark-as-read-forward t]
477 ["Mark same subject and select"
478 gnus-summary-kill-same-subject-and-select t]
479 ["Mark same subject" gnus-summary-kill-same-subject t]
480 ["Catchup" gnus-summary-catchup t]
481 ["Catchup all" gnus-summary-catchup-all t]
482 ["Catchup to here" gnus-summary-catchup-to-here t]
483 ["Catchup region" gnus-summary-mark-region-as-read t]
484 ["Mark excluded" gnus-summary-limit-mark-excluded-as-read t])
485 ("Various"
486 ["Tick" gnus-summary-tick-article-forward t]
487 ["Mark as dormant" gnus-summary-mark-as-dormant t]
488 ["Remove marks" gnus-summary-clear-mark-forward t]
489 ["Set expirable mark" gnus-summary-mark-as-expirable t]
490 ["Set bookmark" gnus-summary-set-bookmark t]
491 ["Remove bookmark" gnus-summary-remove-bookmark t])
492 ("Limit"
493 ["Marks..." gnus-summary-limit-to-marks t]
494 ["Subject..." gnus-summary-limit-to-subject t]
495 ["Author..." gnus-summary-limit-to-author t]
496 ["Score" gnus-summary-limit-to-score t]
497 ["Unread" gnus-summary-limit-to-unread t]
498 ["Non-dormant" gnus-summary-limit-exclude-dormant t]
499 ["Articles" gnus-summary-limit-to-articles t]
500 ["Pop limit" gnus-summary-pop-limit t]
501 ["Show dormant" gnus-summary-limit-include-dormant t]
502 ["Hide childless dormant"
503 gnus-summary-limit-exclude-childless-dormant t]
504 ;;["Hide thread" gnus-summary-limit-exclude-thread t]
505 ["Show expunged" gnus-summary-show-all-expunged t])
506 ("Process mark"
507 ["Set mark" gnus-summary-mark-as-processable t]
508 ["Remove mark" gnus-summary-unmark-as-processable t]
509 ["Remove all marks" gnus-summary-unmark-all-processable t]
510 ["Mark above" gnus-uu-mark-over t]
511 ["Mark series" gnus-uu-mark-series t]
512 ["Mark region" gnus-uu-mark-region t]
513 ["Mark by regexp..." gnus-uu-mark-by-regexp t]
514 ["Mark all" gnus-uu-mark-all t]
515 ["Mark buffer" gnus-uu-mark-buffer t]
516 ["Mark sparse" gnus-uu-mark-sparse t]
517 ["Mark thread" gnus-uu-mark-thread t]
518 ["Unmark thread" gnus-uu-unmark-thread t]))
519 ("Scroll article"
520 ["Page forward" gnus-summary-next-page t]
521 ["Page backward" gnus-summary-prev-page t]
522 ["Line forward" gnus-summary-scroll-up t])
523 ("Move"
524 ["Next unread article" gnus-summary-next-unread-article t]
525 ["Previous unread article" gnus-summary-prev-unread-article t]
526 ["Next article" gnus-summary-next-article t]
527 ["Previous article" gnus-summary-prev-article t]
528 ["Next unread subject" gnus-summary-next-unread-subject t]
529 ["Previous unread subject" gnus-summary-prev-unread-subject t]
530 ["Next article same subject" gnus-summary-next-same-subject t]
531 ["Previous article same subject" gnus-summary-prev-same-subject t]
532 ["First unread article" gnus-summary-first-unread-article t]
533 ["Best unread article" gnus-summary-best-unread-article t]
534 ["Go to subject number..." gnus-summary-goto-subject t]
535 ["Go to article number..." gnus-summary-goto-article t]
536 ["Go to the last article" gnus-summary-goto-last-article t]
537 ["Pop article off history" gnus-summary-pop-article t])
538 ("Sort"
539 ["Sort by number" gnus-summary-sort-by-number t]
540 ["Sort by author" gnus-summary-sort-by-author t]
541 ["Sort by subject" gnus-summary-sort-by-subject t]
542 ["Sort by date" gnus-summary-sort-by-date t]
543 ["Sort by score" gnus-summary-sort-by-score t])
544 ("Exit"
545 ["Catchup and exit" gnus-summary-catchup-and-exit t]
546 ["Catchup all and exit" gnus-summary-catchup-and-exit t]
547 ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
548 ["Exit group" gnus-summary-exit t]
549 ["Exit group without updating" gnus-summary-exit-no-update t]
550 ["Exit and goto next group" gnus-summary-next-group t]
551 ["Exit and goto prev group" gnus-summary-prev-group t]
552 ["Reselect group" gnus-summary-reselect-current-group t]
553 ["Rescan group" gnus-summary-rescan-group t])
554 ("Help"
555 ["Fetch group FAQ" gnus-summary-fetch-faq t]
556 ["Describe group" gnus-summary-describe-group t]
557 ["Read manual" gnus-info-find-node t])
558 ("Cache"
559 ["Enter article" gnus-cache-enter-article t]
560 ["Remove article" gnus-cache-remove-article t])
561 ("Modes"
562 ["Pick and read" gnus-pick-mode t]
563 ["Binary" gnus-binary-mode t])
564 ["Filter articles..." gnus-summary-execute-command t]
565 ["Run command on subjects..." gnus-summary-universal-argument t]
566 ["Toggle line truncation" gnus-summary-toggle-truncation t]
567 ["Expand window" gnus-summary-expand-window t]
568 ["Expire expirable articles" gnus-summary-expire-articles
569 (gnus-check-backend-function
570 'request-expire-articles gnus-newsgroup-name)]
571 ["Edit local kill file" gnus-summary-edit-local-kill t]
572 ["Edit main kill file" gnus-summary-edit-global-kill t]
573 ))
574 470
575 (easy-menu-define 471 (easy-menu-define
576 gnus-summary-kill-menu gnus-summary-mode-map "" 472 gnus-summary-kill-menu gnus-summary-mode-map ""
577 (cons 473 (cons
578 "Score" 474 "Score"
828 ["Uuencode and post" gnus-uu-post-news t] 724 ["Uuencode and post" gnus-uu-post-news t]
829 ;;("Draft" 725 ;;("Draft"
830 ;;["Send" gnus-summary-send-draft t] 726 ;;["Send" gnus-summary-send-draft t]
831 ;;["Send bounced" gnus-resend-bounced-mail t]) 727 ;;["Send bounced" gnus-resend-bounced-mail t])
832 )) 728 ))
729
730 (easy-menu-define
731 gnus-summary-misc-menu gnus-summary-mode-map ""
732 '("Misc"
733 ("Mark"
734 ("Read"
735 ["Mark as read" gnus-summary-mark-as-read-forward t]
736 ["Mark same subject and select"
737 gnus-summary-kill-same-subject-and-select t]
738 ["Mark same subject" gnus-summary-kill-same-subject t]
739 ["Catchup" gnus-summary-catchup t]
740 ["Catchup all" gnus-summary-catchup-all t]
741 ["Catchup to here" gnus-summary-catchup-to-here t]
742 ["Catchup region" gnus-summary-mark-region-as-read t]
743 ["Mark excluded" gnus-summary-limit-mark-excluded-as-read t])
744 ("Various"
745 ["Tick" gnus-summary-tick-article-forward t]
746 ["Mark as dormant" gnus-summary-mark-as-dormant t]
747 ["Remove marks" gnus-summary-clear-mark-forward t]
748 ["Set expirable mark" gnus-summary-mark-as-expirable t]
749 ["Set bookmark" gnus-summary-set-bookmark t]
750 ["Remove bookmark" gnus-summary-remove-bookmark t])
751 ("Limit"
752 ["Marks..." gnus-summary-limit-to-marks t]
753 ["Subject..." gnus-summary-limit-to-subject t]
754 ["Author..." gnus-summary-limit-to-author t]
755 ["Score" gnus-summary-limit-to-score t]
756 ["Unread" gnus-summary-limit-to-unread t]
757 ["Non-dormant" gnus-summary-limit-exclude-dormant t]
758 ["Articles" gnus-summary-limit-to-articles t]
759 ["Pop limit" gnus-summary-pop-limit t]
760 ["Show dormant" gnus-summary-limit-include-dormant t]
761 ["Hide childless dormant"
762 gnus-summary-limit-exclude-childless-dormant t]
763 ;;["Hide thread" gnus-summary-limit-exclude-thread t]
764 ["Show expunged" gnus-summary-show-all-expunged t])
765 ("Process mark"
766 ["Set mark" gnus-summary-mark-as-processable t]
767 ["Remove mark" gnus-summary-unmark-as-processable t]
768 ["Remove all marks" gnus-summary-unmark-all-processable t]
769 ["Mark above" gnus-uu-mark-over t]
770 ["Mark series" gnus-uu-mark-series t]
771 ["Mark region" gnus-uu-mark-region t]
772 ["Mark by regexp..." gnus-uu-mark-by-regexp t]
773 ["Mark all" gnus-uu-mark-all t]
774 ["Mark buffer" gnus-uu-mark-buffer t]
775 ["Mark sparse" gnus-uu-mark-sparse t]
776 ["Mark thread" gnus-uu-mark-thread t]
777 ["Unmark thread" gnus-uu-unmark-thread t]))
778 ("Scroll article"
779 ["Page forward" gnus-summary-next-page t]
780 ["Page backward" gnus-summary-prev-page t]
781 ["Line forward" gnus-summary-scroll-up t])
782 ("Move"
783 ["Next unread article" gnus-summary-next-unread-article t]
784 ["Previous unread article" gnus-summary-prev-unread-article t]
785 ["Next article" gnus-summary-next-article t]
786 ["Previous article" gnus-summary-prev-article t]
787 ["Next unread subject" gnus-summary-next-unread-subject t]
788 ["Previous unread subject" gnus-summary-prev-unread-subject t]
789 ["Next article same subject" gnus-summary-next-same-subject t]
790 ["Previous article same subject" gnus-summary-prev-same-subject t]
791 ["First unread article" gnus-summary-first-unread-article t]
792 ["Best unread article" gnus-summary-best-unread-article t]
793 ["Go to subject number..." gnus-summary-goto-subject t]
794 ["Go to article number..." gnus-summary-goto-article t]
795 ["Go to the last article" gnus-summary-goto-last-article t]
796 ["Pop article off history" gnus-summary-pop-article t])
797 ("Sort"
798 ["Sort by number" gnus-summary-sort-by-number t]
799 ["Sort by author" gnus-summary-sort-by-author t]
800 ["Sort by subject" gnus-summary-sort-by-subject t]
801 ["Sort by date" gnus-summary-sort-by-date t]
802 ["Sort by score" gnus-summary-sort-by-score t])
803 ("Help"
804 ["Fetch group FAQ" gnus-summary-fetch-faq t]
805 ["Describe group" gnus-summary-describe-group t]
806 ["Read manual" gnus-info-find-node t])
807 ("Cache"
808 ["Enter article" gnus-cache-enter-article t]
809 ["Remove article" gnus-cache-remove-article t])
810 ("Modes"
811 ["Pick and read" gnus-pick-mode t]
812 ["Binary" gnus-binary-mode t])
813 ["Filter articles..." gnus-summary-execute-command t]
814 ["Run command on subjects..." gnus-summary-universal-argument t]
815 ["Toggle line truncation" gnus-summary-toggle-truncation t]
816 ["Expand window" gnus-summary-expand-window t]
817 ["Expire expirable articles" gnus-summary-expire-articles
818 (gnus-check-backend-function
819 'request-expire-articles gnus-newsgroup-name)]
820 ["Edit local kill file" gnus-summary-edit-local-kill t]
821 ["Edit main kill file" gnus-summary-edit-global-kill t]
822 ("Exit"
823 ["Catchup and exit" gnus-summary-catchup-and-exit t]
824 ["Catchup all and exit" gnus-summary-catchup-and-exit t]
825 ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
826 ["Exit group" gnus-summary-exit t]
827 ["Exit group without updating" gnus-summary-exit-no-update t]
828 ["Exit and goto next group" gnus-summary-next-group t]
829 ["Exit and goto prev group" gnus-summary-prev-group t]
830 ["Reselect group" gnus-summary-reselect-current-group t]
831 ["Rescan group" gnus-summary-rescan-group t])))
832
833 (run-hooks 'gnus-summary-menu-hook) 833 (run-hooks 'gnus-summary-menu-hook)
834 )) 834 ))
835 835
836 (defun gnus-score-set-default (var value) 836 (defun gnus-score-set-default (var value)
837 "A version of set that updates the GNU Emacs menu-bar." 837 "A version of set that updates the GNU Emacs menu-bar."
987 (beg (progn (beginning-of-line) (point))) 987 (beg (progn (beginning-of-line) (point)))
988 (article (gnus-summary-article-number)) 988 (article (gnus-summary-article-number))
989 (score (or (cdr (assq (or article gnus-current-article) 989 (score (or (cdr (assq (or article gnus-current-article)
990 gnus-newsgroup-scored)) 990 gnus-newsgroup-scored))
991 gnus-summary-default-score 0)) 991 gnus-summary-default-score 0))
992 (default gnus-summary-default-score)
993 (mark (or (gnus-summary-article-mark) gnus-unread-mark)) 992 (mark (or (gnus-summary-article-mark) gnus-unread-mark))
994 (inhibit-read-only t)) 993 (inhibit-read-only t))
995 ;; Eval the cars of the lists until we find a match. 994 ;; Eval the cars of the lists until we find a match.
996 (while (and list 995 (let ((default gnus-summary-default-score))
997 (not (eval (caar list)))) 996 (while (and list
998 (setq list (cdr list))) 997 (not (eval (caar list))))
998 (setq list (cdr list))))
999 (let ((face (cdar list))) 999 (let ((face (cdar list)))
1000 (unless (eq face (get-text-property beg 'face)) 1000 (unless (eq face (get-text-property beg 'face))
1001 (gnus-put-text-property 1001 (gnus-put-text-property
1002 beg end 'face 1002 beg end 'face
1003 (setq face (if (boundp face) (symbol-value face) face))) 1003 (setq face (if (boundp face) (symbol-value face) face)))