• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.10.1/emacs-93/emacs/lisp/gnus/

Lines Matching +defs:all +defs:headers

49 \"/ftp.gnus.org@ftp:/pub/larsi/ding/score/soc.motss.SCORE\" and all
120 \"all.SCORE\"."
164 "*Decay all \"small\" scores with this amount."
169 "*Decay all \"big\" scores with this factor."
263 "but" "by" "at" "an" "will" "no" "all" "was" "do" "there" "my" "one"
419 (defvar gnus-score-use-all-scores t
478 ("all" -1 gnus-score-body)
507 used as score. A symbolic prefix of `a' says to use the `all.SCORE'
522 used as score. A symbolic prefix of `a' says to use the `all.SCORE'
660 (and gnus-extra-headers
664 (symbol-name (car gnus-extra-headers)) ; default response
668 gnus-extra-headers)
673 ;; We have all the data, so we enter this score.
689 ;; Change score file to the "all.SCORE" file.
702 (gnus-score-file-name "all"))))))
769 headers)
771 (if (and (setq headers (gnus-summary-article-header article))
772 (vectorp headers))
774 (or (cdr (assq extra (mail-header-extra headers))) "")
775 (aref headers (nth 1 (assoc header gnus-header-index))))
968 "Update all lines in the summary buffer."
975 (defun gnus-score-update-all-lines ()
976 "Update all lines in the summary buffer, even the hidden ones."
1000 "Add SCORE to all followups to the article in the current buffer."
1006 (message-narrow-to-headers)
1015 "Add SCORE to all later articles in the thread the current buffer is part of."
1186 ;; Downcase all header names.
1398 ;; Save all score information.
1444 "Load all score files in SCORE-FILES."
1467 (defun gnus-score-headers (score-files &optional trace)
1468 ;; Score `gnus-newsgroup-headers'.
1486 (headers gnus-newsgroup-headers)
1491 (while (setq header (pop headers))
1493 ;; be written as O(N+S), where N is (length gnus-newsgroup-headers)
1575 root article. This function finds all the orphans, and adjusts their
1612 ;; Instead of doing all the clever stuff that
1670 ;; Instead of doing all the clever stuff that
1709 (all-scores scores)
1718 ;; Not all backends support partial fetching. In that case,
1744 (setq scores all-scores)
1803 ;; Insert the unique article headers in the buffer.
1806 (all-scores scores)
1877 (car art) score all-scores thread))))
1891 (car art) score all-scores thread))
1934 ;; Insert the unique article headers in the buffer.
1945 ;; and U is the number of unique headers. It is assumed (but
1949 ;; We cannot string-sort the extra headers list. *sigh*
1959 ;; If we're working with non-standard headers, we are stuck
1969 ;; headers.
1983 ;; Go through all the score alists and pick out the entries
2012 ;; Evil hackery to make match usable in non-standard headers.
2157 ;; Enter all words into the hashtb.
2197 ;; Find all the words in the buffer and enter them into
2216 ;; Make all the ignorable words ignored.
2227 ;; Compare headers in articles A2 and A2.
2257 elem headers match func)
2289 (when (setq headers (gnus-data-header (car data)))
2291 (setq match (funcall (caar elem) headers))
2323 ;; Go through all articles.
2333 ;; and find all words in that string.
2351 ;; Make all the ignorable words ignored.
2361 ;; Now we have all the words and scores, so we
2381 "Find all score rules that applies to the current article."
2384 (let ((gnus-newsgroup-headers
2394 (gnus-possibly-score-headers 'trace)
2446 (let ((alists (gnus-score-load-files (gnus-all-score-files)))
2448 ;; Go through all the score alists for this group
2449 ;; and find all `w' rules.
2486 (gnus-possibly-score-headers)
2487 (gnus-score-update-all-lines))
2503 "Clear all internal score variables."
2570 "Return a list of all possible score files."
2588 (gnus-message 6 "Finding all score files...")
2592 (gnus-message 6 "Finding all score files...done")))))
2607 "Return all possible score files under DIR."
2631 "Return a regexp that match all score files."
2651 ;; Go through all score file names and create regexp with them
2686 ;; Translate "all" to ".*".
2688 (while (search-forward "all" nil t)
2726 This includes the score file for the group and all its parents."
2728 (all (list nil))
2733 (push (substring group 0 start) all))
2734 (push group all)
2735 (setq all
2739 (setq all (nreverse all)))
2740 (mapcar 'gnus-score-file-name all)))
2742 all
2748 all))))
2769 (setq elems (delete "all" elems))
2814 (defun gnus-all-score-files (&optional group)
2815 "Return a list of all score files for the current group."
2824 (when gnus-score-use-all-scores
2838 ;; Go through all the functions for finding score files (or actual
2846 (when gnus-score-use-all-scores
2855 ;; Expand all files names.
2875 (defun gnus-possibly-score-headers (&optional trace)
2877 (let ((score-files (gnus-all-score-files)))
2879 (gnus-score-headers score-files trace))))
2902 "Scan all global score directories for score files."
2903 ;; Set the variable `gnus-internal-global-score-files' to all