.emacs-my
changeset 788 b7b60066599e
parent 787 fc00f202c3e3
child 789 6daf35744ad3
equal deleted inserted replaced
787:fc00f202c3e3 788:b7b60066599e
  1249    ))
  1249    ))
  1250 
  1250 
  1251 (setq gnus-article-time-format "%Y-%m-%d %T%z %a")
  1251 (setq gnus-article-time-format "%Y-%m-%d %T%z %a")
  1252 (setq gnus-article-date-headers '(combined-lapsed user-defined))
  1252 (setq gnus-article-date-headers '(combined-lapsed user-defined))
  1253 
  1253 
  1254 ;; Scoring, adaptive score.
       
  1255 (setq
  1254 (setq
  1256  gnus-show-threads t
  1255  gnus-show-threads t
  1257  gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
  1256  gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
       
  1257  )
       
  1258 
       
  1259 ;; Scoring, adaptive score.
       
  1260 (setq
  1258  gnus-use-adaptive-scoring t
  1261  gnus-use-adaptive-scoring t
       
  1262  gnus-score-expiry-days 60
       
  1263  gnus-decay-scores t
       
  1264  gnus-default-adaptive-score-alist
       
  1265  '(
       
  1266    (gnus-unread-mark)
       
  1267    (gnus-ticked-mark (subject 5))
       
  1268    (gnus-dormant-mark (subject 5))
       
  1269    (gnus-del-mark (from -2) (subject -5))
       
  1270    (gnus-read-mark (from 2) (subject 1))
       
  1271    (gnus-killed-mark (subject -5))
       
  1272    (gnus-catchup-mark (subject -1))
       
  1273    (gnus-kill-file-mark (from -9999))
       
  1274    )
  1259  )
  1275  )
  1260 (setq gnus-default-adaptive-score-alist
       
  1261       '(
       
  1262         (gnus-unread-mark)
       
  1263         (gnus-ticked-mark (subject 5))
       
  1264         (gnus-dormant-mark (subject 5))
       
  1265         (gnus-del-mark (subject -1))
       
  1266         (gnus-killed-mark (subject -5))
       
  1267         (gnus-catchup-mark (subject -1))
       
  1268         ))
       
  1269 
  1276 
  1270 ;; (setq imap-log t)
  1277 ;; (setq imap-log t)
  1271 
  1278 
  1272 ;; (setq mail-user-agent 'mh-e-user-agent)
  1279 ;; (setq mail-user-agent 'mh-e-user-agent)
  1273 
  1280