.emacs-my
changeset 785 7956c2497dda
parent 784 982eee9d0366
child 786 496791c4fe36
equal deleted inserted replaced
784:982eee9d0366 785:7956c2497dda
  1245 (setq gnus-article-date-headers '(combined-lapsed user-defined))
  1245 (setq gnus-article-date-headers '(combined-lapsed user-defined))
  1246 
  1246 
  1247 ;; Scoring, adaptive score.
  1247 ;; Scoring, adaptive score.
  1248 (setq
  1248 (setq
  1249  gnus-show-threads t
  1249  gnus-show-threads t
  1250  gnus-thread-sort-functions 'gnus-thread-sort-by-total-score
  1250  gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
  1251  gnus-use-adaptive-scoring t
  1251  gnus-use-adaptive-scoring t
  1252  )
  1252  )
  1253 (setq gnus-default-adaptive-score-alist
  1253 (setq gnus-default-adaptive-score-alist
  1254       '(
  1254       '(
  1255         (gnus-unread-mark)
  1255         (gnus-unread-mark)
  1257         (gnus-dormant-mark (subject 5))
  1257         (gnus-dormant-mark (subject 5))
  1258         (gnus-del-mark (subject -1))
  1258         (gnus-del-mark (subject -1))
  1259         (gnus-killed-mark (subject -5))
  1259         (gnus-killed-mark (subject -5))
  1260         (gnus-catchup-mark (subject -1))
  1260         (gnus-catchup-mark (subject -1))
  1261         ))
  1261         ))
       
  1262 
       
  1263 ;; (setq imap-log t)
  1262 
  1264 
  1263 ;; (setq mail-user-agent 'mh-e-user-agent)
  1265 ;; (setq mail-user-agent 'mh-e-user-agent)
  1264 
  1266 
  1265 ;; (add-hook 'message-sent-hook 'gnus-score-followup-thread)
  1267 ;; (add-hook 'message-sent-hook 'gnus-score-followup-thread)
  1266 ;; `gnus-score-followup-thread'
  1268 ;; `gnus-score-followup-thread'