;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Wed Jul 17 16:59:01 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/gnus-edit.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-edit.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!ˆÃÄ BÆÇ BÀ‡" [require custom gnus-score ((tag . "Score") (doc . "Customization of Gnus SCORE files.\n\nSCORE files allow you to assign a score to each article when you enter\na group, and automatically mark the articles as read or delete them\nbased on the score. In the summary buffer you can use the score to\nsort the articles by score (`C-c C-s C-s') or to jump to the unread\narticle with the highest score (`,').") (type . group) (data "\n" ((header) (doc . "Name of SCORE file to customize.\n\nEnter the name in the `File' field, then push the [Load] button to\nload it. When done editing, push the [Save] button to save the file.\n\nSeveral score files may apply to each group, and several groups may\nuse the same score file. This is controlled implicitly by the name of\nthe score file and the value of the global variable\n`gnus-score-find-score-files-function', and explicitly by the the\n`Files' and `Exclude Files' entries.") (compact . t) (type . group) (data ((tag . "Load") (type . button) (query . gnus-score-custom-load)) ((tag . "Save") (type . button) (query . gnus-score-custom-save)) ((name . file) (tag . "File") (directory . gnus-kill-files-directory) (default-file . "SCORE") (type . file)))) ((name . files) (tag . "Files") (doc . "List of score files to load when the the current score file is loaded.\nYou can use this to share score entries between multiple score files.\n\nPush the `[INS]' button add a score file to the list, or `[DEL]' to\ndelete a score file from the list.") (type . list) (data ((type . repeat) (header) (data (type . file) (directory . gnus-kill-files-directory))))) ((name . exclude-files) (tag . "Exclude Files") (doc . "List of score files to exclude when the the current score file is loaded.\nYou can use this if you have a score file you want to share between a\nnumber of newsgroups, except for the newsgroup this score file\nmatches. [ Did anyone get that? ]\n\nPush the `[INS]' button add a score file to the list, or `[DEL]' to\ndelete a score file from the list.") (type . list) (data ((type . repeat) (header) (data (type . file) (directory . gnus-kill-files-directory))))) ((name . mark) (tag . "Mark") (doc . "Articles below this score will be automatically marked as read.\n\nThis means that when you enter the summary buffer, the articles will\nbe shown but will already be marked as read. You can then press `x'\nto get rid of them entirely.\n\nBy default articles with a negative score will be marked as read. To\nchange this, push the `Mark' button, and choose `Integer'. You can\nthen enter a value in the `Mark' field.") (type . gnus-score-custom-maybe-type)) ((name . expunge) (tag . "Expunge") (doc . "Articles below this score will not be shown in the summary buffer.") (type . gnus-score-custom-maybe-type)) ((name . mark-and-expunge) (tag . "Mark and Expunge") (doc . "Articles below this score will be marked as read, but not shown.\n\nSomeone should explain me the difference between this and `expunge'\nalone or combined with `mark'.") (type . gnus-score-custom-maybe-type)) ((name . eval) (tag . "Eval") (doc . "Evaluate this lisp expression when the entering summary buffer.") (type . sexp)) ((name . read-only) (tag . "Read Only") (doc . "Read-only score files will not be updated or saved.\nExcept from this buffer, of course!") (type . toggle)) ((type . doc) (doc . "Each news header has an associated list of score entries. \nYou can use the [INS] buttons to add new score entries anywhere in the\nlist, or the [DEL] buttons to delete specific score entries.\n\nEach score entry should specify a string that should be matched with\nthe content actual header in order to determine whether the entry\napplies to that header. Enter that string in the `Match' field.\n\nIf the score entry matches, the articles score will be adjusted with\nsome amount. Enter that amount in the in the `Score' field. You\nshould specify a positive amount for score entries that matches\narticles you find interesting, and a negative amount for score entries\nmatching articles you would rather avoid. The final score for the\narticle will be the sum of the score of all score entries that match\nthe article. \n\nThe score entry can be either permanent or expirable. To make the\nentry permanent, push the `Date' button and choose the `Permanent'\nentry. To make the entry expirable, choose instead the `Integer'\nentry. After choosing the you can enter the date the score entry was\nlast matched in the `Date' field. The date will be automatically\nupdated each time the score entry matches an article. When the date\nbecome too old, the the score entry will be removed.\n\nFor your convenience, the date is specified as the number of days\nelapsed since the (imaginary) Gregorian date Sunday, December 31, 1\nBC.\n\nFinally, you can choose what kind of match you want to perform by\npushing the `Type' button. For most entries you can choose between\n`Exact' which mean the header content must be exactly identical to the\nmatch string, or `Substring' meaning the match string should be\nsomewhere in the header content, or even `Regexp' to use Emacs regular\nexpression matching. The last choice is `Fuzzy' which is like `Exact'\nexcept that whitespace derivations, a beginning `Re:' or a terminating\nparenthetical remark are all ignored. Each of the four types have a\nvariant which will ignore case in the comparison. That variant is\nindicated with a `(fold)' after its name.")) ((name . from) (tag . "From") (doc . "Scoring based on the authors email address.") (type . gnus-score-custom-string-type)) ((name . subject) (tag . "Subject") (doc . "Scoring based on the articles subject.") (type . gnus-score-custom-string-type)) ((name . followup) (tag . "Followup") (doc . "Scoring based on who the article is a followup to.\n\nIf you want to see all followups to your own articles, add an entry\nwith a positive score matching your email address here. You can also\nput an entry with a negative score matching someone who is so annoying\nthat you don't even want to see him quoted in followups.") (type . gnus-score-custom-string-type)) ((name . xref) (tag . "Xref") (doc . "Scoring based on article crossposting.\n\nIf you want to score based on which newsgroups an article is posted\nto, this is the header to use. The syntax is a little different from\nthe `Newsgroups' header, but scoring in `Xref' is much faster. As an\nexample, to match all crossposted articles match on `:.*:' using the\n`Regexp' type.") (type . gnus-score-custom-string-type)) ((name . references) (tag . "References") (doc . "Scoring based on article references.\n\nThe `References' header gives you an alternative way to score on\nfollowups. If you for example want to see follow all discussions\nwhere people from `iesd.auc.dk' school participate, you can add a\nsubstring match on `iesd.auc.dk>' on this header.") (type . gnus-score-custom-string-type)) ((name . message-id) (tag . "Message-ID") (doc . "Scoring based on the articles message-id.\n\nThis isn't very useful, but Lars like completeness. You can use it to\nmatch all messaged generated by recent Gnus version with a `Substring'\nmatch on `.fsf@'.") (type . gnus-score-custom-string-type)) ((type . doc) (doc . "WARNING: Scoring on the following three pseudo headers is very slow!\nScoring on any of the real headers use a technique that avoids\nscanning the entire article, only the actual headers you score on are\nscanned, and this scanning has been heavily optimized. Using just a\nsingle entry for one the three pseudo-headers `Head', `Body', and\n`All' will require GNUS to retrieve and scan the entire article, which\ncan be very slow on large groups. However, if you add one entry for\nany of these headers, you can just as well add several. Each\nsubsequent entry cost relatively little extra time.")) ((name . head) (tag . "Head") (doc . "Scoring based on the article header.\n\nInstead of matching the content of a single header, the entire header\nsection of the article is matched. You can use this to match on\narbitrary headers, foe example to single out TIN lusers, use a substring\nmatch on `Newsreader: TIN'. That should get 'em!") (type . gnus-score-custom-string-type)) ((name . body) (tag . "Body") (doc . "Scoring based on the article body.\n\nIf you think any article that mentions `Kibo' is inherently\ninteresting, do a substring match on His name. You Are Allowed.") (type . gnus-score-custom-string-type)) ((name . all) (tag . "All") (doc . "Scoring based on the whole article.") (type . gnus-score-custom-string-type)) ((name . date) (tag . "Date") (doc . "Scoring based on article date.\n\nYou can change the score of articles that have been posted before,\nafter, or at a specific date. You should add the date in the `Match'\nfield, and then select `before', `after', or `at' by pushing the\n`Type' button. Imagine you want to lower the score of very old\narticles, or want to raise the score of articles from the future (such\nthings happen!). Then you can't use date scoring for that. In fact,\nI can't imagine anything you would want to use this for. \n\nFor your convenience, the date is specified in Usenet date format.") (type . gnus-score-custom-date-type)) ((type . doc) (doc . "The Lines and Chars headers use integer based scoring. \n\nThis means that you should write an integer in the `Match' field, and\nthe push the `Type' field to if the `Chars' or `Lines' header should\nbe larger, equal, or smaller than the number you wrote in the match\nfield.")) ((name . chars) (tag . "Characters") (doc . "Scoring based on the number of characters in the article.") (type . gnus-score-custom-integer-type)) ((name . lines) (tag . "Lines") (doc . "Scoring based on the number of lines in the article.") (type . gnus-score-custom-integer-type)) ((name . orphan) (tag . "Orphan") (doc . "Score to add to articles with no parents.") (type . gnus-score-custom-maybe-type)) ((name . adapt) (tag . "Adapt") (doc . "Adapting the score files to your newsreading habits.\n\nWhen you have finished reading a group GNUS can automatically create\nnew score entries based on which articles you read and which you\nskipped. This is normally controlled by the two global variables\n`gnus-use-adaptive-scoring' and `gnus-default-adaptive-score-alist',\nThe first determines whether adaptive scoring should be enabled or\nnot, while the second determines what score entries should be created.\n\nYou can overwrite the setting of `gnus-use-adaptive-scoring' by\nselecting `Enable' or `Disable' by pressing the `Adapt' button.\nSelecting `Custom' will allow you to specify the exact adaptation\nrules (overwriting `gnus-default-adaptive-score-alist').") (type . choice) (data ((tag . "Default") (default) (type . const)) ((tag . "Enable") (default . t) (type . const)) ((tag . "Disable") (default . ignore) (type . const)) ((tag . "Custom") (doc . "Customization of adaptive scoring.\n\nEach time you read an article it will be marked as read. Likewise, if\nyou delete it it will be marked as deleted, and if you tick it it will\nbe marked as ticked. When you leave a group, GNUS can automatically\ncreate score file entries based on these marks, so next time you enter\nthe group articles with subjects that you read last time have higher\nscore and articles with subjects that deleted will have lower score. \n\nBelow is a list of such marks. You can insert new marks to the list\nby pushing on one of the `[INS]' buttons in the left margin to create\na new entry and then pushing the `Mark' button to select the mark.\nFor each mark there is another list, this time of article headers,\nwhich determine how the mark should affect that header. The `[INS]'\nbuttons of this list are indented to indicate that the belong to the\nmark above. Push the `Header' button to choose a header, and then\nenter a score value in the `Score' field. \n\nFor each article that are marked with `Mark' when you leave the\ngroup, a temporary score entry for the articles `Header' with the\nvalue of `Score' will be added the adapt file. If the score entry\nalready exists, `Score' will be added to its value. If you understood\nthat, you are smart.\n\nYou can select the special value `Other' when pressing the `Mark' or\n`Header' buttons. This is because Lars might add more useful values\nthere. If he does, it is up to you to figure out what they are named.") (type . list) (default (__uninitialized__)) (data ((type . repeat) (header) (data (type . list) (header) (compact . t) (data ((type . choice) (tag . "Mark") (data ((tag . "Unread") (default . gnus-unread-mark) (type . const)) ((tag . "Ticked") (default . gnus-ticked-mark) (type . const)) ((tag . "Dormant") (default . gnus-dormant-mark) (type . const)) ((tag . "Deleted") (default . gnus-del-mark) (type . const)) ((tag . "Read") (default . gnus-read-mark) (type . const)) ((tag . "Expirable") (default . gnus-expirable-mark) (type . const)) ((tag . "Killed") (default . gnus-killed-mark) (type . const)) ((tag . "Kill-file") (default . gnus-kill-file-mark) (type . const)) ((tag . "Low-score") (default . gnus-low-score-mark) (type . const)) ((tag . "Catchup") (default . gnus-catchup-mark) (type . const)) ((tag . "Ancient") (default . gnus-ancient-mark) (type . const)) ((tag . "Canceled") (default . gnus-canceled-mark) (type . const)) ((prompt . "Other") (default . 63) (type . sexp)))) ((type . repeat) (prefix . " ") (data (type . list) (compact . t) (data ((tag . "Header") (type . choice) (data ((tag . "Subject") (default . subject) (type . const)) ((prompt . "From") (tag . "From ") (default . from) (type . const)) ((prompt . "Other") (width . 7) (default) (type . symbol)))) ((tag . "Score") (type . integer)))))))))))) ((name . local) (tag . "Local") (doc . "List of local variables to set when this score file is loaded.\n\nUsing this entry can provide a convenient way to set variables that\nwill affect the summary mode for only some specific groups, i.e. those\ngroups matched by the current score file.") (type . list) (data ((type . repeat) (header) (data (type . list) (compact . t) (data ((tag . "Name") (width . 26) (type . symbol)) ((tag . "Value") (width . 26) (type . sexp))))))))) gnus-score-custom-data current-load-list ((gnus-score-custom-maybe-type (type . choice) (data ((type . integer) (default . 0)) ((tag . "Default") (type . const) (default)))) (gnus-score-custom-string-type (type . list) (data ((type . repeat) (header) (data (type . list) (compact . t) (data ((tag . "Match") (width . 59) (type . string)) "\n " ((tag . "Score") (type . integer)) ((tag . "Date") (type . choice) (data ((type . integer) (default . 0) (width . 9)) ((tag . "Permanent") (type . const) (default)))) ((tag . "Type") (type . choice) (data ((tag . "Exact") (default . E) (type . const)) ((tag . "Substring") (default . S) (type . const)) ((tag . "Regexp") (default . R) (type . const)) ((tag . "Fuzzy") (default . F) (type . const)) ((tag . "Exact (fold)") (default . e) (type . const)) ((tag . "Substring (fold)") (default . s) (type . const)) ((tag . "Regexp (fold)") (default . r) (type . const)) ((tag . "Fuzzy (fold)") (default . f) (type . const))))))))) (gnus-score-custom-integer-type (type . list) (data ((type . repeat) (header) (data (type . list) (compact . t) (data ((tag . "Match") (type . integer)) ((tag . "Score") (type . integer)) ((tag . "Date") (type . choice) (data ((type . integer) (default . 0) (width . 9)) ((tag . "Permanent") (type . const) (default)))) ((tag . "Type") (type . choice) (data ((tag . "<") (default . <) (type . const)) ((tag . ">") (default . >) (type . const)) ((tag . "=") (default . =) (type . const)) ((tag . ">=") (default . >=) (type . const)) ((tag . "<=") (default . <=) (type . const))))))))) (gnus-score-custom-date-type (type . list) (data ((type . repeat) (header) (data (type . list) (compact . t) (data ((tag . "Match") (width . 59) (type . string)) "\n " ((tag . "Score") (type . integer)) ((tag . "Date") (type . choice) (data ((type . integer) (default . 0) (width . 9)) ((tag . "Permanent") (type . const) (default)))) ((tag . "Type") (type . choice) (data ((tag . "Before") (default . before) (type . const)) ((tag . "After") (default . after) (type . const)) ((tag . "At") (default . at) (type . const)))))))))) gnus-score-custom-type-properties] 2) #@38 Name of SCORE file being customized. (defvar gnus-score-custom-file nil (#$ . 16905)) #@47 Create a buffer for editing gnus SCORE files. (defalias 'gnus-score-customize #[nil "ÀÂÃ\f ÆÇÈ&ˆ)ÉÊ!ˆËÌ \"\nÉÁ!ˆÀÎ ‡" [nil gnus-score-alist custom-buffer-create "*Score Edit*" gnus-score-custom-data gnus-score-custom-type-properties gnus-score-custom-set gnus-score-custom-get gnus-score-custom-save make-local-variable gnus-score-custom-file expand-file-name "SCORE" gnus-kill-files-directory custom-reset-all] 7 (#$ . 16997) nil]) (defalias 'gnus-score-custom-get #[(name) "Á=ƒ\n‡ÃÄ! \"‰ƒÇÈA\"‚Aà \"É>„7Ê=ƒ=A@9„=A‚AA@)‡" [name file gnus-score-custom-file assoc symbol-name gnus-score-alist entry mapcar gnus-score-custom-sanify (files exclude-files local) adapt] 4]) (defalias 'gnus-score-custom-set #[(name value) "Á=ƒ\n\n‰‡ÄÅ!\"ƒ1\nƒ\"ÄÅ!\"\n¡‡ÇÄÅ!\"\"‰‡ÄÅ!\"ƒK\n…¤Å!\nBB‰‡Ä\"ƒ€\n„dÇÄ\"\"‰‡\n<ƒwÉ=„wÄ\"\n¡‡Ä\"\nC¡‡\n?†¤\n<ƒšÉ=„š\nBB‰‡\nCBB‰‡" [name file value gnus-score-custom-file assoc symbol-name gnus-score-alist delq gnus-header-index eval] 4]) (defalias 'gnus-score-custom-sanify #[(entry) "@A@† Â8Ã8„Ä‚.Ã8Å>ƒ$Ã8‚.ÆÇÃ8!ÈÉO!F‡" [entry gnus-score-interactive-default-score 2 3 s (before after at >= <=) intern symbol-name 0 1] 7]) (byte-code "ÀÁ!„ÂÁ B‡" [boundp gnus-score-cache nil current-load-list] 2) (defalias 'gnus-score-custom-load #[nil "ÀÁ!‰\n=ƒÃÄ!ˆÅ \"Ç !ˆ É ˆÊËÌ\")‡" [custom-name-value file custom-nil error "You must specify a file name" expand-file-name gnus-kill-files-directory gnus-score-load gnus-score-custom-file custom-reset-all gnus-message 4 "Loaded"] 4 nil nil]) (defalias 'gnus-score-custom-save #[nil "À ˆÁ\n!ˆ\n ÄŠÈÉ!qˆÊp!ˆË ˆÌp\"ˆÍÎ!!ˆÏedÄÐ%ˆÑp!ˆ,ÒÓÔ\"‡" [custom-apply-all gnus-score-remove-from-cache gnus-score-custom-file gnus-score-alist nil emacs-lisp-mode-hook score file get-buffer-create "*Score*" buffer-disable-undo erase-buffer pp gnus-make-directory file-name-directory write-region silent kill-buffer gnus-message 4 "Saved"] 6 nil nil]) (provide (quote gnus-edit))