.emacs-my
changeset 909 14efc19ada1c
parent 908 e3b3e9f4d759
child 910 c6b4be8608b3
equal deleted inserted replaced
908:e3b3e9f4d759 909:14efc19ada1c
  1468 
  1468 
  1469 ;; gnus-summary-mark-below gnus-summary-default-score gnus-summary-default-high-score gnus-summary-default-low-score
  1469 ;; gnus-summary-mark-below gnus-summary-default-score gnus-summary-default-high-score gnus-summary-default-low-score
  1470 
  1470 
  1471 ;; Scoring.
  1471 ;; Scoring.
  1472 (setq
  1472 (setq
  1473  gnus-score-interactive-default-score 50
       
  1474  gnus-summary-mark-below 0
       
  1475  gnus-summary-expunge-below -40
       
  1476  gnus-thread-expunge-below -40)
       
  1477 
       
  1478 (setq
       
  1479  gnus-use-scoring t
  1473  gnus-use-scoring t
  1480  gnus-save-score t
  1474  gnus-save-score t
  1481  gnus-score-expiry-days 60
  1475  gnus-score-expiry-days 60
  1482  gnus-decay-scores t
  1476  gnus-decay-scores t
  1483  gnus-score-decay-constant 3
  1477  gnus-score-decay-constant 3
  1484  )
  1478  )
       
  1479 
       
  1480 (setq
       
  1481  gnus-score-interactive-default-score 100
       
  1482  gnus-summary-mark-below 0
       
  1483  gnus-summary-expunge-below -40
       
  1484  gnus-thread-expunge-below -40)
  1485 
  1485 
  1486 (setq gnus-use-adaptive-scoring t)
  1486 (setq gnus-use-adaptive-scoring t)
  1487 (setq gnus-default-adaptive-score-alist
  1487 (setq gnus-default-adaptive-score-alist
  1488       '(
  1488       '(
  1489         (gnus-unread-mark)
  1489         (gnus-unread-mark)
  1498       )
  1498       )
  1499 
  1499 
  1500 ;; Increase the score for followups to a sent article.
  1500 ;; Increase the score for followups to a sent article.
  1501 (eval-after-load 'gnus-score
  1501 (eval-after-load 'gnus-score
  1502   '(progn
  1502   '(progn
  1503      (add-hook 'message-sent-hook 'gnus-score-followup-article)
  1503      ;; (add-hook 'message-sent-hook 'gnus-score-followup-article)
  1504      (add-hook 'message-sent-hook 'gnus-score-followup-thread)
  1504      (add-hook 'message-sent-hook 'gnus-score-followup-thread)
  1505      ))
  1505      ))
  1506 
  1506 
  1507 ;; Especially highlight my message and replays to me.
  1507 ;; Especially highlight my message and replays to me.
  1508 (eval-after-load 'gnus-sum
  1508 (eval-after-load 'gnus-sum