1811 "subject" subj |
1811 "subject" subj |
1812 's (- gnus-score-interactive-default-score) (current-time-string))))) |
1812 's (- gnus-score-interactive-default-score) (current-time-string))))) |
1813 (gnus-summary-kill-same-subject unmark)) |
1813 (gnus-summary-kill-same-subject unmark)) |
1814 (eval-after-load 'gnus-sum |
1814 (eval-after-load 'gnus-sum |
1815 '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) |
1815 '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) |
|
1816 |
|
1817 (defun my-gnus.mark-thread-as-read () |
|
1818 "Mark unmarked articles in current thread as read and move to |
|
1819 next thread without selecting article." |
|
1820 (interactive) |
|
1821 (gnus-summary-top-thread) |
|
1822 (catch 'exit |
|
1823 (while t |
|
1824 (when (eq (gnus-summary-article-mark (gnus-summary-article-number)) gnus-unread-mark) |
|
1825 (gnus-summary-mark-article (gnus-summary-article-number) gnus-del-mark)) |
|
1826 (when (or (not (gnus-summary-search-forward)) (eq (gnus-summary-thread-level) 0)) |
|
1827 (throw 'exit nil)) ))) |
|
1828 (eval-after-load 'gnus-sum |
|
1829 '(define-key gnus-summary-mode-map (kbd "H-k") #'my-gnus.mark-thread-as-read)) |
1816 |
1830 |
1817 (defun my-gnus-thread-score-function (&rest scores) |
1831 (defun my-gnus-thread-score-function (&rest scores) |
1818 "If any followup have positive score assign greater available |
1832 "If any followup have positive score assign greater available |
1819 score to thread, else assign lesser available score." |
1833 score to thread, else assign lesser available score." |
1820 (let ( (max (apply 'max scores)) (min (apply 'min scores)) ) |
1834 (let ( (max (apply 'max scores)) (min (apply 'min scores)) ) |