Lines Matching +refs:article +refs:date +refs:local
335 d: date
349 (const :tag "date" d)
362 b: before date
363 a: after date
364 n: this date
375 (const :tag "before date" b)
376 (const :tag "after date" a)
377 (const :tag "this date" n)
456 substring matching, SCORE is the score to add and DATE is the date
469 ("date" 3 gnus-score-date)
504 "Make a score entry based on the current article.
519 "Make a score entry based on the current article.
538 (?d "date" nil nil date)
548 (?b before "before date" date)
549 (?a after "after date" date)
550 (?n at "this date" date)
768 (let ((article (gnus-summary-article-number))
770 (if article
771 (if (and (setq headers (gnus-summary-article-header article))
780 (error "No article on current line")
800 (defun gnus-summary-score-entry (header match type score date
807 DATE is the expire date, or nil for no expire, or 'now for immediate expire.
826 (cond ((eq date 'now)
828 ((stringp date)
843 (unless (eq date 'now)
853 (and date (if (numberp date) date
854 (date-to-day date)))
858 (and date (if (numberp date) date
859 (date-to-day date)))
861 (date (list match score (date-to-day date)))
930 (defun gnus-summary-score-crossposting (score date)
933 ;; DATE is the expire date.
938 (error "This article is not crossposted"))
946 "xref" (concat " " group ":") nil score date t)))))
999 (defun gnus-score-followup-article (&optional score)
1000 "Add SCORE to all followups to the article in the current buffer."
1049 "Raise the score of the current article by N."
1051 (gnus-summary-set-score (+ (gnus-summary-article-score)
1055 "Set the score of the current article to N."
1066 (let* ((article (gnus-summary-article-number))
1067 (score (assq article gnus-newsgroup-scored)))
1069 (push (cons article n) gnus-newsgroup-scored)))
1073 "Return the score of the current article."
1075 (gnus-message 1 "%s" (gnus-summary-article-score)))
1098 (make-local-variable 'gnus-prev-winconf)
1116 (make-local-variable 'gnus-prev-winconf)
1210 (local (gnus-score-get 'local alist))
1242 (when local
1245 (while local
1246 (and (consp (car local))
1247 (symbolp (caar local))
1249 (make-local-variable (caar local))
1250 (set (caar local) (nth 1 (car local)))))
1251 (setq local (cdr local)))))
1360 (format "Non-integer date %s in %s" (caddr s) file))
1387 (date-to-day (nth 3 (car scor))))
1483 (now (date-to-day (current-time-string)))
1557 article in the tree, the score of the corresponding entry in
1565 (let* ((article (mail-header-number head))
1566 (score (assq article gnus-newsgroup-scored)))
1568 (push (cons article score-adjust) gnus-newsgroup-scored)))))
1573 A root is an article with no references. An orphan is an article
1575 root article. This function finds all the orphans, and adjusts their
1605 (date (nth 2 kill))
1627 ;; Update expire date
1628 (cond ((null date)) ;Permanent entry.
1629 ((and found gnus-update-score-entry-dates) ;Match, update date.
1632 ((and expire (< date expire)) ;Old entry, remove.
1639 (defun gnus-score-date (scores header now expire &optional trace)
1641 entries alist match match-func article)
1652 (date (nth 2 kill))
1659 match (gnus-date-iso8601 (nth 0 kill))))
1662 match (gnus-date-iso8601 (nth 0 kill))))
1665 match (gnus-date-iso8601 (nth 0 kill))))
1675 (while (setq article (pop articles))
1677 (setq l (aref (car article) gnus-score-index))
1678 (funcall match-func match (gnus-date-iso8601 l)))
1683 (setcdr article (+ score (cdr article)))))
1684 ;; Update expire date
1685 (cond ((null date)) ;Permanent entry.
1686 ((and found gnus-update-score-entry-dates) ;Match, update date.
1689 ((and expire (< date expire)) ;Old entry, remove.
1714 (t 'gnus-request-article)))
1715 entries alist ofunc article last)
1719 ;; we just fetch the entire article.
1726 (setq request-func 'gnus-request-article))
1728 (setq article (mail-header-number (caar articles)))
1729 (gnus-message 7 "Scoring article %s of %s..." article last)
1731 (when (funcall request-func article gnus-newsgroup-name)
1733 ;; If just parts of the article is to be searched, but the
1756 (date (nth 2 kill))
1780 ;; Update expire date
1783 ((null date)) ;Permanent entry.
1785 ;; Match, update date.
1788 ((and expire (< date expire)) ;Old entry, remove.
1803 ;; Insert the unique article headers in the buffer.
1851 (date (nth 2 kill))
1893 ;; Update expire date
1894 (cond ((null date)) ;Permanent entry.
1896 ;Match, update date.
1899 ((and expire (< date expire)) ;Old entry, remove.
1934 ;; Insert the unique article headers in the buffer.
1994 (date (nth 2 kill))
2052 ;; Update expiry date
2057 ((null date)
2059 ;; We have a match, so we update the date.
2065 ((and expire (< date expire))
2090 ;; Update expiry date
2095 ((null date)
2097 ;; We have a match, so we update the date.
2103 ((and expire (< date expire))
2118 (date (nth 2 kill))
2139 ;; Update expiry date
2143 ((null date)
2146 ;; Match, update date.
2151 ((and expire (< date expire))
2163 (date (nth 2 kill))
2178 ;; Update expiry date
2182 ((null date)
2185 ;; Match, update date.
2190 ((and expire (< date expire))
2255 (date (current-time-string))
2297 ((equal (nth 1 (car elem)) "date")
2307 (nth 2 (car elem)) date nil t)
2316 (date (date-to-day (current-time-string)))
2331 ;; This article has a mark that should lead to
2369 date nil t)))
2381 "Find all score rules that applies to the current article."
2385 (list (gnus-summary-article-header)))
2397 1 "No score rules apply to the current article (default score %d)."
2401 (local-set-key "q"
2406 (local-set-key "e" (lambda ()
2410 (local-set-key "f" (lambda ()
2414 (local-set-key "t" 'toggle-truncate-lines)
2514 (let ((subject (gnus-summary-article-subject)))
2518 (gnus-summary-next-article t)))
2523 (let ((subject (gnus-summary-article-subject)))
2711 ;; the local score file, whether it exists or not. This is so