;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Wed Jul 17 16:36:36 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/gnus.el ;;; emacs version 19.31.94.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.el' was compiled for Emacs 19.29 or later")) (run-hooks (quote gnus-load-hook)) (byte-code "ﾀﾁ!安ﾂ!安ﾃ!安ﾄ!安ﾅ!安ﾆ!" [require mail-utils timezone nnheader nnmail backquote nnoo] 2) #@75 *Directory variable from which all other Gnus file variables are derived. (defvar gnus-directory (byte-code "ﾀﾁ!ﾂ" [getenv "SAVEDIR" "~/News/"] 2) (#$ . -609)) #@222 Specify a default NNTP server. This variable should be defined in paths.el, and should never be set by the user. If you want to change servers, you should use `gnus-select-method'. See the documentation to that variable. (defvar gnus-default-nntp-server nil (#$ . 780)) #@125 Default default new newsgroups the first time Gnus is run. Should be set in paths.el, and shouldn't be touched by the user. (defvar gnus-backup-default-subscribed-newsgroups (quote ("news.announce.newusers" "news.groups.questions" "gnu.emacs.gnus")) (#$ . 1057)) #@211 Local domain name without a host name. The DOMAINNAME environment variable is used instead if it is defined. If the `system-name' function returns the full Internet name, there is no need to set this variable. (defvar gnus-local-domain nil (#$ . 1327)) #@491 String with a description of what organization (if any) the user belongs to. The ORGANIZATION environment variable is used instead if it is defined. If this variable contains a function, this function will be called with the current newsgroup name as the argument. The function should return a string. In any case, if the string (either in the variable, in the environment variable, or returned by the function) is a file name, the contents of this file will be used as the organization. (defvar gnus-local-organization nil (#$ . 1587)) #@304 *NNTP service name ("nntp" or 119). This is an obsolete variable, which is scarcely used. If you use an nntp server for your newsgroup and want to change the port number used to 899, you would say something along these lines: (setq gnus-select-method '(nntp "my.nntp.server" (nntp-port-number 899))) (defvar gnus-nntp-service "nntp" (#$ . -2133)) #@54 *A file with only the name of the nntp server in it. (defvar gnus-nntpserver-file "/etc/nntpserver" (#$ . -2489)) (defalias 'gnus-getenv-nntpserver #[nil "ﾀﾁ!.ﾂ !.監ﾅ!q鞍p!杏 !以  ﾊﾋ \"?) ﾌp!*" [getenv "NNTPSERVER" file-readable-p gnus-nntpserver-file get-buffer-create " *gnus nntp*" buffer-disable-undo insert-file-contents buffer-string name string-match "^[ \n]*$" kill-buffer] 3]) #@569 *Default method for selecting a newsgroup. This variable should be a list, where the first element is how the news is to be fetched, the second is the address. For instance, if you want to get your news via NNTP from "flab.flab.edu", you could say: (setq gnus-select-method '(nntp "flab.flab.edu")) If you want to use your local spool, say: (setq gnus-select-method (list 'nnspool (system-name))) If you use this variable, you must set `gnus-nntp-server' to nil. There is a lot more to know about select methods and virtual servers - see the manual for details. (defvar gnus-select-method (byte-code "ﾀﾁﾂﾃ醇\f\fﾅ\fﾆ D?#ﾈ?*C､" [nntp nil (gnus-getenv-nntpserver) ((error)) gnus-default-nntp-server "" system-name gnus-nntp-service "nntp"] 4) (#$ . -2894)) #@236 *Method used for archiving messages you've sent. This should be a mail method. It's probably not a very effective to change this variable once you've run Gnus once. After doing that, you must edit this server from the server buffer. (defvar gnus-message-archive-method (byte-code "ﾀﾁﾂﾃ\fﾁ\"Dﾅﾃ\fﾆ\"DﾇBBBB" [nnfolder "archive" nnfolder-directory nnheader-concat message-directory nnfolder-active-file "archive/active" ((nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t))] 7) (#$ . -3685)) #@597 *Name of the group in which to save the messages you've written. This can either be a string, a list of strings; or an alist of regexps/functions/forms to be evaluated to return a string (or a list of strings). The functions are called with the name of the current group (or nil) as a parameter. Normally the group names returned by this variable should be unprefixed -- which implictly means "store on the archive server". However, you may wish to store the message on some other server. In that case, just return a fully prefixed name of the group -- "nnml+private:mail.misc", for instance. (defvar gnus-message-archive-group nil (#$ . -4188)) #@364 *Preferred method for fetching an article by Message-ID. If you are reading news from the local spool (with nnspool), fetching articles by Message-ID is painfully slow. By setting this method to an nntp method, you might get acceptable results. The value of this variable must be a valid select method as discussed in the documentation of `gnus-select-method'. (defvar gnus-refer-article-method nil (#$ . -4844)) #@305 *A list of secondary methods that will be used for reading news. This is a list where each element is a complete select method (see `gnus-select-method'). If, for instance, you want to read your mail with the nnml backend, you could set this variable: (setq gnus-secondary-select-methods '((nnml ""))) (defvar gnus-secondary-select-methods nil (#$ . -5266)) #@181 *List of NNTP servers that the user can choose between interactively. To make Gnus query you for a server, you have to give `gnus' a non-numeric prefix - `C-u M-x gnus', in short. (defvar gnus-secondary-servers nil (#$ . -5633)) #@128 *The name of the host running the NNTP server. This variable is semi-obsolete. Use the `gnus-select-method' variable instead. (defvar gnus-nntp-server nil (#$ . -5869)) #@77 *Your `.newsrc' file. `.newsrc-SERVER' will be used instead if that exists. (defvar gnus-startup-file "~/.newsrc" (#$ . -6045)) #@104 *Your Gnus elisp startup file. If a file with the .el or .elc suffixes exist, it will be read instead. (defvar gnus-init-file "~/.gnus" (#$ . -6180)) #@973 *Directory where the group FAQs are stored. This will most commonly be on a remote machine, and the file will be fetched by ange-ftp. This variable can also be a list of directories. In that case, the first element in the list will be used by default. The others can be used when being prompted for a site. Note that Gnus uses an aol machine as the default directory. If this feels fundamentally unclean, just think of it as a way to finally get something of value back from them. If the default site is too slow, try one of these: North America: mirrors.aol.com /pub/rtfm/usenet ftp.seas.gwu.edu /pub/rtfm rtfm.mit.edu /pub/usenet Europe: ftp.uni-paderborn.de /pub/FAQ src.doc.ic.ac.uk /usenet/news-FAQS ftp.sunet.se /pub/usenet sunsite.auc.dk /pub/usenet Asia: nctuccca.edu.tw /USENET/FAQ hwarang.postech.ac.kr /pub/usenet ftp.hk.super.net /mirror/faqs (defvar gnus-group-faq-directory (quote ("/ftp@mirrors.aol.com:/pub/rtfm/usenet/" "/ftp@sunsite.auc.dk:/pub/usenet/" "/ftp@sunsite.doc.ic.ac.uk:/pub/usenet/news-faqs/" "/ftp@src.doc.ic.ac.uk:/usenet/news-FAQS/" "/ftp@ftp.seas.gwu.edu:/pub/rtfm/" "/ftp@rtfm.mit.edu:/pub/usenet/" "/ftp@ftp.uni-paderborn.de:/pub/FAQ/" "/ftp@ftp.sunet.se:/pub/usenet/" "/ftp@nctuccca.edu.tw:/USENET/FAQ/" "/ftp@hwarang.postech.ac.kr:/pub/usenet/" "/ftp@ftp.hk.super.net:/mirror/faqs/")) (#$ . -6337)) #@38 *The address of the (ding) archives. (defvar gnus-group-archive-directory "/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/" (#$ . -7797)) #@50 *The address of the most recent (ding) articles. (defvar gnus-group-recent-archive-directory "/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list-recent/" (#$ . -7935)) #@257 *This variable lists what newsgroups should be subscribed the first time Gnus is used. It should be a list of strings. If it is `t', Gnus will not do anything special the first time it is started; it'll just use the normal newsgroups subscription methods. (defvar gnus-default-subscribed-newsgroups nil (#$ . -8100)) #@213 *Non-nil means that cross referenced articles will be marked as read. If nil, ignore cross references. If t, mark articles as read in subscribed newsgroups. If neither t nor nil, mark as read in all newsgroups. (defvar gnus-use-cross-reference t (#$ . -8424)) #@107 *If non-nil, display all articles in the same buffer. If nil, each group will get its own article buffer. (defvar gnus-single-article-buffer t (#$ . -8692)) #@189 *Non-nil means that Gnus will use a dribble file to store user updates. If Emacs should crash without saving the .newsrc files, complete information can be restored from the dribble file. (defvar gnus-use-dribble-file t (#$ . -8856)) #@138 *The directory where dribble files will be saved. If this variable is nil, the directory where the .newsrc files are saved will be used. (defvar gnus-dribble-directory nil (#$ . -9097)) #@85 *If non-nil, Gnus will supply backends with data needed for async article fetching. (defvar gnus-asynchronous nil (#$ . -9289)) #@158 *If non-nil, kill the summary buffer when you exit from it. If nil, the summary will become a "*Dead Summary*" buffer, and it will be killed sometime later. (defvar gnus-kill-summary-on-exit t (#$ . -9424)) #@183 *The number of articles which indicates a large newsgroup. If the number of articles in a newsgroup is greater than this value, confirmation is required for selecting the newsgroup. (defvar gnus-large-newsgroup 200 (#$ . -9638)) #@58 *Message displayed by Gnus when no groups are available. (defvar gnus-no-groups-message "No news is horrible news" (#$ . -9873)) #@652 *Non-nil means that the default name of a file to save articles in is the group name. If it's nil, the directory form of the group name is used instead. If this variable is a list, and the list contains the element `not-score', long file names will not be used for score files; if it contains the element `not-save', long file names will not be used for saving; and if it contains the element `not-kill', long file names will not be used for kill files. Note that the default for this variable varies according to what system type you're using. On `usg-unix-v' and `xenix' this variable defaults to nil while on all other systems it defaults to t. (defvar gnus-use-long-file-name (byte-code "ﾁ>?" [system-type (usg-unix-v xenix)] 2) (#$ . -10009)) #@70 *Name of the directory articles will be saved in (default "~/News"). (defvar gnus-article-save-directory gnus-directory (#$ . -10768)) #@76 *Name of the directory where kill files will be stored (default "~/News"). (defvar gnus-kill-files-directory gnus-directory (#$ . -10909)) #@418 *A function to save articles in your favorite format. The function must be interactively callable (in other words, it must be an Emacs command). Gnus provides the following functions: * gnus-summary-save-in-rmail (Rmail format) * gnus-summary-save-in-mail (Unix mail format) * gnus-summary-save-in-folder (MH folder) * gnus-summary-save-in-file (article format). * gnus-summary-save-in-vm (use VM's folder format). (defvar gnus-default-article-saver (quote gnus-summary-save-in-rmail) (#$ . -11055)) #@456 *This variable says how much prompting is to be done when saving articles. If it is nil, no prompting will be done, and the articles will be saved to the default files. If this variable is `always', each and every article that is saved will be preceded by a prompt, even when saving large batches of articles. If this variable is neither nil not `always', there the user will be prompted once for a file name for each invocation of the saving commands. (defvar gnus-prompt-before-saving (quote always) (#$ . -11564)) #@142 *A function generating a file name to save articles in Rmail format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE. (defvar gnus-rmail-save-name (quote gnus-plain-save-name) (#$ . -12090)) #@146 *A function generating a file name to save articles in Unix mail format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE. (defvar gnus-mail-save-name (quote gnus-plain-save-name) (#$ . -12311)) #@141 *A function generating a file name to save articles in MH folder. The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER. (defvar gnus-folder-save-name (quote gnus-folder-save-name) (#$ . -12535)) #@144 *A function generating a file name to save articles in article format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE. (defvar gnus-file-save-name (quote gnus-numeric-save-name) (#$ . -12757)) #@923 *Variable used to suggest where articles are to be saved. For instance, if you would like to save articles related to Gnus in the file "gnus-stuff", and articles related to VM in "vm-stuff", you could set this variable to something like: '(("^Subject:.*gnus\|^Newsgroups:.*gnus" "gnus-stuff") ("^Subject:.*vm\|^Xref:.*vm" "vm-stuff")) This variable is an alist where the where the key is the match and the value is a list of possible files to save in if the match is non-nil. If the match is a string, it is used as a regexp match on the article. If the match is a symbol, that symbol will be funcalled from the buffer of the article to be saved with the newsgroup as the parameter. If it is a list, it will be evaled in the same buffer. If this form or function returns a string, this string will be used as a possible file name; and if it returns a non-nil list, that list will be used as possible file names. (defvar gnus-split-methods (quote ((gnus-article-archive-name))) (#$ . -12981)) #@124 *Variable used to suggest where articles are to be moved to. It uses the same syntax as the `gnus-split-methods' variable. (defvar gnus-move-split-methods nil (#$ . -13990)) #@39 *If non-nil, save group scoring info. (defvar gnus-save-score nil (#$ . -14170)) #@48 *If non-nil, use some adaptive scoring scheme. (defvar gnus-use-adaptive-scoring nil (#$ . -14257)) #@205 *If nil, Gnus will ignore the article cache. If `passive', it will allow entering (and reading) articles explicitly entered into the cache. If anything else, use the cache to the full extent of the law. (defvar gnus-use-cache (quote passive) (#$ . -14364)) #@44 *If non-nil, display a thread tree buffer. (defvar gnus-use-trees nil (#$ . -14628)) #@37 *If non-nil, use GroupLens ratings. (defvar gnus-use-grouplens nil (#$ . -14719)) #@235 *If non-nil, Gnus will keep read articles for later re-retrieval. If it is a number N, then Gnus will only keep the last N articles read. If it is neither nil nor a number, Gnus will keep all read articles. This is not a good idea. (defvar gnus-keep-backlog nil (#$ . -14808)) #@52 *If non-nil, Gnus will read NoCeM cancel messages. (defvar gnus-use-nocem nil (#$ . -15093)) #@41 If non-nil, Gnus might use some demons. (defvar gnus-use-demon nil (#$ . 15192)) #@30 *If non-nil, enable scoring. (defvar gnus-use-scoring t (#$ . -15279)) #@30 *If non-nil, display picons. (defvar gnus-use-picons nil (#$ . -15356)) #@640 *Non-nil means that Gnus will try to build threads by grabbing old headers. If an unread article in the group refers to an older, already read (or just marked as read) article, the old article will not normally be displayed in the Summary buffer. If this variable is non-nil, Gnus will attempt to grab the headers to the old articles, and thereby build complete threads. If it has the value `some', only enough headers to connect otherwise loose threads will be displayed. This variable can also be a number. In that case, no more than that number of old headers will be fetched. The server has to support NOV for any of this to work. (defvar gnus-fetch-old-headers nil (#$ . -15435)) #@127 *Non-nil means that you are a usenet novice. If non-nil, verbose messages may be displayed and confirmations may be required. (defvar gnus-novice-user t (#$ . -16131)) #@105 *Non-nil means that you will never be asked for confirmation about anything. And that means *anything*. (defvar gnus-expert-user nil (#$ . -16306)) #@272 *Integer that says how verbose Gnus should be. The higher the number, the more messages Gnus will flash to say what it's doing. At zero, Gnus will be totally mute; at five, Gnus will display most important messages; and at ten, Gnus will keep on jabbering all the time. (defvar gnus-verbose 7 (#$ . -16461)) #@603 *Non-nil means that the next newsgroup after the current will be on the same level. When you type, for instance, `n' after reading the last article in the current newsgroup, you will go to the next newsgroup. If this variable is nil, the next newsgroup will be the next from the group buffer. If this variable is non-nil, Gnus will either put you in the next newsgroup with the same level, or, if no such newsgroup is available, the next newsgroup with the lowest possible level higher than the current level. If this variable is `best', Gnus will make the next newsgroup the one with the best level. (defvar gnus-keep-same-level nil (#$ . -16777)) #@1029 *nil means that Gnus won't gather loose threads. If the root of a thread has expired or been read in a previous session, the information necessary to build a complete thread has been lost. Instead of having many small sub-threads from this original thread scattered all over the summary buffer, Gnus can gather them. If non-nil, Gnus will try to gather all loose sub-threads from an original thread into one large thread. If this variable is non-nil, it should be one of `none', `adopt', `dummy' or `empty'. If this variable is `none', Gnus will not make a false root, but just present the sub-threads after another. If this variable is `dummy', Gnus will create a dummy root that will have all the sub-threads as children. If this variable is `adopt', Gnus will make one of the "children" the parent and mark all the step-children as such. If this variable is `empty', the "children" are printed with empty subject fields. (Or rather, they will be printed with a string given by the `gnus-summary-same-subject' variable.) (defvar gnus-summary-make-false-root (quote adopt) (#$ . -17435)) #@258 *A regexp to match subjects to be excluded from loose thread gathering. As loose thread gathering is done on subjects only, that means that there can be many false gatherings performed. By rooting out certain common subjects, gathering might become saner. (defvar gnus-summary-gather-exclude-subject "^ *$\\|^(none)$" (#$ . -18536)) #@468 *Maximum length of subject comparisons when gathering loose threads. Use nil to compare full subjects. Setting this variable to a low number will help gather threads that have been corrupted by newsreaders chopping off subject lines, but it might also mean that unrelated articles that have subject that happen to begin with the same few characters will be incorrectly gathered. If this variable is `fuzzy', Gnus will use a fuzzy algorithm when comparing subjects. (defvar gnus-summary-gather-subject-limit nil (#$ . -18877)) #@77 *Regexp, matches for which are removed from subject lines when simplifying. (defvar gnus-simplify-ignored-prefixes nil (#$ . -19411)) #@251 *If non-nil, fill in the gaps in threads. If `some', only fill in the gaps that are needed to tie loose threads together. If `more', fill in all leaf nodes that Gnus can find. If non-nil and non-`some', fill in all gaps that Gnus manages to guess. (defvar gnus-build-sparse-threads nil (#$ . -19552)) #@273 Function used for gathering loose threads. There are two pre-defined functions: `gnus-gather-threads-by-subject', which only takes Subjects into consideration; and `gnus-gather-threads-by-references', which compared the References headers of the articles to find matches. (defvar gnus-summary-thread-gathering-function (quote gnus-gather-threads-by-subject) (#$ . 19862)) #@174 *String indicating that the current article has the same subject as the previous. This variable will only be used if the value of `gnus-summary-make-false-root' is `empty'. (defvar gnus-summary-same-subject "" (#$ . -20241)) #@185 *If non-nil, marking commands will go to the next unread article. If `never', \\[gnus-summary-next-page] will go to the next article, whether it is read or not. (defvar gnus-summary-goto-unread t (#$ . -20473)) #@81 *If non-nil, movement commands will go to the next unread and subscribed group. (defvar gnus-group-goto-unread t (#$ . -20713)) #@124 *If non-nil, the \\[gnus-group-get-new-news-this-group] command will advance point to the next group. (defvar gnus-goto-next-group-when-activating t (#$ . -20848)) #@693 *Non-nil means that Gnus will add new newsgroups at startup. If this variable is `ask-server', Gnus will ask the server for new groups since the last time it checked. This means that the killed list is no longer necessary, so you could set `gnus-save-killed-list' to nil. A variant is to have this variable be a list of select methods. Gnus will then use the `ask-server' method on all these select methods to query for new groups from all those servers. Eg. (setq gnus-check-new-newsgroups '((nntp "some.server") (nntp "other.server"))) If this variable is nil, then you have to tell Gnus explicitly to check for new newsgroups with \\[gnus-find-new-newsgroups]. (defvar gnus-check-new-newsgroups t (#$ . -21040)) #@230 *Non-nil means that Gnus will check and remove bogus newsgroup at startup. If this variable is nil, then you have to tell Gnus explicitly to check for bogus newsgroups with \\[gnus-group-check-bogus-groups]. (defvar gnus-check-bogus-newsgroups nil (#$ . -21790)) #@634 *Non-nil means that Gnus will read the entire active file at startup. If this variable is nil, Gnus will only know about the groups in your `.newsrc' file. If this variable is `some', Gnus will try to only read the relevant parts of the active file from the server. Not all servers support this, and it might be quite slow with other servers, but this should generally be faster than both the t and nil value. If you set this variable to nil or `some', you probably still want to be told about new newsgroups that arrive. To do that, set `gnus-check-new-newsgroups' to `ask-server'. This may not work properly with all servers. (defvar gnus-read-active-file t (#$ . -22081)) #@73 *Groups with levels less than or equal to this variable are subscribed. (defvar gnus-level-subscribed 5 (#$ . -22767)) #@186 *Groups with levels less than or equal to this variable are unsubscribed. Groups with levels less than `gnus-level-subscribed', which should be less than this variable, are subscribed. (defvar gnus-level-unsubscribed 7 (#$ . -22893)) #@44 *Groups with this level are zombie groups. (defvar gnus-level-zombie 8 (#$ . -23133)) #@37 *Groups with this level are killed. (defvar gnus-level-killed 9 (#$ . -23225)) #@58 *New subscribed groups will be subscribed at this level. (defvar gnus-level-default-subscribed 3 (#$ . -23310)) #@62 *New unsubscribed groups will be unsubscribed at this level. (defvar gnus-level-default-unsubscribed 6 (#$ . -23428)) #@183 *Groups higher than this level won't be activated on startup. Setting this variable to something log might save lots of time when you have many groups that you aren't interested in. (defvar gnus-activate-level (1+ gnus-level-subscribed) (#$ . -23553)) #@571 *If nil, Gnus will not check foreign newsgroups at startup. If it is non-nil, it should be a number between one and nine. Foreign newsgroups that have a level lower or equal to this number will be activated on startup. For instance, if you want to active all subscribed newsgroups, but not the rest, you'd set this variable to `gnus-level-subscribed'. If you subscribe to lots of newsgroups from different servers, startup might take a while. By setting this variable to nil, you'll save time, but you won't be told how many unread articles there are in the groups. (defvar gnus-activate-foreign-newsgroups 4 (#$ . -23812)) #@321 *Non-nil means that Gnus will save the `.newsrc' file. Gnus always saves its own startup file, which is called ".newsrc.eld". The file called ".newsrc" is in a format that can be readily understood by other newsreaders. If you don't plan on using other newsreaders, set this variable to nil to save some time on exit. (defvar gnus-save-newsrc-file t (#$ . -24447)) #@453 *If non-nil, save the list of killed groups to the startup file. If you set this variable to nil, you'll save both time (when starting and quitting) and space (both memory and disk), but it will also mean that Gnus has no record of which groups are new and which are old, so the automatic new newsgroups subscription methods become meaningless. You should always set `gnus-check-new-newsgroups' to `ask-server' or nil if you set this variable to nil. (defvar gnus-save-killed-list t (#$ . -24821)) #@66 *If non-nil, require your confirmation when catching up a group. (defvar gnus-interactive-catchup t (#$ . -25326)) #@59 *If non-nil, require your confirmation when exiting Gnus. (defvar gnus-interactive-exit t (#$ . -25447)) #@221 *If non-nil, Gnus will apply kill files to already killed articles. If it is nil, Gnus will never apply kill files to articles that have already been through the scoring process, which might very well save lots of time. (defvar gnus-kill-killed t (#$ . -25559)) #@274 *Function for extracting address components from a From header. Two pre-defined function exist: `gnus-extract-address-components', which is the default, quite fast, and too simplistic solution, and `mail-extract-address-components', which works much better, but is slower. (defvar gnus-extract-address-components (quote gnus-extract-address-components) (#$ . -25828)) #@82 *Default article score level. If this variable is nil, scoring will be disabled. (defvar gnus-summary-default-score 0 (#$ . -26202)) #@146 *Fuzziness factor for the zcore in the summary buffer. Articles with scores closer than this to `gnus-summary-default-score' will not be marked. (defvar gnus-summary-zcore-fuzz 0 (#$ . -26342)) #@208 *Strings to be removed when doing fuzzy matches. This can either be a regular expression or list of regular expressions that will be removed from subject strings if fuzzy subject simplification is selected. (defvar gnus-simplify-subject-fuzzy-regexp nil (#$ . -26543)) #@166 *Regexp to match groups that should always be listed in the group buffer. This means that they will still be listed when there are no unread articles in the groups. (defvar gnus-permanently-visible-groups nil (#$ . -26819)) #@110 *If non-nil, list groups that have only ticked articles. If nil, only list groups that have unread articles. (defvar gnus-list-groups-with-ticked-articles t (#$ . -27050)) #@82 *Default listing level. Ignored if `gnus-group-use-permanent-levels' is non-nil. (defvar gnus-group-default-list-level gnus-level-subscribed (#$ . -27228)) #@62 *If non-nil, once you set a level, Gnus will use this level. (defvar gnus-group-use-permanent-levels nil (#$ . -27390)) #@46 *If non-nil, inactive groups will be listed. (defvar gnus-group-list-inactive-groups t (#$ . -27516)) #@128 *If non-nil, do mime processing of articles. The articles will simply be fed to the function given by `gnus-show-mime-method'. (defvar gnus-show-mime nil (#$ . -27625)) #@78 *If nil, MIME-decode even if there is no Mime-Version header in the article. (defvar gnus-strict-mime t (#$ . -27800)) #@86 *Function to process a MIME message. The function is called from the article buffer. (defvar gnus-show-mime-method (quote metamail-buffer) (#$ . -27925)) #@91 *Function to decode a MIME encoded-words. The function is called from the article buffer. (defvar gnus-decode-encoded-word-method #[nil "ﾀ" [nil] 1] (#$ . -28085)) #@47 *If non-nil, display threads in summary mode. (defvar gnus-show-threads t (#$ . -28256)) #@188 *If non-nil, hide all threads initially. If threads are hidden, you have to run the command `gnus-summary-show-thread' by hand or use `gnus-select-article-hook' to expose hidden threads. (defvar gnus-thread-hide-subtree nil (#$ . -28352)) #@49 *If non-nil, hide killed threads automatically. (defvar gnus-thread-hide-killed t (#$ . -28597)) #@198 *If non-nil, ignore subjects and do all threading based on the Reference header. If nil, which is the default, articles that have different subjects from their parents will start separate threads. (defvar gnus-thread-ignore-subject nil (#$ . -28701)) #@387 *If non-nil, subjects will be ignored when doing thread commands. This affects commands like `gnus-summary-kill-thread' and `gnus-summary-lower-thread'. If this variable is nil, articles in the same thread with different subjects will not be included in the operation in question. If this variable is `fuzzy', only articles that have subjects that are fuzzily equal will be included. (defvar gnus-thread-operation-ignore-subject t (#$ . -28959)) #@64 *Number that says how much each sub-thread should be indented. (defvar gnus-thread-indent-level 4 (#$ . -29413)) #@242 *A regexp to match uninteresting newsgroups in the active file. Any lines in the active file matching this regular expression are removed from the newsgroup list before anything else is done to it, thus making them effectively non-existent. (defvar gnus-ignored-newsgroups (byte-code "ﾀﾁﾂﾃﾄ#!" [purecopy mapconcat identity ("^to\\." "^[0-9. ]+ " "[][\"#'()]") "\\|"] 5) (#$ . -29533)) #@192 *All headers that match this regexp will be hidden. This variable can also be a list of regexps of headers to be ignored. If `gnus-visible-headers' is non-nil, this variable will be ignored. (defvar gnus-ignored-headers "^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:\\|^Received:\\|^Mail-from:" (#$ . -29927)) #@202 *All headers that do not match this regexp will be hidden. This variable can also be a list of regexp of headers to remain visible. If this variable is non-nil, `gnus-ignored-headers' will be ignored. (defvar gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-" (#$ . -30408)) #@194 *This variable is a list of regular expressions. If it is non-nil, headers that match the regular expressions will be placed first in the article buffer in the sequence specified by this list. (defvar gnus-sorted-header-list (quote ("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" "^To:" "^Cc:" "^Date:" "^Organization:")) (#$ . -30869)) #@166 *Headers that are only to be displayed if they have interesting data. Possible values in this list are `empty', `newsgroups', `followup-to', `reply-to', and `date'. (defvar gnus-boring-article-headers (quote (empty followup-to reply-to)) (#$ . -31227)) #@38 *If non-nil, don't hide any headers. (defvar gnus-show-all-headers nil (#$ . -31486)) #@54 *If non-nil, don't remove any headers before saving. (defvar gnus-save-all-headers t (#$ . -31578)) #@251 *Headers to keep if `gnus-save-all-headers' is nil. If `gnus-save-all-headers' is non-nil, this variable will be ignored. If that variable is nil, however, all headers that match this regexp will be kept while the rest will be deleted before saving. (defvar gnus-saved-headers gnus-visible-headers (#$ . -31685)) #@57 *If non-nil, the startup message will not be displayed. (defvar gnus-inhibit-startup-message nil (#$ . -32004)) #@38 Regexp matching signature separator. (defvar gnus-signature-separator "^-- *$" (#$ . 32122)) #@376 Provide a limit to what is considered a signature. If it is a number, no signature may not be longer (in characters) than that number. If it is a function, the function will be called without any parameters, and if it returns nil, there is no signature in the buffer. If it is a string, it will be used as a regexp. If it matches, the text in question is not a signature. (defvar gnus-signature-limit nil (#$ . 32222)) #@68 *If non-nil, extend newsgroup forward and backward when requested. (defvar gnus-auto-extend-newsgroup t (#$ . -32650)) #@360 *If nil, don't select the first unread article when entering a group. If this variable is `best', select the highest-scored unread article in the group. If neither nil nor `best', select the first unread article. If you want to prevent automatic selection of the first unread article in some newsgroups, set the variable to nil in `gnus-select-group-hook'. (defvar gnus-auto-select-first t (#$ . -32776)) #@644 *If non-nil, offer to go to the next group from the end of the previous. If the value is t and the next newsgroup is empty, Gnus will exit summary mode and go back to group mode. If the value is neither nil nor t, Gnus will select the following unread newsgroup. In particular, if the value is the symbol `quietly', the next unread newsgroup will be selected without any confirmation, and if it is `almost-quietly', the next group will be selected without any confirmation if you are located on the last article in the group. Finally, if this variable is `slightly-quietly', the `Z n' command will go to the next group without confirmation. (defvar gnus-auto-select-next t (#$ . -33190)) #@61 *If non-nil, select the next article with the same subject. (defvar gnus-auto-select-same nil (#$ . -33886)) #@148 *If non-nil, consider the current article when moving. The "unread" movement commands will stay on the same line if the current article is unread. (defvar gnus-summary-check-current nil (#$ . -34002)) #@192 *If non-nil, always center the current summary buffer. In particular, if `vertical' do only vertical recentering. If non-nil and non-`vertical', do both horizontal and vertical recentering. (defvar gnus-auto-center-summary t (#$ . -34210)) #@115 *If non-nil, do page breaking on articles. The page delimiter is specified by the `gnus-page-delimiter' variable. (defvar gnus-break-pages t (#$ . -34458)) #@140 *Regexp describing what to use as article page delimiters. The default value is "^ ", which is a form linefeed at the beginning of a line. (defvar gnus-page-delimiter "^\f" (#$ . -34621)) #@43 *If non-nil, use the entire Emacs screen. (defvar gnus-use-full-window t (#$ . -34815)) #@54 Obsolete variable. See `gnus-buffer-configuration'. (defvar gnus-window-configuration nil (#$ . 34909)) #@33 *Minimum width of Gnus buffers. (defvar gnus-window-min-width 2 (#$ . -35020)) #@34 *Minimum height of Gnus buffers. (defvar gnus-window-min-height 1 (#$ . -35105)) #@781 Window configuration for all possible Gnus buffers. This variable is a list of lists. Each of these lists has a NAME and a RULE. The NAMEs are commonsense names like `group', which names a rule used when displaying the group buffer; `summary', which names a rule for what happens when you enter a group and do not display an article buffer; and so on. See the value of this variable for a complete list of NAMEs. Each RULE is a list of vectors. The first element in this vector is the name of the buffer to be displayed; the second element is the percentage of the screen this buffer is to occupy (a number in the 0.0-0.99 range); the optional third element is `point', which should be present to denote which buffer point is to go to after making this buffer configuration. (defvar gnus-buffer-configuration (quote ((group (vertical 1.0 (group 1.0 point) (if gnus-carpal (quote (group-carpal 4))))) (summary (vertical 1.0 (summary 1.0 point) (if gnus-carpal (quote (summary-carpal 4))))) (article (cond (gnus-use-picons (quote (frame 1.0 (vertical 1.0 (summary 0.25 point) (if gnus-carpal (quote (summary-carpal 4))) (article 1.0)) (vertical ((height . 5) (width . 15) (user-position . t) (left . -1) (top . 1)) (picons 1.0))))) (gnus-use-trees (quote (vertical 1.0 (summary 0.25 point) (tree 0.25) (article 1.0)))) (t (quote (vertical 1.0 (summary 0.25 point) (if gnus-carpal (quote (summary-carpal 4))) (article 1.0)))))) (server (vertical 1.0 (server 1.0 point) (if gnus-carpal (quote (server-carpal 2))))) (browse (vertical 1.0 (browse 1.0 point) (if gnus-carpal (quote (browse-carpal 2))))) (message (vertical 1.0 (message 1.0 point))) (pick (vertical 1.0 (article 1.0 point))) (info (vertical 1.0 (info 1.0 point))) (summary-faq (vertical 1.0 (summary 0.25) (faq 1.0 point))) (edit-group (vertical 1.0 (group 0.5) (edit-group 1.0 point))) (edit-server (vertical 1.0 (server 0.5) (edit-server 1.0 point))) (edit-score (vertical 1.0 (summary 0.25) (edit-score 1.0 point))) (post (vertical 1.0 (post 1.0 point))) (reply (vertical 1.0 (article-copy 0.5) (message 1.0 point))) (forward (vertical 1.0 (message 1.0 point))) (reply-yank (vertical 1.0 (message 1.0 point))) (mail-bounce (vertical 1.0 (article 0.5) (message 1.0 point))) (draft (vertical 1.0 (draft 1.0 point))) (pipe (vertical 1.0 (summary 0.25 point) (if gnus-carpal (quote (summary-carpal 4))) ("*Shell Command Output*" 1.0))) (bug (vertical 1.0 ("*Gnus Help Bug*" 0.5) ("*Gnus Bug*" 1.0 point))) (compose-bounce (vertical 1.0 (article 0.5) (message 1.0 point))))) (#$ . 35193)) #@65 Mapping from short symbols to buffer names or buffer variables. (defvar gnus-window-to-buffer (quote ((group . gnus-group-buffer) (summary . gnus-summary-buffer) (article . gnus-article-buffer) (server . gnus-server-buffer) (browse . "*Gnus Browse Server*") (edit-group . gnus-group-edit-buffer) (edit-server . gnus-server-edit-buffer) (group-carpal . gnus-carpal-group-buffer) (summary-carpal . gnus-carpal-summary-buffer) (server-carpal . gnus-carpal-server-buffer) (browse-carpal . gnus-carpal-browse-buffer) (edit-score . gnus-score-edit-buffer) (message . gnus-message-buffer) (mail . gnus-message-buffer) (post-news . gnus-message-buffer) (faq . gnus-faq-buffer) (picons . "*Picons*") (tree . gnus-tree-buffer) (info . gnus-info-buffer) (article-copy . gnus-article-copy) (draft . gnus-draft-buffer))) (#$ . 37750)) #@39 *If non-nil, display clickable icons. (defvar gnus-carpal nil (#$ . -38578)) #@516 *Function called with a group name when new group is detected. A few pre-made functions are supplied: `gnus-subscribe-randomly' inserts new groups at the beginning of the list of groups; `gnus-subscribe-alphabetically' inserts new groups in strict alphabetic order; `gnus-subscribe-hierarchically' inserts new groups in hierarchical newsgroup order; `gnus-subscribe-interactively' asks for your decision; `gnus-subscribe-killed' kills all new groups; `gnus-subscribe-zombies' will make all new groups into zombies. (defvar gnus-subscribe-newsgroup-method (quote gnus-subscribe-zombies) (#$ . -38662)) #@361 *This function is called to subscribe newsgroups mentioned on "options -n" lines. If, for instance, you want to subscribe to all newsgroups in the "no" and "alt" hierarchies, you'd put the following in your .newsrc file: options -n no.all alt.all Gnus will the subscribe all new newsgroups in these hierarchies with the subscription method in this variable. (defvar gnus-subscribe-options-newsgroup-method (quote gnus-subscribe-alphabetically) (#$ . -39270)) #@346 *If non-nil, Gnus will offer to subscribe hierarchically. When a new hierarchy appears, Gnus will ask the user: 'alt.binaries': Do you want to subscribe to this hierarchy? ([d]ys): If the user pressed `d', Gnus will descend the hierarchy, `y' will subscribe to all newsgroups in the hierarchy and `s' will skip this hierarchy in its entirety. (defvar gnus-subscribe-hierarchical-interactive nil (#$ . -39738)) #@466 *Function used for sorting the group buffer. This function will be called with group info entries as the arguments for the groups to be sorted. Pre-made functions include `gnus-group-sort-by-alphabet', `gnus-group-sort-by-unread', `gnus-group-sort-by-level', `gnus-group-sort-by-score', and `gnus-group-sort-by-rank'. This variable can also be a list of sorting functions. In that case, the most significant sort function should be the last function in the list. (defvar gnus-group-sort-function (quote gnus-group-sort-by-alphabet) (#$ . -40157)) #@33 *Mark used for unread articles. (defvar gnus-unread-mark 32 (#$ . -40712)) #@33 *Mark used for ticked articles. (defvar gnus-ticked-mark 33 (#$ . -40793)) #@34 *Mark used for dormant articles. (defvar gnus-dormant-mark 63 (#$ . -40874)) #@32 *Mark used for del'd articles. (defvar gnus-del-mark 114 (#$ . -40957)) #@31 *Mark used for read articles. (defvar gnus-read-mark 82 (#$ . -41035)) #@36 *Mark used for expirable articles. (defvar gnus-expirable-mark 69 (#$ . -41112)) #@33 *Mark used for killed articles. (defvar gnus-killed-mark 75 (#$ . -41199)) #@33 *Mark used for killed articles. (defvar gnus-souped-mark 70 (#$ . -41280)) #@47 *Mark used for articles killed by kill files. (defvar gnus-kill-file-mark 88 (#$ . -41361)) #@43 *Mark used for articles with a low score. (defvar gnus-low-score-mark 89 (#$ . -41459)) #@45 *Mark used for articles that are caught up. (defvar gnus-catchup-mark 67 (#$ . -41553)) #@52 *Mark used for articles that have been replied to. (defvar gnus-replied-mark 65 (#$ . -41647)) #@48 *Mark used for articles that are in the cache. (defvar gnus-cached-mark 42 (#$ . -41748)) #@50 *Mark used for articles that have been saved to. (defvar gnus-saved-mark 83 (#$ . -41844)) #@16 *Process mark. (defvar gnus-process-mark 35 (#$ . -41941)) #@34 *Mark used for ancient articles. (defvar gnus-ancient-mark 79 (#$ . -42006)) #@42 *Mark used for sparsely reffed articles. (defvar gnus-sparse-mark 81 (#$ . -42089)) #@35 *Mark used for canceled articles. (defvar gnus-canceled-mark 71 (#$ . -42179)) #@49 *Score mark used for articles with high scores. (defvar gnus-score-over-mark 43 (#$ . -42264)) #@48 *Score mark used for articles with low scores. (defvar gnus-score-below-mark 45 (#$ . -42365)) #@40 *There is no thread under the article. (defvar gnus-empty-thread-mark 32 (#$ . -42466)) #@39 *There is a thread under the article. (defvar gnus-not-empty-thread-mark 61 (#$ . -42560)) #@61 *If non-nil, Gnus will view pseudo-articles asynchronously. (defvar gnus-view-pseudo-asynchronously nil (#$ . -42657)) #@175 *If `automatic', pseudo-articles will be viewed automatically. If `not-confirm', pseudos will be viewed automatically, and the user will not be asked to confirm the command. (defvar gnus-view-pseudos nil (#$ . -42783)) #@184 *If non-nil, one pseudo-article will be created for each file to be viewed. If nil, all files that use the same viewing command will be given as a list of parameters to that command. (defvar gnus-view-pseudos-separately t (#$ . -43009)) #@61 *If non-nil, insert pseudo-articles when decoding articles. (defvar gnus-insert-pseudo-articles t (#$ . -43252)) #@2138 *Format of group lines. It works along the same lines as a normal formatting string, with some simple extensions. %M Only marked articles (character, "*" or " ") %S Whether the group is subscribed (character, "U", "K", "Z" or " ") %L Level of subscribedness (integer) %N Number of unread articles (integer) %I Number of dormant articles (integer) %i Number of ticked and dormant (integer) %T Number of ticked articles (integer) %R Number of read articles (integer) %t Total number of articles (integer) %y Number of unread, unticked articles (integer) %G Group name (string) %g Qualified group name (string) %D Group description (string) %s Select method (string) %o Moderated group (char, "m") %p Process mark (char) %O Moderated group (string, "(m)" or "") %P Topic indentation (string) %l Whether there are GroupLens predictions for this group (string) %n Select from where (string) %z A string that look like `<%s:%n>' if a foreign select method is used %u User defined specifier. The next character in the format string should be a letter. Gnus will call the function gnus-user-format-function-X, where X is the letter following %u. The function will be passed the current header as argument. The function should return a string, which will be inserted into the buffer just like information from any other group specifier. Text between %( and %) will be highlighted with `gnus-mouse-face' when the mouse point move inside the area. There can only be one such area. Note that this format specification is not always respected. For reasons of efficiency, when listing killed groups, this specification is ignored altogether. If the spec is changed considerably, your output may end up looking strange when listing both alive and killed groups. If you use %o or %O, reading the active file will be slower and quite a bit of extra memory will be used. %D will also worsen performance. Also note that if you change the format specification to include any of these specs, you must probably re-start Gnus to see them go into effect. (defvar gnus-group-line-format "%M%S%p%P%5y: %(%g%)%l\n" (#$ . -43373)) #@2543 *The format specification of the lines in the summary buffer. It works along the same lines as a normal formatting string, with some simple extensions. %N Article number, left padded with spaces (string) %S Subject (string) %s Subject if it is at the root of a thread, and "" otherwise (string) %n Name of the poster (string) %a Extracted name of the poster (string) %A Extracted address of the poster (string) %F Contents of the From: header (string) %x Contents of the Xref: header (string) %D Date of the article (string) %d Date of the article (string) in DD-MMM format %M Message-id of the article (string) %r References of the article (string) %c Number of characters in the article (integer) %L Number of lines in the article (integer) %I Indentation based on thread level (a string of spaces) %T A string with two possible values: 80 spaces if the article is on thread level two or larger and 0 spaces on level one %R "A" if this article has been replied to, " " otherwise (character) %U Status of this article (character, "R", "K", "-" or " ") %[ Opening bracket (character, "[" or "<") %] Closing bracket (character, "]" or ">") %> Spaces of length thread-level (string) %< Spaces of length (- 20 thread-level) (string) %i Article score (number) %z Article zcore (character) %t Number of articles under the current thread (number). %e Whether the thread is empty or not (character). %l GroupLens score (string). %u User defined specifier. The next character in the format string should be a letter. Gnus will call the function gnus-user-format-function-X, where X is the letter following %u. The function will be passed the current header as argument. The function should return a string, which will be inserted into the summary just like information from any other summary specifier. Text between %( and %) will be highlighted with `gnus-mouse-face' when the mouse point is placed inside the area. There can only be one such area. The %U (status), %R (replied) and %z (zcore) specs have to be handled with care. For reasons of efficiency, Gnus will compute what column these characters will end up in, and "hard-code" that. This means that it is illegal to have these specs after a variable-length spec. Well, you might not be arrested, but your summary buffer will look strange, which is bad enough. The smart choice is to have these specs as for to the left as possible. This restriction may disappear in later versions of Gnus. (defvar gnus-summary-line-format "%U%R%z%I%(%[%4L: %-20,20n%]%) %s\n" (#$ . -45590)) #@177 *The format specification for the dummy roots in the summary buffer. It works along the same lines as a normal formatting string, with some simple extensions. %S The subject (defvar gnus-summary-dummy-line-format "* %(: :%) %S\n" (#$ . -48224)) #@631 *The format specification for the summary mode line. It works along the same lines as a normal formatting string, with some simple extensions: %G Group name %p Unprefixed group name %A Current article number %V Gnus version %U Number of unread articles in the group %e Number of unselected articles in the group %Z A string with unread/unselected article counts %g Shortish group name %S Subject of the current article %u User-defined spec %s Current score file name %d Number of dormant articles %r Number of articles that have been marked as read in this session %E Number of articles expunged by the score files (defvar gnus-summary-mode-line-format "Gnus: %%b [%A] %Z" (#$ . -48504)) #@116 *The format specification for the article mode line. See `gnus-summary-mode-line-format' for a closer description. (defvar gnus-article-mode-line-format "Gnus: %%b %S" (#$ . -49214)) #@228 *The format specification for the group mode line. It works along the same lines as a normal formatting string, with some simple extensions: %S The native news server. %M The native select method. %: ":" if %S isn't "". (defvar gnus-group-mode-line-format "Gnus: %%b {%M%:%S}" (#$ . -49404)) #@388 An alist of valid select methods. The first element of each list lists should be a string with the name of the select method. The other elements may be be the category of this method (ie. `post', `mail', `none' or whatever) or other properties that this method has (like being respoolable). If you implement a new select method, all you should have to change is this variable. I think. (defvar gnus-valid-select-methods (quote (("nntp" post address prompt-address) ("nnspool" post address) ("nnvirtual" post-mail virtual prompt-address) ("nnmbox" mail respool address) ("nnml" mail respool address) ("nnmh" mail respool address) ("nndir" post-mail prompt-address address) ("nneething" none address prompt-address) ("nndoc" none address prompt-address) ("nnbabyl" mail address respool) ("nnkiboze" post virtual) ("nnsoup" post-mail address) ("nndraft" post-mail) ("nnfolder" mail respool address))) (#$ . 49710)) #@297 *List of buffers that should update their mode lines. The list may contain the symbols `group', `article' and `summary'. If the corresponding symbol is present, Gnus will keep that mode line updated with information that may be pertinent. If this variable is nil, screen refresh may be quicker. (defvar gnus-updated-mode-lines (quote (group article summary tree)) (#$ . -50630)) #@139 *Max length of mode-line non-string contents. If this is nil, Gnus will take space as is needed, leaving the rest of the modeline intact. (defvar gnus-mode-non-string-length nil (#$ . -51017)) #@143 *Mark all articles with a score below this variable as read. This variable is local to each summary buffer and usually set by the score file. (defvar gnus-summary-mark-below 0 (#$ . -51217)) #@131 *List of functions used for sorting articles in the summary buffer. This variable is only used when not using a threaded display. (defvar gnus-article-sort-functions (quote (gnus-article-sort-by-number)) (#$ . -51415)) #@677 *List of functions used for sorting threads in the summary buffer. By default, threads are sorted by article number. Each function takes two threads and return non-nil if the first thread should be sorted before the other. If you use more than one function, the primary sort function should be the last. You should probably always include `gnus-thread-sort-by-number' in the list of sorting functions -- preferably first. Ready-mady functions include `gnus-thread-sort-by-number', `gnus-thread-sort-by-author', `gnus-thread-sort-by-subject', `gnus-thread-sort-by-date', `gnus-thread-sort-by-score' and `gnus-thread-sort-by-total-score' (see `gnus-thread-score-function'). (defvar gnus-thread-sort-functions (quote (gnus-thread-sort-by-number)) (#$ . -51641)) #@237 *Function used for calculating the total score of a thread. The function is called with the scores of the article and each subthread and should then return the score of the thread. Some functions you can use are `+', `max', or `min'. (defvar gnus-thread-score-function (quote +) (#$ . -52411)) #@74 All articles that have a score less than this variable will be expunged. (defvar gnus-summary-expunge-below nil (#$ . 52713)) #@160 All threads that have a total score less than this variable will be expunged. See `gnus-thread-score-function' for en explanation of what a "thread score" is. (defvar gnus-thread-expunge-below nil (#$ . 52846)) #@346 *All new groups that match this regexp will be subscribed automatically. Note that this variable only deals with new groups. It has no effect whatsoever on old groups. New groups that match this regexp will not be handled by `gnus-subscribe-newsgroup-method'. Instead, they will be subscribed using `gnus-subscribe-options-newsgroup-method'. (defvar gnus-auto-subscribed-groups "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl" (#$ . -53064)) #@353 *All new groups matching this regexp will be subscribed unconditionally. Note that this variable deals only with new newsgroups. This variable does not affect old newsgroups. New groups that match this regexp will not be handled by `gnus-subscribe-newsgroup-method'. Instead, they will be subscribed using `gnus-subscribe-options-newsgroup-method'. (defvar gnus-options-subscribe nil (#$ . -53516)) #@179 *All new groups matching this regexp will be ignored. Note that this variable deals only with new newsgroups. This variable does not affect old (already subscribed) newsgroups. (defvar gnus-options-not-subscribe nil (#$ . -53925)) #@206 *Groups in which to automatically mark read articles as expirable. If non-nil, this should be a regexp that should match all groups in which to perform auto-expiry. This only makes sense for mail groups. (defvar gnus-auto-expirable-newsgroups nil (#$ . -54164)) #@270 *Groups in which to perform expiry of all read articles. Use with extreme caution. All groups that match this regexp will be expiring - which means that all read articles will be deleted after (say) one week. (This only goes for mail groups and the like, of course.) (defvar gnus-total-expirable-newsgroups nil (#$ . -54434)) #@78 Number of group name elements to leave alone when making a short group name. (defvar gnus-group-uncollapsed-levels 1 (#$ . 54768)) #@39 Property list to use for hiding text. (defvar gnus-hidden-properties (quote (invisible t intangible t)) (#$ . 54905)) #@133 *Non-nil means .newsrc should be deleted prior to save. Its use is due to the bogus appearance that .newsrc was modified on disc. (defvar gnus-modtime-botch nil (#$ . -55030)) #@30 *A hook for Gnus group mode. (defvar gnus-group-mode-hook nil (#$ . -55214)) #@101 *A hook for Gnus summary mode. This hook is run before any variables are set in the summary buffer. (defvar gnus-summary-mode-hook nil (#$ . -55298)) #@32 *A hook for Gnus article mode. (defvar gnus-article-mode-hook nil (#$ . -55454)) #@116 *A hook called when preparing to exit from the summary buffer. It calls `gnus-summary-expire-articles' by default. (defvar gnus-summary-prepare-exit-hook nil (#$ . -55542)) (add-hook (quote gnus-summary-prepare-exit-hook) (quote gnus-summary-expire-articles)) #@49 *A hook called on exit from the summary buffer. (defvar gnus-summary-exit-hook nil (#$ . -55808)) #@61 *A hook run when catching up a group from the group buffer. (defvar gnus-group-catchup-group-hook nil (#$ . -55912)) #@43 *A hook called when updating group lines. (defvar gnus-group-update-group-hook nil (#$ . -56035)) #@67 *A hook called just before opening connection to the news server. (defvar gnus-open-server-hook nil (#$ . -56139)) #@35 *A hook run while Gnus is loaded. (defvar gnus-load-hook nil (#$ . -56260)) #@92 *A hook called at startup. This hook is called after Gnus is connected to the NNTP server. (defvar gnus-startup-hook nil (#$ . -56342)) #@51 *A hook run just before Gnus checks for new news. (defvar gnus-get-new-news-hook nil (#$ . -56484)) #@45 *A hook run after Gnus checks for new news. (defvar gnus-after-getting-new-news-hook nil (#$ . -56590)) #@440 *A function that is called to generate the group buffer. The function is called with three arguments: The first is a number; all group with a level less or equal to that number should be listed, if the second is non-nil, empty groups should also be displayed. If the third is non-nil, it is a number. No groups with a level lower than this number should be displayed. The only current function implemented is `gnus-group-prepare-flat'. (defvar gnus-group-prepare-function (quote gnus-group-prepare-flat) (#$ . -56701)) #@122 *A hook called after the group buffer has been generated. If you want to modify the group buffer, you can use this hook. (defvar gnus-group-prepare-hook nil (#$ . -57230)) #@126 *A hook called after the summary buffer has been generated. If you want to modify the summary buffer, you can use this hook. (defvar gnus-summary-prepare-hook nil (#$ . -57409)) #@130 *A hook run just before generating the summary buffer. This hook is commonly used to customize threading variables and the like. (defvar gnus-summary-generate-hook nil (#$ . -57594)) #@145 *A hook called after an article has been prepared in the article buffer. If you want to run a special decoding program like nkf, use this hook. (defvar gnus-article-prepare-hook nil (#$ . -57784)) #@70 Regexp matching posters whose face shouldn't be shown automatically. (defvar gnus-article-x-face-too-ugly nil (#$ . 57987)) #@412 *A hook called when a newsgroup is selected. If you'd like to simplify subjects like the `gnus-summary-next-same-subject' command does, you can use the following hook: (setq gnus-select-group-hook (list (lambda () (mapcar (lambda (header) (mail-header-set-subject header (gnus-simplify-subject (mail-header-subject header) 're-only))) gnus-newsgroup-headers)))) (defvar gnus-select-group-hook nil (#$ . -58118)) #@45 *A hook called when an article is selected. (defvar gnus-select-article-hook nil (#$ . -58585)) #@630 *A hook called to apply kill files to a group. This hook is intended to apply a kill file to the selected newsgroup. The function `gnus-apply-kill-file' is called by default. Since a general kill file is too heavy to use only for a few newsgroups, I recommend you to use a lighter hook function. For example, if you'd like to apply a kill file to articles which contains a string `rmgroup' in subject in newsgroup `control', you can use the following hook: (setq gnus-apply-kill-hook (list (lambda () (cond ((string-match "control" gnus-newsgroup-name) (gnus-kill "Subject" "rmgroup") (gnus-expunge "X")))))) (defvar gnus-apply-kill-hook (quote (gnus-apply-kill-file)) (#$ . -58688)) #@166 *Hook run after selecting an article in the summary buffer. It is meant to be used for highlighting the article in some way. It is not run if `gnus-visual' is nil. (defvar gnus-visual-mark-article-hook (list (quote gnus-highlight-selected-summary)) (#$ . -59399)) #@44 *A hook called before parsing the headers. (defvar gnus-parse-headers-hook nil (#$ . -59670)) (add-hook (quote gnus-parse-headers-hook) (quote gnus-decode-rfc1522)) #@58 *A hook called when exiting (not quitting) summary mode. (defvar gnus-exit-group-hook nil (#$ . -59841)) #@52 *A hook called when suspending (not exiting) Gnus. (defvar gnus-suspend-gnus-hook nil (#$ . -59952)) #@35 *A hook called when exiting Gnus. (defvar gnus-exit-gnus-hook nil (#$ . -60059)) #@36 *A hook called after exiting Gnus. (defvar gnus-after-exiting-gnus-hook nil (#$ . -60146)) #@55 *A hook called before saving any of the newsrc files. (defvar gnus-save-newsrc-hook nil (#$ . -60243)) #@105 *A hook called just before saving the quick newsrc file. Can be used to turn version control on or off. (defvar gnus-save-quick-newsrc-hook nil (#$ . -60353)) #@108 *A hook called just before saving the standard newsrc file. Can be used to turn version control on or off. (defvar gnus-save-standard-newsrc-hook nil (#$ . -60519)) #@229 *A hook called when a summary line is changed. The hook will not be called if `gnus-visual' is nil. The default function `gnus-summary-highlight-line' will highlight the line according to the `gnus-summary-highlight' variable. (defvar gnus-summary-update-hook (list (quote gnus-summary-highlight-line)) (#$ . -60691)) #@223 *A hook called when a group line is changed. The hook will not be called if `gnus-visual' is nil. The default function `gnus-group-highlight-line' will highlight the line according to the `gnus-group-highlight' variable. (defvar gnus-group-update-hook (quote (gnus-group-highlight-line)) (#$ . -61017)) #@159 *A hook called when an article is selected for the first time. The hook is intended to mark an article as read (or unread) automatically when it is selected. (defvar gnus-mark-article-hook (quote (gnus-summary-mark-read-and-unread-as-read)) (#$ . -61328)) #@110 Function run when a group level is changed. It is called with three parameters -- GROUP, LEVEL and OLDLEVEL. (defvar gnus-group-change-level-function nil (#$ . 61591)) (add-hook (quote gnus-startup-hook) #[nil "ﾀﾁﾂ\"安ﾁﾃ\"案ﾀﾆﾂ\"" [remove-hook gnus-summary-prepare-hook hilit-rehighlight-buffer-quietly hilit-install-line-hooks (gnus-summary-mark-read-and-unread-as-read) gnus-mark-article-hook gnus-article-prepare-hook] 3]) #@47 Buffer where Gnus thread trees are displayed. (defvar gnus-tree-buffer "*Tree*" (#$ . 62025)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾀﾅ!!ﾅ Bﾀﾇ!.ﾂﾇ Bﾀﾈ!;ﾂﾈ Bﾀﾉ!Зﾂ ﾉ Bﾂ" [boundp gnus-use-generic-from nil current-load-list gnus-thread-indent-array gnus-thread-indent-array-level gnus-thread-indent-level gnus-newsrc-file-version gnus-method-history gnus-group-history] 2) #@28 List of available servers. (defvar gnus-server-alist nil (#$ . 62418)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾅﾄ Bﾀﾆ!!ﾂﾆ Bﾀﾇ!.ﾂﾇ Bﾂ" [boundp gnus-group-indentation-function nil current-load-list gnus-topic-indentation "" gnus-goto-missing-group-function gnus-override-subscribe-method] 2) #@67 Function to override finding the next group after listing groups. (defvar gnus-group-goto-next-group-function nil (#$ . 62717)) (byte-code "ﾀﾁ\nBﾃﾄ!ﾅﾄ\nBﾃﾆ!ﾅﾆ\nBﾃﾇ!(ﾅﾇ\nBﾃﾈ!5ﾉﾈ\nBﾃﾊ!Вﾅ\nﾊ\nBﾃﾋ!Оﾅ ﾋ\nBﾃﾌ!Ы\ﾅ\fﾌ\nBﾃﾍ!iﾅ ﾍ\nBﾃﾎ!ёﾅﾎ\nBﾃﾏ!сﾅﾏ\nBﾃﾐ!юﾅﾐ\nBﾃﾑ!ﾅﾑ\nBﾃﾒ!━ﾅﾒ\nBﾃﾓ!┨ﾅﾓ\nBﾃﾔ!ﾄﾅﾔ\nBﾃﾕ!ﾑﾅﾕ\nBﾃﾖ!ﾞﾅﾖ\nBﾃﾗ!ﾅﾗ\nBﾃﾘ!ﾅﾘ\nBﾃﾙ!ﾅﾙ\nBﾃﾚ!ﾅﾚ\nBﾛﾜ\nBﾃﾝ!&ﾅﾝ\nBﾃﾞ!3ﾅﾞ\nBﾃﾟ!Аﾅﾟ\nBﾅ" [((marked . tick) (replied . reply) (expirable . expire) (killed . killed) (bookmarks . bookmark) (dormant . dormant) (scored . score) (saved . save) (cached . cache)) gnus-article-mark-lists current-load-list boundp gnus-summary-inhibit-highlight nil gnus-newsgroup-selected-overlay gnus-inhibit-hiding gnus-group-indentation "" gnus-inhibit-limiting gnus-created-frames gnus-article-mode-map gnus-dribble-buffer gnus-headers-retrieved-by gnus-article-reply gnus-override-method gnus-article-check-size gnus-current-score-file gnus-newsgroup-adaptive-score-file gnus-scores-exclude-files gnus-opened-servers gnus-current-move-group gnus-current-copy-group gnus-current-crosspost-group gnus-newsgroup-dependencies gnus-newsgroup-async "*Gnus edit newsgroup*" gnus-group-edit-buffer gnus-newsgroup-adaptive gnus-summary-display-table gnus-summary-display-article-function] 2) #@52 Function called after highlighting a summary line. (defvar gnus-summary-highlight-line-function nil (#$ . 64095)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀ" [boundp gnus-group-line-format-alist ((77 gnus-tmp-marked-mark 99) (83 gnus-tmp-subscribed 99) (76 gnus-tmp-level 100) (78 (cond ((eq number t) "*") ((numberp number) (int-to-string (+ number (gnus-range-length (cdr (assq (quote dormant) gnus-tmp-marked))) (gnus-range-length (cdr (assq (quote tick) gnus-tmp-marked)))))) (t number)) 115) (82 gnus-tmp-number-of-read 115) (116 gnus-tmp-number-total 100) (121 gnus-tmp-number-of-unread 115) (73 (gnus-range-length (cdr (assq (quote dormant) gnus-tmp-marked))) 100) (84 (gnus-range-length (cdr (assq (quote tick) gnus-tmp-marked))) 100) (105 (+ (gnus-range-length (cdr (assq (quote dormant) gnus-tmp-marked))) (gnus-range-length (cdr (assq (quote tick) gnus-tmp-marked)))) 100) (103 gnus-tmp-group 115) (71 gnus-tmp-qualified-group 115) (99 (gnus-short-group-name gnus-tmp-group) 115) (68 gnus-tmp-newsgroup-description 115) (111 gnus-tmp-moderated 99) (79 gnus-tmp-moderated-string 115) (112 gnus-tmp-process-marked 99) (115 gnus-tmp-news-server 115) (110 gnus-tmp-news-method 115) (80 gnus-group-indentation 115) (108 gnus-tmp-grouplens 115) (122 gnus-tmp-news-method-string 115) (117 gnus-tmp-user-defined 115)) current-load-list] 2) #@181 An alist of format specifications that can appear in summary lines, and what variables they correspond with, along with the type of the variable (string, integer, character, etc). (defvar gnus-summary-line-format-alist (byte-code "ﾀﾁﾂ!ﾃBBﾄﾁﾅ!ﾆBBﾇﾈﾉﾊﾋﾌﾁﾍ!ﾎBBﾏﾁﾐ!ﾑBBﾒﾓﾁﾔ!ﾕBBﾖﾁﾗ!ﾘBBﾙBBBBBBBBBBBB" [78 macroexpand (mail-header-number gnus-tmp-header) (100) 83 (mail-header-subject gnus-tmp-header) (115) (115 gnus-tmp-subject-or-nil 115) (110 gnus-tmp-name 115) (65 (car (cdr (funcall gnus-extract-address-components gnus-tmp-from))) 115) (97 (or (car (funcall gnus-extract-address-components gnus-tmp-from)) gnus-tmp-from) 115) (70 gnus-tmp-from 115) 120 (mail-header-xref gnus-tmp-header) (115) 68 (mail-header-date gnus-tmp-header) (115) (100 (gnus-dd-mmm (mail-header-date gnus-tmp-header)) 115) 77 (mail-header-id gnus-tmp-header) (115) 114 (mail-header-references gnus-tmp-header) (115) ((99 (or (mail-header-chars gnus-tmp-header) 0) 100) (76 gnus-tmp-lines 100) (73 gnus-tmp-indentation 115) (84 (if (= gnus-tmp-level 0) "" (make-string (frame-width) 32)) 115) (82 gnus-tmp-replied 99) (91 gnus-tmp-opening-bracket 99) (93 gnus-tmp-closing-bracket 99) (62 (make-string gnus-tmp-level 32) 115) (60 (make-string (max 0 (- 20 gnus-tmp-level)) 32) 115) (105 gnus-tmp-score 100) (122 gnus-tmp-score-char 99) (108 (bbb-grouplens-score gnus-tmp-header) 115) (86 (gnus-thread-total-score (and (boundp (quote thread)) (car thread))) 100) (85 gnus-tmp-unread 99) (116 (gnus-summary-number-of-articles-in-thread (and (boundp (quote thread)) (car thread)) gnus-tmp-level) 100) (101 (gnus-summary-number-of-articles-in-thread (and (boundp (quote thread)) (car thread)) gnus-tmp-level t) 99) (117 gnus-tmp-user-defined 115))] 14) (#$ . 65429)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾅﾄ Bﾀﾆ!!\fﾆ Bﾀﾇ!.ﾈﾇ Bﾀﾉ!;ﾊ ﾉ Bﾊ" [boundp gnus-summary-dummy-line-format-alist ((83 gnus-tmp-subject 115) (78 gnus-tmp-number 100) (117 gnus-tmp-user-defined 115)) current-load-list gnus-summary-mode-line-format-alist ((71 gnus-tmp-group-name 115) (103 (gnus-short-group-name gnus-tmp-group-name) 115) (112 (gnus-group-real-name gnus-tmp-group-name) 115) (65 gnus-tmp-article-number 100) (90 gnus-tmp-unread-and-unselected 115) (86 gnus-version 115) (85 gnus-tmp-unread-and-unticked 100) (83 gnus-tmp-subject 115) (101 gnus-tmp-unselected 100) (117 gnus-tmp-user-defined 115) (100 (length gnus-newsgroup-dormant) 100) (116 (length gnus-newsgroup-marked) 100) (114 (length gnus-newsgroup-reads) 100) (69 gnus-newsgroup-expunged-tally 100) (115 (gnus-current-score-file-nondirectory) 115)) gnus-article-mode-line-format-alist gnus-group-mode-line-format-alist ((83 gnus-tmp-news-server 115) (77 gnus-tmp-news-method 115) (117 gnus-tmp-user-defined 115) (58 gnus-tmp-colon 115)) gnus-have-read-active-file nil] 2) #@43 The mail address of the Gnus maintainers. (defconst gnus-maintainer "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" (#$ . 68227)) #@42 Version number for this version of Gnus. (defconst gnus-version-number "5.3" (#$ . 68371)) #@42 Version string for this version of Gnus. (defconst gnus-version (format "Gnus v%s" gnus-version-number) (#$ . 68468)) #@46 Alist of major modes and related Info nodes. (defvar gnus-info-nodes (quote ((gnus-group-mode "(gnus)The Group Buffer") (gnus-summary-mode "(gnus)The Summary Buffer") (gnus-article-mode "(gnus)The Article Buffer") (gnus-server-mode "(gnus)The Server Buffer") (gnus-browse-mode "(gnus)Browse Foreign Server") (gnus-tree-mode "(gnus)Tree Display"))) (#$ . 68592)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾅﾄ Bﾀﾆ!!ﾇﾆ Bﾀﾈ!.ﾉﾈ Bﾀﾊ!;ﾋ\nﾊ Bﾀﾌ!Зﾍ\fﾌ Bﾀﾎ!Фﾏﾎ Bﾏ" [boundp gnus-group-buffer "*Group*" current-load-list gnus-summary-buffer "*Summary*" gnus-article-buffer "*Article*" gnus-server-buffer "*Server*" gnus-work-buffer " *gnus work*" gnus-original-article-buffer " *Original Article*" gnus-original-article nil] 2) #@45 Gnus buffers that should be killed on exit. (defvar gnus-buffer-list nil (#$ . 69328)) #@38 Whether this Gnus is a slave or not. (defvar gnus-slave nil (#$ . 69421)) #@49 Gnus variables saved in the quick startup file. (defvar gnus-variable-list (quote (gnus-newsrc-options gnus-newsrc-options-n gnus-newsrc-last-checked-date gnus-newsrc-alist gnus-server-alist gnus-killed-list gnus-zombie-list gnus-topic-topology gnus-topic-alist gnus-format-specs)) (#$ . 69501)) #@35 Options line in the .newsrc file. (defvar gnus-newsrc-options nil (#$ . 69803)) #@79 List of regexps representing groups to be subscribed/ignored unconditionally. (defvar gnus-newsrc-options-n nil (#$ . 69889)) #@49 Date Gnus last asked server for new newsgroups. (defvar gnus-newsrc-last-checked-date nil (#$ . 70021)) #@31 The complete topic hierarchy. (defvar gnus-topic-topology nil (#$ . 70131)) #@33 The complete topic-group alist. (defvar gnus-topic-alist nil (#$ . 70213)) #@104 Assoc list of read articles. gnus-newsrc-hashtb should be kept so that both hold the same information. (defvar gnus-newsrc-alist nil (#$ . 70295)) #@33 Hashtable of gnus-newsrc-alist. (defvar gnus-newsrc-hashtb nil (#$ . 70448)) #@28 List of killed newsgroups. (defvar gnus-killed-list nil (#$ . 70531)) #@44 Hash table equivalent of gnus-killed-list. (defvar gnus-killed-hashtb nil (#$ . 70607)) #@33 List of almost dead newsgroups. (defvar gnus-zombie-list nil (#$ . 70701)) #@29 Descriptions of newsgroups. (defvar gnus-description-hashtb nil (#$ . 70782)) #@64 List of newsgroups that have recently been killed by the user. (defvar gnus-list-of-killed-groups nil (#$ . 70866)) #@31 Hashtable of active articles. (defvar gnus-active-hashtb nil (#$ . 70988)) #@31 List of moderated newsgroups. (defvar gnus-moderated-list nil (#$ . 71069)) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-group-marked nil current-load-list] 2) #@36 Startup file for the current host. (defvar gnus-current-startup-file nil (#$ . 71231)) #@44 Default regexp for article search command. (defvar gnus-last-search-regexp nil (#$ . 71324)) #@35 Default shell command on article. (defvar gnus-last-shell-command nil (#$ . 71423)) #@47 The current method for selecting a newsgroup. (defvar gnus-current-select-method nil (#$ . 71513)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾀﾅ! ﾂﾅ Bﾀﾆ!-ﾂﾆ Bﾀﾇ!:ﾂﾇ Bﾀﾈ!Жﾂﾈ Bﾀﾉ!Уﾂ ﾉ Bﾀﾊ!aﾂ\nﾊ Bﾀﾋ!nﾂ ﾋ Bﾀﾌ!кﾂ\fﾌ Bﾀﾍ!цﾂ ﾍ Bﾀﾎ!ﾂﾎ Bﾀﾏ!┐ﾂﾏ Bﾀﾐ!┗ﾂﾐ Bﾀﾑ!┥ﾂﾑ Bﾂ" [boundp gnus-group-list-mode nil current-load-list gnus-article-internal-prepare-hook gnus-newsgroup-name gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder gnus-newsgroup-last-file gnus-newsgroup-auto-expire gnus-newsgroup-active gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-limit gnus-newsgroup-limits] 2) #@51 List of unread articles in the current newsgroup. (defvar gnus-newsgroup-unreads nil (#$ . 72221)) #@62 List of unselected unread articles in the current newsgroup. (defvar gnus-newsgroup-unselected nil (#$ . 72326)) #@68 Alist of read articles and article marks in the current newsgroup. (defvar gnus-newsgroup-reads nil (#$ . 72445)) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-newsgroup-expunged-tally nil current-load-list] 2) #@76 List of ticked articles in the current newsgroup (a subset of unread art). (defvar gnus-newsgroup-marked nil (#$ . 72657)) #@72 List of ranges of articles that have been through the scoring process. (defvar gnus-newsgroup-killed nil (#$ . 72786)) #@52 List of articles that come from the article cache. (defvar gnus-newsgroup-cached nil (#$ . 72911)) #@40 List of articles that have been saved. (defvar gnus-newsgroup-saved nil (#$ . 73016)) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-newsgroup-kill-headers nil current-load-list] 2) #@70 List of articles that have been replied to in the current newsgroup. (defvar gnus-newsgroup-replied nil (#$ . 73198)) #@64 List of articles in the current newsgroup that can be expired. (defvar gnus-newsgroup-expirable nil (#$ . 73322)) #@66 List of articles in the current newsgroup that can be processed. (defvar gnus-newsgroup-processable nil (#$ . 73442)) #@64 List of articles in the current newsgroup that have bookmarks. (defvar gnus-newsgroup-bookmarks nil (#$ . 73566)) #@52 List of dormant articles in the current newsgroup. (defvar gnus-newsgroup-dormant nil (#$ . 73686)) #@51 List of scored articles in the current newsgroup. (defvar gnus-newsgroup-scored nil (#$ . 73792)) #@51 List of article headers in the current newsgroup. (defvar gnus-newsgroup-headers nil (#$ . 73896)) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-newsgroup-threads nil current-load-list] 2) #@55 Whether the current group has been prepared properly. (defvar gnus-newsgroup-prepared nil (#$ . 74086)) #@69 List of `gnus-fetch-old-headers' articles in the current newsgroup. (defvar gnus-newsgroup-ancient nil (#$ . 74196)) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾀﾅ! ﾂﾅ Bﾀﾆ!-ﾂﾆ Bﾀﾇ!:ﾂﾇ Bﾀﾈ!Жﾂﾈ Bﾀﾉ!Уﾂ ﾉ Bﾀﾊ!aﾂ\nﾊ Bﾀﾋ!nﾂ ﾋ Bﾀﾌ!кﾂ\fﾌ Bﾀﾍ!цﾂ ﾍ Bﾀﾎ!ﾂﾎ Bﾏ Bﾀﾐ!┬ﾂﾐ Bﾀﾑ!┻ﾂﾑ Bﾂ" [boundp gnus-newsgroup-sparse nil current-load-list gnus-current-article gnus-article-current gnus-current-headers gnus-have-all-headers gnus-last-article gnus-newsgroup-history gnus-current-kill-article gnus-prev-winconf gnus-summary-mark-positions gnus-group-mark-positions gnus-reffed-article-number rmail-default-rmail-file gnus-cache-removable-articles gnus-dead-summary] 2) #@57 Variables that are buffer-local to the summary buffers. (defconst gnus-summary-local-variables (quote (gnus-newsgroup-name gnus-newsgroup-begin gnus-newsgroup-end gnus-newsgroup-last-rmail gnus-newsgroup-last-mail gnus-newsgroup-last-folder gnus-newsgroup-last-file gnus-newsgroup-auto-expire gnus-newsgroup-unreads gnus-newsgroup-unselected gnus-newsgroup-marked gnus-newsgroup-reads gnus-newsgroup-saved gnus-newsgroup-replied gnus-newsgroup-expirable gnus-newsgroup-processable gnus-newsgroup-killed gnus-newsgroup-bookmarks gnus-newsgroup-dormant gnus-newsgroup-headers gnus-newsgroup-threads gnus-newsgroup-prepared gnus-summary-highlight-line-function gnus-current-article gnus-current-headers gnus-have-all-headers gnus-last-article gnus-article-internal-prepare-hook gnus-newsgroup-dependencies gnus-newsgroup-selected-overlay gnus-newsgroup-scored gnus-newsgroup-kill-headers gnus-newsgroup-async gnus-thread-expunge-below gnus-score-alist gnus-current-score-file gnus-summary-expunge-below (gnus-summary-mark-below . global) gnus-newsgroup-active gnus-scores-exclude-files gnus-newsgroup-history gnus-newsgroup-ancient gnus-newsgroup-sparse (gnus-newsgroup-adaptive . gnus-use-adaptive-scoring) gnus-newsgroup-adaptive-score-file (gnus-newsgroup-expunged-tally . 0) gnus-cache-removable-articles gnus-newsgroup-cached gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-limit gnus-newsgroup-limits)) (#$ . 74900)) (byte-code "ﾀﾁ\nBﾃﾄﾅ\"鞍ﾇﾈ\"鞍ﾉﾈ\"" ["Sending a bug report to the Gnus Towers.\n========================================\n\nThe buffer below is a mail buffer. When you press `C-c C-c', it will\nbe sent to the Gnus Bug Exterminators.\n\nAt the bottom of the buffer you'll see lots of variable settings.\nPlease do not delete those. They will tell the Bug People what your\nenvironment is, so that it will be easier to locate the bugs.\n\nIf you have found a bug that makes Emacs go \"beep\", set\ndebug-on-error to t (`M-x set-variable RET debug-on-error RET t RET')\nand include the backtrace in your bug report.\n\nPlease describe the bug in annoying, painstaking detail.\n\nThank you for your help in stamping out bugs.\n" gnus-bug-message current-load-list mapcar #[(package) "ﾀ >A@ﾃﾄ A@ﾀ= AAA A\")" [:interactive package interactive mapcar #[(function) "ﾀ\n:ﾁ\n>@\n@ﾃ\n\f@ﾀ %)" [nil keymap function autoload package interactive] 6]] 4] (("metamail" metamail-buffer) ("info" Info-goto-node) ("hexl" hexl-hex-string-to-integer) ("pp" pp pp-to-string pp-eval-expression) ("mail-extr" mail-extract-address-components) ("nnmail" nnmail-split-fancy nnmail-article-group) ("nnvirtual" nnvirtual-catchup-group) ("timezone" timezone-make-date-arpa-standard timezone-fix-time timezone-make-sortable-date timezone-make-time-string) ("rmailout" rmail-output) ("rmail" rmail-insert-rmail-file-header rmail-count-new-messages rmail-show-message) ("gnus-soup" :interactive t gnus-group-brew-soup gnus-brew-soup gnus-soup-add-article gnus-soup-send-replies gnus-soup-save-areas gnus-soup-pack-packet) ("nnsoup" nnsoup-pack-replies) ("score-mode" :interactive t gnus-score-mode) ("gnus-mh" gnus-mh-mail-setup gnus-summary-save-article-folder gnus-Folder-save-name gnus-folder-save-name) ("gnus-mh" :interactive t gnus-summary-save-in-folder) ("gnus-vis" gnus-group-make-menu-bar gnus-summary-make-menu-bar gnus-server-make-menu-bar gnus-article-make-menu-bar gnus-browse-make-menu-bar gnus-highlight-selected-summary gnus-summary-highlight-line gnus-carpal-setup-buffer gnus-group-highlight-line gnus-article-add-button gnus-insert-next-page-button gnus-insert-prev-page-button gnus-visual-turn-off-edit-menu) ("gnus-vis" :interactive t gnus-article-push-button gnus-article-press-button gnus-article-highlight gnus-article-highlight-some gnus-article-highlight-headers gnus-article-highlight-signature gnus-article-add-buttons gnus-article-add-buttons-to-head gnus-article-next-button gnus-article-prev-button) ("gnus-demon" gnus-demon-add-nocem gnus-demon-add-scanmail gnus-demon-add-disconnection gnus-demon-add-handler gnus-demon-remove-handler) ("gnus-demon" :interactive t gnus-demon-init gnus-demon-cancel) ("gnus-salt" gnus-highlight-selected-tree gnus-possibly-generate-tree gnus-tree-open gnus-tree-close) ("gnus-nocem" gnus-nocem-scan-groups gnus-nocem-close gnus-nocem-unwanted-article-p) ("gnus-srvr" gnus-enter-server-buffer gnus-server-set-info) ("gnus-srvr" gnus-browse-foreign-server) ("gnus-cite" :interactive t gnus-article-highlight-citation gnus-article-hide-citation-maybe gnus-article-hide-citation gnus-article-fill-cited-article gnus-article-hide-citation-in-followups) ("gnus-kill" gnus-kill gnus-apply-kill-file-internal gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author gnus-execute gnus-expunge) ("gnus-cache" gnus-cache-possibly-enter-article gnus-cache-save-buffers gnus-cache-possibly-remove-articles gnus-cache-request-article gnus-cache-retrieve-headers gnus-cache-possibly-alter-active gnus-cache-enter-remove-article gnus-cached-article-p gnus-cache-open gnus-cache-close gnus-cache-update-article) ("gnus-cache" :interactive t gnus-jog-cache gnus-cache-enter-article gnus-cache-remove-article) ("gnus-score" :interactive t gnus-summary-increase-score gnus-summary-lower-score gnus-score-flush-cache gnus-score-close gnus-score-raise-same-subject-and-select gnus-score-raise-same-subject gnus-score-default gnus-score-raise-thread gnus-score-lower-same-subject-and-select gnus-score-lower-same-subject gnus-score-lower-thread gnus-possibly-score-headers gnus-summary-raise-score gnus-summary-set-score gnus-summary-current-score) ("gnus-score" (gnus-summary-score-map keymap) gnus-score-save gnus-score-headers gnus-current-score-file-nondirectory gnus-score-adaptive gnus-score-find-trace gnus-score-file-name) ("gnus-edit" :interactive t gnus-score-customize) ("gnus-topic" :interactive t gnus-topic-mode) ("gnus-topic" gnus-topic-remove-group) ("gnus-salt" :interactive t gnus-pick-mode gnus-binary-mode) ("gnus-uu" (gnus-uu-extract-map keymap) (gnus-uu-mark-map keymap)) ("gnus-uu" :interactive t gnus-uu-digest-mail-forward gnus-uu-digest-post-forward gnus-uu-mark-series gnus-uu-mark-region gnus-uu-mark-buffer gnus-uu-mark-by-regexp gnus-uu-mark-all gnus-uu-mark-sparse gnus-uu-mark-thread gnus-uu-decode-uu gnus-uu-decode-uu-and-save gnus-uu-decode-unshar gnus-uu-decode-unshar-and-save gnus-uu-decode-save gnus-uu-decode-binhex gnus-uu-decode-uu-view gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view gnus-uu-decode-binhex-view) ("gnus-msg" (gnus-summary-send-map keymap) gnus-mail-yank-original gnus-mail-send-and-exit gnus-article-mail gnus-new-mail gnus-mail-reply) ("gnus-msg" :interactive t gnus-group-post-news gnus-group-mail gnus-summary-post-news gnus-summary-followup gnus-summary-followup-with-original gnus-summary-cancel-article gnus-summary-supersede-article gnus-post-news gnus-inews-news gnus-summary-reply gnus-summary-reply-with-original gnus-summary-mail-forward gnus-summary-mail-other-window gnus-bug) ("gnus-picon" :interactive t gnus-article-display-picons gnus-group-display-picons gnus-picons-article-display-x-face gnus-picons-display-x-face) ("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p gnus-grouplens-mode) ("smiley" :interactive t gnus-smiley-display) ("gnus-vm" gnus-vm-mail-setup) ("gnus-vm" :interactive t gnus-summary-save-in-vm gnus-summary-save-article-vm)) defalias gnus-summary-position-point gnus-goto-colon gnus-group-position-point] 3) (defalias 'gnus-header-from #[(header) "ﾁH" [header 2] 2]) #@72 Pop to BUFFER, evaluate FORMS, and then return to the original window. (defalias 'gnus-eval-in-buffer-window '(macro . #[(buffer &rest forms) "ﾀﾁ!ﾀﾂ!ﾀﾃ!ﾇﾈB\f D ﾊ\fﾋBBDEﾌﾍﾎ ﾏ Dﾐ\fDFBBﾏDEE+" [make-symbol "GnusStartBufferWindow" "w" "buf" buf w tempvar let* ((selected-window)) buffer get-buffer-window ((quote visible)) unwind-protect progn if select-window pop-to-buffer forms] 9 (#$ . 82526)])) (byte-code "ﾀﾁﾂﾃ#安ﾁﾄﾃ#安ﾁﾅﾆ#" [put gnus-eval-in-buffer-window lisp-indent-function 1 lisp-indent-hook edebug-form-spec (form body)] 4) #@40 Get hash value of STRING in HASHTABLE. (defalias 'gnus-gethash '(macro . #[(string hashtable) "ﾀﾁ\n ED" [symbol-value intern-soft string hashtable] 4 (#$ . 83076)])) #@62 Set hash value. Arguments are STRING, VALUE, and HASHTABLE. (defalias 'gnus-sethash '(macro . #[(string value hashtable) "ﾀﾁ\n E\fE" [set intern string hashtable value] 4 (#$ . 83249)])) #@62 Set hash value. Arguments are STRING, VALUE, and HASHTABLE. (defalias 'gnus-intern-safe '(macro . #[(string hashtable) "ﾀﾁﾂ \fEDCﾅBB" [let symbol intern string hashtable ((or (boundp symbol) (set symbol nil)) symbol)] 5 (#$ . 83444)])) #@64 Get the currently computed number of unread articles in GROUP. (defalias 'gnus-group-unread '(macro . #[(group) "ﾀﾁ\nﾃBBD" [car gnus-gethash group (gnus-newsrc-hashtb)] 4 (#$ . 83688)])) #@33 Get the newsrc entry for GROUP. (defalias 'gnus-group-entry '(macro . #[(group) "ﾀ ﾂBB" [gnus-gethash group (gnus-newsrc-hashtb)] 3 (#$ . 83882)])) #@27 Get active info on GROUP. (defalias 'gnus-active '(macro . #[(group) "ﾀ ﾂBB" [gnus-gethash group (gnus-active-hashtb)] 3 (#$ . 84037)])) #@26 Set GROUP's active info. (defalias 'gnus-set-active '(macro . #[(group active) "ﾀ \nﾃBBB" [gnus-sethash group active (gnus-active-hashtb)] 4 (#$ . 84181)])) (defalias 'gnus-truncate-string #[(str width) "ﾁ\nO" [str 0 width] 3]) (defalias 'gnus-limit-string #[(str width) "G Vソfﾂ O" [str width 0] 3]) (put (quote gnus-limit-string) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Remove "Re:" from subject lines. (defalias 'gnus-simplify-subject-re #[(subject) "ﾀﾁ\n\" \nﾃ米O\n" [string-match "^[Rr][Ee]: *" subject 0 nil] 3 (#$ . 84587)]) (put (quote gnus-simplify-subject-re) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Return non-nil if FORM is funcallable. (defalias 'gnus-functionp #[(form) "9 ﾁ!<@ﾂ=" [form fboundp lambda] 2 (#$ . 84854)]) (put (quote gnus-functionp) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'gnus-goto-char #[(point) "b" [point] 1]) (put (quote gnus-goto-char) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'gnus-buffer-exists-p '(macro . #[(buffer) "ﾀﾁ DCﾂBB" [let buffer ((and buffer (funcall (if (stringp buffer) (quote get-buffer) (quote buffer-name)) buffer)))] 3])) (defalias 'gnus-kill-buffer '(macro . #[(buffer) "ﾀﾁ\nDCﾃBB" [let buf buffer ((if (gnus-buffer-exists-p buf) (kill-buffer buf)))] 3])) #@44 Return point at the beginning of the line. (defalias 'gnus-point-at-bol #[nil "`ﾁy`b)" [p 0] 2 (#$ . 85541)]) (put (quote gnus-point-at-bol) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Return point at the end of the line. (defalias 'gnus-point-at-eol #[nil "`ﾁ`b)" [p nil] 2 (#$ . 85752)]) (put (quote gnus-point-at-eol) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Say whether Gnus is running or not. (defalias 'gnus-alive-p #[nil "ﾁ!" [gnus-group-buffer get-buffer] 2 (#$ . 85959)]) #@72 Delete by side effect the first occurrence of ELT as a member of LIST. (defalias 'gnus-delete-first #[(elt list) "@ 噬\nAA A@ 噪 A A+陰A｡\n)" [list elt total] 3 (#$ . 86090)]) (defalias 'gnus-delete-line '(macro . #[(&optional n) "ﾀﾁﾂﾃ\f ﾅDﾆBBE" [delete-region (progn (beginning-of-line) (point)) progn forward-line n 1 ((point))] 5])) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-init-inhibit nil current-load-list] 2) (defalias 'gnus-read-init-file #[(&optional inhibit-next) "ﾁ\n .ﾄ !ﾅ !*ﾄ ﾆP!*ﾄ ﾇP!.ﾈﾉﾊ順" [gnus-init-inhibit nil inhibit-next gnus-init-file file-exists-p file-directory-p ".el" ".elc" var (load gnus-init-file nil t) ((error (error "Error in %s: %s" gnus-init-file var)))] 3]) (defalias 'gnus-info-group '(macro . #[(info) "ﾀﾁ\nE" [nth 0 info] 3])) (defalias 'gnus-info-rank '(macro . #[(info) "ﾀﾁ\nE" [nth 1 info] 3])) (defalias 'gnus-info-read '(macro . #[(info) "ﾀﾁ\nE" [nth 2 info] 3])) (defalias 'gnus-info-marks '(macro . #[(info) "ﾀﾁ\nE" [nth 3 info] 3])) (defalias 'gnus-info-method '(macro . #[(info) "ﾀﾁ\nE" [nth 4 info] 3])) (defalias 'gnus-info-params '(macro . #[(info) "ﾀﾁ\nE" [nth 5 info] 3])) (defalias 'gnus-info-level '(macro . #[(info) "ﾀﾁﾂ DDCﾄBB" [let rank gnus-info-rank info ((if (consp rank) (car rank) rank))] 4])) (defalias 'gnus-info-score '(macro . #[(info) "ﾀﾁﾂ DDCﾄBB" [let rank gnus-info-rank info ((or (and (consp rank) (cdr rank)) 0))] 4])) (defalias 'gnus-info-set-group '(macro . #[(info group) "ﾀ \nE" [setcar info group] 3])) (defalias 'gnus-info-set-rank '(macro . #[(info rank) "ﾀﾁﾂ E\fE" [setcar nthcdr 1 info rank] 4])) (defalias 'gnus-info-set-read '(macro . #[(info read) "ﾀﾁﾂ E\fE" [setcar nthcdr 2 info read] 4])) (defalias 'gnus-info-set-marks '(macro . #[(info marks) "ﾀﾁﾂ E\fE" [setcar nthcdr 3 info marks] 4])) (defalias 'gnus-info-set-method '(macro . #[(info method) "ﾀﾁﾂ E\fE" [setcar nthcdr 4 info method] 4])) (defalias 'gnus-info-set-params '(macro . #[(info params) "ﾀﾁﾂ E\fE" [setcar nthcdr 5 info params] 4])) (defalias 'gnus-info-set-level '(macro . #[(info level) "ﾀﾁﾂ DDCﾄﾅﾆﾇEﾆﾁEFE" [let rank cdr info if (consp (car rank)) setcar (car rank) level] 8])) (defalias 'gnus-info-set-score '(macro . #[(info score) "ﾀﾁﾂ DDCﾄﾅﾆﾇEﾉﾁﾊﾋEEFE" [let rank cdr info if (consp (car rank)) setcdr (car rank) score setcar cons (car rank)] 10])) (defalias 'gnus-get-info '(macro . #[(group) "ﾀﾁﾂ ﾄBBE" [nth 2 gnus-gethash group (gnus-newsrc-hashtb)] 5])) #@51 Return a form that can be `eval'ed based on FUNC. (defalias 'gnus-byte-code #[(func) "Kﾂ !ﾃ ﾄ\"ﾆ )ﾇ AAB)" [func fval byte-code-function-p append nil flist byte-code progn] 4 (#$ . 88579)]) (defalias 'gnus-visual-p #[(&optional type class) " Ыn< >\n>ﾃ" [gnus-visual type class t] 2]) (byte-code "ﾀﾁ!安ﾂ!暗ﾄ!ﾅﾄBﾅ" [require gnus-cus gnus-ems boundp gnus-shutdown-alist nil current-load-list] 2) #@52 Run FUNCTION whenever one of SYMBOLS is shut down. (defalias 'gnus-add-shutdown #[(function &rest symbols) " B\nB" [function symbols gnus-shutdown-alist] 2 (#$ . 89018)]) #@45 Shut down everything that waits for SYMBOL. (defalias 'gnus-shutdown #[(symbol) "ﾁ 陰@\f\nA>\n@ *" [gnus-shutdown-alist nil entry alist symbol] 2 (#$ . 89199)]) (byte-code "ﾀ Bﾂ Bﾃ Bﾄ Bﾅ Bﾆ Bﾇ Bﾈ Bﾉ Bﾊ Bﾋ Bﾌ Bﾍ Bﾎ Bﾏ Bﾐ Bﾑ Bﾒ Bﾓ Bﾔ Bﾕ Bﾒ Bﾖ Bﾗ Bﾀ" [gnus-tmp-unread current-load-list gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-tmp-opening-bracket gnus-tmp-lines gnus-tmp-name gnus-tmp-closing-bracket gnus-tmp-subject-or-nil gnus-tmp-subject gnus-tmp-marked gnus-tmp-marked-mark gnus-tmp-subscribed gnus-tmp-process-marked gnus-tmp-number-of-unread gnus-tmp-group-name gnus-tmp-group gnus-tmp-article-number gnus-tmp-unread-and-unselected gnus-tmp-news-method gnus-tmp-news-server gnus-mouse-face gnus-mouse-face-prop] 2) (defalias 'gnus-summary-line-format-spec #[nil " \n ｱ案` ﾆﾇ GﾊV ﾋﾊO  #\fｱ` $委ﾑｱ" [gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-put-text-property gnus-tmp-opening-bracket format "%4d: %-20s" gnus-tmp-lines gnus-tmp-name 20 0 gnus-tmp-closing-bracket gnus-mouse-face-prop gnus-mouse-face " " gnus-tmp-subject-or-nil "\n"] 9]) (byte-code "ﾀﾁ!Ыnﾂﾁ!ﾁ Bﾀ" [boundp gnus-summary-line-format-spec gnus-byte-code current-load-list] 2) (defalias 'gnus-summary-dummy-line-format-spec #[nil "ﾀc庵`ﾂc` \f$闇ﾇｱ" ["* " gnus-put-text-property ": :" gnus-mouse-face-prop gnus-mouse-face " " gnus-tmp-subject "\n"] 5]) (byte-code "ﾀﾁ!Ыnﾂﾁ!ﾁ Bﾀ" [boundp gnus-summary-dummy-line-format-spec gnus-byte-code current-load-list] 2) (defalias 'gnus-group-line-format-spec #[nil " \n ﾄﾅ\"ｱ杏`ﾉｱ`S\n $" [gnus-tmp-marked-mark gnus-tmp-subscribed gnus-tmp-process-marked gnus-group-indentation format "%5s: " gnus-tmp-number-of-unread gnus-put-text-property gnus-tmp-group "\n" gnus-mouse-face-prop gnus-mouse-face] 7]) (byte-code "ﾀﾁ!Ыnﾂﾁ!ﾁ Bﾀﾄ!+ﾅBﾇ Eﾉ\n Eﾌ EFﾄ Bﾀﾏ!8ﾐﾏ Bﾀﾑ!Еﾐﾑ Bﾀﾒ!Сﾐﾒ Bﾐ" [boundp gnus-group-line-format-spec gnus-byte-code current-load-list gnus-format-specs version emacs-version group gnus-group-line-format summary-dummy gnus-summary-dummy-line-format gnus-summary-dummy-line-format-spec summary gnus-summary-line-format gnus-summary-line-format-spec gnus-article-mode-line-format-spec nil gnus-summary-mode-line-format-spec gnus-group-mode-line-format-spec] 6) (defalias 'gnus-extract-address-components #[(from) "ﾀﾃﾄ \" ﾆ犯桧 :ﾃﾇﾈ !ﾉQ \": ﾆ鉛O:ﾃﾊ\n\":\nﾋﾆ百O\nnﾃﾌ \"コ ﾆ乃ﾆ百Onﾃﾍ \"ダ nﾃﾎ \"ハ ﾆ乃ﾆ桧\ns x *D" [nil address name string-match "\\b[^@ <>]+[!@][^@ <>]+\\b" from 0 "[ ]*<" regexp-quote ">" "\".*\"" 1 "(.+)" "()" "(.*"] 4]) #@58 Return the value of the header FIELD of current article. (defalias 'gnus-fetch-field #[(field) "褐ﾀﾃ 案 !," [t inhibit-point-motion-hooks case-fold-search nnheader-narrow-to-headers message-fetch-field field] 2 (#$ . 91880)]) (defalias 'gnus-goto-colon #[nil "ﾀy庵ﾂ`ﾄ` b)ﾅ#" [0 search-forward ":" p nil t] 4]) #@45 Update the format specification near point. (defalias 'gnus-update-format #[(var) "ﾀﾁﾂ \"案ﾅ \"!ﾉ\nﾉ &ﾌ\"ﾀﾍﾎ \"!ﾏﾀ !J\nﾀﾍﾐ \"!Jﾁﾑ \"?#L安ﾍﾎ \"!J \n EBﾒﾓ!慰 易 椅 !c," [intern string-match "gnus-\\([-a-z]+\\)-line" var match-string 1 type gnus-format-specs entry nil value spec delq format "%s-spec" gnus-parse-format "%s-alist" "mode" pop-to-buffer "*Gnus Format*" erase-buffer lisp-interaction-mode pp-to-string] 8 (#$ . 92205) (list (save-excursion (eval-defun nil) (re-search-forward "[ \n]" nil t) (when (re-search-backward "\\(gnus-[-a-z]+-line-format\\)" nil t) (match-string 1))))]) #@47 Update all (necessary) format specifications. (defalias 'gnus-update-format-specifications #[(&optional force) "ﾀ \nﾃ\f暸噪ﾅﾆﾅ演 \n  陰 @肝ﾍﾎ\"!ﾅﾐ!ヂJヂﾑ!ヂﾒﾑ!!ヂﾑ!q偉ﾍﾓ\"!J\n+\f暸 ヰ @\n噬ﾌﾍﾔ\"! A@L!\n;\nぜﾕ\nﾌﾍﾖﾗ=Ξﾘぐ\"!Jﾙﾚﾛ!\"?# τ A \nぽ\nE\fBﾌﾍﾔ\"!L!-ﾃ\f桷ﾃ\nB\fBﾜ 胃 " [gnus-make-thread-indent-array force emacs-version version gnus-format-specs nil (summary summary-dummy group summary-mode group-mode article-mode) val type entry new-format types intern format "gnus-%s-buffer" buffer boundp get-buffer buffer-name "gnus-%s-line-format" "gnus-%s-line-format-spec" gnus-parse-format "gnus-%s-line-format-alist" article-mode summary-mode string-match "mode$" symbol-name gnus-update-group-mark-positions gnus-update-summary-mark-positions] 8 (#$ . 92835)]) #@44 Compute where the summary marks are to go. (defalias 'gnus-update-summary-mark-positions #[nil "ﾁ!ﾂﾁ!!q暗ﾄ嫁ﾅ \n \f 莞 ﾏﾐﾑﾅﾒﾓﾅﾔﾅﾕ& eb椅ﾗﾘﾅﾓ#P`ﾙZBCeb移ﾗﾛﾅﾓ#c`ﾙZBBeb緯ﾗﾝﾅﾓ#x`ﾙZBB*." [gnus-summary-buffer get-buffer buffer-name 129 130 nil gnus-summary-line-format-spec pos spec gnus-visual thread gnus-score-over-mark gnus-score-below-mark gnus-replied-mark gnus-set-work-buffer gnus-summary-insert-line [0 "" "" "" "" "" 0 0 ""] 0 128 t "" 1 unread search-forward "" 2 replied "" score "" gnus-summary-mark-positions] 10 (#$ . 93716)]) (defalias 'gnus-update-group-mark-positions #[nil "澗ﾁﾂﾃﾄ\"ﾈﾉ \"ﾊL依 偉ﾉﾄﾍﾄﾍ%eb夷ﾏﾐﾍﾑ#-`ﾒZBC," [128 ("dummy.group") make-vector 10 0 gnus-active-hashtb gnus-group-marked gnus-process-mark intern "dummy.group" (0 . 0) gnus-set-work-buffer gnus-group-insert-group-line nil process search-forward "" t 2 gnus-group-mark-positions] 6]) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾀﾅ! ﾂﾅ Bﾀﾆ!-ﾂﾆ Bﾀﾇ!:ﾂﾇ Bﾀ" [boundp gnus-mouse-face-0 highlight current-load-list gnus-mouse-face-1 gnus-mouse-face-2 gnus-mouse-face-3 gnus-mouse-face-4] 2) (defalias 'gnus-mouse-face-function #[(form type) "ﾀﾁﾂﾃ\fﾅ\"Bﾆﾈ噬ﾉﾊﾋﾌﾍ\"!JDｯ" [gnus-put-text-property (point) progn append form ((point)) gnus-mouse-face-prop type 0 gnus-mouse-face quote intern format "gnus-mouse-face-%d"] 9]) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾅﾄ Bﾀﾆ!!ﾇﾆ Bﾀﾈ!.ﾂﾈ Bﾀﾉ!;ﾂ ﾉ Bﾀ" [boundp gnus-face-0 bold current-load-list gnus-face-1 italic gnus-face-2 bold-italic gnus-face-3 gnus-face-4] 2) (defalias 'gnus-face-face-function #[(form type) "ﾀﾁﾂﾃ\fﾅ\"Bﾆﾇﾈﾉﾊ \"!JDｯ" [gnus-put-text-property (point) progn append form ((point)) (quote face) quote intern format "gnus-face-%d" type] 9]) (defalias 'gnus-max-width-function #[(el max-width) "ｧЫnﾁﾂﾃ\"\f9ﾅﾆﾇ\fDEﾈ\fﾉF\fFﾊﾋﾌ\fDDCﾍﾅﾆﾎEﾈﾋﾉFﾏBBBF" [max-width signal wrong-type-argument (numberp max-width) el if > length substring 0 let val eval (if (numberp val) (setq val (int-to-string val))) (length val) (val)] 9]) (defalias 'gnus-parse-format #[(format spec-alist &optional insert) "ﾀﾁ\n\"ソfﾃ\n\f\"ﾅ\n\f#" [string-match "\\`\\(.*\\)%[0-9]?[{(]\\(.*\\)%[0-9]?[})]\\(.*\n?\\)\\'" format gnus-parse-complex-format spec-alist gnus-parse-simple-format insert] 4]) (defalias 'gnus-parse-complex-format #[(format spec-alist) "澗 ceb按ﾃﾄﾅ#ﾆﾇﾄﾅ#\neb以c按ﾉﾄﾅ#ノﾊ買4ﾋﾊ!5ﾌﾋﾍ!ﾎHﾑUЛﾒUテﾆﾓﾑUズﾔZﾕﾖﾗｰ!Ｊﾆﾘ!*!db異ceb移p!ﾜﾝ\"*B" [gnus-set-work-buffer format re-search-forward "\"" nil t replace-match "\\\"" "(\"" "%\\([0-9]+\\)?\\([{}()]\\)" 1 match-string "0" 2 0 delim number 40 123 "\"(" "mouse" "face" " " " \"" "\")\"" "\")" read form progn gnus-complex-form-to-spec spec-alist] 6]) (defalias 'gnus-complex-form-to-spec #[(form spec-alist) "ﾀﾁﾂﾃ\f\"\"" [delq nil mapcar #[(sform) "; ﾁ\nﾃ#ﾄﾅﾆ@\"!ﾇAA\n\"A@\"" [sform gnus-parse-simple-format spec-alist t intern format "gnus-%s-face-function" gnus-complex-form-to-spec] 4] form] 5]) (defalias 'gnus-parse-simple-format #[(format spec-alist &optional insert) "ﾀﾁ演演演 \n翰 \fceb囲ﾎﾁﾏ#ﾘﾐﾑﾒ!! ﾓUアﾔﾀ乃にﾕ秤ザﾖﾕ乃ﾕ府!\n[ﾀ\nﾒ 暸hﾘ @ﾙ=メﾚﾛﾑﾜ!P!ﾝDﾞDﾜ妃怖\nﾀU┸ @ A@澡Dき A@禧ΝD\n\"Bﾞ)に @B A@\fﾒ怖\fbc\"ﾕd{)蝌ﾁｋ贇\"Cｋ逖@Cｋ陂@Cｋ髦3ﾁ**@DCｋ@DCｋ跪\"ア氓跫\"ザ@ﾒﾁODｋ跟\"ハﾑﾕ\"@ﾑﾒ\"Eｋ跣\"モﾑﾕ\"@Dｋﾌ檻BC*Ε ｸ\n ず Bず ;Ξ ず :ｷ Bず. " [0 nil dontinsert result beg elem newspec fstring flist spec max-width gnus-set-work-buffer format re-search-forward "%[-0-9]*\\(,[0-9]+\\)?\\([^0-9]\\)\\(.\\)?" t string-to-char match-string 2 37 "%" 1 string-to-int spec-alist ("*" 115) gnus-tmp-user-defined intern "gnus-user-format-function-" 3 gnus-tmp-header 115 el 99 char-to-string 100 int-to-string gnus-max-width-function "" string-match "%s" "%c" "%d" insert princ "\\`\\(%[cs]\\)+\\'" "\\`%[sc][^%]+\\'" "\\`\\([^%]+\\)%[sc]\\([^%]+\\)\\'" "\\`\\([^%]+\\)%[sc]\\'" concat] 9]) #@76 Eval the format variable FORMAT, using ALIST. If PROPS, insert the result. (defalias 'gnus-eval-format #[(format &optional alist props) "ﾀ \n # ﾅ`ﾆ\f!` #ﾆ\f!)" [gnus-parse-format format alist props form gnus-add-text-properties eval] 4 (#$ . 97826)]) #@64 Delete all text in the current buffer with text property PROP. (defalias 'gnus-remove-text-with-property #[(prop) "各bm?\"ﾀ` \"ﾂﾃ! ﾄ` ﾅd$b)" [get-text-property prop delete-char 1 next-single-property-change nil] 5 (#$ . 98092)]) (defalias 'gnus-set-work-buffer #[nil "ﾀ !ソf q按 ﾃ !q案 闇p!鞍 " [get-buffer gnus-work-buffer erase-buffer get-buffer-create kill-all-local-variables buffer-disable-undo gnus-add-current-to-buffer-list] 2]) #@189 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is nil, it is ~/News/News.group/num. Otherwise, it is like ~/News/news/group/num. (defalias 'gnus-Numeric-save-name #[(newsgroup headers &optional last-file) "ﾀﾁﾂ! ﾃ\f!ﾅ\f!ﾆﾇﾉH!Q\n\" \f=ﾍ !ﾍ\f!=ﾎﾏﾐ\f!\"= D\fD )" [expand-file-name gnus-use-long-file-name not-save gnus-capitalize-newsgroup newsgroup gnus-newsgroup-directory-form "/" int-to-string headers 0 gnus-article-save-directory default last-file file-name-directory string-match "^[0-9]+$" file-name-nondirectory] 6 (#$ . 98553)]) #@193 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is non-nil, it is ~/News/news.group/num. Otherwise, it is like ~/News/news/group/num. (defalias 'gnus-numeric-save-name #[(newsgroup headers &optional last-file) "ﾀﾁﾂ! ﾄ !ﾅﾆﾈH!Q \"\n ;ﾌ\n!ﾌ !;ﾍﾎﾏ !\";\nB B\n)" [expand-file-name gnus-use-long-file-name not-save newsgroup gnus-newsgroup-directory-form "/" int-to-string headers 0 gnus-article-save-directory default last-file file-name-directory string-match "^[0-9]+$" file-name-nondirectory] 6 (#$ . 99182)]) #@191 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group. Otherwise, it is like ~/News/news/group/news. (defalias 'gnus-Plain-save-name #[(newsgroup headers &optional last-file) "ﾁﾂﾃ!ﾄ !ﾆ !ﾇP\"" [last-file expand-file-name gnus-use-long-file-name not-save gnus-capitalize-newsgroup newsgroup gnus-newsgroup-directory-form "/news" gnus-article-save-directory] 3 (#$ . 99784)]) #@191 Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE. If variable `gnus-use-long-file-name' is non-nil, it is ~/News/news.group. Otherwise, it is like ~/News/news/group/news. (defalias 'gnus-plain-save-name #[(newsgroup headers &optional last-file) "ﾁﾂﾃ!\fﾅ\f!ﾆP\"" [last-file expand-file-name gnus-use-long-file-name not-save newsgroup gnus-newsgroup-directory-form "/news" gnus-article-save-directory] 3 (#$ . 100266)]) (defalias 'gnus-subscribe-hierarchical-interactive #[(groups) "ﾀ ﾂ\"ﾃ演演  ﾊC  ﾋ @ @\"8 A & @GSﾋﾌ @# Aﾊ @ﾍ鴛OPﾋ A@\" B ﾎﾏﾐGSO\"尉 ﾒ>ﾓ 夷ﾏﾐGSO\"|ﾔUλ εﾋ @\"ε Bﾖ \" L A┘\fAﾘU ﾋ @\"ﾖ \" L異 @! Aﾔ\fAﾚU  @Bﾖ \" L Aﾎﾛ @\"尉 ﾜ>8ﾓ 夷ﾛ @\"\" @ﾝUコﾙ @!椅 \" LｃﾚUブ ャ @Bﾖ \" L AZ Bﾖ \" L A." [sort groups string< nil starts group ans start prefix prefixes "^" string-match "[^\\.]\\." 0 message "Descend hierarchy %s? ([y]nsq): " 1 read-char (121 10 110 115 113) ding 110 gnus-killed-list intern gnus-killed-hashtb 115 gnus-subscribe-alphabetically 113 "Subscribe %s? ([n]yq)" (121 10 113 110) 121] 8]) #@59 Subscribe new NEWSGROUP by making it the first newsgroup. (defalias 'gnus-subscribe-randomly #[(newsgroup) "ﾀ !" [gnus-subscribe-newsgroup newsgroup] 2 (#$ . 101513)]) #@62 Subscribe new NEWSGROUP and insert it in alphabetical order. (defalias 'gnus-subscribe-alphabetically #[(newgroup) "Aﾁ\n# #\f @@刄 @@ Aﾅ\f\n\"*" [gnus-newsrc-alist nil before groups newgroup gnus-subscribe-newsgroup] 4 (#$ . 101688)]) #@72 Subscribe new NEWSGROUP and insert it in hierarchical newsgroup order. (defalias 'gnus-subscribe-hierarchically #[(newgroup) "澗 !q\nﾃ\fВ ィeb鞍ﾇ !ﾈQ ﾊ ﾃﾋ#0ﾌﾍ!\n刋)ﾎﾏ \"> ﾍ範桧\nﾐ\n\f\"*ﾑp!)" [find-file-noselect gnus-current-startup-file newgroup nil before groupkey "^\\(" regexp-quote ".*\\)[!:]" groupkey-re re-search-forward t match-string 1 string-match "^\\(.*\\)\\.[^.]+$" gnus-subscribe-newsgroup kill-buffer] 5 (#$ . 101948)]) #@125 Subscribe the new GROUP interactively. It is inserted in hierarchical newsgroup order if subscribed. If not, it is killed. (defalias 'gnus-subscribe-interactively #[(group) "ﾀﾁﾂ \"! ﾄ ! B" [gnus-y-or-n-p format "Subscribe new newsgroup: %s " group gnus-subscribe-hierarchically gnus-killed-list] 4 (#$ . 102412)]) #@41 Make the new GROUP into a zombie group. (defalias 'gnus-subscribe-zombies #[(group) " B" [group gnus-zombie-list] 2 (#$ . 102740)]) #@36 Make the new GROUP a killed group. (defalias 'gnus-subscribe-killed #[(group) " B" [group gnus-killed-list] 2 (#$ . 102882)]) #@117 Subscribe new NEWSGROUP. If NEXT is non-nil, it is inserted before NEXT. Otherwise it is made the first newsgroup. (defalias 'gnus-subscribe-newsgroup #[(newsgroup &optional next) "ﾀ \n ﾄ \nﾆ\"J$以ﾉﾊ #" [gnus-group-change-level newsgroup gnus-level-default-subscribed gnus-level-killed intern-soft next "dummy.group" gnus-newsrc-hashtb gnus-message 5 "Subscribe newsgroup: %s"] 7 (#$ . 103019)]) #@55 Make hierarchical directory name from NEWSGROUP name. (defalias 'gnus-newsgroup-directory-form #[(newsgroup) "ﾀ ! Gﾂﾅﾆ \" ﾇIﾈ \fW6 HﾉU/ ﾇI T +" [gnus-newsgroup-savable-name newsgroup nil idx len string-match ":" 47 0 46] 4 (#$ . 103427)]) (defalias 'gnus-newsgroup-savable-name #[(group) "ﾀ ﾂﾃ#" [nnheader-replace-chars-in-string group 47 46] 4]) #@29 Make DIRECTORY recursively. (defalias 'gnus-make-directory #[(dir) "ﾀ \n\"ﾃﾃﾆﾇ \" ﾈ鉛Oﾉ !. \fBﾆﾊ \" ﾈ鉛O\fィ Вﾃﾋﾌ処\fA2\f+?" [expand-file-name dir default-directory nil dirs err string-match "/$" 0 file-exists-p "/[^/]+$" (byte-code "ﾀ @!" [make-directory dirs] 2) ((error (byte-code "ﾀﾀ" [t err] 1)))] 4 (#$ . 103808)]) #@28 Capitalize NEWSGROUP name. (defalias 'gnus-capitalize-newsgroup #[(newsgroup) "GﾁU?ﾂﾁH!ﾃﾄOP" [newsgroup 0 char-to-string 1 nil] 4 (#$ . 104161)]) #@90 Remove `Re:' and words in parentheses. If RE-ONLY is non-nil, strip leading `Re:'s only. (defalias 'gnus-simplify-subject #[(subject &optional re-only) "ﾀﾂﾃ\f\"\fﾅ僻O''ﾂ\f\"'\fﾅ僻O<ﾂﾉ\f\"<\fﾅ鉛O,\f)" [t case-fold-search string-match "\\`\\(re\\([[(^][0-9]+[])]?\\)?:[ ]*\\)+" subject 0 nil re-only gnus-simplify-ignored-prefixes "[ \n]*([^()]*)[ \n]*\\'"] 3 (#$ . 104321)]) (defalias 'gnus-simplify-buffer-fuzzy #[nil "ﾀeb按ﾃﾄﾀ#ﾅﾆﾀ#eb杏ﾈﾄﾀ#伊巴位ﾈ!/ﾊﾋ!ヂeb杏ﾈﾄﾀ#イﾅﾌﾀ#2eb杏ﾋﾄﾀ##ﾉ秒囲ﾎ!伊巴ﾇﾏ!|Feb杏ﾐﾄﾀ#ブﾅﾌﾀ#Ｅeb杏ﾑﾄﾀ#ラﾅﾆﾀ#Ｙeb杏ﾒﾄﾀ#ﾅﾌﾀ#ｌeb杏ﾓﾄﾀ#Τﾅﾌﾀ#あeb<eb杏@ﾄﾀ#ﾝﾅﾌﾀ#ぬAﾇﾄ)ﾇﾄﾀ#ﾅﾌﾀ#ろ)" [t case-fold-search search-forward " " nil replace-match " " re-search-forward "^ *\\(re\\|fwd\\)[[{(^0-9]*[])}]?[:;] *" 0 looking-at "^[[].*: .*[]]$" "" delete-char -1 ":" " *[[{(][^()\n]*[]})] *$" " +" " $" "^ +" gnus-simplify-subject-fuzzy-regexp list] 5]) #@35 Siplify a subject string fuzzily. (defalias 'gnus-simplify-subject-fuzzy #[(subject) "澗 庵 c庵eb案ﾅﾆﾁ#ﾇﾈﾁ#eb伊ﾊﾆﾁ#依巴偉ﾊ!8ﾌﾍ!ニeb伊ﾊﾆﾁ#キﾇﾎﾁ#;eb伊ﾍﾆﾁ#,ﾋ秒委ﾐ!依巴ﾉﾑ!|０eb伊ﾒﾆﾁ#ミﾇﾎﾁ#Ｎeb伊ﾓﾆﾁ#ヲﾇﾈﾁ#ａeb伊ﾔﾆﾁ#Θﾇﾎﾁ#ｕeb伊ﾕﾆﾁ#ｺﾇﾎﾁ#かeb<eb伊@ﾆﾁ#ﾇﾎﾁ#ふAﾐﾆ)ﾉﾆﾁ#ﾇﾎﾁ#)畏 *" [gnus-set-work-buffer t case-fold-search subject search-forward " " nil replace-match " " re-search-forward "^ *\\(re\\|fwd\\)[[{(^0-9]*[])}]?[:;] *" 0 looking-at "^[[].*: .*[]]$" "" delete-char -1 ":" " *[[{(][^()\n]*[]})] *$" " +" " $" "^ +" gnus-simplify-subject-fuzzy-regexp list buffer-string] 5 (#$ . 105295)]) (defalias 'gnus-add-current-to-buffer-list #[nil "p> pB" [gnus-buffer-list] 2]) (defalias 'gnus-string> #[(s1 s2) " 刎  ?" [s1 s2] 2]) #@70 Say whether the active file has been read from `gnus-select-method'. (defalias 'gnus-read-active-file-p #[nil " >" [gnus-select-method gnus-have-read-active-file] 2 (#$ . 106122)]) #@34 Clear all variables and buffers. (defalias 'gnus-clear-system #[nil " @ﾂL A)ﾂﾂﾂﾂﾂﾂﾂ ﾂ\nﾂ ﾂ\fﾂ ﾂﾂﾂﾂﾂﾂﾂﾂﾂﾂﾂﾙﾚ!ナﾜ!ナﾝﾜ!!萎 緯ﾟﾂ!!ポﾝﾜﾟﾂ!!! !\"\";ヱ繧\"!)ﾝ!!)%ρ%陰%@!\"ﾂ\";ｾ繧ｿ\"!)νﾝ!!)ぁ " [gnus-variable-list variables nil gnus-list-of-killed-groups gnus-have-read-active-file gnus-newsrc-alist gnus-newsrc-hashtb gnus-killed-list gnus-zombie-list gnus-killed-hashtb gnus-active-hashtb gnus-moderated-list gnus-description-hashtb gnus-current-headers gnus-thread-indent-array gnus-newsgroup-headers gnus-newsgroup-name gnus-server-alist gnus-group-list-mode gnus-opened-servers gnus-group-mark-positions gnus-newsgroup-data gnus-newsgroup-unreads nnoo-state-alist gnus-current-select-method gnus-shutdown gnus gnus-current-startup-file get-file-buffer kill-buffer gnus-dribble-clear gnus-newsgroup-kill-file nntp-server-buffer buf buffer get-buffer buffer-name gnus-buffer-list gnus-kill-gnus-frames] 5 (#$ . 106311)]) #@35 Kill all frames Gnus has created. (defalias 'gnus-kill-gnus-frames #[nil "ﾁ@!ﾂﾃﾄ処陰" [gnus-created-frames frame-live-p nil (byte-code "ﾀ @!" [delete-frame gnus-created-frames] 2) ((error))] 3 (#$ . 107336)]) (defalias 'gnus-windows-old-to-new #[(setting) "9%ﾁ=ﾂ$ﾃ>ﾄ$ﾅ>#ﾆ$<55ﾈ>7ﾆ=キﾉ档HﾉMﾊM暸@ ﾌﾍ \"ﾏﾊ=ニﾆＬﾄﾒﾔﾔﾗWυ 8ｧλ 8ﾒUﾉﾘUﾙぅﾚ @!･8=ｼ8ﾛEて8DBTＹﾜﾝ.BB" [setting SelectArticle article (SelectSubject ExpandSubject) summary (SelectNewsgroup ExitNewsgroup) group gnus-window-configuration (group summary article) newsgroup newsgroups elem apply + total (group summary article) types pbuf 0 i nil perc out 3 2 1.0 float point vertical 1.0] 4]) #@67 Add the window configuration CONF to `gnus-buffer-configuration'. (defalias 'gnus-add-configuration #[(conf) "ﾁ@\n杤n\"B" [conf delq gnus-buffer-configuration] 4 (#$ . 108125)]) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-frame-list nil current-load-list] 2) #@34 Split WINDOW according to SPLIT. (defalias 'gnus-configure-frame #[(split &optional window) "ﾁp!ﾂ!暗\f!ﾅ\fﾆ\"\f@:$ﾃ\f@!,ﾇ\fBﾈ\fB\f@ 桷[\f@\n9ゥﾋ\n!O\nﾕぷ>;ζぬ 暸ﾆ#$ﾙ褂\"育$9$Jり$!#$9$J$!##!違\f> *ぷ=Κ+%ﾁp!!C+ﾔﾆ演-*./GW/廣@.<Йﾆ.+/怏*h+.!*C､*1B1*!м/+幤.!*印*!咽/!--/T/2-､-!!,ぷGﾔVξフﾅ陰@ﾆ\" @ 桷 @\n9ﾚﾋ\n!\n<\n@ﾌ=)ﾍ ! つ Σ B@A@噬@ﾔ<!)_!<ｨ6<褸\"ﾔUbﾐ=サ]Ｃﾈ=ッ]@A\\げユAZｋ襌\f\"汢ξA│ぐ@A@ﾐ=#@\"ｹﾂ!Aﾕﾂ!. " [window get-buffer-window select-window vectorp split append nil 1.0 vertical gnus-window-to-buffer form fboundp lambda eval type subs horizontal window-width window-height len 0 total gnus-window-min-width window-min-width gnus-window-min-height window-min-height s result new-win rest comp-subs size sub point (frame horizontal vertical) buf buffer error "Illegal buffer type: %s" get-buffer get-buffer-create switch-to-buffer frame gnus-frame-list window-frame fresult params i make-frame gnus-created-frames frame-live-p select-frame gnus-configure-frame 1.0 floatp floor "Illegal size: %s" "No 1.0 specs in %s" split-window] 6 (#$ . 108392)]) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-frame-split-p nil current-load-list] 2) (defalias 'gnus-configure-windows #[(setting &optional force) "ﾀ !9 \n暸@ ﾃﾃ !ﾇﾈ \"伊 !4\n4ﾋ\f!Ｈﾌ  ﾎゴЙﾐ [ﾑﾒﾓ \"[ﾔ 易!*ﾕ!為 ﾘp!\"*" [gnus-windows-old-to-new setting gnus-buffer-configuration nil all-visible split gnus-frame-split-p error "No such setting: %s" gnus-all-windows-visible-p force select-window selected-frame frame ((select-frame frame)) gnus-use-full-window delete-other-windows mapcar #[(frame) "ﾀﾁ\n!暸ﾃ=?ﾄ\n!闇 " [minibuffer frame-parameters frame only select-frame delete-other-windows] 3] frame-list gnus-remove-some-windows switch-to-buffer nntp-server-buffer gnus-configure-frame get-buffer-window] 5]) #@134 Say whether all buffers in SPLIT are currently visible. In particular, the value returned will be the window that should have point. (defalias 'gnus-all-windows-visible-p #[(split) "Cﾁﾂ演陰@ﾉ!,ﾊﾂ\"@:9ﾉ@!アﾋBﾌB@ 桷p@9ズﾏ!dﾉ;ルｑ 暸ﾔﾕ\"椅 9Ι Jお !Φﾗ ﾁ\"\fεﾘ>\fﾂﾙ=φﾁﾊAA\"ﾁ=?." [split t nil buf win buffer type all-visible stack vectorp append 1.0 vertical gnus-window-to-buffer form fboundp lambda eval 0 (horizontal vertical frame) error "Illegal buffer type: %s" get-buffer get-buffer-window point frame gnus-frame-split-p] 7 (#$ . 110653)]) (defalias 'gnus-window-top-edge #[(&optional window) "ﾀ !A@" [window-edges window] 2]) (defalias 'gnus-remove-some-windows #[nil "ﾁ演グ@A9$ﾇ !# J ェﾈ !ェ \fBﾉ !\nアﾊ \nWェﾊ  Aﾋﾌ! チﾉ !囲!\fx\f@ =аﾏ\f@!\fAdﾁ." [gnus-window-to-buffer nil lowest lowest-buf bufs buf buffers boundp get-buffer-window pop-to-buffer gnus-window-top-edge walk-windows #[(win) "ﾀ !ﾃﾄﾅ\n!\",\nBﾇ\n!$ﾉ W,\n\nﾉ )" [window-buffer win buf string-match "^\\*Summary" buffer-name bufs pop-to-buffer lowest gnus-window-top-edge lowest-buf] 4] switch-to-buffer nntp-server-buffer delete-windows-on] 6]) #@73 Version number of this version of Gnus. If ARG, insert string at point. (defalias 'gnus-version #[(&optional arg) " ﾂ+ﾆ @@ﾇP!ﾈ !$ J;$\fﾉ JQ AЫn\n7ﾋ\f!c:ﾋ\f!+" [gnus-valid-select-methods gnus-version nil meth mess methods intern "-version" boundp "; " arg message] 4 (#$ . 111997) "P"]) #@34 Find Info documentation of Gnus. (defalias 'gnus-info-find-node #[nil "ﾁﾄ 暸@!pﾆﾇ!*" [major-mode nil gnus-info-buffer mode Info-goto-node gnus-info-nodes gnus-configure-windows info] 3 (#$ . 112312) nil]) (defalias 'gnus-days-between #[(date1 date2) "ﾀ !ﾀ\n!Z" [gnus-day-number date1 date2] 3]) (defalias 'gnus-day-number #[(date) "ﾀﾁﾂ !\"ﾅ\fA@ﾆ\f8\f@#)" [mapcar #[(s) "ﾁ!" [s string-to-int] 2] timezone-parse-date date dat timezone-absolute-from-gregorian 2] 4]) #@32 Convert DATE to internal time. (defalias 'gnus-encode-date #[(date) "ﾀ !ﾃﾄ\n\"ﾃﾅﾆ\nﾇH!\"ﾉAA@A@@ AA@ A@ @ﾊ 8&+" [timezone-parse-date date parse mapcar #[(d) "ﾁ!" [d string-to-int] 2] string-to-int timezone-parse-time 3 time encode-time 4] 9 (#$ . 112798)]) #@30 Subtract two internal times. (defalias 'gnus-time-minus #[(t1 t2) "A@ A@W@ @Z\nﾃﾄZ\nﾅ ﾄA@\\ A@Z)D" [t1 t2 borrow 1 0 65536] 3 (#$ . 113078)]) (defalias 'gnus-file-newer-than #[(file date) "ﾀﾁ\n!8@\f@V @\f@U A@\fA@V)" [5 file-attributes file fdate date] 4]) #@46 Set the keys in PLIST in the current keymap. (defalias 'gnus-local-set-keys '(macro . #[(&rest plist) "ﾀﾁﾂ DE" [gnus-define-keys-1 (current-local-map) quote plist] 4 (#$ . 113366)])) #@37 Define all keys in PLIST in KEYMAP. (defalias 'gnus-define-keys '(macro . #[(keymap &rest plist) "ﾀﾁ\nDﾁ DE" [gnus-define-keys-1 quote keymap plist] 4 (#$ . 113556)])) (byte-code "ﾀﾁﾂﾃ#安ﾁﾄﾃ#安ﾅﾂﾃ#安ﾅﾄﾃ#" [put gnus-define-keys lisp-indent-function 1 lisp-indent-hook gnus-define-keymap] 4) #@37 Define all keys in PLIST in KEYMAP. (defalias 'gnus-define-keymap '(macro . #[(keymap &rest plist) "ﾀ ﾂ DE" [gnus-define-keys-1 keymap quote plist] 4 (#$ . 113854)])) (defalias 'gnus-define-keys-1 #[(keymap plist) "ﾁﾂ!9J9ﾃ!9<9@ﾄL闇@!鞍AA@JA@@#@Jﾄd陰@9サJﾆ陰@#<)" [keymap error "Can't set keys in a null keymap" keymapp nil define-prefix-command define-key key plist] 5]) #@175 Check whether GROUP supports editing or not. If GROUP is nil, `gnus-newsgroup-name' will be checked instead. Note that that variable is buffer-local to the summary buffers. (defalias 'gnus-group-read-only-p #[(&optional group) " ﾂﾃ\")?" [group gnus-newsgroup-name gnus-check-backend-function request-replace-article] 3 (#$ . 114289)]) #@48 Check whether GROUP is total-expirable or not. (defalias 'gnus-group-total-expirable-p #[(group) "ﾀﾁﾂ \f\"J88ﾆ >!ﾆ 暸!!ﾈ \")" [5 2 intern-soft group gnus-newsrc-hashtb params total-expire gnus-total-expirable-newsgroups string-match] 5 (#$ . 114638)]) #@48 Check whether GROUP is total-expirable or not. (defalias 'gnus-group-auto-expirable-p #[(group) "ﾀﾁﾂ \f\"J88ﾆ >!ﾆ 暸!!ﾈ \")" [5 2 intern-soft group gnus-newsrc-hashtb params auto-expire gnus-auto-expirable-newsgroups string-match] 5 (#$ . 114908)]) #@38 Say whether GROUP is virtual or not. (defalias 'gnus-virtual-group-p #[(group) "ﾀﾁﾂﾃ\f!@! \">" [virtual assoc symbol-name gnus-find-method-for-group group gnus-valid-select-methods] 5 (#$ . 115175)]) #@64 Return non-nil if GROUP (and ARTICLE) come from a news server. (defalias 'gnus-news-group-p #[(group &optional article) "ﾀﾁ\n\"ﾀﾃ\n\"ﾄ\n \"ﾆ=" [gnus-member-of-valid post group post-mail gnus-request-type article news] 3 (#$ . 115382)]) #@59 Simplify a subject string according to the user's wishes. (defalias 'gnus-simplify-subject-fully #[(subject) " ﾂﾃ \" ﾄ頁O )ﾆ=ソ"ﾇ !ｧサ ﾂﾃ \"8 ﾄ頁O9 ) GVケ ﾄO３ * " [gnus-summary-gather-subject-limit subject string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy width str] 4 (#$ . 115631)]) (put (quote gnus-simplify-subject-fully) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@118 Check whether two subjects are equal. If optional argument simple-first is t, first argument is already simplified. (defalias 'gnus-subject-equal #[(s1 s2 &optional simple-first) "ﾃ  \nﾄﾅ\n\"\nﾆ壁O\n)Ｂ ﾈ=,ﾉ\n!Ｂ ｧチ\nﾄﾅ\n\"ィ\nﾆ壁OC\n) \n G\nVセ ﾆ\nO\\ *Ｂ\n)\f \nﾄﾅ\n\"ホ\nﾆ壁O{\n)ぢ ﾈ=ルﾉ\n!ぢ ｧα\nﾄﾅ\n\"Γ\nﾆ壁Oい\n) \n G\nVｹ ﾆ\nOそ *ぢ\n)嚊 \f \nﾄﾅ\n\"ﾜ\nﾆ壁Oみ\n)\" ﾈ=ﾉ\n!\" ｧ!\nﾄﾅ\n\"\nﾆ壁O\n) \n G\nV ﾆ\nO *\"\n)嚊" [simple-first s1 subject gnus-summary-gather-subject-limit string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy width str s2] 5 (#$ . 116079)]) (put (quote gnus-subject-equal) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'gnus-writable-groups #[nil "ﾁ\f陰@@ﾅ\n!\n B +" [gnus-newsrc-alist nil group groups alist gnus-group-read-only-p] 3]) (defalias 'gnus-completing-read #[(default prompt &rest args) "ソf ﾂﾃR ﾄPﾅﾆ #$GﾉU(**" [default prompt " (default " ") " " " apply completing-read args answer 0] 5]) (defalias 'gnus-y-or-n-p #[(prompt) "ﾀ !ﾂﾃ!" [y-or-n-p prompt message ""] 3]) (defalias 'gnus-yes-or-no-p #[(prompt) "ﾀ !ﾂﾃ!" [yes-or-no-p prompt message ""] 3]) (defalias 'gnus-use-long-file-name #[(symbol) "?" [gnus-use-long-file-name symbol] 2]) #@53 Return a string like DD-MMM from a big messy string (defalias 'gnus-dd-mmm #[(messy-date) "ﾀﾁﾂ初 ﾄ$ﾅﾆﾀﾇﾈ硝ﾊ ﾋH!S\f8@\"ﾍ!#)" [nil (timezone-parse-date messy-date) ((error)) datevec "??-???" format "%2s-%s" (byte-code "ﾀﾁ\nﾃH!!" [number-to-string string-to-number datevec 2] 4) ((error "??")) capitalize string-to-number 1 timezone-months-assoc "???"] 8 (#$ . 117466)]) #@26 Quote all "%" in STRING. (defalias 'gnus-mode-string-quote #[(string) "澗 ceb按ﾃﾄﾅ#ﾃc\nﾆ )" [gnus-set-work-buffer string search-forward "%" nil t buffer-string] 4 (#$ . 117850)]) (defalias 'gnus-make-hashtable #[(&optional hashsize) "ﾀ ﾂ !ﾃ]ﾃﾄ\"" [make-vector hashsize gnus-create-hash-size 255 0] 3]) (defalias 'gnus-create-hash-size #[(min) "ﾀﾀ\nW 噂\ S)" [1 i min] 3]) (defalias 'gnus-message #[(level &rest args) " X ﾂﾃ\f\"ﾂﾅ\f\"" [level gnus-verbose apply message args format] 3]) #@65 Beep an error if LEVEL is equal to or less than `gnus-verbose'. (defalias 'gnus-error #[(level &rest args) "ﾀ !\nX.ﾃﾄ \"鞍 杏ﾉ !- ﾀ !Zﾊ_ﾋU-ﾌ!)ﾇ" [floor level gnus-verbose apply message args ding nil duration floatp 10 0 sit-for] 3 (#$ . 118374)]) (defalias 'gnus-generate-new-group-name #[(leaf) "ﾁﾄ \"Jﾆﾇ\nT!ﾈR *" [leaf 0 num name intern-soft gnus-newsrc-hashtb "<" int-to-string ">"] 5]) #@71 Set text PROPS on the B to E region, extending `intangible' 1 past B. (defalias 'gnus-hide-text #[(b e props) "ﾀ \n #案 >ﾅ Se] ﾄ >AA$" [gnus-add-text-properties b e props intangible gnus-put-text-property] 6 (#$ . 118800)]) (put (quote gnus-hide-text) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@60 Remove hidden text properties from region between B and E. (defalias 'gnus-unhide-text #[(b e) "ﾀ \n #案 >ﾅ Se] ﾄﾆ$" [remove-text-properties b e gnus-hidden-properties intangible gnus-put-text-property nil] 5 (#$ . 119122)]) (put (quote gnus-unhide-text) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Hide text of TYPE between B and E. (defalias 'gnus-hide-text-type #[(b e type) " ﾂ \fBBﾆ #杏 >#ﾈSe]ﾇ >AA$+" [b e gnus-type type gnus-hidden-properties props gnus-add-text-properties intangible gnus-put-text-property] 6 (#$ . 119446)]) #@60 Return the headers of the GENERATIONeth parent of HEADERS. (defalias 'gnus-parent-headers #[(headers &optional generation) "ﾁﾂ 3ﾆU3 ﾇHソnﾈ\f!ソnﾉ !@ソnS\n *" [generation 1 nil parent references headers 0 5 gnus-parent-id gnus-id-to-thread] 3 (#$ . 119699)]) #@43 Return the last Message-ID in REFERENCES. (defalias 'gnus-parent-id #[(references) "ﾁﾂ\"ﾃ氾桧" [references string-match "\\(<[^\n<>]+>\\)[ \n]*\\'" 1] 3 (#$ . 119990)]) #@45 Return a list of Message-IDs in REFERENCES. (defalias 'gnus-split-references #[(references) "ﾀﾁﾄﾅ #ﾀ搬負O\nB\n*" [0 nil ids beg string-match "<[^>]+>" references] 4 (#$ . 120176)]) #@37 Say whether BUFFER is alive or not. (defalias 'gnus-buffer-live-p #[(buffer) "ﾁ!ﾂﾁ!!" [buffer get-buffer buffer-name] 3 (#$ . 120379)]) #@40 Say whether GROUP is ephemeral or not. (defalias 'gnus-ephemeral-group-p #[(group) "ﾀ ﾂ\"" [gnus-group-get-parameter group quit-config] 3 (#$ . 120531)]) #@34 Return the quit-config of GROUP. (defalias 'gnus-group-quit-config #[(group) "ﾀ ﾂ\"" [gnus-group-get-parameter group quit-config] 3 (#$ . 120692)]) #@32 Make mode lines a bit simpler. (defalias 'gnus-simplify-mode-line #[nil "ﾀ\n<ﾃﾂ!案\n!ﾅ\n8ﾆ嚆ﾅ\n嵒" ["-- " mode-line-modified mode-line-format make-local-variable copy-sequence 3 " " " "] 2 (#$ . 120847)]) #@30 Return last element of LIST. (defalias 'gnus-last-element #[(list) "AソfA@" [list] 2 (#$ . 121069)]) #@38 Do a complete, total copy of a list. (defalias 'gnus-copy-sequence #[(list) ":A:@ABﾁﾂ\"" [list mapcar #[(elem) ":A:ﾁ!@AB" [elem gnus-copy-sequence] 2]] 3 (#$ . 121186)]) #@65 Return a list of elements of LIST1 that do not appear in LIST2. (defalias 'gnus-set-difference #[(list1 list2) "ﾀ !\nﾃ\n@ \"\nA )" [copy-sequence list1 list2 delq] 4 (#$ . 121390)]) #@102 Return a list of elements of LIST1 that do not appear in LIST2. Both lists have to be sorted over <. (defalias 'gnus-sorted-complement #[(list1 list2) "ﾀ\nソn \nR ３\nカ カ\n@ @U+\nA A\n@ @W?\n@ B\nA @ B A 歃nQ ､)" [nil out list1 list2] 3 (#$ . 121590)]) (defalias 'gnus-intersection #[(list1 list2) "ﾀ\n\n@ >\n@ B\nA )" [nil result list2 list1] 3]) (defalias 'gnus-sorted-intersection #[(list1 list2) "ﾀ\n5 5\n@ @U \n@ B\nA A\n@ @W/\nA A )" [nil out list1 list2] 3]) (defalias 'gnus-set-sorted-intersection #[(list1 list2) "ﾀ B ;\f; @\f@U!  A\fA @\f@W5 A｡ A\fA ﾀ｡\nA*" [nil list1 top prev list2] 3]) #@143 Convert list of numbers to a list of ranges or a single range. If ALWAYS-LIST is non-nil, this function will always release a list of ranges. (defalias 'gnus-compress-sequence #[(numbers &optional always-list) "@@ﾃuA<Ｖキ\n@UЕ\nT@U/@E \nU9 < \nB\fB@@A e\fe \nUダ CＶ \nBＶ \nUバ Ｓ \nB\fB+" [numbers first last nil result always-list] 3 (#$ . 122301)]) (defalias (quote gnus-uncompress-sequence) (quote gnus-uncompress-range)) #@134 Expand a list of ranges into a list of numbers. RANGES is either a single range on the form `(num . num)' or a list of these ranges. (defalias 'gnus-uncompress-range #[(ranges) "ﾀ演\fﾀＫ\fA<0\f@\fA \nX+ B T 氓j\fド\f@:З\f@ｧヂ\f@ BＢ\f@@\f@A \nXヂ B T２\fA4 +" [nil result last first ranges] 4 (#$ . 122787)]) #@112 Return a list of ranges that has all articles from both RANGES and LIST. Note: LIST has to be sorted over `<'. (defalias 'gnus-add-to-range #[(ranges list) " ﾁ\nﾃ\"ﾄ\n!A<Cﾅ演 \nΓ\nΓ\n @:;@>@@\nズ\nAズ\nA@Wズ\nAД @Wヘ\n\nAﾅ｡庵 ﾃ\"\n､\n@:р@@A\n\n@X\nAщA)\nΠﾁ\nﾃ\"\n､\nﾋ\nﾌ\"\nコ@:ЫnAガA@:@TA@Uガ院A@B陰A｡K@TA@@UガA@@陰@陰A｡KAガA@:1@ATA@Uガ@A@｡陰A｡K@ATA@@Uガ@A@A｡陰A｡A┰\n-" [ranges gnus-compress-sequence list t copy-sequence nil temp highest lowest ilist out sort #[(r1 r2) ":  @ :  @W" [r1 r2] 2]] 6 (#$ . 123144)]) #@116 Return a list of ranges that has all articles from LIST removed from RANGES. Note: LIST has to be sorted over `<'. (defalias 'gnus-remove-from-range #[(ranges list) "ﾀﾁﾂ !\f\"!" [gnus-compress-sequence gnus-sorted-complement gnus-uncompress-range ranges list] 4 (#$ . 123838)]) (defalias 'gnus-member-of-range #[(number ranges) "A< @YZ AXﾂジ@ｧ% @Y* @@Yジ ジ@ｧ> @UK @@Yケ @AXケﾄA )?" [ranges number t not-stop nil] 3]) #@53 Return the length RANGE would have if uncompressed. (defalias 'gnus-range-length #[(range) "ﾀ !G" [gnus-uncompress-range range] 2 (#$ . 124302)]) #@59 Test whether all elements in SUBLIST are members of LIST. (defalias 'gnus-sublist-p #[(list sublist) "ﾀ\n\n陰@ >ﾄﾄ )" [t sublistp sublist list nil] 3 (#$ . 124455)]) (byte-code "ﾀﾁ!ﾂﾁ Bﾄﾅﾆﾇ# Йﾈ ﾉ !位ﾁﾋ\"位ﾌﾍ\"位ﾎﾏ\"位ﾐﾑ\"位ﾒﾓ\"位ﾔﾕ\"位ﾖﾗ\"位ﾘﾙ\"位ﾚﾛ\"按" [boundp gnus-group-mode-map nil current-load-list put gnus-group-mode mode-class special make-keymap suppress-keymap gnus-define-keys-1 (" " gnus-group-read-group "=" gnus-group-select-group " " gnus-group-select-group "" gnus-group-quick-select-group "j" gnus-group-jump-to-group "n" gnus-group-next-unread-group "p" gnus-group-prev-unread-group "" gnus-group-prev-unread-group [delete] gnus-group-prev-unread-group "N" gnus-group-next-group "P" gnus-group-prev-group "" gnus-group-next-unread-group-same-level "" gnus-group-prev-unread-group-same-level "," gnus-group-best-unread-group "." gnus-group-first-unread-group "u" gnus-group-unsubscribe-current-group "U" gnus-group-unsubscribe-group "c" gnus-group-catchup-current "C" gnus-group-catchup-current-all "l" gnus-group-list-groups "L" gnus-group-list-all-groups "m" gnus-group-mail "g" gnus-group-get-new-news "" gnus-group-get-new-news-this-group "R" gnus-group-restart "r" gnus-group-read-init-file "B" gnus-group-browse-foreign-server "b" gnus-group-check-bogus-groups "F" gnus-find-new-newsgroups "" gnus-group-describe-group "" gnus-group-describe-all-groups "" gnus-group-apropos "" gnus-group-description-apropos "a" gnus-group-post-news "k" gnus-group-edit-local-kill "K" gnus-group-edit-global-kill " " gnus-group-kill-group "" gnus-group-yank-group "" gnus-group-kill-region "" gnus-group-transpose-groups "\f" gnus-group-list-killed "" gnus-group-expire-articles "" gnus-group-expire-all-groups "V" gnus-version "s" gnus-group-save-newsrc "z" gnus-group-suspend "q" gnus-group-exit "Q" gnus-group-quit "?" gnus-group-describe-briefly " " gnus-info-find-node "" gnus-group-edit-group-method "^" gnus-group-enter-server-mode gnus-mouse-2 gnus-mouse-pick-group "<" beginning-of-buffer ">" end-of-buffer "" gnus-bug "" gnus-group-sort-groups "t" gnus-topic-mode "" gnus-activate-all-groups "ｦ" gnus-group-universal-argument "#" gnus-group-mark-group "｣" gnus-group-unmark-group) (gnus-group-mark-map "M" gnus-group-mode-map) ("m" gnus-group-mark-group "u" gnus-group-unmark-group "w" gnus-group-mark-region "m" gnus-group-mark-buffer "r" gnus-group-mark-regexp "U" gnus-group-unmark-all-groups) (gnus-group-group-map "G" gnus-group-mode-map) ("d" gnus-group-make-directory-group "h" gnus-group-make-help-group "a" gnus-group-make-archive-group "k" gnus-group-make-kiboze-group "m" gnus-group-make-group "E" gnus-group-edit-group "e" gnus-group-edit-group-method "p" gnus-group-edit-group-parameters "v" gnus-group-add-to-virtual "V" gnus-group-make-empty-virtual "D" gnus-group-enter-directory "f" gnus-group-make-doc-group "r" gnus-group-rename-group "" gnus-group-delete-group [delete] gnus-group-delete-group) (gnus-group-soup-map "s" gnus-group-group-map) ("b" gnus-group-brew-soup "w" gnus-soup-save-areas "s" gnus-soup-send-replies "p" gnus-soup-pack-packet "r" nnsoup-pack-replies) (gnus-group-sort-map "S" gnus-group-group-map) ("s" gnus-group-sort-groups "a" gnus-group-sort-groups-by-alphabet "u" gnus-group-sort-groups-by-unread "l" gnus-group-sort-groups-by-level "v" gnus-group-sort-groups-by-score "r" gnus-group-sort-groups-by-rank "m" gnus-group-sort-groups-by-method) (gnus-group-list-map "A" gnus-group-mode-map) ("k" gnus-group-list-killed "z" gnus-group-list-zombies "s" gnus-group-list-groups "u" gnus-group-list-all-groups "A" gnus-group-list-active "a" gnus-group-apropos "d" gnus-group-description-apropos "m" gnus-group-list-matching "M" gnus-group-list-all-matching "l" gnus-group-list-level) (gnus-group-score-map "W" gnus-group-mode-map) ("f" gnus-score-flush-cache) (gnus-group-help-map "H" gnus-group-mode-map) ("f" gnus-group-fetch-faq) (gnus-group-sub-map "S" gnus-group-mode-map) ("l" gnus-group-set-current-level "t" gnus-group-unsubscribe-current-group "s" gnus-group-unsubscribe-group "k" gnus-group-kill-group "y" gnus-group-yank-group "w" gnus-group-kill-region " " gnus-group-kill-level "z" gnus-group-kill-all-zombies)] 4) #@618 Major mode for reading news. All normal editing commands are switched off. \ The group buffer lists (some of) the groups available. For instance, `\[gnus-group-list-groups]' will list all subscribed groups with unread articles, while `\[gnus-group-list-zombies]' lists all zombie groups. Groups that are displayed can be entered with `\[gnus-group-read-group]'. To subscribe to a group not displayed, type `\[gnus-group-unsubscribe-group]'. For more in-depth information on this mode, read the manual (`\[gnus-info-find-node]'). The following commands are available: \{gnus-group-mode-map} (defalias 'gnus-group-mode #[nil "ﾁﾂﾃ\"ﾄ 闇 鞍 杏ﾉ\nﾋ 偉 ﾎ!威p!尉ﾑﾔﾕ!椅ﾕﾗﾌﾑ$畏ﾙ!" [menu-bar-mode gnus-visual-p group-menu menu gnus-group-make-menu-bar kill-all-local-variables gnus-simplify-mode-line gnus-group-mode major-mode "Group" mode-name gnus-group-set-mode-line nil mode-line-process use-local-map gnus-group-mode-map buffer-disable-undo t truncate-lines buffer-read-only gnus-make-local-hook post-command-hook gnus-add-hook gnus-clear-inboxes-moved run-hooks gnus-group-mode-hook] 5 (#$ . 128702) nil]) (defalias 'gnus-clear-inboxes-moved #[nil "ﾀ" [nil nnmail-moved-inboxes] 2]) #@42 Enter the group under the mouse pointer. (defalias 'gnus-mouse-pick-group #[(e) "ﾀ !按ﾃ!" [mouse-set-point e gnus-group-read-group nil] 2 (#$ . 129936) "e"]) (defalias 'gnus-group-default-level #[(&optional level number-or-nil) "! ｧ\n 0\n0 \f' 0\n0 " [gnus-group-use-permanent-levels level gnus-group-default-list-level gnus-level-subscribed number-or-nil] 2]) #@66 Read network news as a slave, without connecting to local server (defalias 'gnus-slave-no-server #[(&optional arg) "ﾀ ﾂ\"" [gnus-no-server arg t] 3 (#$ . 130337) "P"]) #@321 Read network news. If ARG is a positive number, Gnus will use that as the startup level. If ARG is nil, Gnus will be started at level 2. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. As opposed to `gnus', this command will not connect to the local server. (defalias 'gnus-no-server #[(&optional arg slave) " Sﾃ\nﾄ #鞍ﾇ!\n)" [arg gnus-level-default-subscribed val gnus t slave make-local-variable gnus-group-use-permanent-levels] 4 (#$ . 130513) "P"]) #@23 Read news as a slave. (defalias 'gnus-slave #[(&optional arg) "ﾀ ﾂﾃ#" [gnus arg nil slave] 4 (#$ . 131044) "P"]) #@30 Pop up a frame to read news. (defalias 'gnus-other-frame #[(&optional arg) "ﾀ ! ﾂﾄ !)ﾆﾇ !案 !" [get-buffer gnus-group-buffer t pop-up-frames gnus arg select-frame make-frame] 2 (#$ . 131164) "P"]) #@212 Read network news. If ARG is non-nil and a positive number, Gnus will use that as the startup level. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. (defalias 'gnus #[(&optional arg dont-connect slave) "ﾀ ! ﾂ !暗 ﾄ 闇 鞍 ﾉ 位 ﾌ  /ﾎ 委ﾐ!)ｧ?ﾐV?ﾊﾔXﾖT?!+" [get-buffer gnus-group-buffer switch-to-buffer gnus-group-get-new-news gnus-clear-system nnheader-init-server-buffer gnus-read-init-file slave gnus-slave gnus-group-setup-buffer nil buffer-read-only erase-buffer gnus-inhibit-startup-message gnus-group-startup-message sit-for 0 arg did-connect level ((byte-code " ﾂ Kﾃﾄ!闇!Ы" %ﾊ  2ﾌ 囲ﾎﾏ\"威 尉ﾒ#慰!易 椅ﾗ!畏 惟" [dont-connect did-connect gnus-group-quit run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-startup-file gnus-current-startup-file gnus-slave gnus-use-dribble-file gnus-dribble-read-file gnus-use-grouplens bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-summary-make-display-table gnus-setup-news nil level gnus-group-list-groups gnus-group-first-unread-group gnus-configure-windows group gnus-group-set-mode-line] 4)) dont-connect gnus-start-news-server] 2 (#$ . 131373) "P"]) #@27 Unload all Gnus features. (defalias 'gnus-unload #[nil "ﾀﾁ!Ыnﾂﾃ! ﾄ7ﾇﾈ@@\"-ﾉ@暸-ﾊ ﾋ\"Aﾄ*" [boundp load-history error "Sorry, `gnus-unload' is not implemented in this Emacs version." nil feature history string-match "^\\(gnus\\|nn\\)" provide unload-feature force] 4 (#$ . 132632) nil]) #@45 Byte-compile the user-defined format specs. (defalias 'gnus-compile #[nil "ﾁ看ﾆﾇ\"\fケ\f陰@@ﾈ=%ﾉ \"\f AA@<ソf AA@@ﾊ=Ыfﾂﾋﾁ AA@EM偉ﾂ! AAﾍﾂ!\fﾈBBﾅﾆﾏ\"," [gnus-format-specs nil gnus-tmp-func entry entries gnus-message 7 "Compiling format specs..." version delq byte-code lambda byte-compile gnus-byte-code emacs-version "Compiling user specs...done"] 5 (#$ . 132952) nil]) #@47 Indent rigidly using only spaces and no tabs. (defalias 'gnus-indent-rigidly #[(start end arg) "褐 }按 #eb案ﾅﾆﾇ# ﾈﾅﾇ#*" [start end indent-rigidly arg search-forward " " nil t replace-match] 4 (#$ . 133356)]) #@43 Insert startup message in current buffer. (defalias 'gnus-group-startup-message #[(&optional x y) "ﾀ 庵ﾂﾃ\"c案edﾅ ﾇZﾈ]ﾉ･#eb位y依ed\"\fﾍ \fZﾐﾈﾑ･ﾉ_]ﾒ\"c+eb意ﾔﾕﾖ#ゴﾗﾈ畔娩ﾙ$eb移 @ﾝﾕOPCﾟﾖ!)" [erase-buffer format " %s\n _ ___ _ _\n _ ___ __ ___ __ _ ___\n __ _ ___ __ ___\n _ ___ _\n _ _ __ _\n ___ __ _\n __ _\n _ _ _\n _ _ _\n _ _ _\n __ ___\n _ _ _ _\n _ _\n _ _\n _ _\n _\n __\n\n" "" gnus-indent-rigidly window-width x 46 0 2 1 count-lines pheight window-height wheight rest make-string 3 10 search-forward "Praxis" nil t gnus-put-text-property face bold gnus-group-set-mode-line mode-string gnus-version 4 mode-line-buffer-identification set-buffer-modified-p] 6 (#$ . 133582)]) (defalias 'gnus-group-setup-buffer #[nil "ﾀ !ﾂ !暗 案 ﾆﾇ!" [get-buffer gnus-group-buffer switch-to-buffer gnus-add-current-to-buffer-list gnus-group-mode gnus-carpal gnus-carpal-setup-buffer group] 2]) #@183 List newsgroups with level LEVEL or lower that have unread articles. Default is all subscribed groups. If argument UNREAD is non-nil, groups with no unread articles are also listed. (defalias 'gnus-group-list-groups #[(&optional level unread lowest) "Ыn @ Aﾃ!ﾄ 闇 鞍ﾇ`ﾉy`b)!ﾊ  \f q\n#尉 ﾉUェﾒﾓ\"めdbス \f\"ﾝ dﾖﾗ!みﾘedﾙﾚ \"ﾝ!лﾆL)$b)ﾝﾟ  \"JAAA!τﾘedﾙﾚ!@@\"ﾝ!┨ﾆL)$ﾄb)ﾑ!A!!ﾜdb遺y) +" [level gnus-group-list-mode unread gnus-group-default-level gnus-group-setup-buffer gnus-update-format-specifications nil text-properties-at p 0 gnus-group-group-name group props case-fold-search gnus-group-buffer gnus-group-prepare-function lowest buffer-size gnus-message 5 gnus-no-groups-message gnus-group-goto-next-group-function gnus-group-search-forward t text-property-any gnus-group intern gnus-active-hashtb symbol boundp point intern-soft gnus-newsrc-hashtb newsrc -1 gnus-group-position-point] 8 (#$ . 134865) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (or (gnus-group-default-level nil t) gnus-group-default-list-level gnus-level-subscribed)))]) #@91 List groups on LEVEL. If ALL (the prefix), also list groups that have no unread articles. (defalias 'gnus-group-list-level #[(level &optional all) "ﾀ \n #" [gnus-group-list-groups level all] 4 (#$ . 136045) "nList groups on level: \nP"]) #@242 List all newsgroups with unread articles of level LEVEL or lower. If ALL is non-nil, list groups that have no unread articles. If LOWEST is non-nil, list all newsgroups of level LOWEST or higher. If REGEXP, only list groups matching REGEXP. (defalias 'gnus-group-prepare-flat #[(level &optional all lowest regexp) "q庵\nA ﾄﾁ演演 \n ﾌ  W\n\n@ @ﾎ 8\nA\nﾏ\"J@(ソ\ﾒ\"( A@:ノ@Ｐ)X( Y(ﾂﾖ=ヱｕﾘVﾂΙﾚﾛ 8暸ﾂΨﾒ\"ﾂﾝ >ﾂﾝ 暸(ﾞ A@:ω@ぺ)ﾛ 8ﾟ 8%( Y  X珮\"綵"\" $%Y& %X&珮&綵"&%$郁 B)!." [gnus-group-buffer nil gnus-newsrc-alist lowest 1 params group unread clevel info newsrc buffer-read-only erase-buffer gnus-level-zombie 5 intern-soft gnus-newsrc-hashtb regexp string-match rank level all t gnus-group-list-inactive-groups 0 gnus-list-groups-with-ticked-articles tick 3 gnus-permanently-visible-groups visible gnus-group-insert-group-line 4 gnus-group-prepare-flat-list-dead sort gnus-zombie-list string< 90 gnus-level-killed gnus-killed-list 75 gnus-group-set-mode-line gnus-group-list-mode run-hooks gnus-group-prepare-hook] 9 (#$ . 136291)]) (defalias 'gnus-group-prepare-flat-list-dead #[(groups level mark regexp) "ﾀ\nエ 陰@ﾄ\n \"ﾅ``Tﾆﾈ ﾉｱ位ﾋ \f\" ﾎ !8 ﾀL )ﾏﾐﾑｯ# ﾅ``Tﾆﾈ 陰@ﾉｱ位ﾋ \f\" ﾎ !в ﾀL )ﾏﾐﾑｯ#G)" [nil group regexp groups string-match gnus-add-text-properties " " mark " *: " "\n" gnus-group intern gnus-active-hashtb symbol boundp gnus-unread t gnus-level level] 9]) #@44 Find the real name of a foreign newsgroup. (defalias 'gnus-group-real-name '(macro . #[(group) "ﾀﾁ\nDCﾃBB" [let gname group ((if (string-match ":[^:]+$" gname) (substring gname (1+ (match-beginning 0))) gname))] 3 (#$ . 137889)])) (defalias 'gnus-server-add-address #[(method) "ﾀ @!ﾃﾄ\n \">(ﾆ\nﾇP! 桷(ﾈ ﾆ\nﾇP! A@DC\") )" [symbol-name method method-name address assoc gnus-valid-select-methods intern "-address" append] 5]) (put (quote gnus-server-add-address) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'gnus-server-get-method #[(group method) "; ﾁ!\n噬\n@; ﾄ \"2 2A@ﾅ噬2ﾆ@!ﾈﾉ\n\">ヂﾋﾌP!桷aﾍﾋﾌP!A@DC\"Ｃ*" [method gnus-server-to-method gnus-select-method group gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" append] 5]) (put (quote gnus-server-get-method) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Map virtual server names to select methods. (defalias 'gnus-server-to-method #[(server) " < Iﾁ噬\nIﾃ\f\"AI ゥﾇﾈ@@@@@A@#噪D陰\"@@)" [server "native" gnus-select-method assoc gnus-server-alist gnus-opened-servers opened format "%s:%s"] 5 (#$ . 138855)]) #@36 Say whether two servers are equal. (defalias 'gnus-method-equal '(macro . #[(ss1 ss2) "ﾀﾁ\nDﾃ\fDDﾅBB" [let s1 ss1 s2 ss2 ((or (equal s1 s2) (and (= (length s1) (length s2)) (progn (while (and s1 (member (car s1) s2)) (setq s1 (cdr s1))) (null s1)))))] 4 (#$ . 139151)])) #@36 Say whether two methods are equal. (defalias 'gnus-server-equal #[(m1 m2) " ;ﾂ!  ( ;'ﾂ !(  \f嚀P G\fGUP ク @\f揀N AА ?," [m1 gnus-select-method gnus-server-to-method m2 s2 s1] 4 (#$ . 139429)]) #@47 Return a list of known servers using BACKEND. (defalias 'gnus-servers-using-backend #[(backend) "ﾁ \f @@@= @@\nB 陰\n*" [gnus-opened-servers nil out opened backend] 2 (#$ . 139670)]) #@55 Say whether the user wants to use the archive server. (defalias 'gnus-archive-server-wanted-p #[nil " Ыnﾂ ﾃﾄ暸@!ﾆ !)" [gnus-message-archive-method gnus-message-archive-group nil t nnfolder-active-file active file-exists-p] 3 (#$ . 139875)]) #@46 Return the whole name from GROUP and METHOD. (defalias 'gnus-group-prefixed-name #[(group method) "; ﾁ!ﾂﾃ@\"ﾄﾂﾃ@\"ﾅﾆ!\"#ﾇ\"7A@7A@ﾉ?7ﾊA@Pﾋ\fR" [method gnus-server-to-method format "%s" assoc gnus-methods-using address gnus-server-equal gnus-message-archive-method "" "+" ":" group] 5 (#$ . 140143)]) #@46 Return the prefix of the current group name. (defalias 'gnus-group-real-prefix #[(group) "ﾀﾁ\n\" \nﾃ鴛Oﾄ" [string-match "^[^:]+:" group 0 ""] 3 (#$ . 140472)]) #@55 Return the server or method used for selecting GROUP. (defalias 'gnus-group-method #[(group) "ﾀ !ﾃ噬\fｚ ﾃﾆ演 \n ﾌﾍ\n\":ﾎ\nﾏ鴛SO! \nﾏ表nGSO\nDﾎ\nﾏ\nGSO!  プ @@@ =ネ @@ @@A@\n噬l @@ 陰 Dﾐ\"@ﾐ\"@ \nD-)" [gnus-group-real-prefix group prefix "" gnus-select-method gnus-opened-servers nil found possible backend server servers string-match "^[^\\+]+\\+" intern 0 rassoc gnus-server-alist] 6 (#$ . 140642)]) #@53 Return whether METHOD is a secondary select method. (defalias 'gnus-secondary-method-p #[(method) "ﾁ\n\n;ﾄ\n!Ｑ\n 噬 Ｑ\n@;+ +ﾆ \n\"Ｑ\n? ?\nA@ﾇ噬?\nＱ\nﾈ\n@! ﾊﾋ \f\">ハﾍ ﾎP!\n桷nﾏ\nﾍ ﾎP!\nA@DC\"Ｐ\n**ﾁ@\n;リﾄ\n!れ\n 噬 れ\n@;Η Ηﾆ \n\"れ\nｹ ┿\nA@ﾇ噬ｹ\nれ\nﾈ\n@! ﾊﾋ \f\">ﾍ ﾎP!\n桷ﾏ\nﾍ ﾎP!\nA@DC\"る\n**噪Aи*" [gnus-secondary-select-methods nil method group gnus-server-to-method gnus-select-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" append gmethod methods] 7 (#$ . 141115)]) (put (quote gnus-secondary-method-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Say whether a group is foreign or not. (defalias 'gnus-group-foreign-p #[(group) "ﾀ !? ﾂ !?" [gnus-group-native-p group gnus-group-secondary-p] 2 (#$ . 141851)]) #@41 Say whether the group is native or not. (defalias 'gnus-group-native-p #[(group) "ﾀﾁ\n\"?" [string-match ":" group] 3 (#$ . 142022)]) #@44 Say whether the group is secondary or not. (defalias 'gnus-group-secondary-p #[(group) "ﾀ ! ﾄ\n\n;ﾅ\n!Ｗ\n噬 Ｗ\n@;1 1ﾇ \n\"Ｗ\nウ Е\nA@ﾈ噬E\nＷ\nﾉ\n@!\nﾋﾌ\n \">フﾎ\nﾏP!\n桷tﾐ\nﾎ\nﾏP!\nA@DC\"Ｖ\n**ﾄ@\n;ヰﾅ\n!\n噬\n@;Ο Οﾇ \n\"\nγ ﾁ\nA@ﾈ噬ﾁ\n\nﾉ\n@!\nﾋﾌ\n \">ﾎ\nﾏP!\n桷ﾐ\nﾎ\nﾏP!\nA@DC\"ん\n**噪A+" [gnus-find-method-for-group group method gnus-secondary-select-methods nil gnus-server-to-method gnus-select-method gnus-server-extend-method "" symbol-name method-name address assoc gnus-valid-select-methods intern "-address" append gmethod methods] 7 (#$ . 142163)]) #@109 Returns the group parameters for GROUP. If SYMBOL, return the value of that symbol in the group parameters. (defalias 'gnus-group-get-parameter #[(group &optional symbol) "ﾀﾁﾂ \f\"J88ﾇ \" )" [5 2 intern-soft group gnus-newsrc-hashtb params symbol gnus-group-parameter-value] 5 (#$ . 142834)]) #@45 Return the value of SYMBOL in group PARAMS. (defalias 'gnus-group-parameter-value #[(params symbol) " >@  暸" [symbol params] 2 (#$ . 143145)]) #@31 Add parameter PARAM to GROUP. (defalias 'gnus-group-add-parameter #[(group param) "ﾀﾁ\n \"J8ﾅﾇ\f8B\nﾈ#)" [2 intern-soft group gnus-newsrc-hashtb info gnus-group-set-info param 5 params] 5 (#$ . 143300)]) #@39 Set parameter NAME to VALUE in GROUP. (defalias 'gnus-group-set-parameter #[(group name value) "ﾀﾁ\n \"J8Hﾅ\f8BC ア @<. @@=8ﾊ @C\" A ﾋ\nﾌ#*)" [2 intern-soft group gnus-newsrc-hashtb info 5 name value new-params old-params append gnus-group-set-info params] 5 (#$ . 143518)]) #@77 Add SCORE to the GROUP score. If SCORE is nil, add 1 to the score of GROUP. (defalias 'gnus-group-add-score #[(group &optional score) "ﾀﾁ\n \"J8O\fA@:2 @\fA@:% A&ﾆ)-ﾈ\\｡N 院\fA@:イ ADﾆ)Kﾈ\\B))" [2 intern-soft group gnus-newsrc-hashtb info rank 0 score 1] 5 (#$ . 143834)]) #@148 Increase the score of the current group. This is a handy function to add to `gnus-summary-exit-hook' to increase the score of each group you read. (defalias 'gnus-summary-bubble-group #[nil "ﾀ !" [gnus-group-add-score gnus-newsgroup-name] 2 (#$ . 144145)]) (defalias 'gnus-group-set-info #[(info &optional method-only-group part) "ﾀ \n@ \"J\n ﾆ\f8\nﾇ セ\f)ﾉﾊ \"\nG ﾈ=6ﾌ7ﾍWゲS\n嶢Zﾇ\"｡S\n *\fq惟\n8ﾓﾔ\"ピﾇqｷﾕ\n@ﾗﾘ\"ヴﾙ乃ﾇOｖ);Δぉﾚ@!:ｲﾒ\n8A@#ぞﾕ\n@!)ﾛﾍﾜ\"安ﾝ\n@ﾗﾘ\"ﾚﾙ乃ﾇOま)ﾒ\n8\" \"J)\f\fAA\n\f@ﾟ=?ﾀ\n@ \"J\f畚n@!Gﾉ秉n@\"," [intern-soft method-only-group info gnus-newsrc-hashtb entry part-info 2 nil method error "Trying to change non-existent group %s" part 5 6 total len make-list gnus-group-buffer 4 gnus-server-equal "native" gnus-group-make-group gname string-match ":[^:]+$" 0 prin1-to-string gnus-message "Note: New group created" gnus-group-prefixed-name gnus-select-method t gnus-active-hashtb gnus-list-of-unread-articles "No such group: %s"] 6]) (defalias 'gnus-group-set-method-info #[(group select-method) "ﾀ \nﾃ#" [gnus-group-set-info select-method group method] 4]) (defalias 'gnus-group-set-params-info #[(group params) "ﾀ \nﾁ#" [gnus-group-set-info params group] 4]) #@46 Update the current line in the group buffer. (defalias 'gnus-group-update-group-line #[nil "ﾀﾂ ﾄ \"Jﾀ E.ﾈ !.ﾉﾊﾋﾌ8!ﾍQ!夷 ﾏy`ﾐy`|尉 !惟y意 ," [nil buffer-read-only gnus-group-group-name group intern-soft gnus-newsrc-hashtb entry gnus-group-indentation gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" prin1-to-string 2 ")" gnus-group-group-indentation 0 1 gnus-group-insert-group-line-info -1 gnus-group-position-point] 6 (#$ . 145462)]) #@35 Insert GROUP on the current line. (defalias 'gnus-group-insert-group-line-info #[(group) "ﾀ \n\"Jﾃ:ﾇ8ﾈ \fA@ :& @( )ﾊ\f8@3ﾋﾌ\f8%Ｃﾈ  揀HJﾃﾀ \"Jダ AT @ZＡﾑﾃ%+" [intern-soft group gnus-newsrc-hashtb nil info active entry 2 gnus-group-insert-group-line rank 3 t 4 gnus-zombie-list gnus-level-zombie gnus-level-killed gnus-active-hashtb 0] 8 (#$ . 145948)]) #@42 Insert a group line in the group buffer. (defalias 'gnus-group-insert-group-line #[(gnus-tmp-group gnus-tmp-level gnus-tmp-marked number gnus-tmp-method) "ﾀ \n\"J A @ZTﾄｧ$ﾇﾄ]!%ﾈ ｧ8ﾇﾄ Z]!9ﾈ\n \fXエﾍＡ XゴﾏＡ UダﾑＡﾒ ﾕﾖ\"ヘﾄ乃ﾗOＺ)ヮﾀ \"Jﾚｏﾚ 揀ﾝﾍﾝ=Λﾟがﾚ !\"#\";β\"!2\"%噬ﾍ%2\"@;##\"\"2\"#\"A@ﾚ噬\"2\"\"\"@!(鳰(+\">/(P!\"桷/\"(P!\"A@DC\"1\"**!A@<ﾚ/!@Eﾚ0!ズ!@!A@#Zﾚ3ｧブﾄUブ5暸ブＷﾍ7 8揀9ｅﾍ:;ヲ !ﾚ=ﾗ>ﾗ?ﾗ@ﾄy、``T。C!． \n\"E：E!ﾅEﾗLE)；ｧﾚ？ !み！゛7゜L｀ ｯ\n#¨＾PQR\"Q R\"R<QR>\"PR>\"！*6ヾyゝゞ!為y〃 ." [intern-soft gnus-tmp-group gnus-active-hashtb gnus-tmp-active 0 gnus-tmp-number-total number int-to-string "*" gnus-tmp-number-of-unread gnus-tmp-number-of-read gnus-tmp-level gnus-level-subscribed 32 gnus-level-unsubscribed 85 gnus-level-zombie 90 75 gnus-tmp-subscribed gname string-match ":[^:]+$" nil gnus-tmp-qualified-group gnus-description-hashtb "" gnus-tmp-newsgroup-description gnus-moderated-list 109 gnus-tmp-moderated "(m)" gnus-tmp-moderated-string gnus-tmp-method method group gnus-server-to-method gnus-select-method gnus-server-extend-method symbol-name method-name address assoc gnus-valid-select-methods intern "-address" append gnus-tmp-news-server gnus-tmp-news-method format "(%s:%s)" gnus-tmp-news-method-string tick gnus-tmp-marked 42 gnus-tmp-marked-mark gnus-group-marked gnus-process-mark gnus-tmp-process-marked gnus-use-grouplens bbb-grouplens-group-p gnus-tmp-grouplens buffer-read-only header gnus-tmp-header gnus-add-text-properties eval gnus-group-line-format-spec gnus-group symbol boundp gnus-unread string-to-int t gnus-marked gnus-indentation gnus-group-indentation gnus-level group-highlight highlight class type gnus-visual -1 run-hooks gnus-group-update-hook gnus-group-remove-excess-properties] 14 (#$ . 146347)]) #@116 Update all lines where GROUP appear. If VISIBLE-ONLY is non-nil, the group won't be displayed if it isn't already. (defalias 'gnus-group-update-group #[(group &optional visible-only) "q鯨庵\n \"ﾅ\f!\fﾆL\f)eﾆ \nﾋ\n\f\"J アﾎ\n!Бﾏﾐﾑﾒ 8!ﾓQ!)ﾔ dﾕ\n$ ホﾖ b為 ﾙy`ﾚy`|維\n!含y胃ﾞ!* T B ヱ \n!みﾋ\n\f\"JAA χ @χﾔedﾕﾁ @@ \"ﾅ\f!┰\fﾆL\f)$!ﾇ!b)ﾔ A ─ ﾜdb)ﾗ ﾛ\n!含y胃ﾞ!* ." [gnus-group-buffer intern group gnus-active-hashtb symbol boundp nil buffer-read-only found loc ident intern-soft gnus-newsrc-hashtb entry gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" prin1-to-string 2 ")" text-property-any gnus-group t gnus-group-group-indentation gnus-group-indentation 0 1 gnus-group-insert-group-line-info -1 run-hooks gnus-group-update-group-hook visible-only gnus-goto-missing-group-function point gnus-group-set-mode-line] 8 (#$ . 148372)]) #@43 Update the mode line in the group buffer. (defalias 'gnus-group-set-mode-line #[nil "ﾀ >浬nq ﾄ \"A@ @\n ﾋ噬-ﾋ.ﾌ ﾎﾐTﾓ!Tﾔ!Tq易 ﾖU)?ﾘ!テﾚＧﾛGVボﾖﾝZOﾞC!!. " [group gnus-updated-mode-lines gnus-group-buffer gnus-group-mode-line-format-spec gnus-parse-format gnus-group-mode-line-format gnus-group-mode-line-format-alist gformat gnus-select-method gnus-tmp-news-server gnus-tmp-news-method "" ":" gnus-tmp-colon 60 max-len nil gnus-tmp-header gnus-dribble-buffer buffer-name buffer-modified-p buffer-size 0 modified eval mode-string "---*- " "----- " mode-line-modified 4 gnus-mode-line-buffer-identification mode-line-buffer-identification set-buffer-modified-p] 4 (#$ . 149315)]) #@52 Get the name of the newsgroup on the current line. (defalias 'gnus-group-group-name #[nil "ﾀ`ﾂy` b)ﾃ\"ﾅ\f!)" [get-text-property p 0 gnus-group group symbol-name] 4 (#$ . 150073)]) #@53 Get the level of the newsgroup on the current line. (defalias 'gnus-group-group-level #[nil "ﾀ`ﾂy` b)ﾃ\"" [get-text-property p 0 gnus-level] 3 (#$ . 150268)]) #@59 Get the indentation of the newsgroup on the current line. (defalias 'gnus-group-group-indentation #[nil "ﾀ`ﾂy` b)ﾃ\"\f\f ﾅ" [get-text-property p 0 gnus-indentation gnus-group-indentation-function ""] 3 (#$ . 150437)]) #@73 Get the number of unread articles of the newsgroup on the current line. (defalias 'gnus-group-group-unread #[nil "ﾀ`ﾂy` b)ﾃ\"" [get-text-property p 0 gnus-unread] 3 (#$ . 150674)]) #@298 Find the next newsgroup with unread articles. If BACKWARD is non-nil, find the previous newsgroup instead. If ALL is non-nil, just find any newsgroup. If LEVEL is non-nil, find group with level LEVEL, or higher if no such group exists. If FIRST-TOO, the current line is also eligible as a target. (defalias 'gnus-group-search-forward #[(&optional backward all level first-too) "ﾁ ﾂ `ﾄ演 \n ﾋy\f)\nymь Фﾎ`ﾏ\"ｧAﾋV)ﾎ`ﾑ\" X?ﾎ`ﾑ\" U  W W  `ﾄь\nyﾋU)ﾔ 易か｡bｩﾕ." [backward -1 1 gnus-level-killed nil lev found pos beg low way 0 first-too all get-text-property gnus-unread unread gnus-level gnus-level-subscribed level gnus-group-position-point t] 7 (#$ . 150866)]) #@25 Mark the current group. (defalias 'gnus-group-mark-group #[(n &optional unmark no-advance) "ﾀ ﾄVザmФﾅ ウﾄy鞍暸!ﾈu伊ﾊ! 9ﾌc囲 \"Eﾏc ﾍ \"BНﾑﾊ! Sﾒ *" [nil group buffer-read-only n 0 gnus-group-group-name process gnus-group-mark-positions 2 delete-char 1 unmark " " delete gnus-group-marked "#" no-advance gnus-group-next-group gnus-summary-position-point] 5 (#$ . 151633) "p"]) #@41 Remove the mark from the current group. (defalias 'gnus-group-unmark-group #[(n) "ﾀ ﾂ\"暗 " [gnus-group-mark-group n unmark gnus-group-position-point] 3 (#$ . 152054) "p"]) #@20 Unmark all groups. (defalias 'gnus-group-unmark-all-groups #[nil " ﾂ 陰@!*ﾃ " [gnus-group-marked groups gnus-group-remove-mark gnus-group-position-point] 3 (#$ . 152234) nil]) #@77 Mark all groups between point and mark. If UNMARK, remove the mark instead. (defalias 'gnus-group-mark-region #[(unmark beg end) "ﾀ \n\" b ﾄ \"Z*" [count-lines beg end num gnus-group-mark-group unmark] 4 (#$ . 152428) "P\nr"]) #@68 Mark all groups in the buffer. If UNMARK, remove the mark instead. (defalias 'gnus-group-mark-buffer #[(&optional unmark) "ﾀ ed#" [gnus-group-mark-region unmark] 4 (#$ . 152666) "P"]) #@41 Mark all groups that match some regexp. (defalias 'gnus-group-mark-regexp #[(regexp) "Aﾁ ﾄ 陰@@\"ﾆ\n!*ﾇ " [gnus-newsrc-alist nil group alist string-match regexp gnus-group-set-mark gnus-group-position-point] 4 (#$ . 152857) "sMark (regexp): "]) #@99 Remove the process mark from GROUP and move point there. Return nil if the group isn't displayed. (defalias 'gnus-group-remove-mark #[(group) "ﾀ !環ﾃﾄﾅ#)ﾅﾆ \"ﾈ" [gnus-group-goto-group group gnus-group-mark-group 1 unmark t delete gnus-group-marked nil] 4 (#$ . 153126)]) #@32 Set the process mark on GROUP. (defalias 'gnus-group-set-mark #[(group) "ﾀ !環ﾃﾄﾅ#) ﾆ \"B" [gnus-group-goto-group group gnus-group-mark-group 1 nil t delete gnus-group-marked] 4 (#$ . 153413)]) #@78 Perform any command on all groups accoring to the process/prefix convention. (defalias 'gnus-group-universal-argument #[(arg &optional groups func) "ﾁ\n!ﾃ\fﾆﾇﾈﾉ!!!ﾊ=&ﾋﾌﾍ\";;ﾎ陰@!委\f!&+ﾐ " [groups gnus-group-process-prefix arg nil func group key-binding read-key-sequence substitute-command-keys "\\\\[gnus-group-universal-argument]" undefined gnus-error 1 "Undefined key" gnus-group-remove-mark command-execute gnus-group-position-point] 4 (#$ . 153623) "P"]) #@107 Return a list of groups to work on. Take into consideration N (the prefix) and the list of marked groups. (defalias 'gnus-group-process-prefix #[(n) "ェﾁ!ﾂWﾃﾄﾅ!ﾆ ﾂVァﾊ ァBSﾋ ! ),ﾌﾍ!ル ルﾌﾎ!ルル`ﾏ ]ﾆ柿ﾏ ^b位 Bユﾋﾄ!ﾂUユ`Wl+ヵﾒ!ﾊ C)" [n prefix-numeric-value 0 -1 1 abs nil groups group way gnus-group-group-name gnus-group-next-group boundp transient-mark-mode mark-active mark max gnus-group-marked reverse] 5 (#$ . 154141)]) #@300 Read news in this newsgroup. If the prefix argument ALL is non-nil, already read articles become readable. IF ALL is a number, fetch this number of articles. If the optional argument NO-ARTICLE is non-nil, no article will be auto-selected upon group entry. If GROUP is non-nil, fetch that group. (defalias 'gnus-group-read-group #[(&optional all no-article group) "ﾁ ﾂ演ﾇﾈ!伊ﾊﾋ\f\"J88 ｧ0 J 9 @Jﾋ\"JJ AT @Zﾏ iｧiﾐ\f暸G\\ﾑ\f暸G\\ﾒU#-" [group gnus-group-group-name nil entry marked active number error "No group on current line" 3 2 intern-soft gnus-newsrc-hashtb all gnus-active-hashtb gnus-summary-read-group tick dormant 0 no-article] 6 (#$ . 154655) "P"]) #@171 Select this newsgroup. No article is selected automatically. If ALL is non-nil, already read articles become readable. If ALL is a number, fetch this number of articles. (defalias 'gnus-group-select-group #[(&optional all) "ﾀ ﾂ\"" [gnus-group-read-group all t] 3 (#$ . 155373) "P"]) #@99 Select the current group "quickly". This means that no highlighting or scoring will be performed. (defalias 'gnus-group-quick-select-group #[(&optional all) "ﾀ演ﾅﾇ\"," [nil gnus-summary-expunge-below gnus-apply-kill-hook gnus-score-find-score-files-function gnus-visual gnus-group-read-group all t] 4 (#$ . 155663) "P"]) #@55 Select the current group without hiding any articles. (defalias 'gnus-group-visible-select-group #[(&optional all) "ﾀﾂ ﾀ\")" [t gnus-inhibit-limiting gnus-group-read-group all] 3 (#$ . 155998) "P"]) #@94 Start Gnus if necessary and enter GROUP. Returns whether the fetching was successful or not. (defalias 'gnus-fetch-group #[(group) "ﾀ ! ﾂ 暗ﾄ #" [get-buffer gnus-group-buffer gnus gnus-group-read-group nil group] 4 (#$ . 156205) "sGroup name: "]) (defalias 'gnus-group-read-ephemeral-group #[(group method &optional activate quit-config) "ﾀ !ソn ﾂ \"ﾄ \"ﾆﾇ ﾇ ﾉ & )pﾊBBCｯEL q偉 !Бﾍﾎﾏ !\"ケﾑ !Пﾍﾒ!杏ﾓﾔ)" [gnus-group-foreign-p group gnus-group-prefixed-name method intern gnus-newsrc-hashtb t nil gnus-level-default-subscribed quit-config summary gnus-group-buffer gnus-check-server error "Unable to contact server: %s" gnus-status-message activate gnus-request-group "Couldn't request group" (byte-code "ﾀﾁ噂n#" [gnus-group-read-group t group] 4) ((error) (quit))] 11]) #@26 Jump to newsgroup GROUP. (defalias 'gnus-group-jump-to-group #[(group) "ﾁ噬\nﾂﾃ!案ﾅ\"ﾂﾆ\"杏edﾈﾉ\n\" ﾌ !- ﾍL )$ﾏ!мウb}ﾐ\n\"JЫ\ﾑ!Ы\ﾂﾒﾓ!#慰!杏edﾈﾉ\n\" ﾌ !ж ﾍL )$b易 )" [group "" error "Empty group name" string-match "[-]" "Control characters in group: %s" text-property-any gnus-group intern gnus-active-hashtb symbol boundp nil b gnus-ephemeral-group-p intern-soft gnus-activate-group "%s error: %s" gnus-status-message gnus-group-update-group gnus-group-position-point] 7 (#$ . 157013) (list (completing-read "Group: " gnus-active-hashtb nil (gnus-read-active-file-p) nil (quote gnus-group-history)))]) #@26 Goto to newsgroup GROUP. (defalias 'gnus-group-goto-group #[(group) "$ﾁedﾂﾃ\f\"ﾆ ! ﾇL )$#b)" [group text-property-any gnus-group intern gnus-active-hashtb symbol boundp nil b] 8 (#$ . 157672)]) #@143 Go to next N'th newsgroup. If N is negative, search backward instead. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-next-group #[(n) "ﾀ ﾂ\"" [gnus-group-next-unread-group n t] 3 (#$ . 157890) "p"]) #@349 Go to next N'th unread newsgroup. If N is negative, search backward instead. If ALL is non-nil, choose any newsgroup, unread or not. If LEVEL is non-nil, choose the next group with level LEVEL, or, if no such group can be found, the next group with a level higher than LEVEL. Returns the difference between N and the number of skips actually made. (defalias 'gnus-group-next-unread-group #[(n &optional all level) "ﾁWﾂ!ﾁV$ﾄ ?#$S ﾁUГﾈﾉﾊ6ﾋ7ﾌァﾍAﾋ$*" [n 0 abs backward gnus-group-search-forward gnus-group-goto-unread all level gnus-message 7 "No more%s newsgroups%s" "" " unread" " on this level or higher"] 6 (#$ . 158144) "p"]) #@104 Go to previous N'th newsgroup. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-prev-group #[(n) "ﾀ [ﾂ\"" [gnus-group-next-unread-group n t] 3 (#$ . 158818) "p"]) #@111 Go to previous N'th unread newsgroup. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-prev-unread-group #[(n) "ﾀ [!" [gnus-group-next-unread-group n] 2 (#$ . 159034) "p"]) #@168 Go to next N'th unread newsgroup on the same level. If N is negative, search backward instead. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-next-unread-group-same-level #[(n) "ﾀ ﾂﾃ #案 " [gnus-group-next-unread-group n t gnus-group-group-level gnus-group-position-point] 4 (#$ . 159260) "p"]) #@125 Go to next N'th unread newsgroup on the same level. Returns the difference between N and the number of skips actually done. (defalias 'gnus-group-prev-unread-group-same-level #[(n) "ﾀ [ﾂﾃ #案 " [gnus-group-next-unread-group n t gnus-group-group-level gnus-group-position-point] 4 (#$ . 159610) "p"]) #@84 Go to the group with the highest level. If EXCLUDE-GROUP, do not go to that group. (defalias 'gnus-group-best-unread-group #[(&optional exclude-group) "eb安ﾁmЖﾅ`ﾆ\"ｧア ﾇVアﾅ`ﾈ\"アﾅ`ﾈ\"\fWア : ﾊ 噪Aﾅ`ﾈ\"`ﾋy \nク\nb偉 \nWﾊ +" [100000 nil best-point unread best get-text-property gnus-unread 0 gnus-level exclude-group gnus-group-group-name 1 gnus-summary-position-point] 4 (#$ . 159917) nil]) #@45 Go to the first group with unread articles. (defalias 'gnus-group-first-unread-group #[nil "`ﾀeb暗 ﾄ=# ｧ ﾅU#ﾆﾇ!ﾅU'`+\nb安*ﾈ " [nil unread opoint gnus-group-group-unread t 0 gnus-group-next-unread-group 1 gnus-group-position-point] 2 (#$ . 160341) nil]) #@28 Jump to the server buffer. (defalias 'gnus-group-enter-server-mode #[nil "ﾀ " [gnus-enter-server-buffer] 1 (#$ . 160617) nil]) #@97 Add a new newsgroup. The user will be prompted for a NAME, for a select METHOD, and an ADDRESS. (defalias 'gnus-group-make-group #[(name &optional method address) " ﾂ! Dﾄ \" ﾇﾇ ﾊ \"J6ﾌﾍ\"夷ﾏﾇ ｯ ﾒ Tﾊﾒ  \"Jﾏ%按\"ﾔﾕBL椅 !гﾗﾘﾙ A!ﾚQ!維!緯y胃 萎ﾟﾇ  ;ヰ!\"噬\"@;Ρ Ρ \"ζ ﾄA@苞ζﾟ@!%ﾁﾞ%&\">ﾂ%躅!桷ﾂ%躅!A@DC\"**@!&\"!一 !壱\"!,ﾏ" [method address intern meth gnus-group-prefixed-name name nname nil backend info intern-soft gnus-newsrc-hashtb error "Group %s already exists" gnus-group-change-level t gnus-level-default-subscribed gnus-level-killed gnus-group-group-name gnus-active-hashtb 1 0 gnus-ephemeral-group-p gnus-dribble-enter "(gnus-group-set-info '" prin1-to-string ")" gnus-group-insert-group-line-info -1 gnus-group-position-point assoc symbol-name group gnus-server-to-method gnus-select-method gnus-server-extend-method "" method-name gnus-valid-select-methods "-address" append require gnus-check-server gnus-check-backend-function request-create-group gnus-request-create-group] 7 (#$ . 160751) (byte-code "ﾀﾁ!ﾂﾃﾄ \"ﾇﾈﾇﾉ&\nﾋ\n \"1\nﾌﾋ\n \">,ﾀﾍ!-ﾎDDﾋ\n\"ァ\nCD\nﾎD)B" [read-string "Group name: " completing-read "Method: " append gnus-valid-select-methods gnus-server-alist nil t gnus-method-history method assoc prompt-address "Address: " ""] 8)]) #@287 Delete the current group. Only meaningful with mail groups. If FORCE (the prefix) is non-nil, all the articles in the group will be deleted. This is "deleted" as in "removed forever from the face of the Earth". There is no undo. The user will be prompted before doing the deletion. (defalias 'gnus-group-delete-group #[(group &optional force) "ﾁﾂ!暗ﾄ\"ﾁﾅ!鞍ﾇﾈ ﾊ!ﾋ#!Tﾌﾍﾎ#委 \"<ﾐﾑﾒ#５ﾌﾍﾓ#慰!易ﾖﾗ\"畏\"ﾚL為ﾛ " [group error "No group to rename" gnus-check-backend-function request-delete-group "This backend does not support group deletion" gnus-yes-or-no-p format "Do you really want to delete %s%s? " force " and all its contents" "" gnus-message 6 "Deleting group %s..." gnus-request-delete-group gnus-error 3 "Couldn't delete group %s" "Deleting group %s...done" gnus-group-goto-group gnus-group-kill-group 1 t intern gnus-active-hashtb nil gnus-group-position-point] 5 (#$ . 162176) (list (gnus-group-group-name) current-prefix-arg)]) (defalias 'gnus-group-rename-group #[(group new-name) "ﾀﾁ\n\" ﾃﾄ!\nﾃﾅ!鞍ﾇ\"ﾃﾉ!位 ﾆﾌ \"6 ﾍ乃ﾎO8 )ﾏﾐﾑ\n\"J88\"ﾓﾔﾕ\n$椅\n\"Яﾗﾘﾙ\n$ｊﾚ\n!維 @A胃 萎\"ﾑ\n\"JL意ﾔ濬n$ " [gnus-check-backend-function request-rename-group group error "This backend does not support renaming groups" "No group to rename" string-match "^[ ]*$" new-name "Not a valid group name" gnus-group-prefixed-name gname ":[^:]+$" 0 nil 4 2 intern-soft gnus-newsrc-hashtb gnus-message 6 "Renaming group %s to %s..." gnus-request-rename-group gnus-error 3 "Couldn't rename group %s to %s" gnus-group-goto-group gnus-group-kill-group gnus-list-of-killed-groups gnus-group-yank-group intern gnus-active-hashtb "Renaming group %s to %s...done" gnus-group-position-point] 7 nil (list (gnus-group-group-name) (progn (or (gnus-check-backend-function (quote request-rename-group) (gnus-group-group-name)) (error "This backend does not support renaming groups")) (read-string "New group name: ")))]) #@37 Edit the group on the current line. (defalias 'gnus-group-edit-group #[(group &optional part) "ﾁﾂﾃﾄﾅﾆﾇDEｯ ﾊ  ﾃ$ﾌﾍ!夷ﾏ\"J86ﾌﾑ!惟!q慰ﾕ!椅 為 畏ﾙ!!維ﾜ \"胃ﾞ! ﾟ =ド痰y=ビ繧yﾁ=y臘亥=レ 8轤= 8ｙ !魍," [part info lambda nil "Exit editing mode and update the information." (interactive) gnus-group-edit-group-done quote group done-func current-window-configuration winconf error "No group on current line" 2 intern-soft gnus-newsrc-hashtb "Killed group; can't be edited" get-buffer-create gnus-group-edit-buffer gnus-configure-windows edit-group gnus-add-current-to-buffer-list emacs-lisp-mode use-local-map copy-keymap emacs-lisp-mode-map local-set-key "" make-local-variable gnus-prev-winconf erase-buffer method ";; Type `C-c C-c' after editing the select method.\n\n" params ";; Type `C-c C-c' after editing the group parameters.\n\n" ";; Type `C-c C-c' after editing the group info.\n\n" pp-to-string 4 "native" 5 "\n"] 7 (#$ . 164158) (list (gnus-group-group-name))]) #@34 Edit the select method of GROUP. (defalias 'gnus-group-edit-group-method #[(group) "ﾀ ﾂ\"" [gnus-group-edit-group group method] 3 (#$ . 165195) (list (gnus-group-group-name))]) #@37 Edit the group parameters of GROUP. (defalias 'gnus-group-edit-group-parameters #[(group) "ﾀ ﾂ\"" [gnus-group-edit-group group params] 3 (#$ . 165379) (list (gnus-group-group-name))]) #@70 Get info from buffer, update variables and jump to the group buffer. (defalias 'gnus-group-edit-group-done #[(part group) "ﾀ !qeb按p!\fﾇ=ﾈ 8'ﾉ=& 'ﾊ ﾇ=4 Hﾉ=エﾋﾌ \"J8Hﾊ ソ\ﾏ \"ペ@ﾒﾓ\"ピﾔ乃ﾊOＶ)ｗﾕ@ﾒﾓ\"ヱﾔ乃ﾊOｓ) \"Ψ 噪ｵﾗ !Σﾘﾙ!移!ﾛ!委 ﾜ\"ﾝ寇ﾊ吋､以寇ﾊC､以 萎!\nﾞ  #衣p!  !!q遺\" !医 -" [get-buffer-create gnus-group-edit-buffer read form gnus-prev-winconf winconf part info 4 method nil 2 intern-soft group gnus-newsrc-hashtb gnus-server-equal gnus-select-method gname string-match ":[^:]+$" 0 gnus-group-prefixed-name new-group gnus-group-goto-group gnus-group-kill-group 1 gnus-activate-group gnus-copy-sequence "native" 3 gnus-group-set-info kill-buffer set-window-configuration gnus-group-buffer gnus-group-update-group gnus-group-position-point] 5 (#$ . 165570)]) #@38 Create the Gnus documentation group. (defalias 'gnus-group-make-help-group #[nil "ﾁﾂﾃ\"ﾄﾉ\n\"Jﾋﾌ!ゲﾍﾎ陰@!!ﾄﾏ ﾐP!Йﾏﾑﾒ !!ﾓP!ﾄ!Эﾔﾕﾖ\"ｄﾗﾙﾚ\"ブﾛ乃ﾄOＸ)ﾜﾂﾝDﾞﾟDF\", " [load-path gnus-group-prefixed-name "gnus-help" (nndoc "gnus-help") nil dir file name path intern-soft gnus-newsrc-hashtb error "Documentation group already exists" file-name-as-directory expand-file-name file-exists-p "gnus-tut.txt" file-name-directory directory-file-name "etc/gnus-tut.txt" gnus-message 1 "Couldn't find doc group" gnus-group-make-group gname string-match ":[^:]+$" 0 nndoc nndoc-address nndoc-article-type mbox gnus-group-position-point] 8 (#$ . 166490) nil]) #@55 Create a group that uses a single file as the source. (defalias 'gnus-group-make-doc-group #[(file type) "ﾁ=ゼﾂﾃ\fЧﾇﾈ\"伊 ﾊU$ﾋ４ ﾌU.ﾍ４ ﾎU8ﾏ４ ﾐUィﾑ４ ﾒUキﾓ４ﾔﾕ \"ﾃ\f+ﾖ!ﾘﾙﾚ!ﾛ\"!ﾝﾟ\"ャ癆TﾃOｅ)籘!D薀F\"*" [type ask "" nil found char err message "%sFile type (mbox, babyl, digest, forward, mmfd, guess) [mbdfag]: " read-char 109 mbox 98 babyl 100 digest 102 forward 97 mmfd format "%c unknown. " expand-file-name file gnus-generate-new-group-name gnus-group-prefixed-name file-name-nondirectory (nndoc "") name gnus-group-make-group gname string-match ":[^:]+$" 0 nndoc nndoc-address nndoc-article-type guess] 8 (#$ . 167202) (list (read-file-name "File name: ") (and current-prefix-arg (quote ask)))]) #@104 Create the (ding) Gnus archive group of the most recent articles. Given a prefix, create a full group. (defalias 'gnus-group-make-archive-group #[(&optional all) "ﾀ ﾂ\nﾃﾄ\"ﾆ \"Jﾈﾉ!位  ﾌﾍ \"0 ﾎ乃ﾏO2 )ﾐ <ﾑ=ﾒﾓ エIDE\")" [gnus-group-prefixed-name all "ding.archives" "ding.recent" (nndir "") group intern-soft gnus-newsrc-hashtb error "Archive group already exists" gnus-group-make-group gname string-match ":[^:]+$" 0 nil nndir "hpc" "edu" nndir-directory gnus-group-archive-directory gnus-group-recent-archive-directory] 6 (#$ . 167975) "P"]) #@222 Create an nndir group. The user will be prompted for a directory. The contents of this directory will be used as a newsgroup. The directory should contain mail messages or news articles in files that have numeric names. (defalias 'gnus-group-make-directory-group #[(dir) "ﾀ !Ыnﾂﾃ!案 !ﾂﾅ!鞍ﾇﾈ \n  ,ﾌ  \"Jエﾎﾏﾐ !! Pﾑ\" ﾒﾓ\nT\n\" ﾔ ﾖﾗ\"タﾇ乃ﾈOＡ)ﾘ ﾙ DE\"+" [file-exists-p dir error "No such directory" file-directory-p "Not a directory" "" 0 nil group i ext intern-soft gnus-newsrc-hashtb gnus-group-prefixed-name file-name-as-directory directory-file-name (nndir "") format "<%d>" gnus-group-make-group gname string-match ":[^:]+$" nndir nndir-directory] 6 (#$ . 168554) (list (read-file-name "Create group from directory: "))]) #@152 Create an nnkiboze group. The user will be prompted for a name, a regexp to match groups, and score file entries for articles to include in the group. (defalias 'gnus-group-make-kiboze-group #[(group address scores) "ﾀ ﾂ #監ﾅ P!ﾆﾇﾈ!! \n*ﾋﾌ\n!!*ﾍﾌ\n!ﾎ\"委社ﾒp\")\nエ q慰ed\nﾐﾕ%," [gnus-group-make-group group "nnkiboze" address gnus-score-file-name "nnkiboze:" nnheader-set-temp-buffer generate-new-buffer-name " *nnheader temp*" nnheader-temp-cur-buffer nnheader-temp-file file-directory-p file-name-directory make-directory t ((byte-code "ﾀ !ソnﾂ !安" [buffer-name nnheader-temp-cur-buffer kill-buffer] 2)) nil emacs-lisp-mode-hook pp scores write-region nomesg] 8 (#$ . 169325) (list (read-string "nnkiboze group name: ") (read-string "Source groups (regexp): ") (let ((headers (mapcar (lambda (group) (list group)) (quote ("subject" "from" "number" "date" "message-id" "references" "chars" "lines" "xref" "followup" "all" "body" "head")))) scores header regexp regexps) (while (not (equal "" (setq header (completing-read "Match on header: " headers nil t)))) (setq regexps nil) (while (not (equal "" (setq regexp (read-string (format "Match on %s (string): " header))))) (setq regexps (cons (list regexp nil nil (quote r)) regexps))) (setq scores (cons (cons header regexps) scores))) scores))]) #@43 Add the current group to a virtual group. (defalias 'gnus-group-add-to-virtual #[(n vgroup) "ﾀ !@ﾂ=ﾃﾄ \"闇!ﾈﾉﾊ  \"J88\fA\fA@ﾍﾎﾏﾍ#Q*ﾐ " [gnus-find-method-for-group vgroup nnvirtual error "%s is not an nnvirtual group" gnus-group-process-prefix n groups 4 2 intern-soft gnus-newsrc-hashtb method "\\|" mapconcat #[(s) "ﾀ !按ﾃ !ﾄQ" [gnus-group-remove-mark s "\\(^" regexp-quote "$\\)"] 3] gnus-group-position-point] 8 (#$ . 170653) (list current-prefix-arg (completing-read "Add to virtual group: " gnus-newsrc-hashtb nil t "nnvirtual:"))]) #@43 Create a new, fresh, empty virtual group. (defalias 'gnus-group-make-empty-virtual #[(group) "ﾀﾁDﾃ\f\n\"ﾆ \"Jﾈﾉ \"位 ﾋ \n#偉 !囲y夷 *" [nnvirtual "^$" method gnus-group-prefixed-name group pgroup intern-soft gnus-newsrc-hashtb error "Group %s already exists." gnus-subscribe-group gnus-group-group-name gnus-group-update-group -1 gnus-group-position-point] 4 (#$ . 171214) "sCreate new, empty virtual group: "]) #@37 Enter an ephemeral nneething group. (defalias 'gnus-group-enter-directory #[(dir) "ﾀ Dﾃﾄﾅ !!\n\"ﾇ!ﾉ\nﾋ\nﾉp\fﾍ=(ﾎ)ﾏB$2ﾐﾑ \"," [nneething dir method gnus-group-prefixed-name file-name-nondirectory directory-file-name leaf gnus-generate-new-group-name name t nneething-read-only gnus-group-read-ephemeral-group major-mode gnus-summary-mode summary group error "Couldn't enter %s"] 7 (#$ . 171640) "DDirectory to read: "]) #@81 Sort the group buffer according to FUNC. If REVERSE, reverse the sorting order. (defalias 'gnus-group-sort-groups #[(func &optional reverse) "< %%GﾁU@%ﾂﾃﾄﾅ!!EM@@ﾇ噬8Aﾈ\" ォﾉ 位 )" [func 1 lambda (t1 t2) gnus-make-sort-function reverse gnus-newsrc-alist "dummy.group" sort gnus-make-hashtable-from-newsrc-alist gnus-group-list-groups] 6 (#$ . 172083) (list gnus-group-sort-function current-prefix-arg)]) #@88 Sort the group buffer alphabetically by group name. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-alphabet #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-alphabet reverse] 3 (#$ . 172536) "P"]) #@88 Sort the group buffer by number of unread articles. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-unread #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-unread reverse] 3 (#$ . 172790) "P"]) #@74 Sort the group buffer by group level. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-level #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-level reverse] 3 (#$ . 173040) "P"]) #@74 Sort the group buffer by group score. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-score #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-score reverse] 3 (#$ . 173274) "P"]) #@73 Sort the group buffer by group rank. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-rank #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-rank reverse] 3 (#$ . 173508) "P"]) #@90 Sort the group buffer alphabetically by backend name. If REVERSE, sort in reverse order. (defalias 'gnus-group-sort-groups-by-method #[(&optional reverse) "ﾀﾁ\n\"" [gnus-group-sort-groups gnus-group-sort-by-method reverse] 3 (#$ . 173739) "P"]) #@22 Sort alphabetically. (defalias 'gnus-group-sort-by-alphabet #[(info1 info2) "@ @刧" [info1 info2] 2 (#$ . 173991)]) #@36 Sort by number of unread articles. (defalias 'gnus-group-sort-by-unread #[(info1 info2) "ﾀ @\n\"J@ﾀ @\n\"J@ｧ ﾆ\fｧ#\f$ﾆW*" [intern-soft info1 gnus-newsrc-hashtb info2 n2 n1 0] 5 (#$ . 174114)]) #@16 Sort by level. (defalias 'gnus-group-sort-by-level #[(info1 info2) "A@: @ )\nA@: @ )W" [info1 rank info2] 3 (#$ . 174327)]) #@38 Sort alphabetically by backend name. (defalias 'gnus-group-sort-by-method #[(info1 info2) "ﾀﾁ\n@\n\"@!ﾀﾁ @ \"@!刧" [symbol-name gnus-find-method-for-group info1 info2] 5 (#$ . 174475)]) #@22 Sort by group score. (defalias 'gnus-group-sort-by-score #[(info1 info2) "A@: Aﾂ) A@: Aﾂ)W" [info1 rank 0 info2] 3 (#$ . 174667)]) #@26 Sort by level and score. (defalias 'gnus-group-sort-by-rank #[(info1 info2) "A@: @ )\nA@: @ ) WO\f UOA@:< A=ﾅ)\nA@:キ AMﾅ)V*" [info1 rank info2 level2 level1 0] 3 (#$ . 174822)]) #@57 Clear all marks and read ranges from the current group. (defalias 'gnus-group-clear-data #[(n) "ﾀ !ﾂ 陰@Hﾆﾇ\f\"J8AAﾂ伊 8-ﾉ 崢位 ﾇ\f \"Jﾌ#囲\f!ﾎ\f!委 +" [gnus-group-process-prefix n nil info group groups 2 intern-soft gnus-newsrc-hashtb 3 gnus-get-unread-articles-in-group gnus-active-hashtb t gnus-group-goto-group gnus-group-remove-mark gnus-group-update-group-line] 6 (#$ . 175044) "P"]) #@359 Mark all articles not marked as unread in current newsgroup as read. If prefix argument N is numeric, the ARG next newsgroups will be caught up. If ALL is non-nil, marked articles will also be marked as read. Cross references (Xref: header) of articles are ignored. The difference between N and actual number of newsgroups that were caught up is returned. (defalias 'gnus-group-catchup-current #[(&optional n all) "ﾀ ﾁﾂ! #\f#ﾅﾇﾈ!# ﾊ !ﾋ\f ﾎ @!@ﾐ=ヂﾑ @ﾓﾔ\"シﾋ乃ﾕO９)A@#)ﾖ @!為 Yベﾙﾚﾛ\"ｓﾜ @!ﾝ @\"ヮﾞ ｓ\fT\f A 0ﾟ!\f*" [gnus-group-group-name error "No group on the current line" gnus-interactive-catchup gnus-expert-user gnus-y-or-n-p all "Do you really want to mark all articles as read? " "Mark all unread articles as read? " n gnus-group-process-prefix 0 ret groups gnus-find-method-for-group method nnvirtual nnvirtual-catchup-group gname string-match ":[^:]+$" nil gnus-group-remove-mark gnus-group-group-level gnus-level-zombie gnus-message 2 "Dead groups can't be caught up" gnus-group-goto-group gnus-group-catchup gnus-group-update-group-line gnus-group-next-unread-group 1] 5 (#$ . 175467) "P"]) #@106 Mark all articles in current newsgroup as read. Cross references (Xref: header) of articles are ignored. (defalias 'gnus-group-catchup-current-all #[(&optional n) "ﾀ ﾂ\"" [gnus-group-catchup-current n all] 3 (#$ . 176652) "P"]) #@194 Mark all articles in GROUP as read. If ALL is non-nil, all articles are marked as read. The return value is the number of articles that were marked as read, or nil if no action could be taken. (defalias 'gnus-group-catchup #[(group &optional all) "ﾀ \n\"J@ @ｧﾅﾆﾇ\"Ｍﾈ !オﾉ ﾊﾋ !#\fオﾍﾎ 88ﾉ ﾊﾐﾑ暸!#伊 ﾊﾐﾑ暸!#) lﾒ ﾓ\"\fトﾉ ﾑﾓ花%伊 ﾕﾓ花%椅ﾗ!\f*" [intern-soft group gnus-newsrc-hashtb entry num gnus-message 1 "Can't catch up; non-active group" gnus-group-auto-expirable-p gnus-add-marked-articles expire gnus-list-of-unread-articles all 3 2 marks gnus-uncompress-range tick gnus-update-read-articles nil force dormant run-hooks gnus-group-catchup-group-hook] 7 (#$ . 176888)]) #@57 Expire all expirable articles in the current newsgroup. (defalias 'gnus-group-expire-articles #[(&optional n) "ﾀ !ﾂﾅﾆ!\f陰@ﾇ !以ﾉ \"ュﾊﾋﾌ #囲ﾎ \"J8ﾑ !アﾂﾒ !BGﾓﾔ8ﾖ ﾗ\"ミﾘバﾂﾛﾜA! \"*ＸﾛﾜA! \"!｡胃 !位ﾋﾞ #+ﾟ *" [gnus-group-process-prefix n nil group groups error "No groups to expire" gnus-group-remove-mark gnus-check-backend-function request-expire-articles gnus-message 6 "Expiring articles in %s..." 2 intern-soft gnus-newsrc-hashtb info gnus-group-total-expirable-p gnus-list-of-read-articles expire 3 expirable gnus-group-get-parameter expiry-wait gnus-compress-sequence nnmail-expiry-wait nnmail-expiry-wait-function gnus-request-expire-articles gnus-uncompress-sequence gnus-close-group "Expiring articles in %s...done" gnus-group-position-point] 6 (#$ . 177592) "P"]) #@50 Expire all expirable articles in all newsgroups. (defalias 'gnus-group-expire-all-groups #[nil "澗ﾁﾂ\"暗ﾄ A\"ﾇﾈ!*ﾉ 安ﾁﾊ\"" [gnus-message 5 "Expiring..." mapcar #[(info) "@" [info] 1] gnus-newsrc-alist gnus-group-marked gnus-group-expire-articles nil gnus-group-position-point "Expiring...done"] 3 (#$ . 178424) nil]) #@46 Set the level of the next N groups to LEVEL. (defalias 'gnus-group-set-current-level #[(n level) "ﾁYソf\nXﾃﾄ\"闇!ﾇ  陰 @キﾊ!依ﾌﾍﾎ 7\n%委ﾎ D\n#威 *ﾑ " [level 1 gnus-level-killed error "Illegal level: %d" gnus-group-process-prefix n nil group groups gnus-group-remove-mark gnus-message 6 "Changed level of %s from %d to %d" gnus-group-group-level gnus-group-change-level gnus-group-update-group-line gnus-group-position-point] 6 (#$ . 178753) (list current-prefix-arg (string-to-int (let ((s (read-string (format "Level (default %s): " (or (gnus-group-group-level) gnus-level-default-subscribed))))) (if (string-match "^\\s-*$" s) (int-to-string (or (gnus-group-group-level) gnus-level-default-subscribed)) s))))]) #@96 Toggle subscription of the current group. If given numerical prefix, toggle the N next groups. (defalias 'gnus-group-unsubscribe-current-group #[(&optional n) "ﾀ !ﾂ\f.\f@\fAﾅ !鞍 ﾇ X# %\nﾋ#偉 ﾍﾎ!*" [gnus-group-process-prefix n nil group groups gnus-group-remove-mark gnus-group-unsubscribe-group gnus-group-group-level gnus-level-subscribed gnus-level-default-unsubscribed gnus-level-default-subscribed t gnus-group-update-group-line gnus-group-next-group 1] 4 (#$ . 179507) "P"]) #@113 Toggle subscription to GROUP. Killed newsgroups are subscribed. If SILENT, don't try to update the group line. (defalias 'gnus-group-unsubscribe-group #[(group &optional level silent) "ﾀ \n\"Jﾄﾅ \"ﾆﾇ!ｒ ウﾈ  $ 7ﾊ 8A@ X5 T7\f\" ﾎ !ｒ ;ロﾏ スﾀ \"Jロﾈ  ヅ Ｇ\f 揀rtﾔ ﾀﾔ \n\"J$ ﾎ !ｒﾆﾕ \"椅 )" [intern-soft group gnus-newsrc-hashtb newsrc string-match "^[ ]$" error "Empty group name" gnus-group-change-level level 2 gnus-level-subscribed gnus-level-default-subscribed silent gnus-group-update-group gnus-read-active-file-p gnus-active-hashtb gnus-zombie-list gnus-level-zombie gnus-level-killed gnus-group-group-name "No such newsgroup: %s" gnus-group-position-point] 7 (#$ . 180014) (list (completing-read "Group: " gnus-active-hashtb nil (gnus-read-active-file-p) nil (quote gnus-group-history)))]) #@156 Move the current newsgroup up N places. If given a negative prefix, move down instead. The difference between N and the number of steps taken is returned. (defalias 'gnus-group-transpose-groups #[(n) "ﾀ ﾁﾂ!暗ﾄ! [yﾆ 杏 " [gnus-group-group-name error "No group on current line" gnus-group-kill-group 1 n gnus-group-yank-group gnus-group-position-point] 2 (#$ . 180878) "p"]) #@29 Kill all zombie newsgroups. (defalias 'gnus-group-kill-all-zombies #[nil " ､ﾂﾃ " [gnus-zombie-list gnus-killed-list nil gnus-group-list-groups] 2 (#$ . 181263) nil]) #@133 Kill newsgroups in current region (excluding current point). The killed newsgroups can be yanked by using \[gnus-group-yank-group]. (defalias 'gnus-group-kill-region #[(begin end) "澗 b按y` b按y`\") b按y闇\f!)" [count-lines begin 0 end lines gnus-group-kill-group] 3 (#$ . 181440) "r"]) #@291 Kill the next N groups. The killed newsgroups can be yanked by using \[gnus-group-yank-group]. However, only groups that were alive can be yanked; already killed groups or zombie groups can't be yanked. The return value is the name of the group that was killed, or a list of groups killed. (defalias 'gnus-group-kill-group #[(&optional n discard) "ﾀﾁ\n!ﾀ演GﾉWヒ陰@ Bﾊ!依 ﾌy`ﾍy`|Шﾏ\"Jズ @ﾑ 8BBﾓ ッ Ｅ ?l\f#ﾀﾊ陰@!偉y`ﾍy`|Bﾖﾗ\"\"Χﾚﾛ#委\"Jω @ﾑ 8BB A AAA｡Ｙ揀xﾝ\"Ｙﾞ )ﾟ GﾑW @ ." [nil gnus-group-process-prefix n out level entry group groups buffer-read-only 10 gnus-group-remove-mark gnus-group-group-level 0 1 discard intern-soft gnus-newsrc-hashtb 2 gnus-list-of-killed-groups gnus-group-change-level gnus-level-killed gnus-killed-list delq assoc gnus-newsrc-alist gnus-group-change-level-function 9 3 gnus-zombie-list delete gnus-make-hashtable-from-newsrc-alist gnus-group-position-point] 6 (#$ . 181738) "P"]) #@290 Yank the last newsgroups killed with \[gnus-group-kill-group], inserting it before the current newsgroup. The numeric ARG specifies how many newsgroups are to be yanked. The name of the newsgroup yanked is returned, or (if several groups are yanked) a list of yanked groups is returned. (defalias 'gnus-group-yank-group #[(&optional arg) "ﾁﾂ演SﾇYッ陰@)ﾉﾊ!A@ Bﾋ ﾌ陰A@ :オ @K )\fXﾏ\f\"Jﾑ%惟 !ﾓy慰 GﾕWフ @Ｗ ," [arg 1 nil out prev group info 0 gnus-list-of-killed-groups error "No more newsgroups to yank" gnus-group-group-name gnus-group-change-level rank gnus-level-killed intern-soft gnus-newsrc-hashtb t gnus-group-insert-group-line-info -1 gnus-group-position-point 2] 8 (#$ . 182795) "p"]) #@45 Kill all groups that is on a certain LEVEL. (defalias 'gnus-group-kill-level #[(level) " U\n ､ﾄ WピﾅVピ(ﾇﾈﾉ\"!ピ\n A\fネ\f@A@ :ェ @H )Uダ\f@@ B \fA｡Ｄ\f \fA\f4ﾎ 委 *ﾐﾑ\"" [level gnus-level-zombie gnus-zombie-list gnus-killed-list nil 0 gnus-expert-user gnus-yes-or-no-p format "Do you really want to kill all groups on level %d? " gnus-newsrc-alist prev alist rank gnus-make-hashtable-from-newsrc-alist gnus-group-list-groups error "Can't kill; illegal level: %d"] 5 (#$ . 183552) "nKill all groups on level: "]) #@139 List all newsgroups with level ARG or lower. Default is gnus-level-unsubscribed, which lists all subscribed and most unsubscribed groups. (defalias 'gnus-group-list-all-groups #[(&optional arg) "ﾀ \nﾃ\"" [gnus-group-list-groups arg gnus-level-unsubscribed t] 3 (#$ . 184122) "P"]) #@157 List all killed newsgroups in the group buffer. If ARG is non-nil, list ALL killed groups known to Gnus. This may entail asking the server for the groups. (defalias 'gnus-group-list-killed #[(&optional arg) "ﾁ \nﾃﾄﾅ\"#ﾆ ﾊ #)eb依 " [arg gnus-get-killed-groups gnus-killed-list gnus-message 6 "No killed groups" nil gnus-group-list-mode gnus-group-prepare-function gnus-level-killed t gnus-group-position-point] 4 (#$ . 184414) "P"]) #@49 List all zombie newsgroups in the group buffer. (defalias 'gnus-group-list-zombies #[nil "Ыfﾁﾂﾃ\"ﾄﾈ#)eb伊 " [gnus-zombie-list gnus-message 6 "No zombie groups" nil gnus-group-list-mode gnus-group-prepare-function gnus-level-zombie t gnus-group-position-point] 4 (#$ . 184872) nil]) #@56 List all groups that are available from the server(s). (defalias 'gnus-group-list-active #[nil "ﾀ ﾁﾂ )ﾃﾄﾆﾇ\" )ﾉ\"ﾄ\n ﾌ  2ﾍ 陰 @! eb*" [gnus-read-active-file-p t gnus-read-active-file sort nil list mapatoms #[(sym) "ﾀ ! Jﾂ ! B" [boundp sym symbol-name list] 2] gnus-active-hashtb string< buffer-read-only groups erase-buffer gnus-group-insert-group-line-info] 4 (#$ . 185176) nil]) #@33 Activate absolutely all groups. (defalias 'gnus-activate-all-groups #[(level) "ﾃ *" [level gnus-activate-foreign-newsgroups gnus-activate-level gnus-group-get-new-news] 2 (#$ . 185593) (list 7)]) #@219 Get newly arrived articles. If ARG is a number, it specifies which levels you are interested in re-scanning. If ARG is non-nil and not a number, this will force "hard" re-reading of the active files from all servers. (defalias 'gnus-group-get-new-news #[(&optional arg) "ﾀﾁ!\n ﾄ ! ｧ!ﾅﾆ )ﾇﾈ ﾅ\"9 9ﾆ 伊 !G ?@ﾉ !)ﾀﾊ!依 " [run-hooks gnus-get-new-news-hook gnus-use-nocem arg gnus-nocem-scan-groups t gnus-read-active-file nil gnus-group-default-level gnus-get-unread-articles gnus-after-getting-new-news-hook gnus-group-list-groups] 3 (#$ . 185801) "P"]) #@226 Check for newly arrived news in the current group (and the N-1 next groups). The difference between N and the number of newsgroup checked is returned. If N is negative, this group and the N-1 previous groups will be checked. (defalias 'gnus-group-get-new-news-this-group #[(&optional n) "ﾀ ! ｧ \nGZﾃ ?`ﾆ\n陰@ポﾈ!伊ﾊ\"ソ\ﾋﾌﾍ\"J8ﾍ\"Jﾐ#尉!Уﾒ!意!ﾔﾕ!!ﾖ=ハﾗﾘ!ﾗﾙﾚﾛ!$ ャ bロﾝﾞﾐ\"衣 \f," [gnus-group-process-prefix n groups 0 ret beg nil group gnus-group-remove-mark gnus-activate-group scan gnus-get-unread-articles-in-group 2 intern-soft gnus-newsrc-hashtb gnus-active-hashtb t gnus-virtual-group-p gnus-close-group gnus-group-update-group gnus-server-status gnus-find-method-for-group denied gnus-error "Server denied access" 3 "%s error: %s" gnus-status-message gnus-goto-next-group-when-activating gnus-group-next-unread-group 1 gnus-summary-position-point] 6 (#$ . 186395) "P"]) #@38 Fetch the FAQ for the current group. (defalias 'gnus-group-fetch-faq #[(group &optional faq-dir) " < @ \nﾃﾄ!闇!\nﾇﾈ\"0ﾉ乃ﾊO2)P ﾌ !Еﾃﾍ \"Iﾎ !)" [faq-dir gnus-group-faq-directory group error "No group name given" file-name-as-directory gname string-match ":[^:]+$" 0 nil file file-exists-p "No such file: %s" find-file] 4 (#$ . 187343) (list (and (gnus-group-group-name) (gnus-group-real-name (gnus-group-group-name))) (cond (current-prefix-arg (completing-read "Faq dir: " (and (listp gnus-group-faq-directory) (mapcar (lambda (file) (list file)) gnus-group-faq-directory))))))]) #@49 Display a description of the current newsgroup. (defalias 'gnus-group-describe-group #[(force &optional group) "ﾀ !ﾃﾄ\n\"ﾆ ﾊ  \"ﾆL &ﾋﾌ! 4ﾍ  \"JГﾎ !Гﾏ\n!UﾐﾑTﾍ  \"JTﾒ\"+" [gnus-find-method-for-group group method gnus-group-prefixed-name "" mname nil desc force gnus-description-hashtb intern error "No group name given" intern-soft gnus-group-get-description gnus-read-descriptions-file gnus-message 1 "No description available"] 5 (#$ . 187964) (list current-prefix-arg (gnus-group-group-name))]) #@54 Pop up a buffer with descriptions of all newsgroups. (defalias 'gnus-group-describe-all-groups #[(&optional force) "ﾁ\nﾃ ﾄﾅ!庵ﾈ 伊ﾊ\n\"eb依 *" [force nil gnus-description-hashtb gnus-read-all-descriptions-files error "Couldn't request descriptions file" b buffer-read-only erase-buffer mapatoms #[(group) "`ﾁﾂﾃ\f!\fJ#c闇欝ﾆ\fﾇﾈﾉﾊﾋ\fTｯ#" [b format " *: %-20s %s\n" symbol-name group gnus-add-text-properties gnus-group gnus-unread t gnus-marked nil gnus-level gnus-level-subscribed] 11] gnus-group-position-point] 3 (#$ . 188505) "P"]) #@58 List all newsgroups that have names that match a regexp. (defalias 'gnus-group-apropos #[(regexp &optional search-description) "ﾀpﾁﾆﾇ\" ﾆﾊ \" 'ﾌﾍﾎ#Ｎ諌ﾑ!惟p!意 慰 ﾕ\"ナ @ b @ﾖｱ ッﾗ @ \"Jッﾘ\nﾖｱ A<eb)ﾐ\f!," ["" nil des groups obuf prev mapatoms #[(group) "ﾀ !ﾂ ﾀ !\"ﾀ !\fB" [symbol-name group string-match regexp groups] 4] gnus-active-hashtb search-description #[(group) "ﾀ \nJ\"ﾃﾄ\n! \"Jﾄ\n!B" [string-match regexp group intern-soft symbol-name gnus-active-hashtb groups] 3] gnus-description-hashtb gnus-message 3 "No groups matched \"%s\"." regexp pop-to-buffer "*Gnus Help*" buffer-disable-undo erase-buffer sort string< "\n" intern-soft " "] 5 (#$ . 189074) "sGnus apropos (regexp): "]) #@74 List all newsgroups that have names or descriptions that match a regexp. (defalias 'gnus-group-description-apropos #[(regexp) " ﾁ ﾂﾃ!案 ﾆ\"" [gnus-description-hashtb gnus-read-all-descriptions-files error "Couldn't request descriptions file" gnus-group-apropos regexp t] 3 (#$ . 189837) "sGnus description apropos (regexp): "]) #@309 List all groups with unread articles that match REGEXP. If the prefix LEVEL is non-nil, it should be a number that says which level to cut off listing groups. If ALL, also list groups with no unread articles. If LOWEST, don't list groups with level lower than LOWEST. This command may read the active file. (defalias 'gnus-group-list-matching #[(level regexp &optional all lowest) "ﾁ!\nVﾃ 案 ﾈ $eb位 " [level prefix-numeric-value gnus-level-killed gnus-get-killed-groups gnus-group-prepare-flat gnus-level-subscribed all lowest 1 regexp gnus-group-position-point] 5 (#$ . 190179) "P\nsList newsgroups matching: "]) #@198 List all groups that match REGEXP. If the prefix LEVEL is non-nil, it should be a number that says which level to cut off listing groups. If LOWEST, don't list groups with level lower than LOWEST. (defalias 'gnus-group-list-all-matching #[(level regexp &optional lowest) "ﾀ \n ﾄ $" [gnus-group-list-matching level gnus-level-killed regexp t lowest] 5 (#$ . 190824) "P\nsList newsgroups matching: "]) #@85 Save the Gnus startup files. If FORCE, force saving whether it is necessary or not. (defalias 'gnus-group-save-newsrc #[(&optional force) "ﾀ !" [gnus-save-newsrc-file force] 2 (#$ . 191234) "P"]) #@38 Force Gnus to read the .newsrc file. (defalias 'gnus-group-restart #[(&optional arg) "ﾀﾁﾂ \"!ﾄ 闇ﾆ!杏!" [gnus-yes-or-no-p format "Are you sure you want to read %s? " gnus-current-startup-file gnus-save-newsrc-file gnus-setup-news force gnus-group-list-groups arg] 4 (#$ . 191437) "P"]) #@32 Read the Gnus elisp init file. (defalias 'gnus-group-read-init-file #[nil "ﾀ " [gnus-read-init-file] 1 (#$ . 191735) nil]) #@102 Check bogus newsgroups. If given a prefix, don't ask for confirmation before removing a bogus group. (defalias 'gnus-group-check-bogus-groups #[(&optional silent) "ﾀ ?\n?!暗 " [gnus-check-bogus-newsgroups silent gnus-expert-user gnus-group-list-groups] 2 (#$ . 191866) "P"]) #@73 Edit the global kill file. If GROUP, edit that local kill file instead. (defalias 'gnus-group-edit-global-kill #[(&optional article group) "ﾂ !案ﾅﾆﾇﾈ ﾉﾊ\"!\"" [article gnus-current-kill-article gnus-kill-file-edit-file group gnus-message 6 substitute-command-keys format "Editing a %s kill file (Type \\[gnus-kill-file-exit] to exit)" "local" "global"] 6 (#$ . 192151) "P"]) #@25 Edit a local kill file. (defalias 'gnus-group-edit-local-kill #[(article group) "ﾀ \n\"" [gnus-group-edit-global-kill article group] 3 (#$ . 192541) (list nil (gnus-group-group-name))]) #@24 Update `.newsrc' file. (defalias 'gnus-group-force-update #[nil "ﾀ " [gnus-save-newsrc-file] 1 (#$ . 192734) nil]) #@160 Suspend the current Gnus session. In fact, cleanup buffers except for group mode buffer. The hook gnus-suspend-gnus-hook is called before actually suspending. (defalias 'gnus-group-suspend #[nil "ﾀﾁ!按 !ﾅ\fﾅﾇﾉ\"\"\"ェ陰@\n 9 ;5ﾂ6ﾌ !)ィﾍ\n!)ﾎ \fY\fCﾏ\f!威\fﾑ\"*" [run-hooks gnus-suspend-gnus-hook get-buffer gnus-group-buffer group-buf delete gnus-dribble-buffer append gnus-buffer-list nil buf buffer buffer-name kill-buffer gnus-kill-gnus-frames bury-buffer delete-windows-on t] 8 (#$ . 192857) nil]) #@48 Clear all information from the dribble buffer. (defalias 'gnus-group-clear-dribble #[nil "ﾀ 庵ﾂﾃ\"" [gnus-dribble-clear gnus-message 7 "Cleared dribble buffer"] 3 (#$ . 193403) nil]) #@125 Quit reading news after updating .newsrc.eld and .newsrc. The hook `gnus-exit-gnus-hook' is called before actually exiting. (defalias 'gnus-group-exit #[nil " \nﾃﾄ!%ﾅﾆ!杏 以 伊 位 闇ﾋ!" [noninteractive gnus-interactive-exit gnus-expert-user gnus-y-or-n-p "Are you sure you want to quit reading news? " run-hooks gnus-exit-gnus-hook gnus-offer-save-summaries gnus-save-newsrc-file gnus-close-backends gnus-clear-system gnus-after-exiting-gnus-hook] 2 (#$ . 193594) nil]) (defalias 'gnus-close-backends #[nil "ﾁ!ﾄﾅ @@ﾆP!!\n Aﾁ*" [gnus-valid-select-methods nil func methods fboundp intern "-request-close"] 5]) #@126 Quit reading news without updating .newsrc.eld or .newsrc. The hook `gnus-exit-gnus-hook' is called before actually exiting. (defalias 'gnus-group-quit #[nil "&ﾁ ﾂU&ﾃ\f!& &&ﾇﾈﾉﾊ!\"!Dﾋﾌ! 5ﾎ 8ﾏ 威 尉 惟 依ﾓ!" [noninteractive buffer-size 0 gnus-server-opened gnus-select-method gnus-expert-user gnus-current-startup-file gnus-yes-or-no-p format "Quit reading news without saving %s? " file-name-nondirectory run-hooks gnus-exit-gnus-hook gnus-use-full-window delete-other-windows gnus-remove-some-windows gnus-dribble-save gnus-close-backends gnus-clear-system gnus-after-exiting-gnus-hook] 5 (#$ . 194241) nil]) #@43 Offer to save all active summary buffers. (defalias 'gnus-offer-save-summaries #[nil "澗 ﾁ8ﾅ\f@!1ﾆﾇ\n\"1浬nqﾉ=)\n)1\n B\fAЫf Aﾋﾌﾍ #," [buffer-list nil bufname buffers buflist buffer-name string-match "Summary" major-mode gnus-summary-mode gnus-newsgroup-prepared map-y-or-n-p "Update summary buffer %s? " #[(buf) "q庵 " [buf gnus-summary-exit] 1]] 5 (#$ . 194882)]) #@57 Give a one line description of the group mode commands. (defalias 'gnus-group-describe-briefly #[nil "ﾀﾁﾂﾃ!\"" [gnus-message 7 substitute-command-keys "\\\\[gnus-group-read-group]:Select \\[gnus-group-next-unread-group]:Forward \\[gnus-group-prev-unread-group]:Backward \\[gnus-group-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-group-describe-briefly]:This help"] 4 (#$ . 195285) nil]) #@275 Browse a foreign news server. If called interactively, this function will ask for a select method (nntp, nnspool, etc.) and a server address (eg. nntp.some.where). If not, METHOD should be a list where the first element is the method and the second element is the address. (defalias 'gnus-group-browse-foreign-server #[(method) "ﾀ !" [gnus-browse-foreign-server method] 2 (#$ . 195713) (list (let ((how (completing-read "Which backend: " (append gnus-valid-select-methods gnus-server-alist) nil t (cons "nntp" 0) (quote gnus-method-history)))) (if (assoc how gnus-valid-select-methods) (list (intern how) (completing-read "Address: " (mapcar (lambda (server) (list server)) gnus-secondary-servers))) (gnus-server-to-method how))))]) (byte-code "ﾀﾁ!ﾂﾁ Bﾄﾅﾆﾇ# hﾈ ﾉ !位ﾁﾋ\"位ﾌﾍ\"位ﾎﾏ\"位ﾐﾑ\"位ﾒﾓ\"位ﾔﾕ\"位ﾖﾗ\"位ﾘﾙ\"位ﾚﾛ\"位ﾜﾝ\"位ﾞﾟ\"位珮\"位粤\"位蒟\"位跚\"按" [boundp gnus-summary-mode-map nil current-load-list put gnus-summary-mode mode-class special make-keymap suppress-keymap gnus-define-keys-1 (" " gnus-summary-next-page "" gnus-summary-prev-page [delete] gnus-summary-prev-page " " gnus-summary-scroll-up "n" gnus-summary-next-unread-article "p" gnus-summary-prev-unread-article "N" gnus-summary-next-article "P" gnus-summary-prev-article "" gnus-summary-next-same-subject "" gnus-summary-prev-same-subject "" gnus-summary-next-unread-subject "" gnus-summary-prev-unread-subject "." gnus-summary-first-unread-article "," gnus-summary-best-unread-article "" gnus-summary-search-article-forward "" gnus-summary-search-article-backward "<" gnus-summary-beginning-of-article ">" gnus-summary-end-of-article "j" gnus-summary-goto-article "^" gnus-summary-refer-parent-article "ﾞ" gnus-summary-refer-article "u" gnus-summary-tick-article-forward "!" gnus-summary-tick-article-forward "U" gnus-summary-tick-article-backward "d" gnus-summary-mark-as-read-forward "D" gnus-summary-mark-as-read-backward "E" gnus-summary-mark-as-expirable "" gnus-summary-clear-mark-forward "ﾕ" gnus-summary-clear-mark-backward "k" gnus-summary-kill-same-subject-and-select " " gnus-summary-kill-same-subject "" gnus-summary-kill-thread "" gnus-summary-lower-thread "e" gnus-summary-edit-article "#" gnus-summary-mark-as-processable "｣" gnus-summary-unmark-as-processable "" gnus-summary-toggle-threads "" gnus-summary-show-thread "" gnus-summary-hide-thread "" gnus-summary-next-thread "" gnus-summary-prev-thread "" gnus-summary-up-thread "" gnus-summary-down-thread "&" gnus-summary-execute-command "c" gnus-summary-catchup-and-exit "" gnus-summary-mark-region-as-read "" gnus-summary-toggle-truncation "?" gnus-summary-mark-as-dormant "" gnus-summary-limit-include-expunged "" gnus-summary-sort-by-number "" gnus-summary-sort-by-author "" gnus-summary-sort-by-subject "" gnus-summary-sort-by-date " " gnus-summary-sort-by-score "=" gnus-summary-expand-window "" gnus-summary-reselect-current-group "" gnus-summary-rescan-group "w" gnus-summary-stop-page-breaking "" gnus-summary-caesar-message "" gnus-summary-toggle-mime "f" gnus-summary-followup "F" gnus-summary-followup-with-original "C" gnus-summary-cancel-article "r" gnus-summary-reply "R" gnus-summary-reply-with-original "" gnus-summary-mail-forward "o" gnus-summary-save-article "" gnus-summary-save-article-mail "|" gnus-summary-pipe-output "" gnus-summary-edit-local-kill "ﾋ" gnus-summary-edit-global-kill "V" gnus-version "" gnus-summary-describe-group "q" gnus-summary-exit "Q" gnus-summary-exit-no-update " " gnus-info-find-node gnus-mouse-2 gnus-mouse-pick-article "m" gnus-summary-mail-other-window "a" gnus-summary-post-news "x" gnus-summary-limit-to-unread "s" gnus-summary-isearch-article "t" gnus-article-hide-headers "g" gnus-summary-show-article "l" gnus-summary-goto-last-article "" gnus-uu-decode-uu-view "" gnus-summary-enter-digest-group "" gnus-bug "*" gnus-cache-enter-article "ｪ" gnus-cache-remove-article "ｦ" gnus-summary-universal-argument "\f" gnus-recenter "I" gnus-summary-increase-score "L" gnus-summary-lower-score "V" gnus-summary-score-map "X" gnus-uu-extract-map "S" gnus-summary-send-map) (gnus-summary-mark-map "M" gnus-summary-mode-map) ("t" gnus-summary-tick-article-forward "!" gnus-summary-tick-article-forward "d" gnus-summary-mark-as-read-forward "r" gnus-summary-mark-as-read-forward "c" gnus-summary-clear-mark-forward " " gnus-summary-clear-mark-forward "e" gnus-summary-mark-as-expirable "x" gnus-summary-mark-as-expirable "?" gnus-summary-mark-as-dormant "b" gnus-summary-set-bookmark "B" gnus-summary-remove-bookmark "#" gnus-summary-mark-as-processable "｣" gnus-summary-unmark-as-processable "S" gnus-summary-limit-include-expunged "C" gnus-summary-catchup "H" gnus-summary-catchup-to-here "" gnus-summary-catchup-all "k" gnus-summary-kill-same-subject-and-select "K" gnus-summary-kill-same-subject "P" gnus-uu-mark-map) (gnus-summary-mscore-map "V" gnus-summary-mode-map) ("c" gnus-summary-clear-above "u" gnus-summary-tick-above "m" gnus-summary-mark-above "k" gnus-summary-kill-below) (gnus-summary-limit-map "/" gnus-summary-mode-map) ("/" gnus-summary-limit-to-subject "n" gnus-summary-limit-to-articles "w" gnus-summary-pop-limit "s" gnus-summary-limit-to-subject "a" gnus-summary-limit-to-author "u" gnus-summary-limit-to-unread "m" gnus-summary-limit-to-marks "v" gnus-summary-limit-to-score "D" gnus-summary-limit-include-dormant "d" gnus-summary-limit-exclude-dormant "E" gnus-summary-limit-include-expunged "c" gnus-summary-limit-exclude-childless-dormant "C" gnus-summary-limit-mark-excluded-as-read) (gnus-summary-goto-map "G" gnus-summary-mode-map) ("n" gnus-summary-next-unread-article "p" gnus-summary-prev-unread-article "N" gnus-summary-next-article "P" gnus-summary-prev-article "" gnus-summary-next-same-subject "" gnus-summary-prev-same-subject "" gnus-summary-next-unread-subject "" gnus-summary-prev-unread-subject "f" gnus-summary-first-unread-article "b" gnus-summary-best-unread-article "j" gnus-summary-goto-article "g" gnus-summary-goto-subject "l" gnus-summary-goto-last-article "p" gnus-summary-pop-article) (gnus-summary-thread-map "T" gnus-summary-mode-map) ("k" gnus-summary-kill-thread "l" gnus-summary-lower-thread "i" gnus-summary-raise-thread "T" gnus-summary-toggle-threads "t" gnus-summary-rethread-current "^" gnus-summary-reparent-thread "s" gnus-summary-show-thread "S" gnus-summary-show-all-threads "h" gnus-summary-hide-thread "H" gnus-summary-hide-all-threads "n" gnus-summary-next-thread "p" gnus-summary-prev-thread "u" gnus-summary-up-thread "o" gnus-summary-top-thread "d" gnus-summary-down-thread "#" gnus-uu-mark-thread "｣" gnus-uu-unmark-thread) (gnus-summary-exit-map "Z" gnus-summary-mode-map) ("c" gnus-summary-catchup-and-exit "C" gnus-summary-catchup-all-and-exit "E" gnus-summary-exit-no-update "Q" gnus-summary-exit "Z" gnus-summary-exit "n" gnus-summary-catchup-and-goto-next-group "R" gnus-summary-reselect-current-group "G" gnus-summary-rescan-group "N" gnus-summary-next-group "P" gnus-summary-prev-group) (gnus-summary-article-map "A" gnus-summary-mode-map) (" " gnus-summary-next-page "n" gnus-summary-next-page "" gnus-summary-prev-page [delete] gnus-summary-prev-page "p" gnus-summary-prev-page " " gnus-summary-scroll-up "<" gnus-summary-beginning-of-article ">" gnus-summary-end-of-article "b" gnus-summary-beginning-of-article "e" gnus-summary-end-of-article "^" gnus-summary-refer-parent-article "r" gnus-summary-refer-parent-article "R" gnus-summary-refer-references "g" gnus-summary-show-article "s" gnus-summary-isearch-article) (gnus-summary-wash-map "W" gnus-summary-mode-map) ("b" gnus-article-add-buttons "B" gnus-article-add-buttons-to-head "o" gnus-article-treat-overstrike "w" gnus-article-fill-cited-article "c" gnus-article-remove-cr "L" gnus-article-remove-trailing-blank-lines "q" gnus-article-de-quoted-unreadable "f" gnus-article-display-x-face "l" gnus-summary-stop-page-breaking "r" gnus-summary-caesar-message "t" gnus-article-hide-headers "v" gnus-summary-verbose-headers "m" gnus-summary-toggle-mime) (gnus-summary-wash-hide-map "W" gnus-summary-wash-map) ("a" gnus-article-hide "h" gnus-article-hide-headers "b" gnus-article-hide-boring-headers "s" gnus-article-hide-signature "c" gnus-article-hide-citation "p" gnus-article-hide-pgp "" gnus-article-hide-citation-maybe) (gnus-summary-wash-highlight-map "H" gnus-summary-wash-map) ("a" gnus-article-highlight "h" gnus-article-highlight-headers "c" gnus-article-highlight-citation "s" gnus-article-highlight-signature) (gnus-summary-wash-time-map "T" gnus-summary-wash-map) ("z" gnus-article-date-ut "u" gnus-article-date-ut "l" gnus-article-date-local "e" gnus-article-date-lapsed "o" gnus-article-date-original) (gnus-summary-help-map "H" gnus-summary-mode-map) ("v" gnus-version "f" gnus-summary-fetch-faq "d" gnus-summary-describe-group "h" gnus-summary-describe-briefly "i" gnus-info-find-node) (gnus-summary-backend-map "B" gnus-summary-mode-map) ("e" gnus-summary-expire-articles "" gnus-summary-expire-articles-now "" gnus-summary-delete-article [delete] gnus-summary-delete-article "m" gnus-summary-move-article "r" gnus-summary-respool-article "w" gnus-summary-edit-article "c" gnus-summary-copy-article "B" gnus-summary-crosspost-article "q" gnus-summary-respool-query "i" gnus-summary-import-article) (gnus-summary-save-map "O" gnus-summary-mode-map) ("o" gnus-summary-save-article "m" gnus-summary-save-article-mail "r" gnus-summary-save-article-rmail "f" gnus-summary-save-article-file "b" gnus-summary-save-article-body-file "h" gnus-summary-save-article-folder "v" gnus-summary-save-article-vm "p" gnus-summary-pipe-output "s" gnus-soup-add-article)] 4) #@795 Major mode for reading articles. All normal editing commands are switched off. \ Each line in this buffer represents one article. To read an article, you can, for instance, type `\[gnus-summary-next-page]'. To move forwards and backwards while displaying articles, type `\[gnus-summary-next-unread-article]' and `\[gnus-summary-prev-unread-article]', respectively. You can also post articles and send mail from this buffer. To follow up an article, type `\[gnus-summary-followup]'. To mail a reply to the author of an article, type `\[gnus-summary-reply]'. There are approx. one gazillion commands you can execute in this buffer; read the info pages for more information (`\[gnus-info-find-node]'). The following commands are available: \{gnus-summary-mode-map} (defalias 'gnus-summary-mode #[(&optional group) "ﾁﾂﾃ\"ﾄ 闇 鞍 杏 以 伊\nﾋ\fﾍﾎ!委!尉p!惟ﾒﾒﾒﾍﾛ!囲ﾜ!囲ﾝ!萎ﾟ!謂ﾟ矮ﾒ$医!" [menu-bar-mode gnus-visual-p summary-menu menu gnus-summary-make-menu-bar kill-all-local-variables gnus-summary-make-local-variables gnus-make-thread-indent-array gnus-simplify-mode-line gnus-summary-mode major-mode "Summary" mode-name make-local-variable minor-mode-alist use-local-map gnus-summary-mode-map buffer-disable-undo t buffer-read-only truncate-lines selective-display selective-display-ellipses gnus-summary-display-table buffer-display-table group gnus-newsgroup-name gnus-summary-line-format gnus-summary-line-format-spec gnus-summary-mark-positions gnus-make-local-hook post-command-hook gnus-add-hook gnus-clear-inboxes-moved nil run-hooks gnus-summary-mode-hook] 5 (#$ . 205395) nil]) #@46 Make all the local summary buffer variables. (defalias 'gnus-summary-make-local-variables #[nil "ﾁ\f陰@@\n:5\nAﾃ=#\n@J(ﾅ\nA!ﾆ\n@!\n@ Lﾆ\n!\nﾁL+" [gnus-summary-local-variables nil local global locals eval make-local-variable] 3 (#$ . 207045)]) (defalias 'gnus-summary-make-display-table #[nil "ﾀ !ﾂ ﾄ SﾆY ﾇI ) ﾈﾉI ﾊﾉI依 SﾌY@ H) ﾍI))" [copy-sequence standard-display-table make-display-table gnus-summary-display-table 32 i 0 [63] 10 nil 13 256 127 [63]] 3]) (defalias 'gnus-summary-clear-local-variables #[nil "1 @:ﾂ @@!) @@ﾃL)ﾂ @!) @ﾃL Aﾃ)" [gnus-summary-local-variables locals vectorp nil] 3]) (defalias 'gnus-data-number '(macro . #[(data) "ﾀ D" [car data] 2])) (defalias 'gnus-data-set-number '(macro . #[(data number) "ﾀ \nE" [setcar data number] 3])) (defalias 'gnus-data-mark '(macro . #[(data) "ﾀﾁ\nE" [nth 1 data] 3])) (defalias 'gnus-data-set-mark '(macro . #[(data mark) "ﾀﾁﾂ E\fE" [setcar nthcdr 1 data mark] 4])) (defalias 'gnus-data-pos '(macro . #[(data) "ﾀﾁ\nE" [nth 2 data] 3])) (defalias 'gnus-data-set-pos '(macro . #[(data pos) "ﾀﾁﾂ E\fE" [setcar nthcdr 2 data pos] 4])) (defalias 'gnus-data-header '(macro . #[(data) "ﾀﾁ\nE" [nth 3 data] 3])) (defalias 'gnus-data-level '(macro . #[(data) "ﾀﾁ\nE" [nth 4 data] 3])) (defalias 'gnus-data-unread-p '(macro . #[(data) "ﾀﾁﾂ EﾄBB" [= nth 1 data (gnus-unread-mark)] 4])) (defalias 'gnus-data-pseudo-p '(macro . #[(data) "ﾀﾁﾂ ED" [consp nth 3 data] 4])) (defalias 'gnus-data-find '(macro . #[(number) "ﾀ ﾂBB" [assq number (gnus-newsgroup-data)] 3])) (defalias 'gnus-data-find-list '(macro . #[(number &optional data) "ﾀﾁ\nﾃDCﾄﾅﾇBBﾈBBE" [let bdata data gnus-newsgroup-data memq assq number (bdata) (bdata)] 6])) (defalias 'gnus-data-make '(macro . #[(number mark pos header level) "ﾀ \n \f ｯ" [list number mark pos header level] 6])) (defalias 'gnus-data-enter #[(after-article number mark pos header level offset) "\n >)ﾄﾅ\n\"  \nｯ AB｡依\fﾍ AA\")" [gnus-newsgroup-data bdata after-article data error "No such article: %d" number mark pos header level nil gnus-newsgroup-data-reverse gnus-data-update-list offset] 7]) (defalias 'gnus-data-enter-list #[(after-article list &optional offset) "_ \n >) ﾆﾇ \"A,A! Е\n｡\fセﾉA\"Z A｡ \f｡セﾉ A\"位 *" [list after-article gnus-newsgroup-data bdata ilist data error "No such article: %d" offset gnus-data-update-list nil gnus-newsgroup-data-reverse] 4]) (defalias 'gnus-data-remove #[(article &optional offset) "@@\nUAﾃ< A< A@@\nU5 陰A｡ 1ﾆ A \"暗ﾃ A)" [gnus-newsgroup-data data article nil gnus-newsgroup-data-reverse offset gnus-data-update-list] 4]) (defalias 'gnus-data-list '(macro . #[(backward) "ﾀ ﾂBB" [if backward ((or gnus-newsgroup-data-reverse (setq gnus-newsgroup-data-reverse (reverse gnus-newsgroup-data))) gnus-newsgroup-data)] 3])) #@52 Add OFFSET to the POS of all data entries in DATA. (defalias 'gnus-data-update-list #[(data offset) "@AA ﾂ@8\\Aﾃ" [data offset 2 nil] 5 (#$ . 210002)]) #@40 Compute the positions of all articles. (defalias 'gnus-data-compute-positions #[nil "ﾁ&ﾄedﾅ @@$ @AA\nﾆ\\ Aﾁ*" [gnus-newsgroup-data nil pos data text-property-any gnus-number 3] 6 (#$ . 210175)]) #@54 Say whether this article is a pseudo article or not. (defalias 'gnus-summary-article-pseudo-p #[(article) "ﾀﾁ\n 8!?" [vectorp 3 article gnus-newsgroup-data] 4 (#$ . 210395)]) #@46 Say whether this article is a parent or not. (defalias 'gnus-article-parent-p #[(number) "\n >)Aﾄ @8ﾄ A@8W)" [gnus-newsgroup-data bdata number data 4] 4 (#$ . 210578)]) #@42 Return a list of all children to NUMBER. (defalias 'gnus-article-children #[(number) "\n >)ﾄ @8ﾆ A1ﾄ @8 TU1 @@B A+" [gnus-newsgroup-data bdata number data 4 level nil children] 3 (#$ . 210763)]) #@73 If the current article is intangible, then jump to a different article. (defalias 'gnus-summary-skip-intangible '(macro . #[nil "ﾀ" [(let ((to (get-text-property (point) (quote gnus-intangible)))) (and to (gnus-summary-goto-subject to)))] 1 (#$ . 210990)])) #@48 Say whether this article is intangible or not. (defalias 'gnus-summary-article-intangible-p '(macro . #[nil "ﾀ" [(get-text-property (point) (quote gnus-intangible))] 1 (#$ . 211255)])) #@138 The article number of the article on the current line. If there isn's an article number here, then we return the current article number. (defalias 'gnus-summary-article-number '(macro . #[nil "ﾀ" [(progn (gnus-summary-skip-intangible) (or (get-text-property (point) (quote gnus-number)) (gnus-summary-last-subject)))] 1 (#$ . 211448)])) (defalias 'gnus-summary-article-header '(macro . #[(&optional number) "ﾀﾁ\nﾃDD" [gnus-data-header gnus-data-find number (gnus-summary-article-number)] 3])) (defalias 'gnus-summary-thread-level '(macro . #[(&optional number) "ﾀﾁﾂﾃﾄ \nﾆDDF" [if (and (eq gnus-summary-make-false-root (quote dummy)) (get-text-property (point) (quote gnus-intangible))) 0 gnus-data-level gnus-data-find number (gnus-summary-article-number)] 6])) (defalias 'gnus-summary-article-mark '(macro . #[(&optional number) "ﾀﾁ\nﾃDD" [gnus-data-mark gnus-data-find number (gnus-summary-article-number)] 3])) (defalias 'gnus-summary-article-pos '(macro . #[(&optional number) "ﾀﾁ\nﾃDD" [gnus-data-pos gnus-data-find number (gnus-summary-article-number)] 3])) (defalias (quote gnus-summary-subject-string) (quote gnus-summary-article-subject)) #@50 Return current subject string or nil if nothing. (defalias 'gnus-summary-article-subject '(macro . #[(&optional number) "ﾀﾁ\nﾃﾄ\nﾅBBDﾆDCﾇBB" [let headers number gnus-data-header assq (gnus-newsgroup-data) (gnus-data-header (assq (gnus-summary-article-number) gnus-newsgroup-data)) ((and headers (vectorp headers) (mail-header-subject headers)))] 6 (#$ . 212618)])) #@31 Return current article score. (defalias 'gnus-summary-article-score '(macro . #[(&optional number) "ﾀﾁﾂ ﾄﾅBBDﾆBB" [or cdr assq number (gnus-summary-article-number) (gnus-newsgroup-scored) (gnus-summary-default-score 0)] 5 (#$ . 212996)])) (defalias 'gnus-summary-article-children #[(&optional number) "\nﾃ`ﾄ\"ﾆ !)ﾃ`ﾇ\"ﾈ >) ﾊ @8 ﾌ ﾌ A ゾﾊ @8  Vゾ T U1 @@B1," [gnus-newsgroup-data bdata number get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject data 4 level nil l children] 4]) (defalias 'gnus-summary-article-parent #[(&optional number) " ﾁ\n!\f'ﾅ`ﾆ\"ﾈ!)ﾅ`ﾉ\"'ﾊ >) ﾌ @8 ﾎU?Y A ケﾌ @8 W< Y @@*" [gnus-newsgroup-data-reverse reverse gnus-newsgroup-data bdata number get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject data 4 level 0] 4]) #@38 Say whether MARK is the unread mark. (defalias 'gnus-unread-mark-p #[(mark) " U" [mark gnus-unread-mark] 2 (#$ . 213928)]) #@122 Say whether MARK is one of the marks that mark as read. This is all marks except unread, ticked, dormant, and expirable. (defalias 'gnus-read-mark-p #[(mark) " U\nU U\fU?" [mark gnus-unread-mark gnus-ticked-mark gnus-dormant-mark gnus-expirable-mark] 2 (#$ . 214060)]) (byte-code "ﾀﾁﾂﾃ#安ﾁﾄﾃ#安ﾁﾅﾆ#" [put gnus-save-hidden-threads lisp-indent-function 0 lisp-indent-hook edebug-form-spec (body)] 4) #@66 Save hidden threads, eval FORMS, and restore the hidden threads. (defalias 'gnus-save-hidden-threads '(macro . #[(&rest forms) "ﾀﾁ!ﾃ\nﾄBCﾅﾆBﾈ\nDEE)" [make-symbol "config" config let ((gnus-hidden-threads-configuration)) unwind-protect progn forms gnus-restore-hidden-threads-configuration] 6 (#$ . 214479)])) #@50 Return the current hidden threads configuration. (defalias 'gnus-hidden-threads-configuration #[nil "澗eb按ﾃﾀﾄ#`S B *" [nil config search-forward " " t] 4 (#$ . 214798)]) #@51 Restore hidden threads configuration from CONFIG. (defalias 'gnus-restore-hidden-threads-configuration #[(config) "ﾀ 陰@*\ndW\nbgﾄUﾅ\n欝ﾄﾆ$*" [nil buffer-read-only point config 10 subst-char-in-region 13] 5 (#$ . 214984)]) (defalias 'gnus-mouse-pick-article #[(e) "ﾀ !按ﾃﾄ\"" [mouse-set-point e gnus-summary-next-page nil t] 3 nil "e"]) #@28 Initialize summary buffer. (defalias 'gnus-summary-setup-buffer #[(group) "ﾀ ﾂQﾄ ! qp?@ﾇ !qﾈ 伊 !\n+ﾋﾌ! <ﾎﾏ!夷ﾐ!夷ﾑ! ﾓ)" ["*Summary " group "*" buffer get-buffer gnus-summary-buffer gnus-newsgroup-prepared get-buffer-create gnus-add-current-to-buffer-list gnus-summary-mode gnus-carpal gnus-carpal-setup-buffer summary gnus-single-article-buffer make-local-variable gnus-article-buffer gnus-article-current gnus-original-article-buffer gnus-newsgroup-name t] 3 (#$ . 215350)]) (defalias 'gnus-set-global-variables #[nil "ﾁ=Xp \f \n \n \f q \n \f . " [major-mode gnus-summary-mode gnus-summary-buffer gnus-newsgroup-name gnus-newsgroup-marked gnus-newsgroup-unreads gnus-current-headers gnus-newsgroup-data gnus-article-buffer gnus-original-article-buffer gnus-article-current gnus-current-score-file score-file gac original article-buffer summary data headers unread marked name gnus-group-buffer] 10]) #@59 Return whether ARTICLE is the last article in the buffer. (defalias 'gnus-summary-last-article-p #[(&optional article) "ﾁ`ﾂ\"ﾄ !)ﾁ`ﾅ\"ﾆ Ы"ﾇ   >)A?" [article get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject t gnus-newsgroup-data bdata] 4 (#$ . 216350)]) #@44 Insert a dummy root in the summary buffer. (defalias 'gnus-summary-insert-dummy-line #[(gnus-tmp-subject gnus-tmp-number) "ﾀy庵`ﾂ !`ﾄ ﾆ F#" [0 gnus-add-text-properties eval gnus-summary-dummy-line-format-spec gnus-number gnus-tmp-number gnus-intangible] 7 (#$ . 216687)]) (defalias 'gnus-make-thread-indent-array #[nil "ﾀ\n \fU?+ﾅﾆﾇ\"  ﾈY+\n ﾉ _ﾊ\"I S)" [200 n gnus-thread-indent-array gnus-thread-indent-level gnus-thread-indent-array-level make-vector 201 "" 0 make-string 32] 6]) (defalias 'gnus-summary-insert-line #[(gnus-tmp-header gnus-tmp-level gnus-tmp-current gnus-tmp-unread gnus-tmp-replied gnus-tmp-expirable gnus-tmp-subject-or-nil &optional gnus-tmp-dummy gnus-tmp-score gnus-tmp-process) " H ﾄHﾈ'ﾉZ!\nX+ﾋ:W8\f: ェＭ>ゴＭゾＭ>ニＭ ﾙHﾛﾜ\"ョﾈ乃ﾈ百Oさﾛﾝ\"Τﾈﾛﾟ\"Ιﾈ乃ﾈ百OｭﾈO)さ 瓸\" ﾈH#$κ蛯ﾉ'$χ閧ﾕ*,  ｧﾈ`0!`#$允\" y因!違y.\f" [gnus-thread-indent-array gnus-tmp-level gnus-tmp-indentation gnus-tmp-header 7 gnus-tmp-lines gnus-tmp-score gnus-summary-default-score 0 abs gnus-summary-zcore-fuzz 32 gnus-score-below-mark gnus-score-over-mark gnus-tmp-score-char gnus-tmp-process gnus-process-mark gnus-tmp-current gnus-newsgroup-cached gnus-cached-mark gnus-tmp-replied gnus-replied-mark gnus-newsgroup-saved gnus-saved-mark gnus-unread-mark 2 gnus-tmp-from string-match "(.+)" "<[^>]+> *$" beg "^\"[^\"]*\"" gnus-tmp-name 1 gnus-tmp-subject gnus-tmp-number gnus-tmp-dummy 60 91 gnus-tmp-opening-bracket 62 93 gnus-tmp-closing-bracket nil buffer-read-only "" gnus-put-text-property eval gnus-summary-line-format-spec gnus-number gnus-visual-p summary-highlight highlight -1 run-hooks gnus-summary-update-hook] 5]) (defalias 'gnus-summary-update-line #[(&optional dont-update) "ﾎ ?ﾎﾂﾃ`ﾄ\"ﾆ !)ﾃ`ﾇ\"\"ﾈ  \n暸11ﾋ\f ﾃプﾃ`ﾄ\"カﾆ !)ﾃ`ﾇ\"Tﾈ \n暸``ﾋWプ >ﾐ!ﾃ`ﾄ\"ャﾆ !)ﾃ`ﾇ\"ﾈ 暸@=ﾓ!易Πﾖ\fZ!XΥﾘぢ\fWｾぢﾌ\"維ﾜﾝ\"ﾍﾞﾟ!+" [gnus-summary-default-score gnus-summary-inhibit-highlight t get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article gnus-newsgroup-scored 0 score dont-update gnus-summary-mark-below gnus-newsgroup-unreads gnus-summary-mark-article-as-read gnus-low-score-mark gnus-newsgroup-data gnus-summary-mark-article-as-unread gnus-unread-mark gnus-summary-update-mark abs gnus-summary-zcore-fuzz 32 gnus-score-below-mark gnus-score-over-mark gnus-visual-p summary-highlight highlight run-hooks gnus-summary-update-hook] 5]) (byte-code "ﾀﾁ!ﾂﾁ Bﾂ" [boundp gnus-tmp-new-adopts nil current-load-list] 2) (defalias 'gnus-summary-number-of-articles-in-thread #[(thread &optional level char) ":AﾁﾂﾃﾄﾅA\"#-ﾃ-@ﾆH>,ﾃ-ﾆ ギ ﾆUギ\nギﾁﾂﾄﾅ\n\"\"\\ ツﾃVタ\fＦ Ｆ)" [thread apply + 1 mapcar gnus-summary-number-of-articles-in-thread 0 gnus-newsgroup-limit number level gnus-tmp-new-adopts char gnus-not-empty-thread-mark gnus-empty-thread-mark] 6]) #@79 Go through the local params of GROUP and set all variable specs in that list. (defalias 'gnus-summary-set-local-parameters #[(group) "ﾀﾁﾂ \f\"J88ﾅM@A:A:@9@ﾈ>ﾉ@!@ﾊA@!L*" [5 2 intern-soft group gnus-newsrc-hashtb nil elem params (quit-config to-address to-list to-group) make-local-variable eval] 5 (#$ . 219797)]) #@211 Start reading news in newsgroup GROUP. If SHOW-ALL is non-nil, already read articles are also listed. If NO-ARTICLE is non-nil, no article is selected initially. If NO-DISPLAY, don't generate a summary buffer. (defalias 'gnus-summary-read-group #[(group &optional show-all no-article kill-buffer no-display) "ﾀﾁﾂ #案 !ﾆ ! ﾈ  \"\n ?ﾋ \f+ﾍ\f!夷ﾏﾐ\"尉ﾏ!惟 意ﾔ!易４\nﾗ=ワp\f噪ﾌp!jq異 !移ﾛ!ｏﾜ@!йﾎﾃﾐ\"ｏ@qﾗ=ラﾋ 夷A!安ﾝﾞ\"衣４\n=ﾗ=Τp\f噪ｱﾌp!\fｻﾍ\f!ﾔq異 !移ﾛ!夷ﾃﾐ\"ﾜ@!ﾎﾃﾐ\"@qﾗ=ﾋ 夷A!違珀\"４ﾋ 遺$%\"J!&鉅!磯$!一 +ソ" -* .ォ ァﾟ/ !)０ !０3\"45Ц 7ツ !飲: Uョ5х/ホ ｇ>ョ ョ 育　!胤 UΩ5┯、ﾟﾕ\"安。，\"\fグﾍ\f!０.ηDη・ F5GHH！=゛ わ゜ ﾎﾏ!eb惟 尉ﾏ!夷ﾏﾐ\"L｀$N\"\fﾍ\f!＾ﾕ\"グ￣ Qヽ＾ﾕ\"!ヾ !エゝ ヽQ!)ﾕUﾕ+" [gnus-message 5 "Retrieving newsgroup: %s..." group gnus-summary-setup-buffer new-group gnus-group-quit-config quit-config gnus-select-newsgroup show-all did-select gnus-set-global-variables kill-buffer gnus-kill-or-deaden-summary gnus-configure-windows summary force gnus-set-mode-line gnus-summary-position-point message "" t major-mode gnus-summary-mode gnus-group-buffer gnus-group-jump-to-group gnus-group-next-unread-group 1 buffer-name 3 "Can't select group" nil quit signal gnus-copy-sequence intern-soft gnus-newsgroup-name gnus-active-hashtb gnus-newsgroup-active run-hooks gnus-select-group-hook gnus-summary-set-local-parameters gnus-update-format-specifications gnus-use-scoring gnus-possibly-score-headers gnus-build-sparse-threads gnus-show-threads gnus-newsgroup-dormant gnus-summary-initial-limit mapcar #[(header) "ﾁH" [header 0] 2] gnus-newsgroup-headers gnus-newsgroup-limit no-display gnus-summary-prepare gnus-use-trees gnus-tree-open gnus-tree-highlight-article gnus-summary-highlight-line-function buffer-size 0 gnus-summary-limit-include-dormant gnus-newsgroup-scored gnus-summary-limit-include-expunged gnus-apply-kill-hook gnus-summary-catchup-and-exit 6 "No unread news" gnus-thread-hide-subtree gnus-summary-hide-all-threads no-article gnus-newsgroup-unreads gnus-auto-select-first best gnus-summary-best-unread-article gnus-summary-first-unread-article gnus-newsgroup-async gnus-request-asynchronous gnus-newsgroup-data get-buffer-window selected-window owin select-window gnus-group-goto-group recenter gnus-newsgroup-prepared] 4 (#$ . 220165)]) #@30 Generate the summary buffer. (defalias 'gnus-summary-prepare #[nil "ﾀﾂ 安ﾀﾅﾆ!,ﾈ &ﾊ ﾌﾍﾎ !!!!*ﾏ!! eb闇ﾐ!)" [nil buffer-read-only erase-buffer gnus-newsgroup-data gnus-newsgroup-data-reverse run-hooks gnus-summary-generate-hook gnus-newsgroup-headers gnus-summary-prepare-threads gnus-show-threads gnus-sort-gathered-threads gnus-summary-thread-gathering-function gnus-sort-threads gnus-cut-threads gnus-make-threads gnus-sort-articles gnus-summary-prepare-hook] 6 (#$ . 222687)]) #@47 Gather threads by looking at Subject headers. (defalias 'gnus-gather-threads-by-subject #[(threads) " ﾂﾃ! 夏演 \n ω @@ﾋH\fｧス ﾍﾎ\"=ﾏ米O?)G\fVゴﾏ\fO||\fﾐ=テﾑ !| ﾍﾎ\"ペﾏ米O{)レﾍ\"ﾌﾓ\n\"Jε@@;━ @D@@A @C､｡ A｡ のﾔ\n\" L  A." [gnus-summary-make-false-root threads gnus-make-hashtable 1023 nil whole-subject hthread subject result prev hashtb 1 gnus-summary-gather-subject-limit string-match "^[Rr][Ee]: *" 0 fuzzy gnus-simplify-subject-fuzzy gnus-summary-gather-exclude-subject intern-soft intern] 7 (#$ . 223191)]) #@50 Gather threads by looking at References headers. (defalias 'gnus-gather-threads-by-references #[(threads) "ﾀﾁ!ﾀﾁ!\n嘉演演 \n \f \nｽ\n@@ﾎHΦ\n@@ﾏHﾐ! ﾃ Φﾑ @ \"Jgﾒ @ \"L惟\f\"\nLがﾑ \f\"J\f@@;ц院@ﾓH@D@@A\n@C､｡惟\f\"L慰 \nA｡  A Г\n \nA$\n.\n" [gnus-make-hashtable 1023 threads nil entered gid gthread id references ids result prev thhashtb idhashtb 5 4 gnus-split-references intern-soft intern 1 t] 11 (#$ . 223821)]) #@63 Sort subtreads inside each gathered thread by article number. (defalias 'gnus-sort-gathered-threads #[(threads) "@@;@ﾂ@Aﾃ\"｡A )" [threads result sort gnus-thread-sort-by-number] 5 (#$ . 224327)]) #@75 Go through the dependency hashtb and find the roots. Return all threads. (defalias 'gnus-make-threads #[nil "ﾀﾂﾃ\f\" )" [nil threads mapatoms #[(refs) "J@?ﾁJA\n\"" [refs append threads] 3] gnus-newsgroup-dependencies] 3 (#$ . 224549)]) (defalias 'gnus-build-sparse-threads #[nil " ﾂ演演演演 \n \f ﾏﾐﾑ\"還ﾓ!陰@\f\fﾔH + ﾕ+ c\fﾖH\fﾗHﾘ\nﾙﾚﾂﾛ#ヨ`Tﾙﾜﾂﾛ#ソ\\nT\n` {F B \\\nTﾂF B ﾝ +ﾞp!)ﾟ 濬"  陰 @シ矮 A@ \"!J@┴J$ AAA@ﾕ A@ AA@ﾕﾘ苛& $ AAA@ﾕ A@ AA@ﾕﾘ苛& CLΚ$%B%$&B&$'B(B($S$矮 AA@3 \"!ガ\fJ\fJAJC､｡お\fﾂJDLおﾏﾐ鷭".\f" [gnus-newsgroup-headers gnus-newsgroup-dependencies nil relation pthread end child subject cthread relations generation references header deps headers gnus-message 7 "Making sparse threads..." nnheader-set-temp-buffer " *gnus sparse threads*" 5 "" 4 1 0 search-backward ">" t "<" erase-buffer kill-buffer sort #[(r1 r2) "@ @W" [r1 r2] 2] boundp intern vector gnus-reffed-article-number gnus-newsgroup-limit gnus-newsgroup-sparse gnus-sparse-mark gnus-newsgroup-reads "none" "Making sparse threads...done"] 12]) (defalias 'gnus-build-old-threads #[nil "ﾀﾃﾄ \"*" [nil heads id mapatoms #[(refs) "J@?=JA= @@ﾂH > A\fﾄ!ﾆ !6ﾇ \"J@$ﾉﾉ" [refs heads 0 gnus-newsgroup-dormant symbol-name id gnus-build-get-header intern-soft gnus-newsgroup-dependencies nil] 4] gnus-newsgroup-dependencies] 3]) (defalias 'gnus-build-get-header #[(id) "ﾁ qeb 1ﾆﾁﾈ#1ﾉy位ﾋﾌﾍ!\"! ﾎy Hﾉy委ﾐp!\f\"Hﾑ\nﾒH!)\nム\nﾉHB\nB>ベBﾘ\"B)+" [gnus-newsgroup-dependencies nil header found deps nntp-server-buffer search-forward id t 0 looking-at format "^[^ ]* [^ ]* [^ ]* [^ ]* %s" regexp-quote 1 gnus-nov-parse-line read gnus-parent-id 5 number gnus-newsgroup-limit gnus-newsgroup-headers gnus-newsgroup-unselected gnus-newsgroup-unreads delq gnus-newsgroup-ancient] 6]) #@39 Update ARTICLE in the summary buffer. (defalias 'gnus-summary-update-article #[(article &optional iheader) "q \fﾂ \f8ﾆH \fﾉ!\n ﾋH\fﾉﾍ\f3\fﾎ?3\f!8ﾏ!ﾑ\n@ ﾔHﾑ\n Ш\nﾑテﾗ\n\"畏 #ベﾙ!\n尉.\n" [gnus-summary-buffer iheader 3 article gnus-newsgroup-data header 4 id data gnus-id-to-thread thread 5 references gnus-parent-id "" "none" parent nil buffer-read-only old 0 number pos delq gnus-summary-insert-subject gnus-id-to-article] 5 (#$ . 226551)]) #@35 Rebuild the thread containing ID. (defalias 'gnus-rebuild-thread #[(id) "ﾀ演 ﾆ!@Cﾈ!緩yﾊU<ﾋ`ﾌ\" 2ﾎ !)ﾋ`ﾏ\"<ﾐ )\n@;ロ\n@ﾀ\nAブﾆﾔ\n@@ﾕH!!>nB\nAФGﾖUヤ@ｌﾗ!B+ﾀﾀﾛﾜ\nC!!*ﾝ \"萎 ､-" [nil data thread current buffer-read-only gnus-show-threads gnus-id-to-thread id gnus-remove-thread -1 0 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject thr roots subject gnus-root-id 4 1 gnus-sort-threads threads gnus-newsgroup-threads gnus-newsgroup-data gnus-summary-prepare-threads gnus-cut-threads gnus-data-enter-list gnus-data-compute-positions] 5 (#$ . 227067)]) #@39 Return the header for article NUMBER. (defalias 'gnus-number-to-header #[(number) " \n @ﾃHU 陰  @)" [gnus-newsgroup-headers headers number 0] 3 (#$ . 227765)]) #@43 Return the (sub-)thread where ID appears. (defalias 'gnus-id-to-thread #[(id) "ﾀ \n\"J" [intern-soft id gnus-newsgroup-dependencies] 3 (#$ . 227948)]) #@34 Return the article number of ID. (defalias 'gnus-id-to-article #[(id) "ﾀ !\n@\n@ﾃH)" [gnus-id-to-thread id thread 0] 3 (#$ . 228106)]) #@35 Return the article headers of ID. (defalias 'gnus-id-to-header #[(id) "ﾀ !@" [gnus-id-to-thread id] 2 (#$ . 228256)]) #@45 Say whether ARTICLE is a root(ish) article. (defalias 'gnus-article-displayed-root-p #[(article) "ﾁ=ﾂ`ﾃ\"ﾄﾅ8ﾈ8ﾉHﾊ \f 0ﾊ| ﾄU;ﾎ|\fДﾎ|ﾏ\f!Оﾎ| ﾐU|ﾑﾏ\f!! ?|ﾁ=フﾂ`ﾃ\"フﾄ{ﾅ 8?+" [gnus-summary-make-false-root dummy get-text-property gnus-intangible 0 4 article gnus-newsgroup-data 3 5 nil particle refs level t gnus-parent-id 1 gnus-id-to-article] 5 (#$ . 228381)]) #@59 Return the id of the root of the thread where ID appears. (defalias 'gnus-root-id #[(id) "ﾀ ﾄ \"J@ ﾆ ﾇH!\n*" [nil prev last-id id intern-soft gnus-newsgroup-dependencies gnus-parent-id 5] 4 (#$ . 228806)]) #@38 Remove the thread that has ID in it. (defalias 'gnus-remove-thread #[(id &optional dont-remove) "ﾁ演ﾆ!ﾈ\n!@ﾈ\n!A@@D ﾁ\n ネ @\n@;サ\nA\nツ\n@@\f揀K @ﾁ ﾁ\n\nA\n5\n@\f@=ツ\nﾁ  A $ \fуﾍ  \" ｅﾎ\n \"J ｬ \f┏ @;Κ AΞﾏ @! Aｙﾏ !." [gnus-newsgroup-dependencies nil last-id thread headers dep gnus-root-id id gnus-id-to-thread gnus-newsgroup-threads sub threads dont-remove delq intern-soft gnus-remove-thread-1] 5 (#$ . 229037)]) #@39 Remove the thread THREAD recursively. (defalias 'gnus-remove-thread-1 #[(thread) "@ﾁHﾂﾅedﾆ\f$# b庵y`ﾇy`|以\f!A5ﾉ陰@!&*" [thread 0 nil pos number text-property-any gnus-number 1 gnus-data-remove gnus-remove-thread-1] 5 (#$ . 229534)]) #@15 Sort THREADS. (defalias 'gnus-sort-threads #[(threads) " GﾂU@ﾃﾄﾅﾆ!!Eﾈﾉﾊ\"依 \"ﾈﾉﾌ\")" [gnus-thread-sort-functions threads 1 lambda (t1 t2) gnus-make-sort-function reverse func gnus-message 7 "Sorting threads..." sort "Sorting threads...done"] 5 (#$ . 229795)]) #@16 Sort ARTICLES. (defalias 'gnus-sort-articles #[(articles) ".GﾁU@ﾂﾃﾄﾅ!!Eﾇﾈﾉ\"位 \"\fﾇﾈﾍ\")" [gnus-article-sort-functions 1 lambda (t1 t2) gnus-make-sort-function reverse func gnus-message 7 "Sorting articles..." sort articles gnus-newsgroup-headers "Sorting articles...done"] 5 (#$ . 230082)]) #@67 Return a composite sort condition based on the functions in FUNC. (defalias 'gnus-make-sort-function #[(funs) "Aﾁ@ﾂBﾃﾄ@ﾅBDﾆA!EE@ﾇB" [funs or (t1 t2) and not (t2 t1) gnus-make-sort-function (t1 t2)] 6 (#$ . 230402)]) (defalias 'gnus-thread-header '(macro . #[(thread) "9Ыnﾁﾂﾃ\"案ﾅﾆ!ﾇF" [thread signal wrong-type-argument (symbolp thread) byte-code ":院;A@@" vector 2] 4])) #@34 Sort articles by article number. (defalias 'gnus-article-sort-by-number #[(h1 h2) "ﾁH\nﾁHW" [h1 0 h2] 3 (#$ . 230804)]) (put (quote gnus-article-sort-by-number) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Sort threads by root article number. (defalias 'gnus-thread-sort-by-number #[(h1 h2) ":院;A@@ :院;A@@ﾂH ﾂHW*" [h1 h2 0] 4 (#$ . 231032)]) #@31 Sort articles by root author. (defalias 'gnus-article-sort-by-author #[(h1 h2) " ﾂH!@ A)\fﾂH!@ A)刧" [gnus-extract-address-components h1 2 extract h2] 5 (#$ . 231195)]) (put (quote gnus-article-sort-by-author) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Sort threads by root author. (defalias 'gnus-thread-sort-by-author #[(h1 h2) ":院;A@@ :院;A@@\nﾃH!@-\fA)\n ﾃH!@;\fA)*" [h1 h2 gnus-extract-address-components 2 extract] 5 (#$ . 231482)]) #@32 Sort articles by root subject. (defalias 'gnus-article-sort-by-subject #[(h1 h2) "ﾁHﾃﾄ\n\"\nﾅ僻O\n)ﾁHﾃﾄ\n\"*\nﾅ僻O+\n)吏" [h1 1 subject string-match "^[Rr][Ee]: *" 0 nil h2] 4 (#$ . 231703)]) (put (quote gnus-article-sort-by-subject) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Sort threads by root subject. (defalias 'gnus-thread-sort-by-subject #[(h1 h2) ":院;A@@ :院;A@@ﾂHﾄﾅ \"3 ﾆ壁O4 ) ﾂHﾄﾅ \"オ ﾆ壁OJ )吏*" [h1 h2 1 subject string-match "^[Rr][Ee]: *" 0 nil] 5 (#$ . 232019)]) #@37 Sort articles by root article date. (defalias 'gnus-article-sort-by-date #[(h1 h2) "ﾀ ﾂH!ﾀ ﾂH!刧" [gnus-sortable-date h1 3 h2] 4 (#$ . 232258)]) (put (quote gnus-article-sort-by-date) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Sort threads by root article date. (defalias 'gnus-thread-sort-by-date #[(h1 h2) ":院;A@@ :院;A@@ﾂﾃH!ﾂ ﾃH!*" [h1 h2 gnus-sortable-date 3] 4 (#$ . 232507)]) #@99 Sort articles by root article score. Unscored articles will be counted as having a score of zero. (defalias 'gnus-article-sort-by-score #[(h1 h2) "ﾁH\n暸 ﾁ\fﾁH\n暸 ﾁV" [h1 0 gnus-newsgroup-scored gnus-summary-default-score h2] 3 (#$ . 232689)]) (put (quote gnus-article-sort-by-score) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Sort threads by root article score. (defalias 'gnus-thread-sort-by-score #[(h1 h2) ":院;A@@ :院;A@@ﾂH 暸.\f.ﾂ ﾂH 暸<\f<ﾂV*" [h1 h2 0 gnus-newsgroup-scored gnus-summary-default-score] 4 (#$ . 233053)]) #@115 Sort threads by the sum of all scores in the thread. Unscored articles will be counted as having a score of zero. (defalias 'gnus-thread-sort-by-total-score #[(h1 h2) "ﾀ !ﾀ\n!V" [gnus-thread-total-score h1 h2] 3 (#$ . 233288)]) (defalias 'gnus-thread-total-score #[(thread) "ﾁ:@;ﾂ ﾁﾄﾅA\"#ﾅ!ﾅC!" [thread 0 apply gnus-thread-score-function mapcar gnus-thread-total-score-1] 6]) (defalias 'gnus-thread-total-score-1 #[(root) "@ﾁ\nﾃﾄﾅﾆﾇH\"JA\"ﾉHﾉV+ﾉH\n暸* *ﾉC\"6 C6ﾌ\"" [root apply gnus-thread-score-function append mapcar gnus-thread-total-score intern-soft 4 gnus-newsgroup-dependencies 0 gnus-newsgroup-scored gnus-summary-default-score (0)] 8]) (byte-code "ﾀﾁ!ﾂﾁ Bﾀﾄ!ﾂﾄ Bﾀﾅ! ﾂﾅ Bﾀﾆ!-ﾂﾆ Bﾂ" [boundp gnus-tmp-prev-subject nil current-load-list gnus-tmp-false-parent gnus-tmp-root-expunged gnus-tmp-dummy-line] 2) #@166 Prepare summary buffer from THREADS and indentation LEVEL. THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])' or a straight list of headers. (defalias 'gnus-summary-prepare-threads #[(threads) "ﾀﾁﾂ\" ﾅy闇ﾅﾇﾈﾉ\"ﾊ演演演演演演演演演演演 \f  !\"#$ﾊ% @!フ !ｙ ххх$ﾅUﾊ(Ε@@ﾅU)┫ω*βﾅっ$@C\"@@A@C\"@@A \"@@@@$A\"A\"@@ﾊ)ﾊ*ﾊ;ヮ,=ソ\\"@AA､\"@AA\"､\"@@\"@A@D\"AB\"$)Ｌ,=プ\"@AA\"､$Ｌ,=ヨ(%Ｌ$ＬﾅH!H 5($ﾅU(%(% ﾊ6786─8 9ﾟ   \"ﾙ ﾅ別Oぽ )*9= !*9ｧ(   \" ﾅ別O\n )9>?G>Vソ"?ﾅ>O$?** )7 9О   \"オ ﾅ別OK )ｚ9=ゾ !ｚ9ｧ   \"ベ ﾅ別Oz )9>?G>Vヲ?ﾅ>Oｔ?*ｚ )嘯87 9ﾅ   \"α ﾅ別Oっ )9=φ !9ｧ   \" ﾅ別Oを )9>?G>V?ﾅ>O\n?* )+(\"@C､ﾊす!@>n(n、\"@A\"､\"@Aジ。\"@A\"Yﾊ$ﾅUｷ*すCｷ!D暸~#CWｷ!E>┨!F>┨；!H\"HIΟ!JBJす!KBLBLヌ(ρ｀(ﾅH\"位(!H>ﾜN!O>P!Q>R!J>S!L暸T!`T$ｯUBU5%% ﾊ67868 9Ю   \"ズ ﾅ別O[ )が9=ノ !が9ｧΚ   \"ヨ ﾅ別Oｊ )9>?G>VΔ?ﾅ>Oう?*が )7 9ﾏ   \"λ ﾅ別Oね )9=ﾝ !9ｧ   \" ﾅ別O )9>?G>V?ﾅ>O?* )嘯87 9Е   \"? ﾅ別OA )ｐ9=ゴ !ｐ9ｧヮ   \"ハ ﾅ別OＱ )9>?G>Vヨ?ﾅ>Oｊ?*ｐ )+ -$ﾅU+,=&!>&%&% ﾊ6786━8 9   \" ﾅ別Oよ )59= !59ｧ3   \" ﾅ別O )9>?G>V-?ﾅ>O/?*5 )7 9Щ   \"サ ﾅ別O７ )ぇ9=ド !ぇ9ｧΕ   \"ャ ﾅ別Oｅ )9>?G>V?ﾅ>Oぁ?*ぇ )嘯87 9ﾐ   \"μ ﾅ別Oの )9=ﾞ !9ｧ   \" ﾅ別O )9>?G>V?ﾅ>O?* )+&V- -V,=コ$Uコ!>コ仝\f々 \\〆\f〇 [$HﾁH!D暸xxﾅヮ―\Z!]Xヴ／ぅWΓ_ぅ`!a>Υbぽ!c>αdぽ!e>ξfぽ!g>ﾙhぽN（H）\"ﾅ乃ﾅ百O*〔\"(ﾅ〕\"ﾅ乃ﾅ百O*ﾅO*［8ｧБﾅ］`｛p!`〈!$トy〉《!壱y %\"A@ﾅ$]\"ABB$T$?\"@Aдﾅ$Ｕ.ﾀﾁ》\"" [gnus-message 7 "Generating summary..." threads gnus-newsgroup-threads 0 gnus-summary-default-score gnus-visual-p summary-highlight highlight nil gnus-tmp-closing-bracket gnus-tmp-opening-bracket gnus-tmp-number gnus-tmp-name gnus-tmp-from gnus-tmp-score-char gnus-tmp-score gnus-tmp-lines gnus-tmp-indentation gnus-tmp-dummy gnus-tmp-subject-or-nil gnus-tmp-replied gnus-tmp-unread gnus-tmp-header thread-end gnus-tmp-new-adopts new-roots beg-match gnus-tmp-gathered state stack subject number thread default-score gnus-tmp-level gnus-tmp-prev-subject vectorp gnus-summary-prepare-unthreaded gnus-tmp-dummy-line gnus-tmp-false-parent gnus-tmp-root-expunged 1 gnus-summary-make-false-root adopt mapcar #[(h) "@ﾁH" [h 0] 2] -1 t empty #[(h) "@ﾁH" [h 0] 2] dummy gnus-thread-ignore-subject simple-first s2 s1 gnus-summary-gather-subject-limit string-match "^[Rr][Ee]: *" fuzzy gnus-simplify-subject-fuzzy width str gnus-newsgroup-limit #[(h) "@ﾁH" [h 0] 2] append gnus-summary-mark-below gnus-newsgroup-scored gnus-newsgroup-sparse gnus-newsgroup-ancient delq gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads gnus-summary-insert-dummy-line gnus-unread-mark gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-expirable-mark gnus-ancient-mark gnus-newsgroup-data gnus-summary-same-subject 60 62 91 93 gnus-thread-indent-array abs gnus-summary-zcore-fuzz 32 gnus-score-below-mark gnus-score-over-mark gnus-newsgroup-processable gnus-process-mark gnus-newsgroup-cached gnus-cached-mark gnus-newsgroup-replied gnus-replied-mark gnus-newsgroup-saved gnus-saved-mark 2 "(.+)" "<[^>]+> *$" "^\"[^\"]*\"" "" gnus-put-text-property eval gnus-summary-line-format-spec gnus-number run-hooks gnus-summary-update-hook "Generating summary...done"] 28 (#$ . 234167)]) #@57 Generate an unthreaded summary buffer based on HEADERS. (defalias 'gnus-summary-prepare-unthreaded #[(headers) "ﾀ演\fﾁ\f陰@ﾅH>ズ\n暸. .ﾅWズ\n\n>Шﾋ\n\f\"\f ケ\nBY\nBB\n>テｓ\n>ヒｓ\n\f>マｓ\n>ラｓ\n暸\n `T ﾅｯBﾙ ﾅﾀ \n>\n> ﾛHﾀ\n暸\n>&\n+" [nil mark number header headers 0 gnus-newsgroup-limit gnus-summary-mark-below gnus-newsgroup-scored gnus-summary-default-score gnus-newsgroup-ancient delq gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads gnus-newsgroup-marked gnus-ticked-mark gnus-newsgroup-dormant gnus-dormant-mark gnus-unread-mark gnus-expirable-mark gnus-ancient-mark gnus-newsgroup-data gnus-summary-insert-line gnus-newsgroup-replied 1 gnus-newsgroup-processable] 12 (#$ . 238519)]) #@89 Select newsgroup GROUP. If READ-ALL is non-nil, all articles in the group are selected. (defalias 'gnus-select-newsgroup #[(group &optional read-all) "ﾀ \n\"Jﾄ 8ﾆﾆﾆ ﾊﾋ !\f!Ы"ﾍﾎ! - @ﾏ=ェﾐ !Ёﾒ噬>ﾓp!囲ﾔ ﾕ !#椅 ﾏ\"Яﾒ噬Xﾓp!囲ﾔ ﾕ !# ﾆﾙ !ミﾜﾝ\"ミﾞ! ユ !違 !ヰ\" 繪$\"%\"ﾆ& (\"┛驍j=ｹﾆＫG!,#芋11=ﾟ1ｧ?GV#4=! 8#  \"!;8\"\"　\"!184=8、 。 !CDИ・ 8ダ8@鶇F；8!鶇H！J8jﾏ-" [intern-soft group gnus-newsrc-hashtb entry 2 info nil articles fetched-articles cached gnus-check-server gnus-find-method-for-group gnus-current-select-method error "Couldn't open server" t gnus-activate-group major-mode gnus-summary-mode kill-buffer "Couldn't request group %s: %s" gnus-status-message gnus-request-group gnus-newsgroup-name gnus-newsgroup-unselected gnus-list-of-unread-articles gnus-newsgroup-unreads gnus-asynchronous gnus-check-backend-function request-asynchronous gnus-request-asynchronous gnus-newsgroup-async gnus-adjust-marked-articles gnus-virtual-group-p gnus-newsgroup-cached gnus-set-difference gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-processable gnus-articles-to-read read-all quit 0 gnus-make-hashtable gnus-newsgroup-dependencies gnus-message 5 "Fetching headers for %s..." gnus-retrieve-headers gnus-fetch-old-headers some 1 gnus-headers-retrieved-by nov gnus-get-newsgroup-headers-xover gnus-get-newsgroup-headers gnus-newsgroup-headers "Fetching headers for %s...done" copy-sequence gnus-newsgroup-limit gnus-set-sorted-intersection mapcar #[(headers) "ﾁH" [headers 0] 2] gnus-update-missing-marks gnus-sorted-complement gnus-build-old-threads gnus-group-auto-expirable-p gnus-newsgroup-auto-expire gnus-single-article-buffer gnus-article-setup-buffer gnus-newsgroup-begin gnus-last-element gnus-newsgroup-end -1 gnus-reffed-article-number] 6 (#$ . 239381)]) (defalias 'gnus-articles-to-read #[(group read-all) " GﾂU GﾂUﾄﾅ\"J!)ﾈﾉ\n ﾋ !#ﾌ\" ﾎ \"G G G\nG\\ｧギ２ﾔﾕﾖ初;ダﾘ!ＢハﾂUピはﾂUﾙ!Xヲﾈﾌ\" Gｘﾋ ! ﾙ!WγﾂWｷﾙ!S 嶽｡っZ  ﾚ ﾛ  \"\" ." [read-all gnus-newsgroup-marked 0 gnus-newsgroup-unreads gnus-uncompress-range intern-soft group gnus-active-hashtb sort append gnus-newsgroup-dormant copy-sequence < articles gnus-killed-articles gnus-newsgroup-killed scored-list scored number marked nil (byte-code " XЫf\nU1 ｧ1\n V1ﾄﾅﾆ\n#!ﾉﾊ\"-\n/) Vヂ\nWヂ\nZﾋVヂﾄﾅﾌﾍ\n%!ﾉﾊ\"ゾ\n_)\n" [scored marked number gnus-large-newsgroup read-string format "How many articles from %s (default %d): " gnus-newsgroup-name input string-match "^[ ]*$" 20 "%s %s (%d scored, %d total): " "How many articles from" group] 7) ((quit)) select string-to-number abs gnus-sorted-intersection gnus-sorted-complement gnus-newsgroup-unselected] 7]) (defalias 'gnus-killed-articles #[(killed articles) "ﾀ\nボ\n@ \fA< \f@Yk \fAXＬﾆ\fト\f@ｧ3 \f@Y8 \f@@Yトト\f@ｧギ \f@UZ \f@@Yチ \f@AXチﾀ\fA&)?*フ\n@ B\nA )" [nil out articles killed ranges number t not-stop] 4]) #@38 Uncompress the mark ranges in MARKS. (defalias 'gnus-uncompress-marks #[(marks) "ﾀﾁ\f+\f@@ >\f@\nB$\f@@ﾅ\f@A!B\nB\fA\n*" [(score bookmark) nil out uncompressed marks gnus-uncompress-range] 4 (#$ . 242581)]) #@70 Set all article lists and remove all marks that are no longer legal. (defalias 'gnus-adjust-marked-articles #[(info) "ﾀ 8ﾃ @\f\"J@ A ﾊ ﾌ ﾌﾌﾌﾌ\nﾏ\n陰@ ﾒﾓﾔﾕ @ \"@\"! @ >シ A[ﾖ A!LJﾗ>ヴ)陰@WфVナﾘJ\"LＪ >))陰@:γ@Wﾁ@VﾘJ\"L. " [3 info marked-lists intern-soft gnus-active-hashtb active min max gnus-article-mark-lists types (score bookmark killed) uncompressed nil marks var articles article mark intern format "gnus-newsgroup-%s" rassq gnus-uncompress-range (tick dormant expirable reply save) delq] 7 (#$ . 242811)]) #@69 Go through the list of MISSING articles and remove them mark lists. (defalias 'gnus-update-missing-marks #[(missing) "5 ﾂ 4ﾆﾇﾈ 陰@@\"!Jソn ソn\fﾉ 陰@\fJ\"L!+" [missing gnus-article-mark-lists nil m var types intern format "gnus-newsgroup-%s" delq] 6 (#$ . 243447)]) #@74 Enter the various lists of marked articles into the newsgroup info list. (defalias 'gnus-update-marks #[nil "ﾁﾂ \f\"J8ﾅﾆ演 \n \f \fｰ テ 陰 @\nﾎﾏﾐ\n@\"!J \nA\nA >ゲ \\ﾑﾒ ﾓ\"Lﾔ\"BB ﾕ\f寃wﾕ\fｅュ\fAAC｡椅ﾁVｯ\f8?ｯS\f寃\f嵌｡ｈ)." [gnus-article-mark-lists 2 intern-soft gnus-newsgroup-name gnus-newsrc-hashtb (score bookmark killed) nil symbol newmarked list type uncompressed info types intern format "gnus-newsgroup-%s" gnus-compress-sequence sort < t 3 5 i] 7 (#$ . 243740)]) (defalias 'gnus-add-marked-articles #[(group type articles &optional info force) " ﾁﾂ \f\"J8ﾅﾆ ?ﾊ實: ?AA\fﾍ ﾎ\"BCC｡\f@梔Э ?\fﾍ ﾎ\"B@Bュ йﾊ嶢\f@@\"ｘﾍ ﾎ\"｡ｘﾍﾑﾒA!ﾓ !､ﾔ\"ﾎ\"｡," [info 2 intern-soft group gnus-newsrc-hashtb (score bookmark killed) nil m marked uncompressed 3 articles type gnus-compress-sequence t force delq sort gnus-uncompress-range copy-sequence <] 7]) #@135 This function sets the mode line of the article or summary buffers. If WHERE is `summary', the summary mode line format will be used. (defalias 'gnus-set-mode-line #[(where) " >ｶﾂ浬fq闇ﾆﾇ\"!J \n ﾌ GGﾌUアﾌUアﾓ８ﾌUケﾆﾔ\"８ﾆﾕ#ハﾘ!ハﾙﾚH!Ｐﾓﾂﾂﾞ!ﾟ リ  Zｌ G] GVΓ 綮\"膠ﾆ牙\" \". C!'韜!)" [where gnus-updated-mode-lines nil mode-string gnus-summary-buffer intern format "gnus-%s-mode-line-format-spec" mformat gnus-newsgroup-name gnus-tmp-group-name gnus-current-article 0 gnus-tmp-article-number gnus-newsgroup-unreads gnus-tmp-unread gnus-tmp-unread-and-unticked gnus-newsgroup-unselected gnus-tmp-unselected "" "{%d more}" "{%d(+%d) more}" gnus-tmp-unread-and-unselected gnus-current-headers vectorp gnus-mode-string-quote 1 gnus-tmp-subject max-len gnus-tmp-header eval 4 gnus-mode-non-string-length window-width gnus-truncate-string 3 "..." "%%-%ds" gnus-mode-line-buffer-identification mode-line-buffer-identification set-buffer-modified-p t] 4 (#$ . 244749)]) #@133 Go through the HEADERS list and add all Xrefs to a hash table. The resulting hash table is returned, or nil if no Xrefs were found. (defalias 'gnus-create-xref-hashtb #[(from-newsgroup headers unreads) "ﾀ !ソfﾃﾄ !ﾆﾇﾈ\" ﾊ ﾊ\fﾊ ﾊﾊﾊΜ陰@ﾒH(ﾈH>(ﾈ ﾔﾕ #(ﾈ ノ ﾖ磐桧PＵﾖ磐桧\fﾗﾘ蛮桧!ﾙ\f \"J   AB｡０ﾚ\f \"ﾊBL０ ｱ . " [gnus-virtual-group-p from-newsgroup virtual "" gnus-group-real-prefix prefix make-vector 63 0 xref-hashtb nil start group entry number xrefs header headers 8 unreads string-match "\\([^ ]+\\)[:/]\\([0-9]+\\)" 1 string-to-int 2 intern-soft intern] 5 (#$ . 245801)]) #@58 Look through all the headers and mark the Xrefs as read. (defalias 'gnus-mark-xrefs-as-read #[(from-newsgroup headers unreads) "ﾀ !ﾂ演演演 \n q偉  #.ﾏﾐ\". " [gnus-virtual-group-p from-newsgroup nil nth4 method idlist xref-hashtb info entry name virtual gnus-group-buffer gnus-create-xref-hashtb headers unreads mapatoms #[(group) "ﾁ\n!?\nJﾅ \"Jﾈ8 ﾊ 8 ;.ﾌ ! ﾍ ﾎ!\"bb ﾎ!噪b @@嚆 A@A@嚆ﾒ=ロы A@:ヤ@ｆ)Xﾕ \f\"" [from-newsgroup symbol-name group name idlist intern-soft gnus-newsrc-hashtb entry 2 info 4 nth4 gnus-server-to-method gnus-methods-equal-p gnus-find-method-for-group virtual method gnus-use-cross-reference t rank gnus-level-subscribed gnus-group-make-articles-read] 5]] 8 (#$ . 246466)]) (defalias 'gnus-group-make-articles-read #[(group articles) "ﾀﾂ \f\"Jﾆ 8ﾂ \"J ﾊ  ネ\fﾊ ヌ@ ォ AVォﾐ !F   AVЩ @Wッﾑ\f\"\fA++ レﾆ8ъ @ﾒVレAAﾒ @SBAAﾓﾆ8ﾔ\fﾕ\"\f\"   ┿ AT @Z A<ﾐ A AT @ZZ  @ｧ Tゑ  @AT @@Z\\ A ﾕ A Z 椅 ﾗ\"-" [0 num intern-soft group gnus-newsrc-hashtb entry 2 info gnus-active-hashtb active nil range articles first id ids gnus-activate-group delq 1 gnus-add-to-range sort < gnus-group-update-group t] 7]) (defalias 'gnus-methods-equal-p #[(m1 m2) " \n\n \n嚀/@\n@=/ﾃﾄﾅ@!\">?/A@\nA@*" [m1 gnus-select-method m2 address assoc symbol-name gnus-valid-select-methods] 5]) (defalias 'gnus-header-value #[nil "ﾀ描ﾂ` b){" [0 p nil] 3]) (byte-code "ﾀﾁﾂﾃ#案ﾅ!ﾆﾅBﾀ" [put gnus-header-value byte-optimizer byte-compile-inline-expand boundp gnus-newsgroup-none-id 0 current-load-list] 4) (defalias 'gnus-get-newsgroup-headers #[(&optional dependencies force-new) " 浬nq )ﾄ演演 \n q偉ﾍ!夷ﾄ演eb慰ﾕﾄﾎ#ﾄ ﾄﾖﾗ !ﾄ``ﾘﾙﾄﾎ#チ`ﾚZa`}b畏ﾛﾄﾎ#メﾜ描ﾄ`b){ｂﾝb畏ﾞﾄﾎ#Βﾜ描ﾄ`b){ぃﾟb畏狷ﾎ#αﾜ描ﾄ`b){ぢb畏籠ﾎ#ﾜ描ﾄ`b){ ゐ聿%T%!P b畏貽ﾎ#%`ﾜ描ﾄ`b){ﾄ育ﾎ#`T鉉ﾎ#`{Yﾘﾄﾎ#シﾜ描ﾄ`b){シ\"シﾜ妃桧Y瘟ﾜb畏ﾄﾎ#ホﾗ !ｧプ{ﾜ{ﾜb畏ﾄﾎ#ﾜ描ﾄ`b){&  \"!ﾝJ@φ1ﾓJ@J@HﾂHﾊ甕I案ゆJゆCL \"!JJAJC､｡ﾄJDL\nB\ndb~9\n." [nntp-server-buffer dependencies gnus-summary-buffer gnus-newsgroup-dependencies nil ref end ref-dep id-dep id headers cur run-hooks gnus-parse-headers-hook t lines p header in-reply-to case-fold-search re-search-forward "^[23][0-9]+ " vector read search-forward "\n.\n" 2 "\nsubject: " 0 "(none)" "\nfrom: " "(nobody)" "\ndate: " "" "\nmessage-id: " "none+" int-to-string gnus-newsgroup-none-id "\nreferences: " search-backward ">" "<" "\nin-reply-to: " string-match "<[^>]+>" "\nlines: " "\nxref: " boundp intern force-new 8] 13]) (defalias 'gnus-nov-read-integer '(macro . #[nil "ﾀ" [(prog1 (if (= (following-char) 9) 0 (let ((num (condition-case nil (read buffer) (error nil)))) (if (numberp num) num 0))) (or (eobp) (forward-char 1)))] 1])) (defalias 'gnus-nov-skip-field '(macro . #[nil "ﾀ" [(search-forward " " eol (quote move))] 1])) (defalias 'gnus-nov-field '(macro . #[nil "ﾀ" [(buffer-substring (point) (if (gnus-nov-skip-field) (1- (point)) eol))] 1])) #@132 Parse the news overview data in the server buffer, and return a list of headers that match SEQUENCE (see `nntp-retrieve-headers'). (defalias 'gnus-get-newsgroup-headers-xover #[(sequence &optional force-new dependencies) "ﾀ\n \fﾅ演 浬nq位ﾋ!eb\fビmвﾍ !\fウ\f@Wウ\fA\f3\fネ\f@=ネ\fA\fﾎ #ネBﾐy)-" [(gnus-article-get-xrefs) gnus-article-internal-prepare-hook nntp-server-buffer dependencies gnus-newsgroup-dependencies nil header headers number cur run-hooks gnus-parse-headers-hook sequence read gnus-nov-parse-line force-new 1] 6 (#$ . 249816)]) (defalias 'gnus-nov-parse-line #[(number dependencies &optional force-new) "ﾀ`ﾂ` b)pﾂ演演 \n` }m*ﾂu按ﾋﾌ処~ホﾍﾎ \"!フ\fJ@ヌk\fJ@ﾑ\fJ@ﾑHZﾒﾑHbﾒPI按z\fJz\fCLΗﾍﾎﾓ\"! J JA\fJC､｡ぇ ﾂ\fJDL." [0 p nil ref-dep id-dep id ref header buffer eol none (byte-code "ﾀ `ﾂﾃ\fﾅ#`S\f{`ﾂﾃ\fﾅ# `S!\f{`ﾂﾃ\fﾅ#0`S1\f{`ﾂﾃ\fﾅ#ァ`SA\f{OﾆﾇT!P 柿\nﾂﾃ\f\"依ﾌ\nﾍ#ビ`Tﾋﾎ\nﾍ#{Ｖﾐ*`ﾂﾃ\fﾅ#ヤ`Sｅ\f{gﾑUヰﾒいﾐﾓﾔ初ｧΒぃﾒ)m┼ﾖugﾑUΦﾒでﾐﾗﾘ初ｧεてﾒ)mﾌﾖugﾙU?`ﾂﾃ\fﾅ#`Sや\f{& ﾐ" [vector number search-forward " " eol move "none+" int-to-string none id beg search-backward ">" t "<" ref nil 9 0 (read buffer) ((error)) num 1 (read buffer) ((error)) 10 header] 15) ((error (byte-code "ﾀﾁﾂ\"暗 b" [gnus-error 4 "Strange nov line" nil header eol] 3))) boundp intern dependencies force-new 8 "" "none"] 8]) #@133 Fill in the Xref value in `gnus-current-headers', if necessary. This is meant to be called in `gnus-article-internal-prepare-hook'. (defalias 'gnus-article-get-xrefs #[nil "q ) ?U\n?U\nﾄH \nﾄHﾅ?Uﾆﾇ 弧 ebg陵=:ﾌﾍ!Вﾎﾏﾇﾆ#Tﾐ謬b`ﾇ`{\nﾄI+)" [gnus-summary-buffer gnus-current-headers headers gnus-use-cross-reference 8 "" t nil xref case-fold-search nnheader-narrow-to-headers 120 looking-at "Xref:" search-forward "\nXref:" 0] 4 (#$ . 251334)]) #@63 Find article ID and insert the summary line for that article. (defalias 'gnus-summary-insert-subject #[(id &optional old-header use-old-header) "ソf ソfﾂ ! ｧ ﾄヘЗォﾉedﾊﾋH$ォ b依y`ﾌy`|囲ﾋH!サﾋﾋHI夷ﾋH\"ﾎ\"ﾑﾒH!意ﾄﾔ#ｧΖﾋVΖVヰWﾎ\"ｭﾋH+" [old-header use-old-header gnus-read-header id nil pos number header gnus-show-threads text-property-any gnus-number 0 1 gnus-data-remove delq gnus-newsgroup-sparse gnus-newsgroup-ancient gnus-rebuild-thread 4 gnus-summary-goto-subject t gnus-newsgroup-end gnus-newsgroup-begin gnus-newsgroup-unselected] 7 (#$ . 251810)]) #@163 Return a list of articles to be worked upon. The prefix argument, the list of process marked articles, and the current article will be taken into consideration. (defalias 'gnus-summary-work-articles #[(n) "ダﾁWﾂﾃ!!ﾄﾁVズﾈ`ﾉ\"\n*ﾋ\n!)ﾈ`ﾌ\"4ﾍ Bズガﾎﾄ \"０ﾏﾄ \"ズS),ﾐﾑ!ｸｸｸ`ﾓ ]ﾄ柿ﾓ ^b以`ﾉ\"\nヰﾋ\n!)ﾈ`ﾌ\"ﾍ BΦﾏﾄ \"Φ`Wп,δﾖ!ﾈ`ﾉ\"\nτﾋ\n!)ﾈ`ﾌ\"ﾛﾍ C" [n 0 abs prefix-numeric-value nil article articles backward get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-find-prev gnus-summary-find-next boundp transient-mark-mode mark-active mark max gnus-newsgroup-processable reverse] 5 (#$ . 252467)]) #@102 Search for next unread newsgroup. If optional argument BACKWARD is non-nil, search backward instead. (defalias 'gnus-summary-search-group #[(&optional backward use-level) "q庵\nﾃ\f ﾅ #ﾆ )" [gnus-group-buffer gnus-group-search-forward backward nil use-level gnus-group-group-level gnus-group-group-name] 4 (#$ . 253228)]) #@84 Find the name of the best unread group. If EXCLUDE-GROUP, do not go to this group. (defalias 'gnus-summary-best-group #[(&optional exclude-group) "q潅\n!*" [gnus-group-buffer gnus-group-best-unread-group exclude-group] 2 (#$ . 253563)]) (defalias 'gnus-summary-find-next #[(&optional unread article backward) "ﾁ ﾂ`ﾃ\" )ﾂ`ﾃ\"ﾇ!)ﾂ`ﾈ\")ﾉ \n   >)\fﾍ\fШササ\f@A@UШ\fA\fヤ\f\f@A@Uプ\f@ﾍ\f\fA\fcｇ\f@ﾒ8b@," [backward gnus-summary-find-prev get-text-property gnus-intangible dummy article to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data bdata arts nil result gnus-summary-check-current unread gnus-unread-mark 2] 4]) (defalias 'gnus-summary-find-prev #[(&optional unread article) "m ﾂ`ﾃ\"ﾅ\f!)ﾂ`ﾆ\"ﾇ *ﾉ\n!   >)\fﾍЦココ\f@A@UЦ\fA\fモ\fマ\f@A@Uフ\f@ﾍ\f\fA\faｅ\f@ﾒ8b@," [eobp article get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data-reverse reverse gnus-newsgroup-data bdata arts nil result gnus-summary-check-current unread gnus-unread-mark 2] 4]) (defalias 'gnus-summary-find-subject #[(subject &optional unread backward article) " ﾂﾃ\"ﾄ頁O)] ﾆ=(ﾇ!] ｧソ\ﾂﾃ\">ﾄ頁O?)  GVシ ﾄO９ *])\n ~ﾌ`ﾍ\"フﾏ!)ﾌ`ﾐ\"~ﾑ  ヴﾔ!ｖ >)ﾅｾｾ@A@UﾃA0ﾘ@A@U'ﾝﾞ@8!'\nﾞ@8ﾟH!\"#!┿# ﾂﾃ\"ﾄ頁O)６ ﾆ= ﾇ!６ ｧサﾂﾃ\"6ﾄ頁O7)  GVク ﾄO１ *６)\" гﾂﾃ\"ハﾄ頁OＰ)ざ ﾆ=ﾇ!ざ ｧΦﾂﾃ\"ヵﾄ頁Oｖ)  GVΟ ﾄOけ *ざ)嘯#\" ﾘﾂﾃ\"φﾄ頁Oぶ) ﾆ=ﾇ! ｧﾂﾃ\"ﾄ頁O)  GV ﾄO *)+'@ﾅAﾈ@8b@@-" [subject gnus-summary-gather-subject-limit string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy width str simp-subject article get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject backward gnus-newsgroup-data-reverse reverse gnus-newsgroup-data articles bdata arts result gnus-summary-check-current unread gnus-unread-mark vectorp 3 1 t simple-first s2 s1 2] 6]) #@158 Search forward for an article. If UNREAD, look for unread articles. If SUBJECT, look for articles with that subject. If BACKWARD, search backward instead. (defalias 'gnus-summary-search-forward #[(&optional unread subject backward) "ソnﾁ\n # ﾄ\n!ﾅ\n!" [subject gnus-summary-find-subject unread backward gnus-summary-find-prev gnus-summary-find-next] 4 (#$ . 255890)]) #@77 Center point in window and redisplay frame. Also do horizontal recentering. (defalias 'gnus-recenter #[(&optional n) " ﾁ= ﾂ 暗\f!" [gnus-auto-center-summary vertical gnus-horizontal-recenter recenter n] 2 (#$ . 256275) "P"]) #@146 Center point in the summary window. If `gnus-auto-center-summary' is nil, or the article buffer isn't displayed, no centering will be performed. (defalias 'gnus-summary-recenter #[nil "ﾀ ﾁW ﾂﾀ ﾃWﾄﾅﾀ S嚇b[y`)ﾉp!\n qﾉ\f!キﾍ\n[y`)^\"伊pﾎ\"q ﾏ=?qﾐ ﾒﾉpﾎ\"!意 慰 惟!)," [window-height 4 0 7 1 2 top height bottom get-buffer-window window gnus-auto-center-summary gnus-article-buffer set-window-start t vertical selected-window selected select-window gnus-summary-position-point gnus-horizontal-recenter] 4 (#$ . 256514)]) #@43 Recenter the current buffer horizontally. (defalias 'gnus-horizontal-recenter #[nil "iﾀ ﾁ･Wﾂﾃpﾄ\"ﾅ\"`ﾇﾃpﾄ\"!ﾅ ﾊ bm=`W=ﾋ i] ﾌy#b ﾀ Vヂﾂﾃpﾄ\"iﾀ ﾍ･Z ﾀ Zﾁ\\^\"Ｊﾂﾃpﾄ\"ﾅ\" +" [window-width 2 set-window-hscroll get-buffer-window t 0 orig window-end end max window-start nil 1 3] 5 (#$ . 257080)]) #@29 Collapse GROUP name LEVELS. (defalias 'gnus-short-group-name #[(group &optional levels) "ﾀﾀﾃﾅ$ﾈﾉ\n##ﾃ\fﾅ\\\fﾈﾋ\n\"=\nﾃ鴛O\nﾃ蔑O\n\nミﾈﾉ\n\"ヒ ﾅZVヒ \nﾃﾅOP\nﾃ蔑O\nﾅZ ﾎP=\n \nQﾌ\nВ -" ["" name foreign 0 depth 1 skip levels string-match "\\." group ":" nil gnus-group-uncollapsed-levels "."] 5 (#$ . 257411)]) #@47 Move point to NEWSGROUP in group mode buffer. (defalias 'gnus-summary-jump-to-group #[(newsgroup) "pﾀ != ﾂ窮甘 !ﾄ ! q闇!)" [get-buffer gnus-group-buffer ((byte-code "ﾀ !ソnﾂ !暗\f!" [get-buffer-window gnus-group-buffer pop-to-buffer gnus-group-jump-to-group newsgroup] 2)) get-buffer-window pop-to-buffer gnus-group-jump-to-group newsgroup] 3 (#$ . 257780)]) (defalias 'gnus-list-of-unread-articles #[(group) "ﾀ加\n \"J88ﾁ\n \"JAﾈ ﾈ\nﾈ \f*@ \fA<8\fAT \f@ｧイ\f@F\f@@\nﾌUРﾌ \f ビ \nWビ  B  T \\\f@:м\f@\f@AT \fA@:ю\fA@ｔ\fA@@\n\fAФ XΨ  B  T ぁ ." [2 intern-soft group gnus-newsrc-hashtb read gnus-active-hashtb active last nil first nlast unread 1] 6]) #@61 Return a list of unread, unticked and non-dormant articles. (defalias 'gnus-list-of-read-articles #[(group) "ﾀﾁ\n \"J8ﾅ\f8ﾁ\n\"J\f99ﾉﾊﾋ!ﾌ\n!\"ﾍﾋﾎ暸!ﾋﾏ暸!\"\"+" [2 intern-soft group gnus-newsrc-hashtb info 3 marked gnus-active-hashtb active gnus-set-difference gnus-sorted-complement gnus-uncompress-range gnus-list-of-unread-articles append dormant tick] 7 (#$ . 258528)]) #@66 Perform any operation on all articles that are process/prefixed. (defalias 'gnus-summary-universal-argument #[(arg) "ﾀ 庵\n!ﾃﾇﾈﾉﾊ!!!ﾋ=ソ"ﾌﾍﾎ\"@?ﾏ陰@!威 !尉\f!#)+ﾒ " [gnus-set-global-variables gnus-summary-work-articles arg nil article func articles key-binding read-key-sequence substitute-command-keys "\\\\[gnus-summary-universal-argument]" undefined gnus-error 1 "Undefined key" gnus-summary-goto-subject command-execute gnus-summary-remove-process-mark gnus-summary-position-point] 4 (#$ . 258927) "P"]) #@92 Toggle truncation of summary lines. With arg, turn line truncation on iff arg is positive. (defalias 'gnus-summary-toggle-truncation #[(&optional arg) " ?ﾂ!ﾃVﾄ " [arg truncate-lines prefix-numeric-value 0 redraw-display] 2 (#$ . 259490) "P"]) #@101 Exit and then reselect the current newsgroup. The prefix argument ALL means to select all articles. (defalias 'gnus-summary-reselect-current-group #[(&optional all rescan) "ﾀ 庵\n! ﾃﾄ!闇`ﾆ\"ﾈ!)ﾅ`ﾉ\"&ﾊ \n \fﾍﾏ 威 !ア還ﾓ!)ﾔﾖ\"以\fﾍﾖ#*" [gnus-set-global-variables gnus-ephemeral-group-p gnus-newsgroup-name error "Ephemeral groups can't be reselected" get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject group current-subject nil gnus-newsgroup-begin gnus-summary-exit gnus-summary-jump-to-group rescan gnus-group-get-new-news-this-group 1 gnus-group-read-group all t] 5 (#$ . 259750) "P"]) #@69 Exit the newsgroup, ask for new articles, and select the newsgroup. (defalias 'gnus-summary-rescan-group #[(&optional all) "ﾀ ﾂ\"" [gnus-summary-reselect-current-group all t] 3 (#$ . 260420) "P"]) (defalias 'gnus-summary-update-info #[nil "\nソ"ﾃﾄﾅ!ﾇﾉ\"\"ﾇ\nﾉ\"\n､ﾋ\"A<.C\f ﾎﾏ!>ﾑﾓ ﾔ\n\"\"易 スﾗ  \n#チﾙ ドﾛ q胃!uﾞ !*" [gnus-newsgroup-name group gnus-newsgroup-kill-headers gnus-compress-sequence gnus-set-sorted-intersection gnus-uncompress-range gnus-newsgroup-killed sort gnus-newsgroup-unselected < gnus-newsgroup-unreads t gnus-newsgroup-headers headers run-hooks gnus-exit-group-hook gnus-save-score nil gnus-newsgroup-scored gnus-update-read-articles append gnus-update-marks gnus-use-cross-reference gnus-mark-xrefs-as-read gnus-newsgroup-adaptive gnus-score-adaptive gnus-use-scoring gnus-score-save gnus-group-buffer gnus-ephemeral-group-p gnus-group-update-group] 6]) #@149 Exit reading current newsgroup, and then return to group selection mode. gnus-exit-group-hook is called with no arguments if that value is non-nil. (defalias 'gnus-summary-exit #[(&optional temporary) "ﾀ 庵 \nﾄ\n!pﾉﾊ! В\f 5 ;1ﾎ2ﾏ !)>ﾐ!)ﾑギﾔ 易 シﾗ ! Ьﾘ 異 !q mﾛ !伊ﾜ! иﾝﾞ!?d ﾍ   ;ﾎｚﾏ !)Θﾐ!)\f ﾀ ;ｼﾎたﾏ !)λﾐ!)ﾑq!ﾜ  夷 ! !亥ﾃ觸"医 =  ;ﾎﾏ !)ﾐ!)()! :ﾛ !胃ﾞ!亥ﾃ觸"\\ﾏ @!И蠹觸"\\ @q=ジﾀ 亥 A! ?dﾑ," [gnus-set-global-variables gnus-kill-save-kill-buffer gnus-newsgroup-name group gnus-group-quit-config quit-config major-mode mode buf run-hooks gnus-summary-prepare-exit-hook gnus-single-article-buffer gnus-original-article-buffer buffer get-buffer buffer-name kill-buffer nil gnus-article-current gnus-use-cache gnus-cache-possibly-remove-articles gnus-cache-save-buffers gnus-use-trees gnus-tree-close gnus-summary-update-info gnus-close-group gnus-group-buffer gnus-group-jump-to-group gnus-summary-exit-hook gnus-group-next-unread-group 1 temporary gnus-article-buffer gnus-kill-summary-on-exit gnus-deaden-summary gnus-summary-clear-local-variables bury-buffer gnus-configure-windows force gnus-summary-mode gnus-select-method gnus-current-select-method pop-to-buffer] 4 (#$ . 261362) nil]) (defalias (quote gnus-summary-quit) (quote gnus-summary-exit-no-update)) #@68 Quit reading current newsgroup without updating read article info. (defalias 'gnus-summary-exit-no-update #[(&optional no-questions) "ﾀ ﾃ\n! ﾇﾈ!ﾞ f\n \f6\f;2ﾍ3ﾎ\f!)?ﾏ !) \fY\f;ザﾍ７ﾎ\f!)ッﾏ !)ﾑбﾔ ｋﾕ\n!椅 q椅 囲!ルﾏ! ﾑﾚ\n!囲\n!Κﾛ\n!緯ﾂﾝ\"尉ﾞ \n噬ｺﾟ!\fﾞﾎ\f@!ﾌﾜﾂﾝ\"む\f@q!=ﾚﾀ 緯\fA!*" [gnus-set-global-variables gnus-newsgroup-name group gnus-group-quit-config quit-config no-questions gnus-expert-user gnus-y-or-n-p "Do you really wanna quit reading this group? " gnus-single-article-buffer gnus-article-buffer buf buffer get-buffer buffer-name kill-buffer gnus-original-article-buffer nil gnus-article-current gnus-kill-summary-on-exit gnus-deaden-summary gnus-close-group gnus-summary-clear-local-variables gnus-group-buffer gnus-summary-buffer gnus-use-trees gnus-tree-close bury-buffer gnus-configure-windows force gnus-group-group-name gnus-group-next-unread-group 1 major-mode gnus-summary-mode] 4 (#$ . 262809) nil]) (byte-code "ﾀﾁ!ﾂﾁ B 5ﾄ ﾅ !鞍ﾇﾈ #伊\n\n4ﾋ \n陰\n@ﾈ# )ﾂ" [boundp gnus-dead-summary-mode-map nil current-load-list make-keymap suppress-keymap substitute-key-definition undefined gnus-summary-wake-up-the-dead ("" " " "") keys define-key] 4) #@38 Minor mode for Gnus summary buffers. (defvar gnus-dead-summary-mode nil (#$ . 264092)) #@38 Minor mode for Gnus summary buffers. (defalias 'gnus-dead-summary-mode #[(&optional arg) "ﾁ=<ﾂﾃ!\f ?ﾅ\f!ﾆV<ﾃ桷*ﾈBﾃ ?<ﾃ\nB B " [major-mode gnus-summary-mode make-local-variable gnus-dead-summary-mode arg prefix-numeric-value 0 minor-mode-alist (gnus-dead-summary-mode " Dead") minor-mode-map-alist gnus-dead-summary-mode-map] 3 (#$ . 264185) "P"]) #@61 Make the current summary buffer into a dead summary buffer. (defalias 'gnus-deaden-summary #[nil "ﾁ!q\nﾃp!)pﾂﾄ!庵 ﾆﾇ \"6ﾈ ﾉ鉛Oﾊ ﾉ藩OQﾌ\")" [gnus-dead-summary buffer-name gnus-dead-summary-mode kill-buffer 1 name string-match "Summary" rename-buffer 0 "Dead " nil t] 6 (#$ . 264568)]) #@36 Kill or deaden the summary BUFFER. (defalias 'gnus-kill-or-deaden-summary #[(buffer) "ﾀ !オ\nИ q \" ;ﾅ ﾀ !)*ﾆ\f!)@ ;=ﾅ>ﾀ !)ォﾆ\f!*リ ノﾅ !ノﾀﾅ !!ノ看 !q位 !)  ;ミﾅﾀ !)ﾆ\f!)ﾅ !ﾀﾅ !! q偉 )" [buffer-name buffer gnus-single-article-buffer gnus-article-buffer buf get-buffer kill-buffer gnus-original-article-buffer gnus-kill-summary-on-exit gnus-use-trees gnus-tree-close gnus-newsgroup-name gnus-deaden-summary] 4 (#$ . 264878)]) #@34 Wake up the dead summary buffer. (defalias 'gnus-summary-wake-up-the-dead #[(&rest args) "ﾀﾁ!按 ﾄﾅ \"ﾆ ﾇ鉛O ﾇ癖OPﾉ\")ﾊﾋﾌ\"" [gnus-dead-summary-mode -1 buffer-name name string-match "Dead " rename-buffer 0 nil t gnus-message 3 "This dead summary is now alive again"] 5 (#$ . 265376) nil]) #@112 Fetch the FAQ for the current group. If FAQ-DIR (the prefix), prompt for a directory to search for the faq in. (defalias 'gnus-summary-fetch-faq #[(&optional faq-dir) "ﾀﾂ \f\"ﾅﾆ!)" [nil gnus-faq-buffer gnus-group-fetch-faq gnus-newsgroup-name faq-dir gnus-configure-windows summary-faq] 3 (#$ . 265677) (list (if current-prefix-arg (completing-read "Faq dir: " (and (listp gnus-group-faq-directory) gnus-group-faq-directory))))]) #@33 Describe the current newsgroup. (defalias 'gnus-summary-describe-group #[(&optional force) "ﾀ \n\"" [gnus-group-describe-group force gnus-newsgroup-name] 3 (#$ . 266120) "P"]) #@41 Describe summary mode commands briefly. (defalias 'gnus-summary-describe-briefly #[nil "ﾀﾁﾂﾃ!\"" [gnus-message 6 substitute-command-keys "\\\\[gnus-summary-next-page]:Select \\[gnus-summary-next-unread-article]:Forward \\[gnus-summary-prev-unread-article]:Backward \\[gnus-summary-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-summary-describe-briefly]:This help"] 4 (#$ . 266303) nil]) #@217 Exit current newsgroup and then select next unread newsgroup. If prefix argument NO-ARTICLE is non-nil, no article is selected initially. If NEXT-GROUP, go to this group. If BACKWARD, go to previous group instead. (defalias 'gnus-summary-next-group #[(&optional no-article target-group backward) "ﾀ pﾂﾆﾇ! ?}q伊 !\n2 ﾌ=,ﾍ !2ﾎ \"\nЗﾐﾑﾒ\"杏\fq鞍 ﾉ\n!意 ﾇ=cピﾕUгﾖ\nﾂ\f$ピﾇＺ\nﾂ\n) +" [gnus-set-global-variables gnus-newsgroup-name nil entered current-buffer current-group gnus-summary-exit t gnus-group-buffer gnus-group-jump-to-group target-group gnus-keep-same-level best gnus-summary-best-group gnus-summary-search-group backward gnus-message 5 "Returning to the group buffer" gnus-group-group-unread unreads 0 gnus-summary-read-group no-article] 6 (#$ . 266732) "P"]) #@143 Exit current newsgroup and then select previous unread newsgroup. If prefix argument NO-ARTICLE is non-nil, no article is selected initially. (defalias 'gnus-summary-prev-group #[(&optional no-article) "ﾀ ﾂﾃ#" [gnus-summary-next-group no-article nil t] 4 (#$ . 267565) "P"]) #@156 Go to the first unread subject. If UNREAD is non-nil, go to the first unread article. Returns the article selected or nil if there are no unread articles. (defalias 'gnus-summary-first-subject #[(&optional unread) " ﾁﾂﾃ\"案８ ﾆ@8b@@８+ﾁﾂﾈ\"案８ ェ @A@\nUЁ A 2 Vﾆ @8b @@)ﾋ " [gnus-newsgroup-data gnus-message 3 "No articles in the group" nil unread 2 gnus-newsgroup-unreads "No more unread articles" data gnus-unread-mark gnus-summary-position-point] 4 (#$ . 267848) "P"]) #@219 Go to next N'th summary line. If N is negative, go to the previous N'th subject line. If UNREAD is non-nil, only unread articles are selected. The difference between N and the actual number of steps taken is returned. (defalias 'gnus-summary-next-subject #[(n &optional unread dont-display) "ﾁWﾂ!ﾁV% ﾄ !ﾆ !%S ﾁU9ﾇﾈﾉ 6ﾊ7ﾋ#\fДﾍ 夷 *" [n 0 abs backward gnus-summary-find-prev unread gnus-summary-find-next gnus-message 7 "No more%s articles" " unread" "" dont-display gnus-summary-recenter gnus-summary-position-point] 5 (#$ . 268364) "p"]) #@38 Go to next N'th unread summary line. (defalias 'gnus-summary-next-unread-subject #[(n) "ﾀ ﾂ\"" [gnus-summary-next-subject n t] 3 (#$ . 268942) "p"]) #@108 Go to previous N'th summary line. If optional argument UNREAD is non-nil, only unread article is selected. (defalias 'gnus-summary-prev-subject #[(n &optional unread) "ﾀ [\n\"" [gnus-summary-next-subject n unread] 3 (#$ . 269099) "p"]) #@42 Go to previous N'th unread summary line. (defalias 'gnus-summary-prev-unread-subject #[(n) "ﾀ [ﾂ\"" [gnus-summary-next-subject n t] 3 (#$ . 269342) "p"]) #@95 Go the subject line of ARTICLE. If FORCE, also allow jumping to articles not currently shown. (defalias 'gnus-summary-goto-subject #[(article &optional force silent) "` \n \f ﾅﾆ\f!\fﾇ#   b\n62ﾉﾊﾋ#偉<ﾍ\n8b*" [article gnus-newsgroup-data data b force gnus-summary-insert-subject vectorp t silent gnus-message 3 "Can't find article %d" nil 2] 4 (#$ . 269503)]) #@119 Make the summary buffer take up the entire Emacs frame. Given a prefix, will force an `article' buffer configuration. (defalias 'gnus-summary-expand-window #[(&optional arg) "ﾀ ソfﾂﾃﾄ\"ﾂﾅﾄ\"" [gnus-set-global-variables arg gnus-configure-windows article force summary] 3 (#$ . 269898) "P"]) #@36 Display ARTICLE in article buffer. (defalias 'gnus-summary-display-article #[(article &optional all-header) "ﾀ >\n\n \"ﾄ \"ﾅﾆ!ﾈU&ﾉ!位  6ﾌ !囲 !夷 暸!" [gnus-set-global-variables article gnus-summary-display-article-function all-header gnus-article-prepare run-hooks gnus-select-article-hook gnus-current-article 0 gnus-summary-goto-subject gnus-summary-recenter gnus-use-trees gnus-possibly-generate-tree gnus-highlight-selected-tree gnus-article-set-window-start gnus-newsgroup-bookmarks] 4 (#$ . 270200)]) #@246 Select the current article. If ALL-HEADERS is non-nil, show all header fields. If FORCE is non-nil, the article will be re-fetched even if it already present in the article buffer. If PSEUDO is non-nil, pseudo-articles will also be displayed. (defalias 'gnus-summary-select-article #[(&optional all-headers force pseudo article) "ﾁ= \nq &ﾄ`ﾅ\"ﾇ!)ﾄ`ﾈ\"&ﾉ \n??ﾋ\f \nВﾏ !ィﾐﾑ!浬nqノャャﾕ!ャ A=ャ@噬нャ =ャヮﾙ \n\" \f\nﾛ 緯)\fΜﾝ 暸!," [major-mode gnus-summary-mode gnus-summary-buffer article get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject all-headers nil did gnus-summary-display-article-function pseudo gnus-summary-article-pseudo-p error "This is a pseudo-article." gnus-single-article-buffer gnus-current-article gnus-article-current get-buffer gnus-article-buffer gnus-newsgroup-name force gnus-summary-display-article gnus-show-all-headers gnus-article-show-all-headers old gnus-article-set-window-start gnus-newsgroup-bookmarks] 5 (#$ . 270742)]) #@20 Obsolete function. (defalias 'gnus-summary-set-current-mark #[(&optional current-mark) "ﾀ" [nil] 1 (#$ . 271839)]) #@192 Select the next article. If UNREAD, only unread articles are selected. If SUBJECT, only articles with SUBJECT are selected. If BACKWARD, the previous article is selected instead of the next. (defalias 'gnus-summary-next-article #[(&optional unread subject backward push) "ﾀ 庵\n \f#ケﾅﾆ`ﾇ\"ﾉ!)ﾆ`ﾊ\"%ﾋ !Мﾆ`ﾇ\"8ﾉ!)ﾆ`ﾊ\"Bﾋ \f暸@ =ケﾎ デデﾐ デﾎ 尉ﾒﾓ\"ュ\nу уﾕ\fミSａTﾘﾙ#ﾚ!яﾜ!ﾟ=Γ!え畚f\"\"#蒟p!!&ｺ#ﾊﾑ鉅\nη驍ﾆ#!&=&=ﾝ-&= ﾚ! !ﾑ銖\n驍\" \"P$咽ﾘ\"\f#!#\n\f$*" [gnus-set-global-variables gnus-summary-search-forward unread subject backward gnus-summary-display-article get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data gnus-canceled-mark gnus-summary-position-point gnus-auto-select-same gnus-summary-first-unread-article gnus-message 6 "Wrapped" gnus-auto-extend-newsgroup gnus-summary-goto-article gnus-newsgroup-begin gnus-newsgroup-end nil t gnus-ephemeral-group-p gnus-newsgroup-name gnus-summary-jump-to-group last-command-char gnus-keep-same-level best gnus-summary-best-group gnus-summary-search-group group cmd select-window get-buffer-window gnus-auto-select-next 7 "No more%s articles" " unread" "" quietly slightly-quietly push almost-quietly gnus-summary-last-article-p gnus-summary-exit "No more%s articles (%s)..." "selecting " "exiting" gnus-summary-next-group gnus-summary-walk-group-buffer] 7 (#$ . 271962) "P"]) (defalias 'gnus-summary-walk-group-buffer #[(from-group cmd unread backward) "ﾀﾁ演q以 !\nﾋ=#ﾌ !)ﾎ\n\")\n?ﾈﾐﾑﾒ<ﾔ=ﾕ セﾖ !Щﾗﾘﾙ! ﾛ \"J@$Ｄﾗﾝﾙ! #$萎 @ﾟ\f档p ! ヤ !医\f暸@!井  !)ﾁ,\f噬ｾ Πﾖ !Χ +戝 #+ A'B'+-" [((14 (gnus-group-next-unread-group 1)) (16 (gnus-group-prev-unread-group 1))) nil ended group key keve keystrokes gnus-group-buffer gnus-summary-jump-to-group from-group gnus-keep-same-level best gnus-summary-best-group gnus-newsgroup-name gnus-summary-search-group backward gnus-message 5 "No more%s articles%s" unread " unread" "" gnus-ephemeral-group-p format " (Type %s for %s [%s])" single-key-description cmd intern-soft gnus-newsrc-hashtb " (Type %s to exit %s)" gnus-read-event-char t obuf switch-to-buffer gnus-group-jump-to-group eval gnus-group-group-name gnus-summary-exit gnus-summary-next-group unread-command-events] 12]) #@21 Get the next event. (defalias 'gnus-read-event-char #[nil "ﾀ ｧ )B" [read-event event] 3 (#$ . 274423)]) #@42 Select unread article after current one. (defalias 'gnus-summary-next-unread-article #[nil "ﾀﾁ\n6ﾃﾄ`ﾅ\"ﾇ!)ﾄ`ﾈ\" ﾉ \n8 5ﾌ !5 ﾍH)\"" [gnus-summary-next-article t gnus-auto-select-same 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data headers vectorp 1] 7 (#$ . 274540) nil]) #@100 Select the article after the current one. If UNREAD is non-nil, only unread articles are selected. (defalias 'gnus-summary-prev-article #[(&optional unread subject) "ﾀ \nﾃ#" [gnus-summary-next-article unread subject t] 4 (#$ . 274917) "P"]) #@42 Select unred article before current one. (defalias 'gnus-summary-prev-unread-article #[nil "ﾀﾁ\n6ﾃﾄ`ﾅ\"ﾇ!)ﾄ`ﾈ\" ﾉ \n8 5ﾌ !5 ﾍH)\"" [gnus-summary-prev-article t gnus-auto-select-same 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data headers vectorp 1] 7 (#$ . 275165) nil]) #@293 Show next page of the selected article. If at the end of the current article, select the next article. LINES says how many lines should be scrolled up. If CIRCULAR is non-nil, go to the start of the article instead of selecting the next article when reaching the end of the current article. (defalias 'gnus-summary-next-page #[(&optional lines circular) "pﾁ 按`ﾃ\"ﾅ\f!)ﾂ`ﾆ\"ﾇ ﾈ \nﾋﾊ!\n\f暸 =ガﾏ=ウﾐ\n!Еﾑ ぴﾒ ぴトト\nAUト@噪oﾖ\n!ぴﾗ ﾛﾜ\"ﾞロﾟ!ｒ!違\"! , υ#Λ ぴ\"Ω褂軆"ぴ\"ﾒﾏ=ρﾐ\n!ﾏﾑ ぴﾒ 郁 磯 *" [gnus-summary-buffer gnus-set-global-variables get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil endp article gnus-configure-windows gnus-newsgroup-reads gnus-canceled-mark gnus-summary-goto-unread never gnus-summary-last-article-p gnus-summary-next-article gnus-summary-next-unread-article gnus-current-article gnus-article-current gnus-newsgroup-name gnus-summary-display-article selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer gnus-article-next-page lines circular gnus-summary-beginning-of-article gnus-message 3 "End of message" gnus-summary-recenter gnus-summary-position-point] 4 (#$ . 275542) "P"]) #@93 Show previous page of selected article. Argument LINES specifies lines to be scrolled down. (defalias 'gnus-summary-prev-page #[(&optional lines) "ﾀ 庵`ﾂ\"ﾄ !)ﾁ`ﾅ\"ﾆ ﾈﾇ! <\n<\nAU<\n@ 噪Dﾌ!Ｑﾍ 夷 ﾒﾓ\"ﾕテﾖ!Ｋﾗ!畏!,)ﾚ " [gnus-set-global-variables get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article gnus-configure-windows gnus-current-article gnus-article-current gnus-newsgroup-name gnus-summary-display-article gnus-summary-recenter selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer gnus-article-prev-page lines gnus-summary-position-point] 4 (#$ . 276910) "P"]) #@119 Scroll up (or down) one line current article. Argument LINES specifies lines to be scrolled up (or down if negative). (defalias 'gnus-summary-scroll-up #[(lines) "ﾀ 庵ﾂ!暗 案ﾅ家#ﾇ=ゼﾈ  \n ﾌ ﾍ\"ﾏ2ﾐ!7ﾑ !ﾓVギﾔ!セﾕﾖﾗ\"ZﾓWセﾘ[!,ﾙ 移 " [gnus-set-global-variables gnus-configure-windows article gnus-summary-show-thread gnus-summary-select-article nil pseudo old selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer lines 0 gnus-article-next-page gnus-message 3 "End of message" gnus-article-prev-page gnus-summary-recenter gnus-summary-position-point] 4 (#$ . 277698) "p"]) #@64 Select next article which has the same subject as current one. (defalias 'gnus-summary-next-same-subject #[nil "ﾀ 庵ﾂﾃﾄ`ﾅ\"ﾇ!)ﾄ`ﾈ\"ﾉ \n8 4ﾌ !4 ﾍH)\"" [gnus-set-global-variables gnus-summary-next-article nil 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data headers vectorp 1] 7 (#$ . 278412) nil]) #@68 Select previous article which has the same subject as current one. (defalias 'gnus-summary-prev-same-subject #[nil "ﾀ 庵ﾂﾃﾄ`ﾅ\"ﾇ!)ﾄ`ﾈ\"ﾉ \n8 4ﾌ !4 ﾍH)\"" [gnus-set-global-variables gnus-summary-prev-article nil 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data headers vectorp 1] 7 (#$ . 278812) nil]) #@71 Select next unread article which has the same subject as current one. (defalias 'gnus-summary-next-unread-same-subject #[nil "ﾀ 庵ﾂﾃﾄ`ﾅ\"ﾇ!)ﾄ`ﾈ\"ﾉ \n8 4ﾌ !4 ﾍH)\"" [gnus-set-global-variables gnus-summary-next-article t 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data headers vectorp 1] 7 (#$ . 279216) nil]) #@75 Select previous unread article which has the same subject as current one. (defalias 'gnus-summary-prev-unread-same-subject #[nil "ﾀ 庵ﾂﾃﾄ`ﾅ\"ﾇ!)ﾄ`ﾈ\"ﾉ \n8 4ﾌ !4 ﾍH)\"" [gnus-set-global-variables gnus-summary-prev-article t 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data headers vectorp 1] 7 (#$ . 279628) nil]) #@78 Select the first unread article. Return nil if there are no unread articles. (defalias 'gnus-summary-first-unread-article #[nil "ﾀ 庵ﾂ!+ﾃ 庵ﾂ!案ﾅ`ﾆ\" ﾈ!)ﾅ`ﾉ\"*ﾊ !ﾋ " [gnus-set-global-variables gnus-summary-first-subject t gnus-summary-show-thread gnus-summary-display-article get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-position-point] 5 (#$ . 280044) nil]) #@51 Select the unread article with the highest score. (defalias 'gnus-summary-best-unread-article #[nil "ﾀ 庵\nﾃエ@A@U>@@ 暸.\n.ﾋV>\f@@A ゲﾌ !５ﾍﾎ!ﾏ ," [gnus-set-global-variables -1000000 gnus-newsgroup-data nil score article data best gnus-unread-mark gnus-newsgroup-scored gnus-summary-default-score 0 gnus-summary-goto-article error "No unread articles" gnus-summary-position-point] 5 (#$ . 280492) nil]) #@53 Go to the last displayed subject line in the group. (defalias 'gnus-summary-last-subject #[nil " ﾁ\n!@@ﾄ !)" [gnus-newsgroup-data-reverse reverse gnus-newsgroup-data article gnus-summary-goto-subject] 3 (#$ . 280949)]) #@99 Fetch ARTICLE and display it if it exists. If ALL-HEADERS is non-nil, no header lines are hidden. (defalias 'gnus-summary-goto-article #[(article &optional all-headers force) "ﾀ \n\"ﾃ \f\"ﾅﾆﾇ #以ﾉ " [gnus-summary-goto-subject article force gnus-summary-display-article all-headers gnus-message 4 "Couldn't go to article %s" nil gnus-summary-position-point] 4 (#$ . 281185) (list (string-to-int (completing-read "Article number: " (mapcar (lambda (number) (list (int-to-string number))) gnus-newsgroup-limit))) current-prefix-arg t)]) #@36 Go to the previously read article. (defalias 'gnus-summary-goto-last-article #[nil "ﾁ!ﾂ " [gnus-last-article gnus-summary-goto-article gnus-summary-position-point] 2 (#$ . 281733) nil]) #@93 Pop one article off the history and go to the previous. NUMBER articles will be popped off. (defalias 'gnus-summary-pop-article #[(number) "ﾀ\n 實A ﾄ @!ﾅﾆ!)ﾇ " [nil to number gnus-newsgroup-history gnus-summary-goto-article error "Article history empty" gnus-summary-position-point] 2 (#$ . 281932) "p"]) #@114 Limit the summary buffer to the next N articles. If not given a prefix, use the process marked articles instead. (defalias 'gnus-summary-limit-to-articles #[(n) "ﾀ 庵\n!ﾄﾆ !)ﾇ " [gnus-set-global-variables gnus-summary-work-articles n articles nil gnus-newsgroup-processable gnus-summary-limit gnus-summary-position-point] 2 (#$ . 282256) "P"]) #@67 Restore the previous limit. If given a prefix, remove all limits. (defalias 'gnus-summary-pop-limit #[(&optional total) "ﾀ ﾂﾃ\f\"C ﾆﾇ!以ﾉﾊ\"ﾋ " [gnus-set-global-variables total mapcar #[(h) "ﾁH" [h 0] 2] gnus-newsgroup-headers gnus-newsgroup-limits error "No limit to pop" gnus-summary-limit nil pop gnus-summary-position-point] 3 (#$ . 282610) "P"]) #@78 Limit the summary buffer to articles that have subjects that match a regexp. (defalias 'gnus-summary-limit-to-subject #[(subject &optional header) "ﾁ\nﾃ?)ﾄﾁ\nﾅ#!ﾇﾈ\n\"伊!)ﾊ " [header "subject" subject "" gnus-summary-find-matching all articles error "Found no matches for \"%s\"" gnus-summary-limit gnus-summary-position-point] 5 (#$ . 282980) "sRegexp: "]) #@77 Limit the summary buffer to articles that have authors that match a regexp. (defalias 'gnus-summary-limit-to-author #[(from) "ﾀ ﾂ\"" [gnus-summary-limit-to-subject from "from"] 3 (#$ . 283365) "sRegexp: "]) (byte-code "ﾀﾁﾂ\"暗ﾁﾂ\"" [defalias gnus-summary-delete-marked-as-read gnus-summary-limit-to-unread make-obsolete] 3) #@121 Limit the summary buffer to articles that are not marked as read. If ALL is non-nil, limit strictly to unread articles. (defalias 'gnus-summary-limit-to-unread #[(&optional all) "ソnﾁﾂ !!ﾁ\f  \n \f ｯ\nﾎ\"" [all gnus-summary-limit-to-marks char-to-string gnus-unread-mark gnus-del-mark gnus-read-mark gnus-ancient-mark gnus-killed-mark gnus-kill-file-mark gnus-low-score-mark gnus-expirable-mark gnus-canceled-mark gnus-catchup-mark gnus-sparse-mark reverse] 11 (#$ . 283698) "P"]) (byte-code "ﾀﾁﾂ\"暗ﾁﾂ\"" [defalias gnus-summary-delete-marked-with gnus-summary-limit-to-marks make-obsolete] 3) #@258 Limit the summary buffer to articles that are marked with MARKS (e.g. "DK"). If REVERSE, limit the summary buffer to articles that are not marked with MARKS. MARKS can either be a string of marks or a list of marks. Returns how many articles were removed. (defalias 'gnus-summary-limit-to-marks #[(marks &optional reverse) "ﾀ \n< \nﾃ\nﾄ\"ﾄゥ*@A@\n>?1@A@\n>;@@ BAﾈ !+ﾉ " [gnus-set-global-variables gnus-newsgroup-data marks append nil articles data reverse gnus-summary-limit gnus-summary-position-point] 5 (#$ . 284315) "sMarks: "]) #@49 Limit to articles with score at or above SCORE. (defalias 'gnus-summary-limit-to-score #[(&optional score) "ﾀ ﾂ ! ﾄ ﾆゥ@@ 暸- -ﾄ Y;@@BAﾊ!ﾋ *" [gnus-set-global-variables score prefix-numeric-value gnus-summary-default-score 0 gnus-newsgroup-data nil articles data gnus-newsgroup-scored gnus-summary-limit gnus-summary-position-point] 3 (#$ . 284893) "P"]) #@61 Display all the hidden articles that are marked as dormant. (defalias 'gnus-summary-limit-include-dormant #[nil "ﾀ ﾂﾃ!案ﾅ \"!ﾇ " [gnus-set-global-variables gnus-newsgroup-dormant error "There are no dormant articles in this group" gnus-summary-limit append gnus-newsgroup-limit gnus-summary-position-point] 4 (#$ . 285299) nil]) #@28 Hide all dormant articles. (defalias 'gnus-summary-limit-exclude-dormant #[nil "ﾀ 庵\nCﾃ\"ﾄ " [gnus-set-global-variables gnus-summary-limit-to-marks gnus-dormant-mark reverse gnus-summary-position-point] 3 (#$ . 285643) nil]) #@50 Hide all dormant articles that have no children. (defalias 'gnus-summary-limit-exclude-childless-dormant #[nil "ﾀ \fﾂ !ﾄ演陰@ヅA@ Uズﾊ@!ﾄ ゴ @>ガﾄﾌ 陰: )@Bﾍ!ﾎ ," [gnus-set-global-variables gnus-newsgroup-data-reverse reverse gnus-newsgroup-data nil children d articles data gnus-dormant-mark gnus-article-children found t gnus-summary-limit gnus-summary-position-point] 4 (#$ . 285877) nil]) #@100 Mark all unread excluded articles as read. If ALL, mark even excluded ticked and dormants as read. (defalias 'gnus-summary-limit-mark-excluded-as-read #[(&optional all) "ﾀﾁﾂﾃ\f\"ﾅ\"ﾁﾅ\"\"ﾇ ﾇ\n /ﾇ\fﾇ ﾂﾎ \"､Y 陰 @Y\f>/ >/BB/*" [gnus-sorted-complement sort mapcar #[(h) "ﾁH" [h 0] 2] gnus-newsgroup-headers < gnus-newsgroup-limit nil article articles gnus-newsgroup-unreads all gnus-newsgroup-dormant gnus-newsgroup-marked #[(n) " B" [n gnus-catchup-mark] 2] gnus-newsgroup-reads gnus-catchup-mark] 5 (#$ . 286338) "P"]) (defalias 'gnus-summary-limit #[(articles &optional pop) " @ A B\n\fG\fﾆ`ﾇ\"&ﾉ!)ﾆ`ﾊ\"0ﾋ >)ﾌ ﾑ ググﾔ ピピﾉ@@ﾌﾕ#ニﾌﾕ AШ нdb椅 \fGZ," [pop gnus-newsgroup-limits articles gnus-newsgroup-limit gnus-newsgroup-data bdata get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject nil found gnus-summary-mark-below data total gnus-summary-prepare gnus-show-threads gnus-thread-hide-subtree gnus-summary-hide-all-threads t gnus-summary-find-prev] 5]) (defalias 'gnus-invisible-cut-children #[(threads) "ﾀ\n\n@@ﾀH > T\n陰 ﾄW)" [0 num threads gnus-newsgroup-limit 2] 2]) (put (quote gnus-invisible-cut-children) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@77 Go forwards in the thread until we find an article that we want to display. (defalias 'gnus-cut-thread #[(thread) "ﾁ=\nﾁ=\nﾃ=ナ\fナ\f@ﾅH>*\f@ﾅH>ナ\fAGﾈXa\fA ﾅ\n ズ @@ﾅH >グ\nT\n 陰 9\nﾌW*ナ\fA@\f" [gnus-fetch-old-headers some gnus-build-sparse-threads more thread 0 gnus-newsgroup-sparse gnus-newsgroup-ancient 1 threads num gnus-newsgroup-limit 2] 3 (#$ . 287697)]) (put (quote gnus-cut-thread) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@67 Cut off all uninteresting articles from the beginning of threads. (defalias 'gnus-cut-threads #[(threads) "ﾁ=\nﾁ=\nﾃ=ヵ\fヴ 院ﾁ=/\nﾁ=/\nﾃ=ヨヨ@ﾇH>Й@ﾇH >ヨAGﾊXнAﾇ \fプ\f@@ﾇH\f>ハ T \f陰Z ﾍW*ヨA@4) A)ﾎﾏ\f\"" [gnus-fetch-old-headers some gnus-build-sparse-threads more threads th thread 0 gnus-newsgroup-sparse gnus-newsgroup-ancient 1 num gnus-newsgroup-limit 2 delq nil] 5 (#$ . 288198)]) #@173 Figure out what the initial limit is supposed to be on group entry. This entails weeding out unwanted dormants, low-scored articles, fetch-old-headers verbiage, and so on. (defalias 'gnus-summary-initial-limit #[(&optional show-if-empty) ", ?,\nﾃ=?,\f?, ﾃ=?, ﾆ=?,?,??U \nB\nﾋ ﾌﾍ\" Тゴ\n陰\n@  " [gnus-inhibit-limiting gnus-newsgroup-dormant gnus-fetch-old-headers some gnus-summary-expunge-below gnus-build-sparse-threads more gnus-thread-expunge-below gnus-use-nocem gnus-newsgroup-limit gnus-newsgroup-limits nil mapatoms #[(node) "J@?7JAﾁ 6\f)ﾅ @!\fW)ﾆ 陰@! 陰@ﾇ\n! *" [node nil thread nodes gnus-thread-expunge-below gnus-thread-total-score gnus-expunge-thread gnus-summary-limit-children] 3] gnus-newsgroup-dependencies show-if-empty] 3 (#$ . 288661)]) #@59 Return 1 if this subthread is visible and 0 if it is not. (defalias 'gnus-summary-limit-children #[(thread) "ﾅAﾁﾂﾃﾄA\"\"ﾅ@ﾅHﾆ \n>/ ﾅU┷ ﾌ=ウ >ウ ﾅU┷ﾌ=ゼ>ゼ ﾅU┷Μ暸kWΜTｸWｸﾕ\"BずBBずｼﾜ@ﾝH!ｼﾅてBﾟ+" [thread apply + mapcar gnus-summary-limit-children 0 nil score number children gnus-newsgroup-dormant gnus-fetch-old-headers some gnus-newsgroup-ancient gnus-build-sparse-threads gnus-newsgroup-sparse gnus-summary-expunge-below gnus-newsgroup-scored gnus-summary-default-score gnus-newsgroup-expunged-tally gnus-summary-mark-below delq gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads gnus-use-nocem gnus-nocem-unwanted-article-p 4 gnus-newsgroup-limit 1] 5 (#$ . 289487)]) #@38 Mark all articles in THREAD as read. (defalias 'gnus-expunge-thread #[(thread) "@ﾁH Tﾄ\n \"\nB$\nB B )ﾊﾋA\"" [thread 0 number gnus-newsgroup-expunged-tally delq gnus-newsgroup-unreads gnus-newsgroup-auto-expire gnus-newsgroup-expirable gnus-low-score-mark gnus-newsgroup-reads mapcar gnus-expunge-thread] 3 (#$ . 290347)]) #@104 Refer parent article N times. The difference between N and the number of articles fetched is returned. (defalias 'gnus-summary-refer-parent-article #[(n) "ﾀ ﾂVﾃﾄ`ﾅ\"ﾇ!)ﾄ`ﾈ\"#ﾉ \n8 ﾂH\fA=ギ \f@噬Mq委 威ﾑ!~)２ ﾒH[ ﾒHヒﾔﾕ!!ﾖﾗﾘ\"ｐﾖﾗﾙﾄ`ﾅ\"ャﾇ!)ﾄ`ﾈ\"ﾉ #移* Sﾛ " [gnus-set-global-variables n 0 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data header gnus-article-current gnus-newsgroup-name gnus-original-article-buffer nnheader-narrow-to-headers message-fetch-field "references" 5 ref gnus-summary-refer-article gnus-parent-id gnus-message 1 "Couldn't find parent" "No references in article %d" nil gnus-summary-position-point] 7 (#$ . 290698) "p"]) #@95 Fetch all articles mentioned in the References header. Return how many articles were fetched. (defalias 'gnus-summary-refer-references #[nil "ﾀ 庵ﾂ`ﾃ\"ﾅ\f!)ﾂ`ﾆ\"ﾇ 8ﾉHﾂ`ﾃ\".ﾅ\f!)ﾂ`ﾆ\"8ﾇ ﾊ \f ﾎﾏ \"ダ T ﾐﾑﾊ \" ﾊ編O !?ﾅ\f!意  +" [gnus-set-global-variables 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data 5 0 n current ref string-match "<[^>]*>" gnus-summary-refer-article match-string nil gnus-summary-position-point] 6 (#$ . 291491) nil]) #@43 Fetch an article specified by MESSAGE-ID. (defalias 'gnus-summary-refer-article #[(message-id) ";GﾁU?ﾂﾃ\"ﾄPﾂﾅ\"#ﾆPﾇ!3ﾁH >\nコﾋﾁHﾌ#\nリﾍﾁH!ｊﾎ![ﾌヒﾎ!ヒﾓ!慰!ヤﾕﾌ演$ｉﾖﾗﾘ#**" [message-id 0 string-match "^<" "<" ">$" ">" gnus-id-to-header header gnus-newsgroup-sparse sparse gnus-summary-goto-article nil gnus-summary-update-article gnus-news-group-p gnus-newsgroup-name gnus-refer-article-method number gnus-override-method gnus-check-server gnus-summary-insert-subject gnus-summary-select-article gnus-message 3 "Couldn't fetch article %s"] 6 (#$ . 292044) "sMessage-ID: "]) #@52 Enter a digest group based on the current article. (defalias 'gnus-summary-enter-digest-group #[(&optional force) "ﾀ 庵 按ﾃﾄ ﾆﾇD\"# ﾉpﾊ \f 諌ﾑ! ﾒ!ebﾔﾕﾊﾉ#5`}eb椅ﾗ!~)ﾘ勺ﾆﾚﾛ !DﾜズﾞZﾟDFﾉ#ブ珮#\"J88BC､ｅ\f!安 域!郁鳰\"." [gnus-set-global-variables gnus-summary-select-article format "%s-%d" gnus-group-prefixed-name gnus-newsgroup-name nndoc "" gnus-current-article t nil dig buf case-fold-search ogroup name nnheader-set-temp-buffer " *gnus digest buffer*" insert-buffer-substring gnus-original-article-buffer search-forward "\n\n" delete-matching-lines "^\\(Path\\):\\|^From " ((kill-buffer dig)) gnus-group-read-ephemeral-group nndoc-address get-buffer nndoc-article-type force digest guess 5 2 intern-soft gnus-newsrc-hashtb to-group switch-to-buffer gnus-configure-windows summary gnus-message 3 "Article couldn't be entered?"] 7 (#$ . 292693) "P"]) #@111 Do incremental search forward on the current article. If REGEXP-P (the prefix) is non-nil, do regexp isearch. (defalias 'gnus-summary-isearch-article #[(&optional regexp-p) "ﾀ 庵 按ﾃ!案 ﾈﾉ\"\nﾋ\n'ﾌ\n!,ﾍ!eb夷!," [gnus-set-global-variables gnus-summary-select-article gnus-configure-windows article selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer isearch-forward regexp-p] 3 (#$ . 293592) "P"]) #@88 Search for an article containing REGEXP forward. If BACKWARD, search backward instead. (defalias 'gnus-summary-search-article-forward #[(regexp &optional backward) "ﾀ ﾂ ﾂ ﾄ \"? ﾆﾇ \"" [gnus-set-global-variables regexp "" gnus-last-search-regexp gnus-summary-search-article backward error "Search failed: \"%s\""] 3 (#$ . 294123) (list (read-string (format "Search article %s (regexp%s): " (if current-prefix-arg "backward" "forward") (if gnus-last-search-regexp (concat ", default " gnus-last-search-regexp) ""))) current-prefix-arg)]) #@51 Search for an article containing REGEXP backward. (defalias 'gnus-summary-search-article-backward #[(regexp) "ﾀ ﾂ\"" [gnus-summary-search-article-forward regexp backward] 3 (#$ . 294683) (list (read-string (format "Search article backward (regexp%s): " (if gnus-last-search-regexp (concat ", default " gnus-last-search-regexp) ""))))]) #@159 Search for an article containing REGEXP. Optional argument BACKWARD means do search for backward. `gnus-select-article-hook' is not called during the search. (defalias 'gnus-summary-search-article #[(regexp &optional backward) "ﾀ演 ﾂ\fﾃpﾀ ﾊ  ﾌ赦 q ,ﾏy\fяﾐﾑﾒA# ウﾂﾀﾕ#Kﾃﾀﾕ#ツﾄﾖy為ﾘp!`\"異y q, q バﾚ Ｒﾛ йﾕ-ﾍ q~ ルdｌeb,ﾐﾑﾜ\"*\fﾄ=ｩﾝ 萎!謂 易." [nil backward re-search-backward re-search-forward found sum re-search gnus-mark-article-hook gnus-article-display-hook gnus-select-article-hook gnus-hidden-threads-configuration config ((gnus-restore-hidden-threads-configuration config)) gnus-summary-select-article gnus-article-buffer -1 gnus-message 7 "Searching article: %d..." gnus-article-current regexp t 0 set-window-start get-buffer-window 1 gnus-summary-find-prev gnus-summary-find-next "" gnus-summary-show-thread gnus-summary-goto-subject gnus-current-article gnus-summary-position-point] 7 (#$ . 295027)]) #@323 Return a list of all articles that match REGEXP on HEADER. The search stars on the current article and goes forwards unless BACKWARD is non-nil. If BACKWARD is `all', do all articles. If UNREAD is non-nil, only unread articles will be taken into consideration. If NOT-CASE-FOLD, case won't be folded in the comparisons. (defalias 'gnus-summary-find-matching #[(header regexp &optional backward unread not-case-fold) "ﾁ=ソn\n: ﾄ\n!\nﾆ`ﾇ\"+ﾉ!)ﾆ`ﾊ\"5ﾋ >)ﾌﾍﾎﾏP!ﾑBE?ﾓﾙﾎﾏP!!eﾚﾛ\"Θ@ミA@Uﾞﾟ8!!ﾟ8!\"@BAj-" [backward all gnus-newsgroup-data gnus-newsgroup-data-reverse reverse bdata get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject lambda (h) intern "mail-header-" header (h) not-case-fold nil d articles case-fold-search func data fboundp error "%s is not a valid header" unread gnus-unread-mark vectorp 3 string-match regexp] 7 (#$ . 296010)]) #@223 Search forward for an article whose HEADER matches REGEXP and execute COMMAND. If HEADER is an empty string (or nil), the match is done on the entire article. If BACKWARD (the prefix) is non-nil, search backward instead. (defalias 'gnus-summary-execute-command #[(header regexp command &optional backward) "ﾁ噬ﾂﾃ 案 看)" [header "Body" "" gnus-set-global-variables gnus-summary-show-all-threads ((byte-code "ﾀﾁﾂﾃ\f!#闇ﾈﾉﾊﾋﾌ\f!DDE $安ﾁﾎﾃ\f!#" [gnus-message 6 "Executing %s..." key-description command gnus-execute header regexp lambda nil call-interactively quote key-binding backward "Executing %s...done"] 9))] 2 (#$ . 297008) (list (let ((completion-ignore-case t)) (completing-read "Header name: " (mapcar (lambda (string) (list string)) (quote ("Number" "Subject" "From" "Lines" "Date" "Message-ID" "Xref" "References" "Body"))) nil (quote require-match))) (read-string "Regexp: ") (read-key-sequence "Command: ") current-prefix-arg)]) #@43 Scroll the article back to the beginning. (defalias 'gnus-summary-beginning-of-article #[nil "ﾀ 庵 按ﾃ!案 ﾈﾉ\"\nﾋ\n'ﾌ\n!,ﾍ!~eb8ﾏ ," [gnus-set-global-variables gnus-summary-select-article gnus-configure-windows article selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer gnus-break-pages gnus-narrow-to-page] 3 (#$ . 297968) nil]) #@35 Scroll to the end of the article. (defalias 'gnus-summary-end-of-article #[nil "ﾀ 庵 按ﾃ!案 ﾈﾉ\"\nﾋ\n'ﾌ\n!,ﾍ!~db夷ﾏ!<ﾑ ," [gnus-set-global-variables gnus-summary-select-article gnus-configure-windows article selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer recenter -3 gnus-break-pages gnus-narrow-to-page] 3 (#$ . 298436) nil]) #@147 Force re-fetching of the current article. If ARG (the prefix) is non-nil, show the raw article without any article massaging functions being run. (defalias 'gnus-summary-show-article #[(&optional arg) "ﾀ ﾂﾃﾄ\"$ﾅﾃ演 \nﾂﾃﾄ\"-ﾋ\f!囲 " [gnus-set-global-variables arg gnus-summary-select-article nil force t gnus-visual gnus-break-pages gnus-article-prepare-hook gnus-article-display-hook gnus-have-all-headers gnus-summary-goto-subject gnus-current-article gnus-summary-position-point] 5 (#$ . 298907) "P"]) #@146 Toggle permanent full header display. If ARG is a positive number, turn header display on. If ARG is a negative number, turn header display off. (defalias 'gnus-summary-verbose-headers #[(&optional arg) "ﾀ 庵\n!\nｧ\nﾃU\f?ﾅ\n!ﾆ" [gnus-set-global-variables gnus-summary-toggle-header arg 0 gnus-show-all-headers natnump t] 2 (#$ . 299438) "P"]) #@184 Show the headers if they are hidden, or hide them if they are shown. If ARG is a positive number, show the entire header. If ARG is a negative number, hide the unwanted header lines. (defalias 'gnus-summary-toggle-header #[(&optional arg) "ﾀ q按ﾄﾆebﾇﾈ!ﾉﾄ$\nﾂ eb杏ﾈﾂﾄ#)e`S|eb\fqeb杏ﾈﾂﾄ#=dS )ﾍ\fﾎ #案ﾐﾑ!)\nツｧeﾓWeﾔ -" [gnus-set-global-variables gnus-article-buffer nil buffer-read-only t inhibit-point-motion-hooks text-property-any search-forward "\n\n" invisible hidden e gnus-original-article-buffer insert-buffer-substring 1 gnus-inhibit-hiding run-hooks gnus-article-display-hook arg 0 gnus-article-hide-headers] 5 (#$ . 299804) "P"]) #@32 Make all header lines visible. (defalias 'gnus-summary-show-all-headers #[nil "ﾀ 庵 " [gnus-set-global-variables gnus-article-show-all-headers] 1 (#$ . 300481) nil]) #@79 Toggle MIME processing. If ARG is a positive number, turn MIME processing on. (defalias 'gnus-summary-toggle-mime #[(&optional arg) "ﾀ Ыf\n?ﾃ !ﾄVﾅﾆﾇ\"" [gnus-set-global-variables arg gnus-show-mime prefix-numeric-value 0 gnus-summary-select-article t force] 3 (#$ . 300654) "P"]) #@120 Caesar rotate the current article by 13. The numerical prefix specifies how manu places to rotate each letter forward. (defalias 'gnus-summary-caesar-message #[(&optional arg) "ﾀ 庵 按ﾄ ﾈﾉ\"\nﾋ\n%ﾌ\n!*ﾍ!鯨夷 ﾏﾒ!慰ﾈp!\"." [gnus-set-global-variables gnus-summary-select-article "" mail-header-separator selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer window-start nil buffer-read-only start message-caesar-buffer-body arg set-window-start] 3 (#$ . 300950) "P"]) #@44 Stop page breaking in the current article. (defalias 'gnus-summary-stop-page-breaking #[nil "ﾀ 庵 按 \fﾆ ﾇ\"ﾉ ﾊ!$ﾋ !~," [gnus-set-global-variables gnus-summary-select-article selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer] 3 (#$ . 301556) nil]) #@592 Move the current article to a different newsgroup. If N is a positive number, move the N next articles. If N is a negative number, move the N previous articles. If N is nil and any articles have been marked with the process mark, move those articles instead. If TO-NEWSGROUP is string, do not prompt for a newsgroup to move to. If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but re-spool using this method. For this function to work, both the current newsgroup and the newsgroup that you want to move to have to support the `request-move' and `request-accept' functions. (defalias 'gnus-summary-move-article #[(&optional n to-newsgroup select-method action) "ﾁﾂ ﾁ=ﾃﾄ \"ﾆﾇ!.ﾈ=.ﾃﾉ \".ﾆﾊ!依\f!ﾍ !ﾎ観ﾐ!)ﾑ演演桷^ﾆﾛ\"ххﾞ暸@ﾟ珮\"!J$ﾟ珮\"!L!ﾃ@\"┐ﾆ@\"亥!┣ﾆ@\"育韜暸A@@ﾂ%χ陰@ﾁ= !A@D?F?%Ｖ=q茨 \"溢?#)Ｖﾈ=u18H3 Q3コ3С3\"エ3篇O33QZ Qq茨 \"胤\"溢?#*щ暸@$ぬ@@\"Jｫ、@ｦ!\"@\"JB，B8D@EDモ：>モE揆ﾕEBG>DAA？，D8AC\"IAJKL.｀EJ¨18!OJIO)P>Q>G>&Kメﾟ焉RK@@\"!J>ベE 噬hﾟ焉RK@@\"!Jﾟ焉RK@@\"!JBLヾEK@AJCD$KAK3*ﾈ=Φq茨 \"胤、@\"Aｰ\"ゝ p#)+ゞ!ﾁ=μ〃W\"々!と〆陰@!ぶZ[[;―\‐[!)／Z!)＼ 〜‖!. " [action move gnus-set-global-variables gnus-check-backend-function request-move-article gnus-newsgroup-name error "The current group does not support article moving" crosspost request-replace-article "The current group does not support article editing" gnus-summary-work-articles n gnus-group-real-prefix ((move "Move" "Moving") (copy "Copy" "Copying") (crosspost "Crosspost" "Crossposting")) nnheader-set-temp-buffer " *copy article*" nil to-groups article new-xref to-method art-group copy-buf names prefix articles "Unknown action %s" to-newsgroup select-method gnus-read-move-group-name intern format "gnus-current-%s-group" gnus-group-name-to-method request-accept-article "%s does not support article copying" gnus-check-server "Can't open server %s" gnus-message 6 "%s to %s: %s..." gnus-request-move-article gnus-find-method-for-group gnus-request-accept-article quote copy gnus-request-article-this-buffer 3 gnus-newsgroup-data 8 xref ":" "" string-match "^Xref: " 0 " " system-name nnheader-replace-header "xref" 1 "Couldn't %s article %s" intern-soft gnus-newsrc-hashtb gnus-group-prefixed-name entry 2 info to-group (move copy) gnus-newsgroup-unreads gnus-add-to-range gnus-article-mark-lists to-article marks gnus-use-cache gnus-cache-possibly-enter-article copy-sequence header gnus-newsgroup-marked gnus-newsgroup-dormant "gnus-newsgroup-%s" gnus-add-marked-articles gnus-request-replace-article gnus-summary-goto-subject gnus-summary-mark-article gnus-canceled-mark gnus-summary-remove-process-mark gnus-activate-group buf buffer get-buffer buffer-name kill-buffer gnus-summary-position-point gnus-set-mode-line summary] 10 (#$ . 301935) "P"]) #@219 Move the current article to a different newsgroup. If TO-NEWSGROUP is string, do not prompt for a newsgroup to move to. If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but re-spool using this method. (defalias 'gnus-summary-copy-article #[(&optional n to-newsgroup select-method) "ﾀ ﾂ ﾄ$" [gnus-summary-move-article n nil select-method copy] 5 (#$ . 305108) "P"]) #@52 Crosspost the current article to some other group. (defalias 'gnus-summary-crosspost-article #[(&optional n) "ﾀ ﾂ嘉$" [gnus-summary-move-article n nil crosspost] 5 (#$ . 305497) "P"]) #@90 Default method for respooling an article. If nil, use to the current newsgroup method. (defvar gnus-summary-respool-default-method nil (#$ . 305688)) #@679 Respool the current article. The article will be squeezed through the mail spooling process again, which means that it will be put in some mail newsgroup or other depending on `nnmail-split-methods'. If N is a positive number, respool the N next articles. If N is a negative number, respool the N previous articles. If N is nil and any articles have been marked with the process mark, respool those articles instead. Respooling can be done both from mail groups and "real" newsgroups. In the former case, the articles in question will be moved from the current group into whatever groups they are destined to. In the latter case, they will be copied into the relevant groups. (defalias 'gnus-summary-respool-article #[(&optional n method) "ﾀ ﾂﾃ!案ﾅﾆ!@!ﾈﾉ!\"!ﾊ ﾌ #ﾍ ﾌ #" [gnus-set-global-variables method error "No method given for respooling" assoc symbol-name gnus-find-method-for-group gnus-newsgroup-name gnus-methods-using respool gnus-summary-move-article n nil gnus-summary-copy-article] 4 (#$ . 305847) (list current-prefix-arg (let* ((methods (gnus-methods-using (quote respool))) (methname (symbol-name (or gnus-summary-respool-default-method (car (gnus-find-method-for-group gnus-newsgroup-name))))) (method (gnus-completing-read methname "What backend do you want to use when respooling?" methods nil t nil (quote gnus-method-history))) ms) (cond ((zerop (length (setq ms (gnus-servers-using-backend method)))) (list (intern method) "")) ((= 1 (length ms)) (car ms)) (t (cdr (completing-read "Server name: " (mapcar (lambda (m) (cons (cadr m) m)) ms) nil t))))))]) #@45 Import a random file into a mail newsgroup. (defalias 'gnus-summary-import-article #[(file) "ﾀ ﾂ ﾃﾈﾉ\"ﾊﾋ\"偉 !0ﾎ !0ﾊﾏ \"諌ﾑ!q惟p!意 慰 !eb易 рﾖ !ﾗed\"ﾘﾙﾘ!ﾚﾛﾙﾛ!ﾚﾜﾝﾞﾟ 8!!!#ﾚ矮 ﾚ聿\f!ﾚ裝 8!邀郁ﾃ#一p!-" [gnus-set-global-variables gnus-newsgroup-name current-time nil lines atts now group gnus-check-backend-function request-accept-article error "%s does not support article importing" file-readable-p file file-regular-p "Can't read %s" get-buffer-create " *import file*" buffer-disable-undo erase-buffer insert-file-contents nnheader-article-p file-attributes count-lines "From: " read-string "\n" "Subject: " "Date: " timezone-make-date-arpa-standard current-time-string 5 current-time-zone "Message-ID: " message-make-message-id "Lines: " int-to-string "Chars: " 7 "\n\n" gnus-request-accept-article t kill-buffer] 19 (#$ . 307444) "fImport file: "]) #@72 Expire all articles that are marked as expirable in the current group. (defalias 'gnus-summary-expire-articles #[(&optional now) "ﾀ 庵ﾂ \"ﾄ !ﾆ ! ﾇﾉ\"\n +ﾌ/ﾍ ﾎ\"ﾏ\nﾑﾒﾓ\"ザﾏﾖ\n \"*\\ﾖ\n \" d\n=ﾏ\n\n@>ь\n@档ﾙ\n@\"\nA\nд)ﾑﾒﾛ\"," [gnus-set-global-variables gnus-check-backend-function request-expire-articles gnus-newsgroup-name gnus-group-total-expirable-p total gnus-list-of-read-articles sort gnus-newsgroup-expirable < expirable now immediate gnus-group-get-parameter expiry-wait nil es gnus-message 6 "Expiring articles..." nnmail-expiry-wait nnmail-expiry-wait-function gnus-request-expire-articles gnus-use-cache gnus-newsgroup-data gnus-summary-mark-article gnus-canceled-mark "Expiring articles...done"] 4 (#$ . 308343) nil]) #@150 Expunge all expirable articles in the current group. This means that *all* articles that are marked as expirable will be deleted forever, right now. (defalias 'gnus-summary-expire-articles-now #[nil "ﾀ ﾂﾃ!ﾄﾅ!鞍ﾇ!" [gnus-set-global-variables gnus-expert-user gnus-y-or-n-p "Are you really, really, really sure you want to delete all these messages? " error "Phew!" gnus-summary-expire-articles t] 2 (#$ . 309165) nil]) #@300 Delete the N next (mail) articles. This command actually deletes articles. This is not a marking command. The article will disappear forever from your life, never to return. If N is negative, delete backwards. If N is nil and articles have been marked with the process mark, delete these instead. (defalias 'gnus-summary-delete-article #[(&optional n) "ﾀ 庵ﾂ \"ﾄﾅ!鞍!ﾈ \n 6ﾌﾍﾎ\nGﾏV0ﾍﾐ\nG\"1ﾑ\"!ツﾒ\n ﾓ# \nツﾔ\n@!\n@ >Щﾕ\n@\"\nA\nГﾗ 畏ﾙ! *" [gnus-set-global-variables gnus-check-backend-function request-expire-articles gnus-newsgroup-name error "The current newsgroup does not support article deletion." gnus-summary-work-articles n nil not-deleted articles gnus-novice-user gnus-y-or-n-p format "Do you really want to delete %s forever? " 1 "these %s articles" "this article" gnus-request-expire-articles force gnus-summary-remove-process-mark gnus-summary-mark-article gnus-canceled-mark gnus-summary-position-point gnus-set-mode-line summary] 7 (#$ . 309599) "P"]) #@177 Enter into a buffer and edit the current article. This will have permanent effect only in mail groups. If FORCE is non-nil, allow editing of articles even in read-only groups. (defalias 'gnus-summary-edit-article #[(&optional force) "q庵 \nﾃ ﾄﾅ!鞍ﾇﾈﾇ#伊ﾊ!依ﾌ !!夷ﾏﾐ\"以ﾒ 意ﾔﾕ !!椅ﾗﾘ\"異 ~eb移ﾛﾈﾇ#)" [gnus-summary-buffer gnus-set-global-variables force gnus-group-read-only-p error "The current newsgroup does not support article editing." gnus-summary-select-article t nil gnus-configure-windows article select-window get-buffer-window gnus-article-buffer gnus-message 6 "C-c C-c to end edits" buffer-read-only text-mode use-local-map copy-keymap current-local-map local-set-key "" gnus-summary-edit-article-done buffer-enable-undo search-forward "\n\n"] 4 (#$ . 310615) "P"]) #@46 Make edits to the current article permanent. (defalias 'gnus-summary-edit-article-done #[nil "ﾀ  ﾂ=?ﾄ ﾅﾆﾇ\")ﾈﾉﾊ \" ﾌ  c囲A@p#8ﾏﾐ!Ｎﾑ 惟!慰ﾖp!為ﾘ!異A!ダﾛ@A\"ノﾝ@A\"巌!ポq謂!)\"聿!亥跚\"肛!)" [gnus-group-read-only-p major-mode text-mode beep gnus-summary-edit-article-postpone gnus-error 3 "The current newsgroup does not support article editing." format "%s" buffer-string buf erase-buffer gnus-request-replace-article gnus-article-current error "Couldn't replace article." gnus-article-mode use-local-map gnus-article-mode-map t buffer-read-only buffer-disable-undo gnus-configure-windows summary gnus-summary-update-article gnus-use-cache gnus-cache-update-article gnus-keep-backlog gnus-backlog-remove-article get-buffer gnus-original-article-buffer nil gnus-original-article gnus-current-article run-hooks gnus-article-display-hook gnus-visual-p summary-highlight highlight gnus-visual-mark-article-hook] 4 (#$ . 311415) nil]) #@42 Postpone changes to the current article. (defalias 'gnus-summary-edit-article-postpone #[nil "ﾀ 庵\n!暗ﾅp!鞍ﾇ!以ﾉﾊ\"ﾋﾌ!" [gnus-article-mode use-local-map gnus-article-mode-map t buffer-read-only buffer-disable-undo gnus-configure-windows summary gnus-visual-p summary-highlight highlight run-hooks gnus-visual-mark-article-hook] 3 (#$ . 312410) nil]) #@59 Query where the respool algorithm would put this article. (defalias 'gnus-summary-respool-query #[nil "ﾀ 庵 浬nq憩b暗ﾄ!e`}闇ﾆﾇﾈﾉﾊ!\"D!*" [gnus-set-global-variables gnus-summary-select-article gnus-article-buffer search-forward "\n\n" pp-eval-expression quote mapcar car nnmail-article-group identity] 6 (#$ . 312772) nil]) #@163 Mark articles which has the same subject as read, and then select the next. If UNMARK is positive, remove any kind of mark. If UNMARK is negative, tick articles. (defalias 'gnus-summary-kill-same-subject-and-select #[(&optional unmark) "ﾀ ﾂ !ﾃﾄﾅ`ﾆ\"ﾈ!)ﾅ`ﾉ\"&ﾊ  8\f;ﾍ\f!;\fﾎH) \"ﾐﾑwﾄﾅ`ﾆ\"ジﾈ!)ﾅ`ﾉ\"aﾊ  8\fvﾍ\f!v\fﾎH)\"意ﾔﾕ火Uヨﾖｉﾗ ヱﾘｒﾙ%)" [gnus-set-global-variables unmark prefix-numeric-value gnus-summary-mark-same-subject 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data headers vectorp 1 count gnus-summary-next-article t gnus-auto-select-same gnus-message 7 "%d article%s marked as %s" " is" "s are" "unread" "read"] 7 (#$ . 313106) "P"]) #@137 Mark articles which has the same subject as read. If UNMARK is positive, remove any kind of mark. If UNMARK is negative, tick articles. (defalias 'gnus-summary-kill-same-subject #[(&optional unmark) "ﾀ ﾂ !ﾃﾄﾅ`ﾆ\"ﾈ!)ﾅ`ﾉ\"&ﾊ  8\f;ﾍ\f!;\fﾎH) \" Иﾐﾎﾑ\"惟ﾓﾔ シﾕ８ﾖ$)" [gnus-set-global-variables unmark prefix-numeric-value gnus-summary-mark-same-subject 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data headers vectorp 1 count gnus-summary-next-subject t gnus-message 7 "%d articles are marked as %s" "unread" "read"] 6 (#$ . 313892) "P"]) #@210 Mark articles with same SUBJECT as read, and return marked number. If optional argument UNMARK is positive, remove any kinds of marks. If optional argument UNMARK is negative, mark articles as unread instead. (defalias 'gnus-summary-mark-same-subject #[(subject &optional unmark) "ﾀ浬nﾃ\f!闇 鞍!ガ T\nﾈV6ﾉ\n!闇 鞍!ガ T!ﾉ !闇 鞍!ガ T6ﾌﾍ! *" [1 count unmark gnus-summary-mark-article-as-read gnus-killed-mark gnus-summary-show-thread gnus-summary-find-subject subject 0 gnus-summary-mark-article-as-unread gnus-ticked-mark gnus-unread-mark gnus-set-mode-line summary] 2 (#$ . 314544)]) #@223 Set the process mark on the next N articles. If N is negative, mark backward instead. If UNMARK is non-nil, remove the process mark instead. The difference between N and the actual number of articles marked is returned. (defalias 'gnus-summary-mark-as-processable #[(n &optional unmark) "ﾀ ﾂWﾃ ! ﾂVニ 3ﾆﾇ`ﾈ\" %ﾊ !)ﾇ`ﾋ\"/ﾌ !Nﾍﾇ`ﾈ\" イﾊ !)ﾇ`ﾋ\"Mﾌ !ニﾎ\fセﾏ[ﾐﾑﾒ#ﾂUニ S\f ﾂUеﾓﾔﾕ\"椅 為 *" [gnus-set-global-variables n 0 abs backward unmark gnus-summary-remove-process-mark get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-set-process-mark gnus-summary-next-subject -1 1 nil t gnus-message 7 "No more articles" gnus-summary-recenter gnus-summary-position-point] 5 (#$ . 315164) "p"]) #@172 Remove the process mark from the next N articles. If N is negative, mark backward instead. The difference between N and the actual number of articles marked is returned. (defalias 'gnus-summary-unmark-as-processable #[(n) "ﾀ 庵\nﾃ\"" [gnus-set-global-variables gnus-summary-mark-as-processable n t] 3 (#$ . 315955) "p"]) #@44 Remove the process mark from all articles. (defalias 'gnus-summary-unmark-all-processable #[nil "ﾀ ﾂ @!)ﾃ " [gnus-set-global-variables gnus-newsgroup-processable gnus-summary-remove-process-mark gnus-summary-position-point] 2 (#$ . 316284) nil]) #@160 Mark N articles forward as expirable. If N is negative, mark backward instead. The difference between N and the actual number of articles marked is returned. (defalias 'gnus-summary-mark-as-expirable #[(n) "ﾀ 庵\n \"" [gnus-set-global-variables gnus-summary-mark-forward n gnus-expirable-mark] 3 (#$ . 316548) "p"]) #@51 Mark ARTICLE replied and update the summary line. (defalias 'gnus-summary-mark-article-as-replied #[(article) " Bﾂﾄ!ﾅ!)" [article gnus-newsgroup-replied nil buffer-read-only gnus-summary-goto-subject gnus-summary-update-secondary-mark] 2 (#$ . 316872)]) #@36 Set a bookmark in current article. (defalias 'gnus-summary-set-bookmark #[(article) "ﾀ 庵\n! \f \f@噪ﾆﾇ! 梔\n/ﾋ\n \" )浬nq偉`各b囲ﾎﾏﾐ#`)^`\")B B ﾑﾒﾓ\"" [gnus-set-global-variables get-buffer gnus-article-buffer gnus-current-article gnus-article-current gnus-newsgroup-name error "No current article selected" article gnus-newsgroup-bookmarks old delq count-lines search-forward "\n\n" nil t gnus-message 6 "A bookmark has been added to the current article."] 8 (#$ . 317141) (list (gnus-summary-article-number))]) #@47 Remove the bookmark from the current article. (defalias 'gnus-summary-remove-bookmark #[(article) "ﾀ \n梔ﾄ \n\"ﾅﾆﾇ\"ﾅﾆﾈ\")" [gnus-set-global-variables article gnus-newsgroup-bookmarks old delq gnus-message 6 "Removed bookmark." "No bookmark in current article."] 4 (#$ . 317687) (list (gnus-summary-article-number))]) #@158 Mark N articles forward as dormant. If N is negative, mark backward instead. The difference between N and the actual number of articles marked is returned. (defalias 'gnus-summary-mark-as-dormant #[(n) "ﾀ 庵\n \"" [gnus-set-global-variables gnus-summary-mark-forward n gnus-dormant-mark] 3 (#$ . 318023) "p"]) #@62 Set the process mark on ARTICLE and update the summary line. (defalias 'gnus-summary-set-process-mark #[(article) "ﾁ\n\"Bﾃ!ﾄ 闇!" [article delq gnus-newsgroup-processable gnus-summary-goto-subject gnus-summary-show-thread gnus-summary-update-secondary-mark] 4 (#$ . 318341)]) #@67 Remove the process mark from ARTICLE and update the summary line. (defalias 'gnus-summary-remove-process-mark #[(article) "ﾀ \n\"ﾃ !ﾄ 闇 !" [delq article gnus-newsgroup-processable gnus-summary-goto-subject gnus-summary-show-thread gnus-summary-update-secondary-mark] 3 (#$ . 318632)]) #@62 Set the process mark on ARTICLE and update the summary line. (defalias 'gnus-summary-set-saved-mark #[(article) " Bﾂ! ﾃ!" [article gnus-newsgroup-saved gnus-summary-goto-subject gnus-summary-update-secondary-mark] 2 (#$ . 318929)]) #@188 Mark N articles as read forwards. If N is negative, mark backwards instead. Mark with MARK, ?r by default. The difference between N and the actual number of articles marked is returned. (defalias 'gnus-summary-mark-forward #[(n &optional mark no-expire) "ﾀ ﾂW  ﾄ=? E>?ﾉ ! $\n ﾂVズﾌﾍ #ズﾏ ィﾐCﾑ K ﾄ=?ﾒ#ﾂUズ S* ﾂUmﾓﾔﾕ ニﾖＬﾗ#畏 異 移ﾛ! ," [gnus-set-global-variables n 0 gnus-summary-goto-unread never mark gnus-unread-mark gnus-ticked-mark gnus-dormant-mark abs gnus-del-mark backward gnus-summary-mark-article nil no-expire gnus-summary-next-subject -1 1 t gnus-message 7 "No more %sarticles" "" "unread " gnus-summary-recenter gnus-summary-position-point gnus-set-mode-line summary] 6 (#$ . 319175) "p"]) #@53 Mark the current article quickly as read with MARK. (defalias 'gnus-summary-mark-article-as-read #[(mark) "ﾀ`ﾁ\" ﾃ\n!)ﾀ`ﾄ\"ﾅ ﾇ\"ﾇ \" ﾇ\n\"\n B\fB\f ウﾎ!委 #  Uъ Uъ Uъ Uъ Uъ Uъ U Bﾛ ﾜ\")ﾝ" [get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article delq gnus-newsgroup-unreads gnus-newsgroup-marked gnus-newsgroup-dormant mark gnus-newsgroup-reads gnus-use-cache gnus-cache-enter-remove-article gnus-request-update-mark gnus-newsgroup-name gnus-newsgroup-auto-expire gnus-killed-mark gnus-del-mark gnus-catchup-mark gnus-low-score-mark gnus-ancient-mark gnus-read-mark gnus-souped-mark gnus-expirable-mark gnus-newsgroup-expirable gnus-summary-update-mark unread t] 5 (#$ . 319930)]) #@55 Mark the current article quickly as unread with MARK. (defalias 'gnus-summary-mark-article-as-unread #[(mark) "ﾀ`ﾁ\" ﾃ\n!)ﾀ`ﾄ\"ﾅ ﾇW'ﾈﾉﾊ\"ざﾋ\f\"\fﾋ \" ﾋ\"ﾋ\"Uズ\fB\fＳUヌ B ＳBﾋ\"Πﾕﾖ8!Π韓ﾖ8UUU&)ﾛﾜ\")ﾝ" [get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article 0 gnus-error 1 "Unmarkable article" delq gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-expirable gnus-newsgroup-reads mark gnus-ticked-mark gnus-dormant-mark gnus-newsgroup-unreads gnus-use-cache vectorp 3 gnus-newsgroup-data gnus-cache-possibly-enter-article gnus-newsgroup-name gnus-unread-mark gnus-summary-update-mark unread t] 9 (#$ . 320761)]) #@281 Mark ARTICLE with MARK. MARK can be any character. Four MARK strings are reserved: `? ' (unread), `?!' (ticked), `??' (dormant) and `?E' (expirable). If MARK is nil, then the default character `?D' is used. If ARTICLE is nil, then the article on the current line will be marked. (defalias 'gnus-summary-mark-article #[(&optional article mark no-expire) "; ﾁH\nЕ ウィｧウ\fUВ UВUВUВUВ Uウ\nJ  iﾌ`ﾍ\"ダﾏ!)ﾌ`ﾐ\"iﾑ  гﾒﾓ!UцUцUヱﾗ \"ｗﾘ \"ξUﾌﾛﾜ 8!ξ巌 ﾜ 8UUU&)ﾏ 珮#\" 井藹")*" [mark 0 no-expire gnus-newsgroup-auto-expire gnus-killed-mark gnus-del-mark gnus-catchup-mark gnus-low-score-mark gnus-read-mark gnus-souped-mark gnus-expirable-mark article get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject error "No article on current line" gnus-unread-mark gnus-ticked-mark gnus-dormant-mark gnus-mark-article-as-unread gnus-mark-article-as-read gnus-use-cache gnus-canceled-mark vectorp 3 gnus-newsgroup-data gnus-cache-possibly-enter-article gnus-newsgroup-name nil t buffer-read-only gnus-summary-show-thread gnus-summary-update-mark unread] 9 (#$ . 321552)]) #@51 Update the secondary (read, process, cache) mark. (defalias 'gnus-summary-update-secondary-mark #[(article) "ﾀ \n> / \f> / >!/ >- /\nﾋ\"偉ﾍﾎ\"=ﾏﾐ!尉" [gnus-summary-update-mark article gnus-newsgroup-processable gnus-process-mark gnus-newsgroup-cached gnus-cached-mark gnus-newsgroup-replied gnus-replied-mark gnus-newsgroup-saved gnus-saved-mark gnus-unread-mark replied gnus-visual-p summary-highlight highlight run-hooks gnus-summary-update-hook t] 3 (#$ . 322785)]) (defalias 'gnus-summary-update-mark #[(mark type) "ﾀy \n暸ﾃR `\\dXR `\\b鞍``Tg$ ﾈ=Rﾉ`ﾊ\" 9ﾌ !)ﾉ`ﾍ\"Cﾎ 暸威=!*" [0 type gnus-summary-mark-positions nil buffer-read-only forward subst-char-in-region mark unread get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data gnus-summary-update-line gnus-unread-mark] 6]) #@65 Enter ARTICLE in the pertinent lists and remove it from others. (defalias 'gnus-mark-article-as-read #[(article &optional mark) " \nU \fBﾅ \f\"ﾅ \"ﾅ \"ﾅ \" B B \n=ﾋ !)" [mark gnus-del-mark gnus-expirable-mark article gnus-newsgroup-expirable delq gnus-newsgroup-unreads gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-reads gnus-use-cache gnus-cache-enter-remove-article] 4 (#$ . 323697)]) #@65 Enter ARTICLE in the pertinent lists and remove it from others. (defalias 'gnus-mark-article-as-unread #[(article &optional mark) " ﾂ \f\"ﾂ \"ﾂ \"ﾂ \" U+ \fB?U9 B? Bﾂ   \" )" [mark gnus-ticked-mark delq article gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-expirable gnus-newsgroup-unreads gnus-dormant-mark gnus-newsgroup-reads] 3 (#$ . 324138)]) (byte-code "ﾀﾁﾂ\"暗ﾁﾂ\"" [defalias gnus-summary-mark-as-unread-forward gnus-summary-tick-article-forward make-obsolete] 3) #@141 Tick N articles forwards. If N is negative, tick backwards instead. The difference between N and the number of articles ticked is returned. (defalias 'gnus-summary-tick-article-forward #[(n) "ﾀ \n\"" [gnus-summary-mark-forward n gnus-ticked-mark] 3 (#$ . 324672) "p"]) (byte-code "ﾀﾁﾂ\"暗ﾁﾂ\"" [defalias gnus-summary-mark-as-unread-backward gnus-summary-tick-article-backward make-obsolete] 3) #@100 Tick N articles backwards. The difference between N and the number of articles ticked is returned. (defalias 'gnus-summary-tick-article-backward #[(n) "ﾀ [\n\"" [gnus-summary-mark-forward n gnus-ticked-mark] 3 (#$ . 325075) "p"]) (byte-code "ﾀﾁﾂ\"暗ﾁﾂ\"" [defalias gnus-summary-mark-as-unread gnus-summary-tick-article make-obsolete] 3) #@171 Mark current article as unread. Optional 1st argument ARTICLE specifies article number to be marked as unread. Optional 2nd argument CLEAR-MARK remove any kinds of mark. (defalias 'gnus-summary-tick-article #[(&optional article clear-mark) "ﾀ \nソn \f\"" [gnus-summary-mark-article article clear-mark gnus-unread-mark gnus-ticked-mark] 3 (#$ . 325421) nil]) #@156 Mark N articles as read forwards. If N is negative, mark backwards instead. The difference between N and the actual number of articles marked is returned. (defalias 'gnus-summary-mark-as-read-forward #[(n) "ﾀ \nﾃ#" [gnus-summary-mark-forward n gnus-del-mark t] 4 (#$ . 325791) "p"]) #@119 Mark the N articles as read backwards. The difference between N and the actual number of articles marked is returned. (defalias 'gnus-summary-mark-as-read-backward #[(n) "ﾀ [\nﾃ#" [gnus-summary-mark-forward n gnus-del-mark t] 4 (#$ . 326082) "p"]) #@152 Mark current article as read. ARTICLE specifies the article to be marked as read. MARK specifies a string to be inserted at the beginning of the line. (defalias 'gnus-summary-mark-as-read #[(&optional article mark) "ﾀ \n\"" [gnus-summary-mark-article article mark] 3 (#$ . 326338)]) #@150 Clear marks from N articles forward. If N is negative, clear backward instead. The difference between N and the number of marks cleared is returned. (defalias 'gnus-summary-clear-mark-forward #[(n) "ﾀ \n\"" [gnus-summary-mark-forward n gnus-unread-mark] 3 (#$ . 326629) "p"]) #@109 Clear marks from N articles backward. The difference between N and the number of marks cleared is returned. (defalias 'gnus-summary-clear-mark-backward #[(n) "ﾀ [\n\"" [gnus-summary-mark-forward n gnus-unread-mark] 3 (#$ . 326913) "p"]) #@58 Intended to be used by `gnus-summary-mark-article-hook'. (defalias 'gnus-summary-mark-unread-as-read #[nil " >\nﾂ \"" [gnus-current-article gnus-newsgroup-unreads gnus-summary-mark-article gnus-read-mark] 3 (#$ . 327157)]) #@58 Intended to be used by `gnus-summary-mark-article-hook'. (defalias 'gnus-summary-mark-read-and-unread-as-read #[nil "ﾀ`ﾁ\" ﾃ\n!)ﾀ`ﾄ\"ﾅ 暸@ﾈ!,ﾉ!2ﾊ \f\")" [get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data mark gnus-unread-mark-p gnus-read-mark-p gnus-summary-mark-article gnus-current-article gnus-read-mark] 4 (#$ . 327391)]) #@157 Mark all unread articles between point and mark as read. If given a prefix, mark all articles between point and mark as read, even ticked and dormant ones. (defalias 'gnus-summary-mark-region-as-read #[(point mark all) "澗\nb暗y`\fWB 4ﾆ`ﾇ\"ソ"ﾉ!)ﾆ`ﾊ\",ﾋ \f>:ﾍ \"委 B *" [nil article point 0 mark all get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-unreads gnus-summary-mark-article gnus-del-mark gnus-summary-find-next] 4 (#$ . 327818) "r\nP"]) #@53 Mark articles with score less than SCORE with MARK. (defalias 'gnus-summary-mark-below #[(score mark) "ﾀ ﾂ ! ﾄ qeb鞍`ﾇ\")ﾉ!)ﾆ`ﾊ\"3ﾋ \f暸? ?ﾄ Wカﾍﾎ\"威 R)" [gnus-set-global-variables score prefix-numeric-value gnus-summary-default-score 0 gnus-summary-buffer get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-scored gnus-summary-mark-article nil mark gnus-summary-find-next] 4 (#$ . 328364) "P\ncMark: "]) #@47 Mark articles with score below SCORE as read. (defalias 'gnus-summary-kill-below #[(&optional score) "ﾀ 庵\n \"" [gnus-set-global-variables gnus-summary-mark-below score gnus-killed-mark] 3 (#$ . 328879) "P"]) #@55 Clear all marks from articles with score above SCORE. (defalias 'gnus-summary-clear-above #[(&optional score) "ﾀ 庵\n \"" [gnus-set-global-variables gnus-summary-mark-above score gnus-unread-mark] 3 (#$ . 329096) "P"]) #@43 Tick all articles with score above SCORE. (defalias 'gnus-summary-tick-above #[(&optional score) "ﾀ 庵\n \"" [gnus-set-global-variables gnus-summary-mark-above score gnus-ticked-mark] 3 (#$ . 329322) "P"]) #@48 Mark articles with score over SCORE with MARK. (defalias 'gnus-summary-mark-above #[(score mark) "ﾀ ﾂ ! ﾄ qeb鞍`ﾇ\")ﾉ!)ﾆ`ﾊ\"3ﾋ \f暸? ?ﾄ Vカﾍﾎ\"威 R)" [gnus-set-global-variables score prefix-numeric-value gnus-summary-default-score 0 gnus-summary-buffer get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-scored gnus-summary-mark-article nil mark gnus-summary-find-next] 4 (#$ . 329535) "P\ncMark: "]) (defalias (quote gnus-summary-show-all-expunged) (quote gnus-summary-limit-include-expunged)) #@68 Display all the hidden articles that were expunged for low scores. (defalias 'gnus-summary-limit-include-expunged #[nil "ﾀ 庵 ﾁ>ﾇ@@!5ﾈ@@ 85@A\nW5\f BA Ёﾋﾌ!eb囲 !+eb夷 )" [gnus-set-global-variables nil buffer-read-only gnus-newsgroup-scored h headers scored gnus-summary-goto-subject 3 gnus-newsgroup-data gnus-summary-expunge-below error "No expunged articles hidden." gnus-summary-prepare-unthreaded gnus-summary-position-point] 4 (#$ . 330139) nil]) #@352 Mark all articles not marked as unread in this newsgroup as read. If prefix argument ALL is non-nil, all articles are marked as read. If QUIETLY is non-nil, no questions will be asked. If TO-HERE is non-nil, it should be a point in the buffer. All articles before this point will be marked as read. The number of articles marked as read is returned. (defalias 'gnus-summary-catchup #[(&optional all quietly to-here not-mark) "ﾀ \n ﾄ ﾆﾇ!p= =\n= 6ﾋ\fﾋ ﾋＱﾏ 威 ?!テゴ`W５ﾒテﾓ!テﾕ ?!Жmﾋﾖﾗ!ﾘ!└@ﾛ=Ζﾜﾞﾟ\"熹TﾋO)A@ #) " [gnus-set-global-variables quietly gnus-interactive-catchup gnus-expert-user gnus-y-or-n-p all "Mark absolutely all articles as read? " "Mark all unread articles as read? " not-mark gnus-newsgroup-adaptive gnus-newsgroup-auto-expire nil gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-unreads gnus-summary-show-all-threads gnus-summary-first-subject to-here t gnus-summary-mark-article-as-read gnus-catchup-mark gnus-summary-find-next gnus-set-mode-line summary gnus-find-method-for-group gnus-newsgroup-name method nnvirtual nnvirtual-catchup-group gname string-match ":[^:]+$" 0 gnus-summary-position-point] 5 (#$ . 330639) "P"]) #@126 Mark all unticked articles before the current one as read. If ALL is non-nil, also mark ticked and dormant articles as read. (defalias 'gnus-summary-catchup-to-here #[(&optional all) "ﾀ 潅 ﾃ餐 ﾆ ﾇ ﾈ\f#,ﾉ " [gnus-set-global-variables gnus-hidden-threads-configuration config ((gnus-restore-hidden-threads-configuration config)) beg all gnus-summary-find-prev gnus-summary-catchup t gnus-summary-position-point] 4 (#$ . 331892) "P"]) #@46 Mark all articles in this newsgroup as read. (defalias 'gnus-summary-catchup-all #[(&optional quietly) "ﾀ 庵ﾂ \"" [gnus-set-global-variables gnus-summary-catchup t quietly] 3 (#$ . 332341) "P"]) #@146 Mark all articles not marked as unread in this newsgroup as read, then exit. If prefix argument ALL is non-nil, all articles are marked as read. (defalias 'gnus-summary-catchup-and-exit #[(&optional all quietly) "ﾀ 庵\n ﾄﾅ$ﾃ=ﾇﾄ!ﾈ " [gnus-set-global-variables gnus-summary-catchup all quietly nil fast gnus-auto-select-next gnus-summary-next-group gnus-summary-exit] 5 (#$ . 332544) "P"]) #@61 Mark all articles in this newsgroup as read, and then exit. (defalias 'gnus-summary-catchup-all-and-exit #[(&optional quietly) "ﾀ 庵ﾂ \"" [gnus-set-global-variables gnus-summary-catchup-and-exit t quietly] 3 (#$ . 332946) "P"]) #@141 Mark all articles in this group as read and select the next group. If given a prefix, mark all articles, unread as well as ticked, as read. (defalias 'gnus-summary-catchup-and-goto-next-group #[(&optional all) "ﾀ 潅\n!)ﾃﾄﾅ夏$" [gnus-set-global-variables gnus-summary-catchup all gnus-summary-next-article t nil] 5 (#$ . 333182) "P"]) #@142 Return a list of all articles in the current thread. If ARTICLE is non-nil, return all articles in the thread that starts with that article. (defalias 'gnus-summary-articles-in-thread #[(&optional article) "ﾁ`ﾂ\"ﾄ !)ﾁ`ﾅ\"ﾆ >) ﾊ @8 \fХﾍ @8ﾎHﾐﾑ\"ケﾒ辺O３)Ｋ\fﾔ=ナﾕﾍ @8ﾎH!Ｋﾓ陥 プ`Ｘd)ﾓ ﾚ @8Wκ\fﾔ=Ιﾕﾍ @8ﾎH!てﾍ @8ﾎHﾐﾑ\"γﾒ辺Oづ)τ @@B A ﾊ @8 Vмﾓ р." [article get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data bdata data 4 top-level gnus-thread-operation-ignore-subject 3 1 subject string-match "^[Rr][Ee]: *" 0 nil fuzzy gnus-simplify-subject-fuzzy top-subject gnus-summary-go-to-next-thread end-point articles 2] 5 (#$ . 333526)]) #@53 Rethread the thread the current article is part of. (defalias 'gnus-summary-rethread-current #[nil "ﾀ 庵ﾃ`ﾄ\"ﾆ !)ﾃ`ﾇ\"ﾈ  ﾊﾃ`ﾄ\",ﾆ !)ﾃ`ﾇ\"6ﾈ  8ﾌH ﾎﾏ !!C Пﾑﾒ!意 !鞍 !," [gnus-set-global-variables t gnus-show-threads get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article 3 gnus-newsgroup-data 4 id gnus-id-to-thread gnus-root-id gnus-newsgroup-threads error "No article on the current line" gnus-rebuild-thread] 5 (#$ . 334343) nil]) #@198 Make current article child of the marked (or previous) article. Note that the re-threading will only work if `gnus-thread-ignore-subject' is non-nil or the Subject: of both articles are the same. (defalias 'gnus-summary-reparent-thread #[nil "ﾀ ﾁﾂ! GﾄXﾁﾅ!鞍窮" [gnus-group-read-only-p error "The current newsgroup does not support article editing." gnus-newsgroup-processable 1 "No more than one article may be marked." ((byte-code "ﾀﾁ`ﾂ\"ﾄ !)ﾁ`ﾅ\"ﾆ #@I簡yﾉ=ウﾁ`ﾂ\"8ﾄ !)ﾁ`ﾅ\"Hﾆ Hﾊﾋ!)\f  \f=ゼﾊﾏ!威\f8ﾒHヒﾔ噬uﾊﾕ!椅ﾗ華 $q畏ﾚﾛﾜ \"ﾞ c)eb衣獵ﾗ#Ι盂ぐ羈井 %@#╂ﾊ!'q郁 磯 一ﾐ \f$," [" *reparent*" get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-processable -1 0 error "Beginning of summary buffer." parent-article current-article gnus-article-buffer "An article may not be self-referential." 3 gnus-newsgroup-data 4 message-id "" "No message-id in desired parent." gnus-summary-select-article t nil buffer-read-only format "%s" buffer-string buf erase-buffer search-forward-regexp "^References: " " " "References: " "\n" gnus-request-replace-article gnus-article-current "Couldn't replace article." gnus-summary-buffer gnus-summary-unmark-all-processable gnus-summary-rethread-current gnus-message "Article %d is now the child of article %d."] 6))] 2 (#$ . 334866) nil]) #@103 Toggle showing conversation threads. If ARG is positive number, turn showing conversation threads on. (defalias 'gnus-summary-toggle-threads #[(&optional arg) "ﾀ 庵`ﾂ\"ﾄ !)ﾁ`ﾅ\"ﾆ  ,\n?2ﾋ !ﾌV\nﾍ 案!夷 )" [gnus-set-global-variables get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-end current arg gnus-show-threads prefix-numeric-value 0 gnus-summary-prepare gnus-summary-position-point] 4 (#$ . 336292) "P"]) #@19 Show all threads. (defalias 'gnus-summary-show-all-threads #[nil "ﾀ 潅ﾃedﾄﾅﾆ%*ﾇ " [gnus-set-global-variables nil buffer-read-only subst-char-in-region 13 10 t gnus-summary-position-point] 6 (#$ . 336800) nil]) #@71 Show thread subtrees. Returns nil if no thread was there to be shown. (defalias 'gnus-summary-show-thread #[nil "ﾀ 庵`ﾁ`ﾂy`ﾇﾈ\fﾉ#ﾊ \fﾋﾌﾉ% b囲 ," [gnus-set-global-variables nil 0 beg end orig buffer-read-only search-forward " " t subst-char-in-region 13 10 gnus-summary-position-point] 7 (#$ . 337020) nil]) #@27 Hide all thread subtrees. (defalias 'gnus-summary-hide-all-threads #[nil "ﾀ 各b庵 按ﾃﾄ\"ﾅUﾁ \n)ﾆ " [gnus-set-global-variables gnus-summary-hide-thread gnus-summary-next-thread 1 t 0 gnus-summary-position-point] 3 (#$ . 337344) nil]) #@74 Hide thread subtrees. Returns nil if no threads were there to be hidden. (defalias 'gnus-summary-hide-thread #[nil "ﾀ 庵`ﾂ`ﾃ\"ﾅ\f!)ﾂ`ﾆ\"ﾇ  \n bm?]ﾋﾌﾍ\"ﾎU9db]` Vスﾏﾐ ﾍ#スﾑ `ﾒﾓ$闇!] b庵+" [gnus-set-global-variables nil get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article start buffer-read-only gnus-summary-next-thread 1 t 0 search-backward "\n" subst-char-in-region 10 13] 6 (#$ . 337591) nil]) #@169 Go to the same level (or less) next thread. If PREVIOUS is non-nil, go to previous thread instead. Return the article number moved to, or nil if moving was impossible. (defalias 'gnus-summary-go-to-next-thread #[(&optional previous) "ﾁ=ﾂ`ﾃ\"ﾄ/ﾅﾂ`ﾃ\"!ﾇ!)ﾂ`ﾈ\"+ﾉ \n8 8ﾌ9ﾍ`ymтﾁ=ゼﾂ`ﾃ\"ゼﾄＺﾅﾂ`ﾃ\"ヌﾇ!)ﾂ`ﾈ\"uﾉ \n8WヤyDmヰb尉げ`ﾂ`ﾃ\"Δﾇ!)ﾂ`ﾈ\"ｬﾉ b+" [gnus-summary-make-false-root dummy get-text-property gnus-intangible 0 4 to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data previous -1 1 beg way level nil] 6 (#$ . 338081)]) #@169 Go to the same level (or less) next thread. If PREVIOUS is non-nil, go to previous thread instead. Return the article number moved to, or nil if moving was impossible. (defalias 'gnus-summary-go-to-next-thread-old #[(&optional previous) "ﾁ=ヂﾂ`ﾃ\"ヂ`ﾅyﾆUゴﾂ`ﾃ\"Тﾁ=/ﾂ`ﾃ\"/ﾆMﾇﾂ`ﾃ\"?ﾉ!)ﾂ`ﾊ\"Iﾋ \f8)ﾆUmタ\fb囲_`)ﾁ=ビﾂ`ﾃ\"ビﾆｐﾇﾂ`ﾃ\"モﾉ!)ﾂ`ﾊ\"ﾋ \f8ﾂ`ﾃ\"Γﾉ!)ﾂ`ﾊ\"ｫﾋ γﾃﾒ\f!づ\f>)Aﾍﾇ@8X@@ﾍへAﾙﾉ!," [gnus-summary-make-false-root dummy get-text-property gnus-intangible beg 1 0 4 to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data nil level article previous gnus-newsgroup-data-reverse reverse bdata data oart] 5 (#$ . 338724)]) #@190 Go to the same level next N'th thread. If N is negative, search backward instead. Returns the difference between N and the number of skips actually done. If SILENT, don't output messages. (defalias 'gnus-summary-next-thread #[(n &optional silent) "ﾀ ﾂWﾃ !ﾄ演 ﾂV(ﾉ!( S\n0ﾋ \nА ﾂUАﾌﾍﾎ\" -" [gnus-set-global-variables n 0 abs nil int dum old backward gnus-summary-go-to-next-thread silent gnus-summary-position-point gnus-message 7 "No more threads"] 6 (#$ . 339512) "p"]) #@116 Go to the same level previous N'th thread. Returns the difference between N and the number of skips actually done. (defalias 'gnus-summary-prev-thread #[(n) "ﾀ 庵\n[!" [gnus-set-global-variables gnus-summary-next-thread n] 2 (#$ . 340022) "p"]) #@42 Go down one level in the current thread. (defalias 'gnus-summary-go-down-thread #[nil "ﾀ  ﾂ @!)" [gnus-summary-article-children children gnus-summary-goto-subject] 3 (#$ . 340274)]) #@40 Go up one level in the current thread. (defalias 'gnus-summary-go-up-thread #[nil "ﾀ \nﾂ !)" [gnus-summary-article-parent parent gnus-summary-goto-subject] 3 (#$ . 340467)]) #@132 Go down thread N steps. If N is negative, go up instead. Returns the difference between N and how many steps down that were taken. (defalias 'gnus-summary-down-thread #[(n) "ﾀ ﾂWﾃ ! ﾂV&\fﾅ ﾆ & S\fﾇ ﾂU4ﾈﾉﾊ\" *" [gnus-set-global-variables n 0 abs up gnus-summary-go-up-thread gnus-summary-go-down-thread gnus-summary-position-point gnus-message 7 "Can't go further"] 4 (#$ . 340653) "p"]) #@130 Go up thread N steps. If N is negative, go up instead. Returns the difference between N and how many steps down that were taken. (defalias 'gnus-summary-up-thread #[(n) "ﾀ 庵\n[!" [gnus-set-global-variables gnus-summary-down-thread n] 2 (#$ . 341071) "p"]) #@30 Go to the top of the thread. (defalias 'gnus-summary-top-thread #[nil "ﾀ 庵 ﾂ`ﾃ\"ﾅ\f!)ﾂ`ﾆ\"ﾇ " [gnus-set-global-variables gnus-summary-go-up-thread get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 4 (#$ . 341335) nil]) #@167 Mark articles under current thread as read. If the prefix argument is positive, remove any kinds of marks. If the prefix argument is negative, tick articles instead. (defalias 'gnus-summary-kill-thread #[(&optional unmark) "ﾀ ﾂ !ﾃ 看 \fアﾆ\f@! 'ﾇ!: ﾉV5ﾊ !:ﾊ\f!\fA) Н クﾎ Цﾏﾐﾑ\")ﾒﾓ!" [gnus-set-global-variables unmark prefix-numeric-value gnus-summary-articles-in-thread articles gnus-summary-show-thread gnus-summary-goto-subject gnus-summary-mark-article-as-read gnus-killed-mark 0 gnus-summary-mark-article-as-unread gnus-unread-mark gnus-ticked-mark gnus-thread-hide-killed gnus-summary-hide-thread gnus-summary-next-subject 1 t gnus-set-mode-line summary] 4 (#$ . 341627) "P"]) #@78 Sort summary buffer by article number. Argument REVERSE means reverse order. (defalias 'gnus-summary-sort-by-number #[(&optional reverse) "ﾀﾁ\n\"" [gnus-summary-sort number reverse] 3 (#$ . 342355) "P"]) #@150 Sort summary buffer by author name alphabetically. If case-fold-search is non-nil, case of letters is ignored. Argument REVERSE means reverse order. (defalias 'gnus-summary-sort-by-author #[(&optional reverse) "ﾀﾁ\n\"" [gnus-summary-sort author reverse] 3 (#$ . 342567) "P"]) #@166 Sort summary buffer by subject alphabetically. `Re:'s are ignored. If case-fold-search is non-nil, case of letters is ignored. Argument REVERSE means reverse order. (defalias 'gnus-summary-sort-by-subject #[(&optional reverse) "ﾀﾁ\n\"" [gnus-summary-sort subject reverse] 3 (#$ . 342851) "P"]) #@68 Sort summary buffer by date. Argument REVERSE means reverse order. (defalias 'gnus-summary-sort-by-date #[(&optional reverse) "ﾀﾁ\n\"" [gnus-summary-sort date reverse] 3 (#$ . 343152) "P"]) #@69 Sort summary buffer by score. Argument REVERSE means reverse order. (defalias 'gnus-summary-sort-by-score #[(&optional reverse) "ﾀﾁ\n\"" [gnus-summary-sort score reverse] 3 (#$ . 343349) "P"]) #@65 Sort summary buffer by PREDICATE. REVERSE means reverse order. (defalias 'gnus-summary-sort #[(predicate reverse) "ﾀ 庵ﾂﾃ\f\"!ﾁﾂﾆ\f\"! !ﾉﾊ ﾋBEC\f.5ﾉﾍﾎBECﾐﾐﾓ ククﾖ .[ﾘ\"" [gnus-set-global-variables intern format "gnus-thread-sort-by-%s" predicate thread "gnus-article-sort-by-%s" article reverse lambda (t1 t2) (t2 t1) gnus-thread-sort-functions (t1 t2) (t2 t1) gnus-article-sort-functions nil buffer-read-only gnus-summary-prepare-hook gnus-summary-prepare gnus-show-threads gnus-thread-hide-subtree gnus-summary-hide-all-threads gnus-newsgroup-async gnus-request-asynchronous gnus-newsgroup-name gnus-newsgroup-data] 4 (#$ . 343549)]) #@75 Make sortable string by string-lessp from DATE. Timezone package is used. (defalias 'gnus-sortable-date #[(date) "ﾀﾁﾂ順" [nil (byte-code "ﾁ;'ﾂﾃ\"ﾄﾃ\"'ﾅ!'ﾆﾃGﾁ$,ﾇﾁ演演 \n \fﾍﾎ\"ザﾏ\fﾐ ﾑ\nﾒ ﾁ3ﾍﾓ\"ハﾏ\fﾐ ﾑ\nﾒ ﾔ3ﾍﾕ\"ョﾐ\fﾑ ﾖ\nﾒ ﾁ3ﾍﾗ\"Βﾐ\fﾑ ﾖ\nﾒ ﾘ3ﾍﾙ\"ｹﾒ\fﾖ ﾑ\nﾐ ﾁ3ﾍﾚ\"υﾘ\fﾖ ﾑ\nﾐ ﾒ3ﾍﾛ\"ﾐ\fﾑ ﾖ\nﾒ ﾘ3ﾍﾜ\"ﾐ\fﾑ ﾖ\nﾒ ﾁ3ﾍﾝ\"ﾖ\fﾑ ﾐ\nﾒ ﾘ3ﾍﾞ\"3ﾖ\fﾑ ﾐ\nﾒ ﾁ\f\f\f桧\fGﾒWコﾟ\f狠OP\f 飯\\H甼ヌ  飯\\Oｂ  頒\\O\"聿\"%\"A!) \n\n桧\n  桧 Ι桧\fｻ\f \n %つ跚演加%.ﾒH()!ﾃH!\fW\f\\\fW\f\\\f\fﾖH! ﾑH!\nﾐH!  ﾃH!1 ﾖH!2 ﾑH!3ﾒH*))(G \n\f#321_\\_\\\"((!)!Z828\\22\":1:\\12:_Z21XΜ1Z1\nT\n \f\"\nWﾟ T ﾖ\n Wﾟﾖ \fT\fめﾃ1Vﾟ1\\1\nS\nﾖ\nVﾟ S ﾖ Vﾗ \fS\f \f\"\n\f \n123(&.ﾃHﾖHﾑHﾐHﾒHﾘH321123$+ \n \f　\f \n %," [date nil text-properties-at 0 next-property-change copy-sequence set-text-properties "" zone time day month year string-match "\\([^ ,]+\\),[ ]+\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\(T[ ]+\\|\\)\\([0-9]+\\)[ ]*\\'" 6 3 2 4 "\\([^ ,]+\\),[ ]+\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\(T[ ]+\\|\\)\\([0-9]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" 7 "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]*\\'" 1 "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" 5 "\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\([0-9]+\\)" "\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\([-+a-zA-Z0-9]+\\)[ ]+\\([0-9]+\\)" "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)\\.[0-9]+" "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)" "19" -2 45 string int-to-string assoc timezone-months-assoc vector "0" timezone local timezone-parse-date string-to-int 50 2000 100 1900 timezone-parse-time hour minute second timezone-time-zone-from-absolute timezone-absolute-from-gregorian 60 timezone-zone-to-minute diff floor hour-fix 24 timezone-last-day-of-month 12 format "%02d:%02d:%02d" "%4d%02d%02d%s"] 10) ((error ""))] 3 (#$ . 344237)]) #@340 Save the current article using the default saver function. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. The variable `gnus-default-article-saver' specifies the saver function. (defalias 'gnus-summary-save-article #[(&optional n not-saved) "ﾀ 庵\n!甘ﾄ!)ﾅ演 \n\nワﾋ\n陰\n@\f8ﾍ!Рﾎ档Gﾏﾎ暸!ﾐﾑﾒ#ﾓ笈 q慰 易!)йn ﾛﾑﾜ\"*ﾝ笈ﾞ!! !\"ｨ\";Ζ繧･\"!)Τ!!) \n-" [gnus-set-global-variables gnus-summary-work-articles n nnheader-set-temp-buffer " *Gnus Save*" nil article header file save-buffer articles 3 gnus-newsgroup-data vectorp name gnus-copy-file gnus-message 1 "Article %d is unsaveable" ((byte-code "ﾀﾁﾂ $" [gnus-summary-select-article t nil article] 5)) erase-buffer insert-buffer-substring gnus-original-article-buffer gnus-save-all-headers gnus-saved-headers gnus-visible-headers gnus-article-buffer gnus-article-hide-headers t ((byte-code " ﾁﾂ!/ q\fqﾈ+ﾉ=)ﾊ+ ! )ﾊ" [gnus-default-article-saver error "No default saver is defined." gnus-article-buffer save-buffer gnus-original-article-buffer gnus-summary-buffer gnus-prompt-before-saving default always nil file] 3)) gnus-summary-remove-process-mark not-saved gnus-summary-set-saved-mark buf buffer get-buffer buffer-name kill-buffer gnus-summary-position-point] 6 (#$ . 346782) "P"]) #@251 Pipe the current article to a subprocess. If N is a positive number, pipe the N next articles. If N is a negative number, pipe the N previous articles. If N is nil and any articles have been marked with the process mark, pipe those articles instead. (defalias 'gnus-summary-pipe-output #[(&optional arg) "ﾀ 庵ﾃ\fﾅ\")ﾆﾇ!" [gnus-set-global-variables gnus-summary-save-in-pipe gnus-default-article-saver gnus-summary-save-article arg t gnus-configure-windows pipe] 3 (#$ . 348302) "P"]) #@253 Append the current article to an mail file. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. (defalias 'gnus-summary-save-article-mail #[(&optional arg) "ﾀ 庵ﾃ\f!)" [gnus-set-global-variables gnus-summary-save-in-mail gnus-default-article-saver gnus-summary-save-article arg] 2 (#$ . 348796) "P"]) #@254 Append the current article to an rmail file. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. (defalias 'gnus-summary-save-article-rmail #[(&optional arg) "ﾀ 庵ﾃ\f!)" [gnus-set-global-variables gnus-summary-save-in-rmail gnus-default-article-saver gnus-summary-save-article arg] 2 (#$ . 349262) "P"]) #@247 Append the current article to a file. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. (defalias 'gnus-summary-save-article-file #[(&optional arg) "ﾀ 庵ﾃ\f!)" [gnus-set-global-variables gnus-summary-save-in-file gnus-default-article-saver gnus-summary-save-article arg] 2 (#$ . 349731) "P"]) #@252 Append the current article body to a file. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. (defalias 'gnus-summary-save-article-body-file #[(&optional arg) "ﾀ 庵ﾃ\f!)" [gnus-set-global-variables gnus-summary-save-body-in-file gnus-default-article-saver gnus-summary-save-article arg] 2 (#$ . 350191) "P"]) #@44 Return a value based on the split METHODS. (defalias 'gnus-get-split-value #[(methods) "ﾀ演 ロq孤 レeb 陰@@;1ﾀﾈﾉ盾j \n9ァﾋ\n!K\n'ﾂ !CB" [boundp g symbol-name respool assoc gnus-find-method-for-group gnus-valid-select-methods group-map] 6] gnus-active-hashtb dum format "%s %s to:" prompt articles 1 "these %d articles" "this article" prom gnus-completing-read default prefix gnus-group-history mapcar #[(el) "C" [el] 1] to-newsgroup "" intern-soft gnus-activate-group gnus-y-or-n-p "No such group: %s. Create it? " gnus-request-create-group gnus-group-name-to-method error "Couldn't create group %s" "No such group: %s"] 9 (#$ . 351133)]) (defalias 'gnus-read-save-file-name #[(prompt default-name) "ﾀ !ﾃ\fﾅﾆ!ﾈRﾉ!#Ｗ\nGﾊUサ\n@ ﾌ !4ﾍ !Bﾎ !ァ Bﾃ\fﾅ ﾈR #*Ｗ\nﾑ\n､ﾃ\fﾔP\n@#)B@)ﾌ!リﾍ!ﾆ!Pﾖ!*" [gnus-get-split-value gnus-split-methods split-name read-file-name prompt " (default " file-name-nondirectory default-name ") " file-name-directory 1 name file-directory-p file-name-as-directory file-exists-p gnus-article-save-directory dir nil result file-name-history " (`M-p' for defaults) " file nnheader-translate-file-chars] 6]) #@71 Return the first instance of an "Archive-name" in the current buffer. (defalias 'gnus-article-archive-name #[(group) "ﾀﾂﾃﾄﾀ# ﾅﾆ!)" [t case-fold-search re-search-forward "archive-name: *\\([^ \n ]+\\)[ ]*$" nil match-string 1] 4 (#$ . 352658)]) #@150 Append this article to Rmail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (defalias 'gnus-summary-save-in-rmail #[(&optional filename) "ﾀ \n \f#ﾇ= \"\"ﾈﾉ \"ﾊﾋ!!偉  ﾐﾑ\"ﾓオﾔ!Nﾕ!褐~椅!.)" [gnus-set-global-variables gnus-rmail-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-rmail default-name filename default gnus-read-save-file-name "Save in rmail file:" gnus-make-directory file-name-directory selected-window GnusStartBufferWindow gnus-original-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer gnus-output-to-rmail] 4 (#$ . 352914) nil]) #@154 Append this article to Unix mail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (defalias 'gnus-summary-save-in-mail #[(&optional filename) "ﾀ \n \f#ﾇ= \"\"ﾈﾉ \"ﾊ .ﾋ !\"ﾌﾋ!!囲 ﾑﾒ\"ﾔシﾕ![ﾖ!褐~為!ブﾘ!ブﾙ!ａﾚﾜﾝﾚ$).)" [gnus-set-global-variables gnus-mail-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-mail default-name filename default gnus-read-save-file-name "Save in Unix mail file:" expand-file-name file-name-directory gnus-make-directory selected-window GnusStartBufferWindow gnus-original-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer file-readable-p mail-file-babyl-p gnus-output-to-rmail t mail-use-rfc822 rmail-output 1] 5 (#$ . 353678) nil]) #@144 Append this article to file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory'. (defalias 'gnus-summary-save-in-file #[(&optional filename) "ﾀ \n \f#ﾇ= \"\"ﾈﾉ \"ﾊﾋ!!偉  ﾐﾑ\"ﾓオﾔ!Nﾕ!褐~椅!.)" [gnus-set-global-variables gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-file default-name filename default gnus-read-save-file-name "Save in file:" gnus-make-directory file-name-directory selected-window GnusStartBufferWindow gnus-original-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer gnus-output-to-file] 4 (#$ . 354574) nil]) #@153 Append this article body to a file. Optional argument FILENAME specifies file name. The directory to save in defaults to `gnus-article-save-directory'. (defalias 'gnus-summary-save-body-in-file #[(&optional filename) "ﾀ \n \f#ﾇ= \"\"ﾈﾉ \"ﾊﾋ!!偉  ﾐﾑ\"ﾓオﾔ!Nﾕ!褐~eb椅ﾗﾘﾙ#ヂ`d}移!.)" [gnus-set-global-variables gnus-file-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-file default-name filename default gnus-read-save-file-name "Save body in file:" gnus-make-directory file-name-directory selected-window GnusStartBufferWindow gnus-original-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer search-forward "\n\n" nil t gnus-output-to-file] 4 (#$ . 355322) nil]) #@34 Pipe this article to subprocess. (defalias 'gnus-summary-save-in-pipe #[(&optional command) "ﾀ ﾂ=   ﾄﾅ \"ﾆソ" ﾇ  \nﾋ\nﾌ\" ﾎ ァﾏ !Eﾐ\n!鯨尉ed ﾒ$- " [gnus-set-global-variables command default gnus-last-shell-command read-string "Shell command on article: " "" selected-window GnusStartBufferWindow gnus-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer shell-command-on-region nil] 6 (#$ . 356131) nil]) (defalias 'gnus-summary-insert-pseudos #[(pslist &optional not-view) "ﾀﾁ`ﾂ\"ﾄ !)ﾁ`ﾅ\"ﾆ ﾀ演 \n ﾄ\n!4ﾌﾍﾎ\n\"!委 ﾟﾑﾓ\"ﾀﾞﾔ@暸ﾗ@暸CArﾘﾔA@暸}ﾙﾗA@暸B陰A｡Ｂψﾚﾛ\"━ﾜBﾜBﾝ@档ﾕﾝ@樛ﾛ\"λﾍぬﾞﾟﾜ#\"｡AП+!ソf\"Ыfﾝ@档聨@暸!=\"Aろﾊ@暸2ﾁ`ﾂ\"(ﾄ !)ﾁ`ﾅ\"2ﾆ  ﾄ !亥y`跚ﾗ@暸!鞏@暸S鳰ｱ`y溢Sﾅ-./F#芋 -1@Z&-3B3-S-Aﾀ)-" [nil get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject e b after-article article buffer-read-only error format "No such article: %d" gnus-summary-position-point gnus-view-pseudos-separately sort pslist gnus-pseudos< action files ps name "1" "2" string-match "%s" " " execute concat mapconcat #[(f) "" [f] 1] gnus-view-pseudos not-view gnus-execute-command not-confirm 1 " " file-name-nondirectory ": " "" "\n" -1 gnus-add-text-properties gnus-reffed-article-number gnus-mouse-face-prop gnus-mouse-face gnus-data-enter gnus-unread-mark 0 gnus-newsgroup-unreads] 10]) (defalias 'gnus-pseudos< #[(p1 p2) "ﾀ 暸ﾀ\n暸 \f *" [action p1 p2 c2 c1] 4]) (defalias 'gnus-request-pseudo-article #[(props) "ﾀ 档 ﾂﾀ 暸!暗`ﾄ\"ﾆ !)ﾃ`ﾇ\"$ﾈ  ﾊﾋ!)" [execute props gnus-execute-command get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-current-article run-hooks gnus-mark-article-hook] 4]) (defalias 'gnus-execute-command #[(command &optional automatic) "澗 q按\f ﾆﾇ \"ﾈ 伊 ﾊｱ 0ﾌﾍﾂ %;ﾐﾂﾑﾂ &*" [gnus-article-setup-buffer gnus-article-buffer nil buffer-read-only automatic command read-string "Command: " erase-buffer "$ " "\n\n" gnus-view-pseudo-asynchronously start-process "gnus-execute" shell-file-name shell-command-switch call-process t] 7]) #@18 Copy FILE to TO. (defalias 'gnus-copy-file #[(file &optional to) "ﾀ Ыfﾂﾃ\f\"ﾅ !ﾆ !ﾇ!Pﾉ \"" [gnus-set-global-variables to read-file-name "Copy file to: " default-directory file-directory-p file-name-as-directory file-name-nondirectory file copy-file] 3 (#$ . 358527) (list (read-file-name "Copy file: " default-directory) (read-file-name "Copy file to: " default-directory))]) #@30 Edit the "global" kill file. (defalias 'gnus-summary-edit-global-kill #[(article) "ﾀ 庵\n!" [gnus-set-global-variables gnus-group-edit-global-kill article] 2 (#$ . 358923) (list (gnus-summary-article-number))]) #@58 Edit a local kill file applied to the current newsgroup. (defalias 'gnus-summary-edit-local-kill #[nil "ﾀ 庵ﾂ`ﾃ\"ﾅ\f!)ﾂ`ﾆ\"ﾇ 8 ﾀ 位ﾂ`ﾃ\"2ﾅ\f!)ﾂ`ﾆ\"<ﾇ  \"" [gnus-set-global-variables 3 get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-data gnus-current-headers gnus-group-edit-local-kill gnus-newsgroup-name] 5 (#$ . 359141) nil]) (byte-code "ﾀﾁﾂﾃ#\fﾅ ﾆ\f!杏ﾄﾈ\"伊ﾊﾋ\f#安" [put gnus-article-mode mode-class special gnus-article-mode-map make-keymap suppress-keymap gnus-define-keys-1 (" " gnus-article-goto-next-page "" gnus-article-goto-prev-page [delete] gnus-article-goto-prev-page "^" gnus-article-refer-article "h" gnus-article-show-summary "s" gnus-article-show-summary " " gnus-article-mail "?" gnus-article-describe-briefly gnus-mouse-2 gnus-article-push-button " " gnus-article-press-button " " gnus-article-next-button "" gnus-article-prev-button "<" beginning-of-buffer ">" end-of-buffer " " gnus-info-find-node "" gnus-bug) substitute-key-definition undefined gnus-article-read-summary-keys] 4) #@604 Major mode for displaying an article. All normal editing commands are switched off. The following commands are available: \ \[gnus-article-next-page] Scroll the article one page forwards \[gnus-article-prev-page] Scroll the article one page backwards \[gnus-article-refer-article] Go to the article referred to by an article id near point \[gnus-article-show-summary] Display the summary buffer \[gnus-article-mail] Send a reply to the address near point \[gnus-article-describe-briefly] Describe the current mode briefly \[gnus-info-find-node] Go to the Gnus info node (defalias 'gnus-article-mode #[nil "ﾁﾂﾃ\"ﾄ 闇 鞍 杏ﾉ\nﾋﾌ!囲\f桷-ﾍﾎD\fB\fﾏ!依ﾑ!ﾓp!慰ﾖﾗ!" [menu-bar-mode gnus-visual-p article-menu menu gnus-article-make-menu-bar kill-all-local-variables gnus-simplify-mode-line "Article" mode-name gnus-article-mode major-mode make-local-variable minor-mode-alist gnus-show-mime " MIME" use-local-map gnus-article-mode-map page-delimiter gnus-page-delimiter buffer-disable-undo t buffer-read-only run-hooks gnus-article-mode-hook] 3 (#$ . 360255) nil]) #@32 Initialize the article buffer. (defalias 'gnus-article-setup-buffer #[nil "ﾁ\fﾂ ﾄQﾆﾇ \"以 ﾉ別OP \f  :q \f  ﾏ )ﾐﾎ!貫 !q惟p!意ﾐﾕ!)ﾖ !パ q惟p!為ﾙ ﾚ=kﾚ p)~貫 !q異 移 p)*" [gnus-single-article-buffer "*Article*" "*Article " gnus-newsgroup-name "*" name string-match "\\*Article" " *Original Article" 0 nil original gnus-article-buffer gnus-original-article-buffer gnus-summary-buffer gnus-set-global-variables make-local-variable get-buffer-create buffer-disable-undo gnus-original-article-mode major-mode gnus-original-article get-buffer t buffer-read-only gnus-add-current-to-buffer-list gnus-article-mode] 4 (#$ . 361374)]) (defalias 'gnus-article-set-window-start #[(&optional line) "ﾀﾁ\nﾃ\"浬nqeb\fe#ﾅﾆﾇ\"以ﾉﾊﾃ#\fy`)\"" [set-window-start get-buffer-window gnus-article-buffer t line gnus-message 6 "Moved to bookmark" search-forward "\n\n" nil] 6]) #@44 Delete all overlays in the current buffer. (defalias 'gnus-kill-all-overlays #[nil "ﾀﾁ!!ﾁ ﾃ\n@\nA､ ﾆ 陰@!+" [fboundp overlay-lists overlayss nil buffer-read-only overlays delete-overlay] 3 (#$ . 362281)]) #@48 Get an article and insert it into this buffer. (defalias 'gnus-request-article-this-buffer #[(article group) "ﾀ環 暗 \f ﾆﾇ\f!!;% \nﾋ!)ｧｽ\fｽﾍ\f!ｽﾎﾍ\f!!ｽ\fq委8ﾒWン>ボﾔH \nﾋ!)ﾕ\"ｓﾖ!ルﾔHｓﾗﾘ!杏 !@ﾚ=ｼﾛA@!ﾜHPﾞ!ｻﾚﾟ!)+ｧ\fﾍ\f!ﾎﾍ\f!!\fq )A!=ﾀｅﾍ\"!ｧ\"q#@\f嚆#A=)\"!以ｅ%-觸fp#-ﾈｅ'ゥｧゥ\f\"ゥﾈｅ;Пｧャ;X ﾀ)\nﾂ 暗 一\fp#%ミｧミ\fp#以*ｅ)ﾍ,!τﾎp!ﾎﾍ,!!噬ﾑ艦\"!Νﾍ\"!qだ\"!q稲p!茨0) 安)ﾂ 井,!)\fB#) ｧ;p3\fq咽 !員 ﾀ#因p\"`\"3q))" [nil do-update-line erase-buffer gnus-kill-all-overlays group gnus-newsgroup-name gnus-check-server gnus-find-method-for-group article gnus-refer-article-method gnus-override-method gnus-read-header gnus-summary-buffer get-buffer buffer-name 3 gnus-newsgroup-data header 0 gnus-newsgroup-sparse 4 delq vectorp pseudo gnus-request-pseudo-article method nneething file-name-as-directory 1 dir file-directory-p gnus-group-enter-directory gnus-newsgroup-reads gnus-canceled-mark gnus-original-article-buffer gnus-original-article insert-buffer-substring gnus-keep-backlog gnus-backlog-request-article gnus-use-cache gnus-cache-request-article buffer-read-only gnus-request-article gnus-backlog-enter-article gnus-article-buffer get-buffer-create buffer-disable-undo gnus-original-article-mode major-mode t gnus-add-current-to-buffer-list buf gnus-summary-update-article gnus-summary-goto-subject set-window-point get-buffer-window] 6 (#$ . 362506)]) #@69 Read the headers of article ID and enter them into the Gnus system. (defalias 'gnus-read-header #[(id &optional header) "ﾁ!\nﾃ;!ﾉ!/-ﾊ 8イﾌH >Гろﾎ\"qdb威ceb尉c惟ｧヌｃ\fAブ\fAｃメﾌHｃp\"慰c)ﾕ @ﾌH >;λﾗﾘ\"ｹﾌ乃ﾃOそ)\f@ﾉﾌISﾙﾌH!BﾌHB+" [gnus-newsgroup-name gnus-news-group-p gnus-refer-article-method nil where gnus-override-method group id header gnus-id-to-header 3 gnus-newsgroup-data 0 gnus-newsgroup-sparse gnus-request-head nntp-server-buffer ".\n" "211 " princ gnus-reffed-article-number " Article retrieved.\n" gnus-get-newsgroup-headers gname string-match ":[^:]+$" gnus-remove-header gnus-newsgroup-headers gnus-current-headers gnus-newsgroup-limit] 3 (#$ . 364113)]) #@53 Remove header NUMBER from `gnus-newsgroup-headers'. (defalias 'gnus-remove-header #[(number) " @ﾂHU陰@ A, A@ﾂHU, 陰 A6 陰A｡)" [gnus-newsgroup-headers number 0 headers] 3 (#$ . 364928)]) #@210 Prepare ARTICLE in article mode buffer. ARTICLE should either be an article number or a Message-ID. If ARTICLE is an id, HEADER should be the article headers. If ALL-HEADERS is non-nil, no headers are hidden. (defalias 'gnus-article-prepare #[(article &optional all-headers header) "ﾁ=Ыn\nqpﾃﾄ !!ﾆﾄ !!杏 ﾈ\" + ﾊH-  p\f  ﾐ還 q慰ﾕ!ココﾐﾐﾘ \") ｧュ >у  B\nq ﾜ \" >?ﾞﾟ濬")ぜ=└=ﾙ\fq#$B$ﾊﾐ%ﾐ=ν跚!ぱ賤!郁 )鰺!ぜ ｧデ =f\fq#$B$ +8% B%!ﾐ% 稲!磯!芋\"*!郁 44567テ +8!テ  +8 9> :> ;>&) ｧв ;Πﾐﾎ!稲!=>ワ　!ヶA ｚB 稲，!)ebDΠ・ 磯ﾋ!域ﾋ!eb以." [major-mode gnus-summary-mode gnus-summary-buffer gnus-server-opened gnus-find-method-for-group gnus-newsgroup-name gnus-check-server gnus-request-group t header 0 article summary-buffer gnus-article-internal-prepare-hook internal-hook group nil result gnus-article-setup-buffer gnus-article-buffer boundp transient-mark-mode mark-active buffer-read-only gnus-request-article-this-buffer gnus-newsgroup-sparse gnus-article-current gnus-current-article gnus-summary-mark-article gnus-canceled-mark gnus-error 1 "No such article (may have expired or been canceled)" pseudo nneething gnus-last-article gnus-newsgroup-history gnus-current-headers gnus-configure-windows summary gnus-set-global-variables gnus-set-mode-line 3 gnus-newsgroup-data vectorp gnus-summary-show-thread run-hooks gnus-mark-article-hook gnus-visual-p article-highlight highlight gnus-visual-mark-article-hook all-headers gnus-show-all-headers gnus-have-all-headers gnus-use-cache gnus-cache-possibly-enter-article gnus-newsgroup-marked gnus-newsgroup-dormant gnus-newsgroup-unreads gnus-article-prepare-hook gnus-show-mime gnus-strict-mime gnus-fetch-field "Mime-Version" gnus-show-mime-method gnus-decode-encoded-word-method gnus-article-display-hook gnus-break-pages gnus-narrow-to-page] 8 (#$ . 365147)]) #@50 Show all article headers in article mode buffer. (defalias 'gnus-article-show-all-headers #[nil "澗 q按edﾆ \f#以>$ﾉ Se] ﾈﾂ$," [gnus-article-setup-buffer gnus-article-buffer nil buffer-read-only e b remove-text-properties gnus-hidden-properties intangible gnus-put-text-property] 5 (#$ . 367172)]) #@96 Hide unwanted headers if `gnus-have-all-headers' is nil. Provided for backwards compatibility. (defalias 'gnus-article-hide-headers-if-wanted #[nil "q )\nﾃ " [gnus-summary-buffer gnus-have-all-headers gnus-inhibit-hiding gnus-article-hide-headers] 1 (#$ . 367487)]) #@75 Give the rank of the string HEADER as given by `gnus-sorted-header-list'. (defalias 'gnus-article-header-rank #[nil "ﾁ ﾄ @!ﾅ A\nT\n*" [gnus-sorted-header-list 0 i list looking-at nil] 2 (#$ . 367769)]) (put (quote gnus-article-header-rank) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@155 Toggle whether to hide unwanted headers and possibly sort them as well. If given a negative prefix, always show; if given a positive prefix, always hide. (defalias 'gnus-article-hide-headers #[(&optional arg delete) "ﾀﾁ\n\" ﾃﾄ! ?Xq孤ﾈﾁD ､\nGT ;??\f;3\f?\fｺSe]煢>AA$+`粤ﾇﾐ#井y`}eb亥貮ﾐ#)轌違``Tﾙ!ﾙ!\n)**ﾙ*@!ソnﾇ**A*)T))*!\\$維yね 逸ed\\$Vォd|０dﾁ#違eﾇ$.\n" [gnus-article-check-hidden-text headers arg gnus-article-show-hidden-text boring-headers gnus-inhibit-hiding gnus-article-buffer nil gnus-type gnus-hidden-properties gnus-sorted-header-list gnus-visible-headers gnus-ignored-headers mapconcat identity "\\|" t beg want-list inhibit-point-motion-hooks visible ignored max props buffer-read-only looking-at "From " 1 delete e b gnus-add-text-properties intangible gnus-put-text-property search-forward "\n\n" -1 re-search-forward "^[^ ]*:" 0 message-rank i list 2 message-sort-headers-1 text-property-any gnus-hide-text-type invisible] 8 (#$ . 368091) (gnus-hidden-arg)]) #@138 Toggle hiding of headers that aren't very interesting. If given a negative prefix, always show; if given a positive prefix, always hide. (defalias 'gnus-article-hide-boring-headers #[(&optional arg) "ﾀﾁ\n\"? q呼 ﾆﾄ \nﾋ   陰 @ebﾌ=ゼﾍﾎﾄﾆ#ﾏy威ﾑy`ﾄ囲ﾒﾄﾆ#サﾑ狽Udﾁ#4ﾓ=ラﾔﾕ!ﾘﾙ\"ボﾑ乃ﾄO})噬ﾚﾕ!ﾛ=Γﾔﾜ!ﾔﾕ!噬ﾚﾜ!ﾝ=ψﾔﾞ!ﾔﾟ! ττ! !A@!!A@噬ﾑﾚﾟ!*=ﾔ!\"\" \"觚ﾚ!)." [gnus-article-check-hidden-text boring-headers arg gnus-article-buffer nil gnus-boring-article-headers t elem inhibit-point-motion-hooks list buffer-read-only nnheader-narrow-to-headers empty re-search-forward "^[^:]+:[ ]\n[^ ]" -1 gnus-hide-text-type 0 "^[^ ]" newsgroups message-fetch-field "newsgroups" gnus-newsgroup-name gname string-match ":[^:]+$" gnus-article-hide-header followup-to "followup-to" reply-to "from" "reply-to" from gnus-extract-address-components date "date" gnus-days-between current-time-string 4] 7 (#$ . 369294) (gnus-hidden-arg)]) (defalias 'gnus-article-hide-header #[(header) "各b安ﾁ\nﾃQﾄﾅ#'ﾆﾇy`ﾄ安ﾈﾄﾅ#$ﾇ狽%dﾉ#)" [re-search-forward "^" header ":" nil t gnus-hide-text-type 0 "^[^ ]" boring-headers] 6]) #@39 Translate overstrikes into bold text. (defalias 'gnus-article-treat-overstrike #[nil "q庵ﾃﾄﾁﾅ#kg`ﾆZf=2ﾉ`ﾆZ`ﾊﾅ$伊``Tﾋﾌ$Ｈﾍ=グﾉ`S`Tﾊﾅ$伊`ﾆZ`Sﾋﾎ$Ｈﾍ=トﾉ`ﾆZ`ﾊﾅ$伊``Tﾋﾎ$**" [gnus-article-buffer nil buffer-read-only search-forward "" t 2 previous next gnus-put-text-property invisible face bold 95 underline] 6 (#$ . 370505) nil]) #@24 Format too long lines. (defalias 'gnus-article-word-wrap #[nil "q庵~eb暗ﾄﾁﾅ#鞍杏ﾈﾅ \n m?<i\fﾍ ^Y6hﾎU6ﾏﾁ!威-" [gnus-article-buffer nil buffer-read-only search-forward "\n\n" t 1 "^[>|#:<;* ]*[ ]*$" "[ ]*\\([|#:<;>*]+ *\\)?" adaptive-fill-mode adaptive-fill-regexp paragraph-start fill-column window-width 58 fill-paragraph 2] 4 (#$ . 370866) nil]) #@42 Remove carriage returns from an article. (defalias 'gnus-article-remove-cr #[nil "q庵eb暗ﾄﾁﾅ#ﾆﾇﾅ# *" [gnus-article-buffer nil buffer-read-only search-forward " " t replace-match ""] 4 (#$ . 371242) nil]) #@51 Remove all trailing blank lines from the article. (defalias 'gnus-article-remove-trailing-blank-lines #[nil "q庵db`ﾃﾄ!ﾅy\nﾆy`|*" [gnus-article-buffer nil buffer-read-only looking-at "^[ ]*$" -1 1] 3 (#$ . 371463) nil]) #@54 Look for an X-Face header and display it if present. (defalias 'gnus-article-display-x-face #[(&optional force) "q庵ﾂ!ﾃﾂ!案ﾅ庫 位ﾋ!eb\fｭ Ёェｭｭﾏ\"?ｭﾐﾑﾅﾄ#ｭ`ﾐﾒﾅﾄ#S\f9ヰ\f9バﾖ!zシﾓSe]ﾒ\n>AA$+`ﾋﾔﾆﾍ#Ηﾎ乃Ηﾋﾕﾆﾍ#ホﾎ浮{d\n\nﾑ\n#惟\n>ΖﾓSe]ﾒ\n>AA$+}eb椅ﾗﾆﾍ#ﾎ釆\n\nﾑ\n#惟\n>ﾓSe]ﾒ\n>AA$+ず~-" [gnus-article-check-hidden-text pgp arg gnus-article-buffer gnus-type gnus-hidden-properties nil end beg buffer-read-only props search-forward "\n-----BEGIN PGP SIGNED MESSAGE-----\n" t 0 e b gnus-add-text-properties intangible gnus-put-text-property "\n-----BEGIN PGP SIGNATURE-----\n" "\n-----END PGP SIGNATURE-----\n" re-search-forward "^- "] 6 (#$ . 374139) (gnus-hidden-arg)]) #@126 Hide the signature in the current article. If given a negative prefix, always show; if given a positive prefix, always hide. (defalias 'gnus-article-hide-signature #[(&optional arg) "ﾀﾁ\n\"? q呼ﾆ ﾇedﾁ#+" [gnus-article-check-hidden-text signature arg gnus-article-buffer nil buffer-read-only gnus-narrow-to-signature gnus-hide-text-type] 4 (#$ . 374998) (gnus-hidden-arg)]) #@59 Remove all blank lines from the beginning of the article. (defalias 'gnus-article-strip-leading-blank-lines #[nil "q庵eb暗ﾄﾁﾅ#$ﾆﾇ!$ﾈy`ﾉy`|*" [gnus-article-buffer nil buffer-read-only search-forward "\n\n" t looking-at "[ ]$" 0 1] 4 (#$ . 375387) nil]) (byte-code "ﾀ Bﾂ Bﾀ" [mime::preview/content-list current-load-list mime::preview-content-info/point-min] 2) #@26 Narrow to the signature. (defalias 'gnus-narrow-to-signature #[nil "~安ﾁ! ﾂ !@ﾄﾅﾆ処)db杏ﾄﾉ#tﾊy バ ｧ:d`Z Wo \f9カﾍ\f!U\f