.emacs-my
changeset 824 0e9a1d493295
parent 823 c1c5a6b3255a
parent 821 e385d1d48a8d
child 825 92790cbc5fd2
equal deleted inserted replaced
823:c1c5a6b3255a 824:0e9a1d493295
  1262 ;; (setq gnus-spam-process-newsgroups
  1262 ;; (setq gnus-spam-process-newsgroups
  1263 ;;       '(("^gmane\\."
  1263 ;;       '(("^gmane\\."
  1264 ;;          ((spam spam-use-gmane)))))
  1264 ;;          ((spam spam-use-gmane)))))
  1265 
  1265 
  1266 (setq
  1266 (setq
  1267  gnus-novice-user t
  1267  gnus-novice-user nil
  1268  gnus-expert-user nil
  1268  gnus-expert-user nil
  1269  gnus-interactive-catchup t
  1269  gnus-interactive-catchup t
  1270  gnus-interactive-exit t
  1270  gnus-interactive-exit t
  1271  )
  1271  )
  1272 
  1272 
  1341  gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
  1341  gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
  1342  )
  1342  )
  1343 
  1343 
  1344 ;; Scoring, adaptive score.
  1344 ;; Scoring, adaptive score.
  1345 (setq
  1345 (setq
       
  1346  gnus-use-scoring t
       
  1347  gnus-save-score t
  1346  gnus-use-adaptive-scoring t
  1348  gnus-use-adaptive-scoring t
  1347  gnus-score-expiry-days 60
  1349  gnus-score-expiry-days 60
  1348  gnus-decay-scores t
  1350  gnus-decay-scores t
  1349  gnus-default-adaptive-score-alist
  1351  gnus-default-adaptive-score-alist
  1350  '(
  1352  '(
  1357    (gnus-catchup-mark (subject -1))
  1359    (gnus-catchup-mark (subject -1))
  1358    (gnus-kill-file-mark (from -9999))
  1360    (gnus-kill-file-mark (from -9999))
  1359    )
  1361    )
  1360  )
  1362  )
  1361 ;; Increase the score for followups to a sent article.
  1363 ;; Increase the score for followups to a sent article.
  1362 ;; (add-hook 'message-sent-hook 'gnus-score-followup-article)
  1364 (eval-after-load 'gnus-score
  1363 ;; (add-hook 'message-sent-hook 'gnus-score-followup-thread)
  1365   '(progn
       
  1366      (add-hook 'message-sent-hook 'gnus-score-followup-article)
       
  1367      (add-hook 'message-sent-hook 'gnus-score-followup-thread)
       
  1368      ))
  1364 
  1369 
  1365 ;; (setq gnus-home-score-file
  1370 ;; (setq gnus-home-score-file
  1366 ;;       ;; All groups that match the regexp `"\\.emacs"'
  1371 ;;       ;; All groups that match the regexp `"\\.emacs"'
  1367 ;;       '(("\\.emacs" "emacs.SCORE")
  1372 ;;       '(("\\.emacs" "emacs.SCORE")
  1368 ;;         ;; All the comp groups in one score file
  1373 ;;         ;; All the comp groups in one score file
  1369 ;;         ("^comp" "comp.SCORE")))
  1374 ;;         ("^comp" "comp.SCORE")))
  1370 
  1375 
  1371 ;; (setq imap-log t)
  1376 ;; (setq imap-log t)
  1372 
  1377 
  1373 ;; (setq mail-user-agent 'mh-e-user-agent)
  1378 ;; (setq mail-user-agent 'mh-e-user-agent)
  1374 
       
  1375 ;; `gnus-score-followup-thread'
       
  1376 ;; `gnus-score-followup-article'
       
  1377 
  1379 
  1378 (custom-set-faces '(gnus-summary-cancelled ((t (:foreground "plum" :background nil)))) )
  1380 (custom-set-faces '(gnus-summary-cancelled ((t (:foreground "plum" :background nil)))) )
  1379 
  1381 
  1380 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1382 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1381 (message "bbdb")
  1383 (message "bbdb")