;ELC ;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:34:58 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/lisp/gnus-vis.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-vis.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÀÄ!ˆÀÅ!ˆÀÆ!‡" [require gnus gnus-ems easymenu custom browse-url gnus-score] 2) #@54 *Hook run after the creation of the group mode menu. (defvar gnus-group-menu-hook nil (#$ . -614)) #@56 *Hook run after the creation of the summary mode menu. (defvar gnus-summary-menu-hook nil (#$ . -719)) #@56 *Hook run after the creation of the article mode menu. (defvar gnus-article-menu-hook nil (#$ . -828)) #@40 *Regular expression that matches URLs. (defvar gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-\\wa-zA-Z0-9_=!?#$@~`%&*+|\\/.,]*[-\\wa-zA-Z0-9_=#$@~`%&*+|\\/]" (#$ . -937)) #@590 Alist of regexps matching buttons in article bodies. Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where REGEXP: is the string matching text around the button, BUTTON: is the number of the regexp grouping actually matching the button, FORM: is a lisp expression which must eval to true for the button to be added, CALLBACK: is the function to call when the user push this button, and each PAR: is a number of a regexp grouping whose text will be passed to CALLBACK. CALLBACK can also be a variable, in that case the value of that variable it the real callback function. (defvar gnus-button-alist (byte-code "ÀÁÂÃ\fÅB¯‡" [("\\bin\\( +article\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2 t gnus-button-message-id 3) ("\\(\n ]*\\)>?\\)" 1 t gnus-button-message-id 3) ("\\( \n ]+\\)>?" 0 t gnus-button-reply 2) ("]*\\)>" 0 t gnus-button-url 1) gnus-button-url-regexp (0 t gnus-button-url 0)] 6) (#$ . 1198)) #@327 Alist of headers and regexps to match buttons in article heads. This alist is very similar to `gnus-button-alist', except that each alist has an additional HEADER element first in each entry: (HEADER REGEXP BUTTON FORM CALLBACK PAR) HEADER is a regexp to match a header. For a fuller explanation, see `gnus-button-alist'. (defvar gnus-header-button-alist (byte-code "ÀÁÂÃ\fÅBBÆ\fÇBBÈBBBBB‡" [("^\\(References\\|Message-I[Dd]\\):" "<[^>]+>" 0 t gnus-button-message-id 0) ("^\\(From\\|Reply-To\\):" ": *\\(.+\\)$" 1 t gnus-button-reply 1) ("^\\(Cc\\|To\\):" "[^ \n<>,()\"]+@[^ \n<>,()\"]+" 0 t gnus-button-mailto 0) "^X-[Uu][Rr][Ll]:" gnus-button-url-regexp (0 t gnus-button-url 0) "^[^:]+:" (0 t gnus-button-url 0) (("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t gnus-button-message-id 3))] 7) (#$ . 2197)) (byte-code "ÀÁ!„ÂÁ BÄÅÆ\"ˆÄÇÈÂÉ$‡" [boundp gnus-button-marker-list nil current-load-list autoload nnkiboze-generate-groups "nnkiboze" gnus-cite-parse-maybe "gnus-cite" t] 5) (defalias 'gnus-visual-turn-off-edit-menu #[(type) "ÀÁÂÃ\f\"!JÅÆ#‡" [define-key intern format "gnus-%s-mode-map" type [menu-bar edit] undefined] 5]) (defalias 'gnus-group-make-menu-bar #[nil "ÀÁ!ˆÂÃ!†]ÂÃ!„Äà BÆÃÇÈ#ˆÉÃ\nÈË$ˆÂÌ!„-Ä\fÌ BÆÌÇÈ#ˆÉÌ\nÈÍ$ˆÂÎ!„HÄÎ BÆÎÇÈ#ˆÉÎ\nÈÏ$ˆÐÑ!‡" [gnus-visual-turn-off-edit-menu group boundp gnus-group-reading-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-group-mode-map ("Group" ["Read" gnus-group-read-group (gnus-group-group-name)] ["Select" gnus-group-select-group (gnus-group-group-name)] ["See old articles" (gnus-group-select-group (quote all)) :keys "C-u SPC" :active (gnus-group-group-name)] ["Catch up" gnus-group-catchup-current (gnus-group-group-name)] ["Catch up all articles" gnus-group-catchup-current-all (gnus-group-group-name)] ["Check for new articles" gnus-group-get-new-news-this-group (gnus-group-group-name)] ["Toggle subscription" gnus-group-unsubscribe-current-group (gnus-group-group-name)] ["Kill" gnus-group-kill-group (gnus-group-group-name)] ["Yank" gnus-group-yank-group gnus-list-of-killed-groups] ["Describe" gnus-group-describe-group (gnus-group-group-name)] ["Fetch FAQ" gnus-group-fetch-faq (gnus-group-group-name)] ["Edit kill file" gnus-group-edit-local-kill (gnus-group-group-name)] ["Expire articles" gnus-group-expire-articles (or (and (gnus-group-group-name) (gnus-check-backend-function (quote request-expire-articles) (gnus-group-group-name))) gnus-group-marked)] ["Set group level" gnus-group-set-current-level (gnus-group-group-name)] ["Select quick" gnus-group-quick-select-group (gnus-group-group-name)]) gnus-group-group-menu ("Groups" ("Listing" ["List unread subscribed groups" gnus-group-list-groups t] ["List (un)subscribed groups" gnus-group-list-all-groups t] ["List killed groups" gnus-group-list-killed gnus-killed-list] ["List zombie groups" gnus-group-list-zombies gnus-zombie-list] ["List level..." gnus-group-list-level t] ["Describe all groups" gnus-group-describe-all-groups t] ["Group apropos..." gnus-group-apropos t] ["Group and description apropos..." gnus-group-description-apropos t] ["List groups matching..." gnus-group-list-matching t] ["List all groups matching..." gnus-group-list-all-matching t] ["List active file" gnus-group-list-active t]) ("Sort" ["Default sort" gnus-group-sort-groups (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by method" gnus-group-sort-groups-by-method (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by rank" gnus-group-sort-groups-by-rank (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by score" gnus-group-sort-groups-by-score (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by level" gnus-group-sort-groups-by-level (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by unread" gnus-group-sort-groups-by-unread (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))] ["Sort by name" gnus-group-sort-groups-by-alphabet (or (not (boundp (quote gnus-topic-mode))) (not gnus-topic-mode))]) ("Mark" ["Mark group" gnus-group-mark-group (and (gnus-group-group-name) (not (memq (gnus-group-group-name) gnus-group-marked)))] ["Unmark group" gnus-group-unmark-group (and (gnus-group-group-name) (memq (gnus-group-group-name) gnus-group-marked))] ["Unmark all" gnus-group-unmark-all-groups gnus-group-marked] ["Mark regexp..." gnus-group-mark-regexp t] ["Mark region" gnus-group-mark-region t] ["Mark buffer" gnus-group-mark-buffer t] ["Execute command" gnus-group-universal-argument (or gnus-group-marked (gnus-group-group-name))]) ("Subscribe" ["Subscribe to a group" gnus-group-unsubscribe-group t] ["Kill all newsgroups in region" gnus-group-kill-region t] ["Kill all zombie groups" gnus-group-kill-all-zombies gnus-zombie-list] ["Kill all groups on level..." gnus-group-kill-level t]) ("Foreign groups" ["Make a foreign group" gnus-group-make-group t] ["Add a directory group" gnus-group-make-directory-group t] ["Add the help group" gnus-group-make-help-group t] ["Add the archive group" gnus-group-make-archive-group t] ["Make a doc group" gnus-group-make-doc-group t] ["Make a kiboze group" gnus-group-make-kiboze-group t] ["Make a virtual group" gnus-group-make-empty-virtual t] ["Add a group to a virtual" gnus-group-add-to-virtual t] ["Rename group" gnus-group-rename-group (gnus-check-backend-function (quote request-rename-group) (gnus-group-group-name))] ["Delete group" gnus-group-delete-group (gnus-check-backend-function (quote request-delete-group) (gnus-group-group-name))]) ("Editing groups" ["Parameters" gnus-group-edit-group-parameters (gnus-group-group-name)] ["Select method" gnus-group-edit-group-method (gnus-group-group-name)] ["Info" gnus-group-edit-group (gnus-group-group-name)]) ("Score file" ["Flush cache" gnus-score-flush-cache (or gnus-score-cache gnus-short-name-score-file-cache)]) ("Move" ["Next" gnus-group-next-group t] ["Previous" gnus-group-prev-group t] ["Next unread" gnus-group-next-unread-group t] ["Previous unread" gnus-group-prev-unread-group t] ["Next unread same level" gnus-group-next-unread-group-same-level t] ["Previous unread same level" gnus-group-previous-unread-group-same-level t] ["Jump to group" gnus-group-jump-to-group t] ["First unread group" gnus-group-first-unread-group t] ["Best unread group" gnus-group-best-unread-group t]) ["Transpose" gnus-group-transpose-groups (gnus-group-group-name)] ["Read a directory as a group..." gnus-group-enter-directory t]) gnus-group-misc-menu ("Misc" ["Send a bug report" gnus-bug t] ["Send a mail" gnus-group-mail t] ["Post an article..." gnus-group-post-news t] ["Customize score file" gnus-score-customize t] ["Check for new news" gnus-group-get-new-news t] ["Activate all groups" gnus-activate-all-groups t] ["Delete bogus groups" gnus-group-check-bogus-groups t] ["Find new newsgroups" gnus-find-new-newsgroups t] ["Restart Gnus" gnus-group-restart t] ["Read init file" gnus-group-read-init-file t] ["Browse foreign server" gnus-group-browse-foreign-server t] ["Enter server buffer" gnus-group-enter-server-mode t] ["Expire all expirable articles" gnus-group-expire-all-groups t] ["Generate any kiboze groups" nnkiboze-generate-groups t] ["Gnus version" gnus-version t] ["Save .newsrc files" gnus-group-save-newsrc t] ["Suspend Gnus" gnus-group-suspend t] ["Clear dribble buffer" gnus-group-clear-dribble t] ["Exit from Gnus" gnus-group-exit t] ["Exit without saving" gnus-group-quit t] ["Edit global kill file" gnus-group-edit-global-kill t] ["Read manual" gnus-info-find-node t] ["Toggle topics" gnus-topic-mode t] ("SOUP" ["Pack replies" nnsoup-pack-replies (fboundp (quote nnsoup-request-group))] ["Send replies" gnus-soup-send-replies (fboundp (quote gnus-soup-pack-packet))] ["Pack packet" gnus-soup-pack-packet (fboundp (quote gnus-soup-pack-packet))] ["Save areas" gnus-soup-save-areas (fboundp (quote gnus-soup-pack-packet))] ["Brew SOUP" gnus-soup-brew-soup (fboundp (quote gnus-soup-pack-packet))])) run-hooks gnus-group-menu-hook] 5]) (defalias 'gnus-summary-make-menu-bar #[nil "ÀÁ!ˆÂÃ!?…¡ÂÃ!„Äà BÆÃÇÈ#ˆÉÃ\nÈË$ˆÂÌ!„.Ä\fÌ BÆÌÇÈ#ˆÉÌ\nÈÍÎCÏÐ!¤ÏÑ!¤Ò¤B$ˆÂÓ!„VÄÓ BÆÓÇÈ#ˆÉÓ\nÈÔ$ˆÂÕ!„qÄÕ BÆÕÇÈ#ˆÉÕ\nÈÖ$ˆÂ×!„ŒÄ× BÆ×ÇÈ#ˆÉ×\nÈØ$ˆÙÚ!‡" [gnus-visual-turn-off-edit-menu summary boundp gnus-summary-misc-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-summary-mode-map ("Misc" ("Mark" ("Read" ["Mark as read" gnus-summary-mark-as-read-forward t] ["Mark same subject and select" gnus-summary-kill-same-subject-and-select t] ["Mark same subject" gnus-summary-kill-same-subject t] ["Catchup" gnus-summary-catchup t] ["Catchup all" gnus-summary-catchup-all t] ["Catchup to here" gnus-summary-catchup-to-here t] ["Catchup region" gnus-summary-mark-region-as-read t] ["Mark excluded" gnus-summary-limit-mark-excluded-as-read t]) ("Various" ["Tick" gnus-summary-tick-article-forward t] ["Mark as dormant" gnus-summary-mark-as-dormant t] ["Remove marks" gnus-summary-clear-mark-forward t] ["Set expirable mark" gnus-summary-mark-as-expirable t] ["Set bookmark" gnus-summary-set-bookmark t] ["Remove bookmark" gnus-summary-remove-bookmark t]) ("Limit" ["Marks..." gnus-summary-limit-to-marks t] ["Subject..." gnus-summary-limit-to-subject t] ["Author..." gnus-summary-limit-to-author t] ["Score" gnus-summary-limit-to-score t] ["Unread" gnus-summary-limit-to-unread t] ["Non-dormant" gnus-summary-limit-exclude-dormant t] ["Articles" gnus-summary-limit-to-articles t] ["Pop limit" gnus-summary-pop-limit t] ["Show dormant" gnus-summary-limit-include-dormant t] ["Hide childless dormant" gnus-summary-limit-exclude-childless-dormant t] ["Show expunged" gnus-summary-show-all-expunged t]) ("Process mark" ["Set mark" gnus-summary-mark-as-processable t] ["Remove mark" gnus-summary-unmark-as-processable t] ["Remove all marks" gnus-summary-unmark-all-processable t] ["Mark above" gnus-uu-mark-over t] ["Mark series" gnus-uu-mark-series t] ["Mark region" gnus-uu-mark-region t] ["Mark by regexp..." gnus-uu-mark-by-regexp t] ["Mark all" gnus-uu-mark-all t] ["Mark buffer" gnus-uu-mark-buffer t] ["Mark sparse" gnus-uu-mark-sparse t] ["Mark thread" gnus-uu-mark-thread t] ["Unmark thread" gnus-uu-unmark-thread t])) ("Scroll article" ["Page forward" gnus-summary-next-page t] ["Page backward" gnus-summary-prev-page t] ["Line forward" gnus-summary-scroll-up t]) ("Move" ["Next unread article" gnus-summary-next-unread-article t] ["Previous unread article" gnus-summary-prev-unread-article t] ["Next article" gnus-summary-next-article t] ["Previous article" gnus-summary-prev-article t] ["Next unread subject" gnus-summary-next-unread-subject t] ["Previous unread subject" gnus-summary-prev-unread-subject t] ["Next article same subject" gnus-summary-next-same-subject t] ["Previous article same subject" gnus-summary-prev-same-subject t] ["First unread article" gnus-summary-first-unread-article t] ["Best unread article" gnus-summary-best-unread-article t] ["Go to subject number..." gnus-summary-goto-subject t] ["Go to article number..." gnus-summary-goto-article t] ["Go to the last article" gnus-summary-goto-last-article t] ["Pop article off history" gnus-summary-pop-article t]) ("Sort" ["Sort by number" gnus-summary-sort-by-number t] ["Sort by author" gnus-summary-sort-by-author t] ["Sort by subject" gnus-summary-sort-by-subject t] ["Sort by date" gnus-summary-sort-by-date t] ["Sort by score" gnus-summary-sort-by-score t]) ("Exit" ["Catchup and exit" gnus-summary-catchup-and-exit t] ["Catchup all and exit" gnus-summary-catchup-and-exit t] ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t] ["Exit group" gnus-summary-exit t] ["Exit group without updating" gnus-summary-exit-no-update t] ["Exit and goto next group" gnus-summary-next-group t] ["Exit and goto prev group" gnus-summary-prev-group t] ["Reselect group" gnus-summary-reselect-current-group t] ["Rescan group" gnus-summary-rescan-group t]) ("Help" ["Fetch group FAQ" gnus-summary-fetch-faq t] ["Describe group" gnus-summary-describe-group t] ["Read manual" gnus-info-find-node t]) ("Cache" ["Enter article" gnus-cache-enter-article t] ["Remove article" gnus-cache-remove-article t]) ("Modes" ["Pick and read" gnus-pick-mode t] ["Binary" gnus-binary-mode t]) ["Filter articles..." gnus-summary-execute-command t] ["Run command on subjects..." gnus-summary-universal-argument t] ["Toggle line truncation" gnus-summary-toggle-truncation t] ["Expand window" gnus-summary-expand-window t] ["Expire expirable articles" gnus-summary-expire-articles (gnus-check-backend-function (quote request-expire-articles) gnus-newsgroup-name)] ["Edit local kill file" gnus-summary-edit-local-kill t] ["Edit main kill file" gnus-summary-edit-global-kill t]) gnus-summary-kill-menu "Score" ["Enter score..." gnus-summary-score-entry t] gnus-visual-score-map increase lower (("Mark" ["Kill below" gnus-summary-kill-below t] ["Mark above" gnus-summary-mark-above t] ["Tick above" gnus-summary-tick-above t] ["Clear above" gnus-summary-clear-above t]) ["Current score" gnus-summary-current-score t] ["Set score" gnus-summary-set-score t] ["Customize score file" gnus-score-customize t] ["Switch current score file..." gnus-score-change-score-file t] ["Set mark below..." gnus-score-set-mark-below t] ["Set expunge below..." gnus-score-set-expunge-below t] ["Edit current score file" gnus-score-edit-current-scores t] ["Edit score file" gnus-score-edit-file t] ["Trace score" gnus-score-find-trace t] ["Rescore buffer" gnus-summary-rescore t] ["Increase score..." gnus-summary-increase-score t] ["Lower score..." gnus-summary-lower-score t]) gnus-summary-article-menu ("Article" ("Hide" ["All" gnus-article-hide t] ["Headers" gnus-article-hide-headers t] ["Signature" gnus-article-hide-signature t] ["Citation" gnus-article-hide-citation t] ["PGP" gnus-article-hide-pgp t] ["Boring headers" gnus-article-hide-boring-headers t]) ("Highlight" ["All" gnus-article-highlight t] ["Headers" gnus-article-highlight-headers t] ["Signature" gnus-article-highlight-signature t] ["Citation" gnus-article-highlight-citation t]) ("Date" ["Local" gnus-article-date-local t] ["UT" gnus-article-date-ut t] ["Original" gnus-article-date-original t] ["Lapsed" gnus-article-date-lapsed t]) ("Filter" ["Overstrike" gnus-article-treat-overstrike t] ["Word wrap" gnus-article-fill-cited-article t] ["CR" gnus-article-remove-cr t] ["Trailing blank lines" gnus-article-remove-trailing-blank-lines t] ["Show X-Face" gnus-article-display-x-face t] ["Quoted-Printable" gnus-article-de-quoted-unreadable t] ["Rot 13" gnus-summary-caesar-message t] ["Add buttons" gnus-article-add-buttons t] ["Add buttons to head" gnus-article-add-buttons-to-head t] ["Stop page breaking" gnus-summary-stop-page-breaking t] ["Toggle MIME" gnus-summary-toggle-mime t] ["Verbose header" gnus-summary-verbose-headers t] ["Toggle header" gnus-summary-toggle-header t]) ("Output" ["Save in default format" gnus-summary-save-article t] ["Save in file" gnus-summary-save-article-file t] ["Save in Unix mail format" gnus-summary-save-article-mail t] ["Save in MH folder" gnus-summary-save-article-folder t] ["Save in VM folder" gnus-summary-save-article-vm t] ["Save in RMAIL mbox" gnus-summary-save-article-rmail t] ["Save body in file" gnus-summary-save-article-body-file t] ["Pipe through a filter" gnus-summary-pipe-output t] ["Add to SOUP packet" gnus-soup-add-article t]) ("Backend" ["Respool article..." gnus-summary-respool-article t] ["Move article..." gnus-summary-move-article (gnus-check-backend-function (quote request-move-article) gnus-newsgroup-name)] ["Copy article..." gnus-summary-copy-article t] ["Crosspost article..." gnus-summary-crosspost-article (gnus-check-backend-function (quote request-replace-article) gnus-newsgroup-name)] ["Import file..." gnus-summary-import-article t] ["Edit article" gnus-summary-edit-article (not (gnus-group-read-only-p))] ["Delete article" gnus-summary-delete-article (gnus-check-backend-function (quote request-expire-articles) gnus-newsgroup-name)] ["Query respool" gnus-summary-respool-query t] ["Delete expirable articles" gnus-summary-expire-articles-now (gnus-check-backend-function (quote request-expire-articles) gnus-newsgroup-name)]) ("Extract" ["Uudecode" gnus-uu-decode-uu t] ["Uudecode and save" gnus-uu-decode-uu-and-save t] ["Unshar" gnus-uu-decode-unshar t] ["Unshar and save" gnus-uu-decode-unshar-and-save t] ["Save" gnus-uu-decode-save t] ["Binhex" gnus-uu-decode-binhex t] ["Postscript" gnus-uu-decode-postscript t]) ["Enter digest buffer" gnus-summary-enter-digest-group t] ["Isearch article..." gnus-summary-isearch-article t] ["Search articles forward..." gnus-summary-search-article-forward t] ["Search articles backward..." gnus-summary-search-article-backward t] ["Beginning of the article" gnus-summary-beginning-of-article t] ["End of the article" gnus-summary-end-of-article t] ["Fetch parent of article" gnus-summary-refer-parent-article t] ["Fetch referenced articles" gnus-summary-refer-references t] ["Fetch article with id..." gnus-summary-refer-article t] ["Redisplay" gnus-summary-show-article t]) gnus-summary-thread-menu ("Threads" ["Toggle threading" gnus-summary-toggle-threads t] ["Hide threads" gnus-summary-hide-all-threads t] ["Show threads" gnus-summary-show-all-threads t] ["Hide thread" gnus-summary-hide-thread t] ["Show thread" gnus-summary-show-thread t] ["Go to next thread" gnus-summary-next-thread t] ["Go to previous thread" gnus-summary-prev-thread t] ["Go down thread" gnus-summary-down-thread t] ["Go up thread" gnus-summary-up-thread t] ["Top of thread" gnus-summary-top-thread t] ["Mark thread as read" gnus-summary-kill-thread t] ["Lower thread score" gnus-summary-lower-thread t] ["Raise thread score" gnus-summary-raise-thread t] ["Rethread current" gnus-summary-rethread-current t]) gnus-summary-post-menu ("Post" ["Post an article" gnus-summary-post-news t] ["Followup" gnus-summary-followup t] ["Followup and yank" gnus-summary-followup-with-original t] ["Supersede article" gnus-summary-supersede-article t] ["Cancel article" gnus-summary-cancel-article t] ["Reply" gnus-summary-reply t] ["Reply and yank" gnus-summary-reply-with-original t] ["Mail forward" gnus-summary-mail-forward t] ["Post forward" gnus-summary-post-forward t] ["Digest and mail" gnus-uu-digest-mail-forward t] ["Digest and post" gnus-uu-digest-post-forward t] ["Resend message" gnus-summary-resend-message t] ["Send bounced mail" gnus-summary-resend-bounced-mail t] ["Send a mail" gnus-summary-mail-other-window t] ["Uuencode and post" gnus-uu-post-news t]) run-hooks gnus-summary-menu-hook] 8]) #@55 A version of set that updates the GNU Emacs menu-bar. (defalias 'gnus-score-set-default #[(var value) " LˆÂÃ!‡" [var value message ""] 2 (#$ . 20878)]) (defalias 'gnus-visual-score-map #[(type) "À‡" [nil] 1]) (defalias 'gnus-article-make-menu-bar #[nil "ÀÁ!ˆÂÃ!†BÂÃ!„Äà BÆÃÇÈ#ˆÉÃ\nÈË$ˆÂÌ!„-Ä\fÌ BÆÌÇÈ#ˆÉÌ\nÈÍ$ˆÎÏ!‡" [gnus-visual-turn-off-edit-menu summary boundp gnus-article-article-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-article-mode-map ("Article" ["Scroll forwards" gnus-article-goto-next-page t] ["Scroll backwards" gnus-article-goto-prev-page t] ["Show summary" gnus-article-show-summary t] ["Fetch Message-ID at point" gnus-article-refer-article t] ["Mail to address at point" gnus-article-mail t]) gnus-article-treatment-menu ("Treatment" ["Hide headers" gnus-article-hide-headers t] ["Hide signature" gnus-article-hide-signature t] ["Hide citation" gnus-article-hide-citation t] ["Treat overstrike" gnus-article-treat-overstrike t] ["Remove carriage return" gnus-article-remove-cr t] ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t]) run-hooks gnus-article-menu-hook] 5]) (defalias 'gnus-highlight-selected-summary #[nil "…gŠÁyˆ`È`Å\n\"ƒ\n‚'Ç\nÃ\f$†&\nTÇÃ\f$†5\fS‰ Ê\\UƒG\n\f  ƒXÌ  p$‚fÍ \" Î Ï#-‡" [gnus-summary-selected-face 0 beg nil end get-text-property gnus-mouse-face-prop next-single-property-change from to 2 gnus-newsgroup-selected-overlay gnus-move-overlay gnus-make-overlay gnus-overlay-put face] 6]) #@63 Highlight current line according to `gnus-summary-highlight'. (defalias 'gnus-summary-highlight-line #[nil "`È`Åyˆ`Ç`È\"‰ ƒÊ !ˆ)Ç`Ë\"†(Ì ‰ †0žA†=†=ÅÇ`È\"‰ ƒNÊ !ˆ)Ç`Ë\"†XÌ žA@†bÕ ƒ~Ø @@!„~ A‰„o) @A‰ÇÙ\"=„´Ú\fÙÛ!ƒ J‚¢‰$ˆƒ´ \"ˆ)\nb.‡" [gnus-summary-highlight list p nil end 0 beg get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article gnus-current-article gnus-newsgroup-scored gnus-summary-default-score score gnus-newsgroup-data gnus-unread-mark mark t inhibit-read-only default eval face gnus-put-text-property boundp gnus-summary-highlight-line-function] 7 (#$ . 22417)]) #@65 Highlight the current line according to `gnus-group-highlight'. (defalias 'gnus-group-highlight-line #[nil "`È`Åyˆ`Ç É\n\"J‰ @§ƒ( @‚)Å\fÍ 8Ï8;ƒHÑ!‚†šƒU‚†@;ƒjƒjÓ\"‚†ƒ‚„‚A@Ôšƒ‚‚†Õ!*Ö8ØÙÚ†™@!\">A@‰:ƒ²@‚´)†¹ÞA@‰:ƒÌA†ÍÅ)†ÒÅ áâžA!#ä% ƒóæ @@!„ó A‰„ä @A‰'èç\"=„ é\fçê'!ƒ'J‚'‰'$ˆë!ˆ)\nb.‡" [gnus-group-highlight list p nil end 0 beg gnus-group-group-name group intern-soft gnus-newsrc-hashtb entry unread 2 info 4 method gnus-server-to-method gnus-select-method gnus-server-extend-method "" gnus-server-add-address 3 marked mail assoc symbol-name gnus-valid-select-methods mailp rank 9 level score gnus-range-length tick ticked t inhibit-read-only eval face get-text-property gnus-put-text-property boundp gnus-extent-start-open] 7 (#$ . 23122)]) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÅÄ BÀÆ!„!ÇÆ BÀÈ!„.ÉÈ BÀÊ!„;Ë\nÊ BÀÌ!„HÍ\fÌ BÀÎ!„UÏÎ BÀÐ!„bÑÐ BÀÒ!„oÓÒ BÓ‡" [boundp gnus-carpal-group-buffer-buttons (("next" . gnus-group-next-unread-group) ("prev" . gnus-group-prev-unread-group) ("read" . gnus-group-read-group) ("select" . gnus-group-select-group) ("catch-up" . gnus-group-catchup-current) ("new-news" . gnus-group-get-new-news-this-group) ("toggle-sub" . gnus-group-unsubscribe-current-group) ("subscribe" . gnus-group-unsubscribe-group) ("kill" . gnus-group-kill-group) ("yank" . gnus-group-yank-group) ("describe" . gnus-group-describe-group) "list" ("subscribed" . gnus-group-list-groups) ("all" . gnus-group-list-all-groups) ("killed" . gnus-group-list-killed) ("zombies" . gnus-group-list-zombies) ("matching" . gnus-group-list-matching) ("post" . gnus-group-post-news) ("mail" . gnus-group-mail) ("rescan" . gnus-group-get-new-news) ("browse-foreign" . gnus-group-browse-foreign) ("exit" . gnus-group-exit)) current-load-list gnus-carpal-summary-buffer-buttons ("mark" ("read" . gnus-summary-mark-as-read-forward) ("tick" . gnus-summary-tick-article-forward) ("clear" . gnus-summary-clear-mark-forward) ("expirable" . gnus-summary-mark-as-expirable) "move" ("scroll" . gnus-summary-next-page) ("next-unread" . gnus-summary-next-unread-article) ("prev-unread" . gnus-summary-prev-unread-article) ("first" . gnus-summary-first-unread-article) ("best" . gnus-summary-best-unread-article) "article" ("headers" . gnus-summary-toggle-header) ("uudecode" . gnus-uu-decode-uu) ("enter-digest" . gnus-summary-enter-digest-group) ("fetch-parent" . gnus-summary-refer-parent-article) "mail" ("move" . gnus-summary-move-article) ("copy" . gnus-summary-copy-article) ("respool" . gnus-summary-respool-article) "threads" ("lower" . gnus-summary-lower-thread) ("kill" . gnus-summary-kill-thread) "post" ("post" . gnus-summary-post-news) ("mail" . gnus-summary-mail) ("followup" . gnus-summary-followup-with-original) ("reply" . gnus-summary-reply-with-original) ("cancel" . gnus-summary-cancel-article) "misc" ("exit" . gnus-summary-exit) ("fed-up" . gnus-summary-catchup-and-goto-next-group)) gnus-carpal-server-buffer-buttons (("add" . gnus-server-add-server) ("browse" . gnus-server-browse-server) ("list" . gnus-server-list-servers) ("kill" . gnus-server-kill-server) ("yank" . gnus-server-yank-server) ("copy" . gnus-server-copy-server) ("exit" . gnus-server-exit)) gnus-carpal-browse-buffer-buttons (("subscribe" . gnus-browse-unsubscribe-current-group) ("exit" . gnus-browse-exit)) gnus-carpal-group-buffer "*Carpal Group*" gnus-carpal-summary-buffer "*Carpal Summary*" gnus-carpal-server-buffer "*Carpal Server*" gnus-carpal-browse-buffer "*Carpal Browse*" gnus-carpal-attached-buffer nil] 2) #@35 *Hook run in carpal mode buffers. (defvar gnus-carpal-mode-hook nil (#$ . -26767)) #@31 *Face used on carpal buttons. (defvar gnus-carpal-button-face (quote bold) (#$ . -26856)) #@38 *Face used on carpal buffer headers. (defvar gnus-carpal-header-face (quote bold-italic) (#$ . -26952)) (byte-code "ÀÁ!„ÂÁ BÄÅÆÇ#ˆ „0È É !ˆÊ ËÌ#ˆÊ ÍÌ#ˆÊ Ï#ˆÂ‡" [boundp gnus-carpal-mode-map nil current-load-list put gnus-carpal-mode mode-class special make-keymap suppress-keymap define-key " " gnus-carpal-select " " gnus-mouse-2 gnus-carpal-mouse-select] 4) #@168 Major mode for clicking buttons. All normal editing commands are switched off. \ The following commands are available: \{gnus-carpal-mode-map} (defalias 'gnus-carpal-mode #[nil "À ˆÁÃÅÇÉ\n!ˆËp!ˆÌ ÎÏ!ˆÐÑ!‡" [kill-all-local-variables "-- " mode-line-modified gnus-carpal-mode major-mode "Gnus Carpal" mode-name nil mode-line-process use-local-map gnus-carpal-mode-map buffer-disable-undo t buffer-read-only make-local-variable gnus-carpal-attached-buffer run-hooks gnus-carpal-mode-hook] 2 (#$ . 27326) nil]) (defalias 'gnus-carpal-setup-buffer #[(type) "ÀÁ \"!JÅ\f!?…‰ŠÆ\f!qˆÇ ˆÀÁÈ \"! Ê ˆÀÁË \"!J̉ ƒv@ A ;ƒZÐ` cˆ`ÑcˆÒD#ˆ‚2Ð` @cˆ`ÑcˆÔ AÒׯ#ˆ‚2Ø ÙZÛed\"ˆ)ÜÝp!e\",)‡" [intern format "gnus-carpal-%s-buffer" type buffer get-buffer get-buffer-create gnus-carpal-mode "gnus-%s-buffer" gnus-carpal-attached-buffer gnus-add-current-to-buffer-list "gnus-carpal-%s-buffer-buttons" nil button buffer-read-only buttons gnus-set-text-properties " " face gnus-carpal-header-face gnus-callback gnus-carpal-button-face gnus-mouse-face-prop highlight window-width 2 fill-column fill-region set-window-point get-buffer-window] 9]) #@32 Select the button under point. (defalias 'gnus-carpal-select #[nil "À`Á\"‰…Ã\fJ!ˆÅ\n!)‡" [get-text-property gnus-callback func pop-to-buffer gnus-carpal-attached-buffer call-interactively] 4 (#$ . 28513) nil]) #@44 Select the button under the mouse pointer. (defalias 'gnus-carpal-mouse-select #[(event) "À !ˆÂ ‡" [mouse-set-point event gnus-carpal-select] 2 (#$ . 28732) "e"]) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ B‡" [boundp gnus-button-regexp nil current-load-list gnus-button-last] 2) #@186 Check text under the mouse pointer for a callback function. If the text under the mouse pointer has a `gnus-callback' property, call it with the value of the `gnus-data' text property. (defalias 'gnus-article-push-button #[(event) "À ‰A@)‰@)!qˆ ‰A@)‰A@:ƒ#\nA@@‚&\nA@)Ä Å\"Ä Ç\"‰…=!+‡" [window-buffer event position pos get-text-property gnus-data data gnus-callback fun] 4 (#$ . 29012) "e"]) #@156 Check text at point for a callback function. If the text at point has a `gnus-callback' property, call it with the value of the `gnus-data' text property. (defalias 'gnus-article-press-button #[nil "À`Á\"À`Ã\"‰…\f\n!*‡" [get-text-property gnus-data data gnus-callback fun] 4 (#$ . 29427) nil]) #@75 Move point to N buttons backward. If N is negative, move forward instead. (defalias 'gnus-article-prev-button #[(n) "À [!‡" [gnus-article-next-button n] 2 (#$ . 29731) "p"]) #@75 Move point to N buttons forward. If N is negative, move backward instead. (defalias 'gnus-article-next-button #[(n) "ÁWƒ\n‚ ÃÄÁWÁWƒe‚dÉ! `U„xÁVƒxÊ`Ë\"ƒA`ËÌ $bˆ`ËÌ $‰ ƒR bˆ)ƒhÊ`Ë\"„h`ËÌ $bˆÊ`Î\"ƒrTS‚%ÁU„ƒÏÐÑ\"ˆ,‡" [n 0 previous-single-property-change next-single-property-change t limit backward inhibit-point-motion-hooks function abs get-text-property gnus-callback nil point intangible gnus-message 5 "No more buttons"] 6 (#$ . 29911) "p"]) #@253 Highlight current article. This function calls `gnus-article-highlight-headers', `gnus-article-highlight-citation', `gnus-article-highlight-signature', and `gnus-article-add-buttons' to do the highlighting. See the documentation for those functions. (defalias 'gnus-article-highlight #[(&optional force) "À ˆÁ\n!ˆÃ ˆÄ\n!ˆÅ ‡" [gnus-article-highlight-headers gnus-article-highlight-citation force gnus-article-highlight-signature gnus-article-add-buttons gnus-article-add-buttons-to-head] 2 (#$ . 30406) (list (quote force))]) #@217 Highlight current article. This function calls `gnus-article-highlight-headers', `gnus-article-highlight-signature', and `gnus-article-add-buttons' to do the highlighting. See the documentation for those functions. (defalias 'gnus-article-highlight-some #[(&optional force) "À ˆÁ ˆÂ ‡" [gnus-article-highlight-headers gnus-article-highlight-signature gnus-article-add-buttons] 1 (#$ . 30941) (list (quote force))]) #@69 Highlight article headers as specified by `gnus-header-face-alist'. (defalias 'gnus-article-highlight-headers #[nil "ŠqˆŒ Âɉ‰‰‰‰‰ \n \f ebˆÏÐÂÃ#…Ê`Se}ˆ‰A@‰\n…ÊebˆÑ\n@Ò˜ƒQÓ‚T\n@ÔQ \nA@Õ\n8Ö ÂÃ#ƒ4m„4×yˆ`ÏØÂÃ#„‚Ùuˆƒš` >„š` BÚ`Û$ˆƒd`‰\f>„d\fBÖÜÂÃ#ƒ»Ýuˆ‚¾dbˆÚ`Û$ˆ‚d. ‡" [gnus-article-buffer gnus-header-face-alist nil t fpoints hpoints from field-face header-face regexp entry inhibit-point-motion-hooks case-fold-search buffer-read-only alist search-forward "\n\n" "^\\(" "" "[^ ]" "\\)" 2 re-search-forward 0 ":" 1 gnus-put-text-property face "^[^ ]" -2] 11 (#$ . 31363) nil]) #@142 Highlight the signature in an article. It does this by highlighting everything after `gnus-signature-separator' using `gnus-signature-face'. (defalias 'gnus-article-highlight-signature #[nil "ŠqˆÁÂŒ …<Æ …<ÇÈed\"É #ˆ~ˆÊ ÁÂ#ˆÌ”Í Ì•TÁ“ÐSÑ$*,‡" [gnus-article-buffer nil t inhibit-point-motion-hooks buffer-read-only gnus-signature-face gnus-narrow-to-signature gnus-overlay-put gnus-make-overlay face re-search-backward gnus-signature-separator 0 make-marker end start gnus-article-add-button gnus-signature-toggle] 5 (#$ . 32014) nil]) #@164 Find external references in the article and make buttons of them. "External references" are things like Message-IDs and URLs, as specified by `gnus-button-alist'. (defalias 'gnus-article-add-buttons #[(&optional force) "Šqˆ ƒ ‰A@‰“ˆ‚ÂÉ\f‰‰ \n ebˆÌÍÂÃ#„6dbˆ`‰A@‰…›@bˆÎ ÂÃ#ƒ9…`A@”…lA@•Ñ”A@Ã=„„ÓA@!ƒ—ÔÕÖ “ B‰@$ˆ+‚N.‡" [gnus-article-buffer gnus-button-marker-list nil t gnus-button-alist regexp entry beg alist case-fold-search inhibit-point-motion-hooks buffer-read-only search-forward "\n\n" re-search-forward start end 0 from eval gnus-article-add-button gnus-button-push make-marker] 7 (#$ . 32570) (list (quote force))]) #@41 Add buttons to the head of the article. (defalias 'gnus-article-add-buttons-to-head #[nil "ŠqˆÁ‰ Á‰‰ \nË ˆƒ›@AebˆÌ@ÁÂ#ƒÍ”ÌÎÁÂ#ƒFÍ”†Gd bˆÌA@\fÂ#ƒ•Í”A‰A@”A@•Ñ8Í•bˆÓ!ƒ‘Ô\fÕ8Ö8”Ö8•{$ˆ-‚K\fbˆ‚,.~)‡" [gnus-article-buffer nil t gnus-header-button-alist end beg entry alist case-fold-search inhibit-point-motion-hooks buffer-read-only nnheader-narrow-to-headers re-search-forward 0 "^[^ ]" from start 2 form eval gnus-article-add-button 3 4] 8 (#$ . 33265) nil]) #@70 Create a button between FROM and TO with callback FUN and data DATA. (defalias 'gnus-article-add-button #[(from to fun &optional data) "ƒ Á \f\"Å#ˆÆ \f…DÉ\nD¤ …(Ì D¤#‡" [gnus-article-button-face gnus-overlay-put gnus-make-overlay from to face gnus-add-text-properties gnus-article-mouse-face gnus-mouse-face-prop gnus-callback fun data gnus-data] 6 (#$ . 33790)]) (defalias 'gnus-signature-toggle #[(end) "ŠqˆÁÂÅÇ\"ƒ6d Ê  #ˆÌ >…2Í Se] ÌÁ$*‚bd  Ï #ˆÌ>…aÍ Se] ̉>AA$++‡" [gnus-article-buffer nil t inhibit-point-motion-hooks buffer-read-only get-text-property end invisible e b remove-text-properties gnus-hidden-properties intangible gnus-put-text-property props gnus-add-text-properties] 6]) (defalias 'gnus-button-entry #[nil "Á ƒ ‰A@Ä\n@!ƒÁ‰‚Á‚\n*‡" [gnus-button-alist nil entry alist looking-at] 3]) (defalias 'gnus-button-push #[(marker) "Šqˆ bˆÂ ÄÆ 8ÈÉÊ ›\" Ì!ƒ)Í \"‚KÎ!ƒBÌJ!ƒBÍJ \"‚KÏÐÑ B#-‡" [gnus-article-buffer marker gnus-button-entry entry t inhibit-point-motion-hooks 3 fun mapcar #[(group) "”•{Âà GÄ $ˆ )‡" [group string gnus-set-text-properties 0 nil] 5] 4 args fboundp apply boundp gnus-message 1 "You must define `%S' to use this button"] 5]) #@19 Fetch MESSAGE-ID. (defalias 'gnus-button-message-id #[(message-id) "ŠqˆÁ\n!)‡" [gnus-summary-buffer gnus-summary-refer-article message-id] 2 (#$ . 35055)]) (defalias 'gnus-button-mailto #[(address) "À qˆÁ\n!‡" [gnus-copy-article-buffer message-reply address] 2]) (defalias 'gnus-button-reply #[(address) "À !‡" [message-reply address] 2]) #@17 Browse ADDRESS. (defalias 'gnus-button-url #[(address) " !‡" [browse-url-browser-function address] 2 (#$ . 35401)]) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÅÄ BÀÆ!„!ÇÆ B„=È É\nË#ˆÉÌË#ˆÇ‡" [boundp gnus-next-page-line-format "%{%(Next page...%)%}\n" current-load-list gnus-prev-page-line-format "%{%(Previous page...%)%}\n" gnus-prev-page-map nil make-sparse-keymap define-key gnus-mouse-2 gnus-button-prev-page " "] 4) (defalias 'gnus-insert-prev-page-button #[nil "À ÀÄÅÆÈBBBB#)‡" [nil buffer-read-only gnus-eval-format gnus-prev-page-line-format gnus-prev t local-map gnus-prev-page-map (gnus-callback gnus-article-button-prev-page)] 8]) (byte-code "ÀÁ!„ÂÁ B „%Ä Å!ˆÇ É#ˆÇ ÊÉ#ˆÂ‡" [boundp gnus-next-page-map nil current-load-list make-keymap suppress-keymap gnus-prev-page-map define-key gnus-mouse-2 gnus-button-next-page " "] 4) #@22 Go to the next page. (defalias 'gnus-button-next-page #[nil "À ÂÃ\fÅ\"!ˆÆ ˆÂ !)‡" [selected-window win select-window get-buffer-window gnus-article-buffer t gnus-article-next-page] 4 (#$ . 36260) nil]) #@22 Go to the prev page. (defalias 'gnus-button-prev-page #[nil "À ÂÃ\fÅ\"!ˆÆ ˆÂ !)‡" [selected-window win select-window get-buffer-window gnus-article-buffer t gnus-article-prev-page] 4 (#$ . 36469) nil]) (defalias 'gnus-insert-next-page-button #[nil "À ÀÄÅÆÈBBBB#)‡" [nil buffer-read-only gnus-eval-format gnus-next-page-line-format gnus-next t local-map gnus-next-page-map (gnus-callback gnus-article-button-next-page)] 8]) #@22 Go to the next page. (defalias 'gnus-article-button-next-page #[(arg) "À ÂÃ\fÅ\"!ˆÆ ˆÂ !)‡" [selected-window win select-window get-buffer-window gnus-article-buffer t gnus-article-next-page] 4 (#$ . 36903) "P"]) #@22 Go to the prev page. (defalias 'gnus-article-button-prev-page #[(arg) "À ÂÃ\fÅ\"!ˆÆ ˆÂ !)‡" [selected-window win select-window get-buffer-window gnus-article-buffer t gnus-article-prev-page] 4 (#$ . 37122) "P"]) (byte-code "ÀÁ!„\nÁÂMˆÃ ˆÄÅ!‡" [fboundp rassoc #[(elt list) "À\nƒ\n@‰A šƒÀ‰‚À\nA‰„ )‡" [nil result list elt] 3 "Return non-nil if ELT is `equal' to the cdr of an element of LIST.\nThe value is actually the element of LIST whose cdr is ELT."] gnus-ems-redefine provide gnus-vis] 2)