Mercurial > hg > lib > markup

comparison emacs/my-news.el @ 1:f005daf4488a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
local changes since 2007
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Tue, 25 May 2021 13:58:37 -0400
parents
children
comparison
equal deleted inserted replaced
0:509549c55989 1:f005daf4488a
1 (load "gnus" nil t)
2 (setq gnus-nntp-server nil ; override local default
3 )
4
5 ;(gnus-server-deny-server "nntp:news") ; no news is good news :-)
6 (setq gnus-use-scoring nil ; not used yet
7 gnus-summary-gather-subject-limit nil
8 gnus-thread-sort-functions
9 '(gnus-thread-sort-by-number gnus-thread-sort-by-simpl-subject)
10 gnus-article-sort-functions
11 '(gnus-article-sort-by-number
12 gnus-article-sort-by-subject)
13 gnus-summary-line-format "%U%R%5N%I%(%[%4L: %-12,12A%]%) %s\n"
14 gnus-summary-make-false-root 'none
15 gnus-simplify-subject-regexp "^\\(re[:;.]\\| \\|fwd:\\)*")
16
17 (defsubst gnus-trim-simplify-subject (text)
18 (if (string-match gnus-simplify-subject-regexp text)
19 (substring text (match-end 0))
20 text))
21
22 (defun gnus-thread-sort-by-simpl-subject (h1 h2)
23 "sort by slightly simplified subject"
24 ; (message (format "%s:%s %s:%s" (mail-header-number (gnus-thread-header h1))(mail-header-subject (gnus-thread-header h1))(mail-header-number (gnus-thread-header h2))(mail-header-subject (gnus-thread-header h2))))
25 (let ((case-fold-search t))
26 (let ((result
27 (string-lessp
28 (downcase (gnus-trim-simplify-subject (mail-header-subject
29 (gnus-thread-header h1))))
30 (downcase (gnus-trim-simplify-subject (mail-header-subject
31 (gnus-thread-header h2)))))))
32 ; (message (format " %s\n" result))
33 result)))
34
35 (defun mark-and-mark (n)
36 (interactive "p")
37 (while (>= n 1)
38 (gnus-summary-mark-as-read)
39 (gnus-summary-mark-as-processable 1)
40 (setq n (- n 1))))
41
42 (provide 'my-news)