[Gnus] Some cleaning up
This commit is contained in:
parent
2a4302c883
commit
9e8649247d
48
gnus.el
48
gnus.el
|
@ -116,6 +116,7 @@ parameters for one particular email address."
|
||||||
mail-sources '((file))
|
mail-sources '((file))
|
||||||
mail-source-delete-incoming t
|
mail-source-delete-incoming t
|
||||||
nntp-nov-is-evil t
|
nntp-nov-is-evil t
|
||||||
|
nntp-connection-timeout nil
|
||||||
gnus-asynchronous t
|
gnus-asynchronous t
|
||||||
gnus-save-killed-list nil
|
gnus-save-killed-list nil
|
||||||
gnus-save-newsrc-file nil
|
gnus-save-newsrc-file nil
|
||||||
|
@ -125,7 +126,7 @@ parameters for one particular email address."
|
||||||
gnus-read-active-file 'some
|
gnus-read-active-file 'some
|
||||||
gnus-build-sparse-threads 'some
|
gnus-build-sparse-threads 'some
|
||||||
gnus-subscribe-newsgroup-method 'gnus-subscribe-killed
|
gnus-subscribe-newsgroup-method 'gnus-subscribe-killed
|
||||||
gnus-group-list-inactive-groups nil
|
gnus-group-list-inactive-groups t
|
||||||
gnus-suppress-duplicates nil
|
gnus-suppress-duplicates nil
|
||||||
gnus-large-newsgroup 200
|
gnus-large-newsgroup 200
|
||||||
nnmail-expiry-wait 7
|
nnmail-expiry-wait 7
|
||||||
|
@ -297,12 +298,6 @@ parameters for one particular email address."
|
||||||
|
|
||||||
;;; MIME
|
;;; MIME
|
||||||
|
|
||||||
(use-package dash
|
|
||||||
:demand t
|
|
||||||
:ensure t)
|
|
||||||
|
|
||||||
(add-to-list 'gnus-boring-article-headers 'long-to)
|
|
||||||
|
|
||||||
(setq gnus-ignored-mime-types '("text/x-vcard")
|
(setq gnus-ignored-mime-types '("text/x-vcard")
|
||||||
mm-discouraged-alternatives '("text/richtext" "text/html")
|
mm-discouraged-alternatives '("text/richtext" "text/html")
|
||||||
mm-automatic-display (-difference mm-automatic-display
|
mm-automatic-display (-difference mm-automatic-display
|
||||||
|
@ -417,8 +412,8 @@ METHOD specifies the encrypt method used. Can be either
|
||||||
(add-hook 'gnus-message-setup-hook
|
(add-hook 'gnus-message-setup-hook
|
||||||
#'db/signencrypt-message-when-possible)
|
#'db/signencrypt-message-when-possible)
|
||||||
|
|
||||||
|
;; Fix: mm-view does not seem to support verifying S/MIME messages using gpgsm,
|
||||||
;; Fix
|
;; so we add a simple fix here
|
||||||
|
|
||||||
(defun mm-view-pkcs7-verify (handle)
|
(defun mm-view-pkcs7-verify (handle)
|
||||||
(let ((verified nil))
|
(let ((verified nil))
|
||||||
|
@ -454,30 +449,17 @@ METHOD specifies the encrypt method used. Can be either
|
||||||
|
|
||||||
;;; Custom commands
|
;;; Custom commands
|
||||||
|
|
||||||
|
;; Visit group under point and immediately close it; this updates gnus’ registry
|
||||||
|
;; as a side-effect
|
||||||
(bind-key "v u"
|
(bind-key "v u"
|
||||||
'(lambda ()
|
'(lambda ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(save-mark-and-excursion
|
(save-mark-and-excursion
|
||||||
(when (gnus-topic-select-group)
|
(when (gnus-topic-select-group)
|
||||||
(gnus-summary-exit))))
|
(gnus-summary-exit))))
|
||||||
gnus-group-mode-map)
|
gnus-group-mode-map)
|
||||||
|
|
||||||
(bind-key "v j"
|
|
||||||
'(lambda ()
|
|
||||||
(interactive)
|
|
||||||
(gnus-agent-toggle-plugged nil)
|
|
||||||
(gnus-agent-toggle-plugged t)
|
|
||||||
(gnus-group-get-new-news 3))
|
|
||||||
gnus-group-mode-map)
|
|
||||||
|
|
||||||
(add-hook 'gnus-get-new-news-hook
|
|
||||||
(lambda ()
|
|
||||||
(when gnus-plugged
|
|
||||||
(gnus-agent-toggle-plugged nil)
|
|
||||||
(gnus-agent-toggle-plugged t))))
|
|
||||||
|
|
||||||
;; (bind-key "v g" #'db/get-mail gnus-group-mode-map)
|
|
||||||
|
|
||||||
|
;; Toggle visibility of News group
|
||||||
(bind-key "v c"
|
(bind-key "v c"
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(interactive)
|
(interactive)
|
||||||
|
@ -516,11 +498,6 @@ METHOD specifies the encrypt method used. Can be either
|
||||||
(with-current-buffer "*Shell Command Output*"
|
(with-current-buffer "*Shell Command Output*"
|
||||||
(kill-ring-save (point-min) (point-max)))))
|
(kill-ring-save (point-min) (point-max)))))
|
||||||
|
|
||||||
|
|
||||||
;;; Timeout for fetching news
|
|
||||||
|
|
||||||
(setq nntp-connection-timeout nil)
|
|
||||||
|
|
||||||
|
|
||||||
;;; Daemons
|
;;; Daemons
|
||||||
|
|
||||||
|
@ -541,7 +518,6 @@ METHOD specifies the encrypt method used. Can be either
|
||||||
(gnus-group-get-new-news level))))
|
(gnus-group-get-new-news level))))
|
||||||
(set-window-configuration win)))))
|
(set-window-configuration win)))))
|
||||||
|
|
||||||
(gnus-demon-add-handler 'gnus-demon-close-connections nil 10)
|
|
||||||
(gnus-demon-add-handler 'db/gnus-demon-scan-news-on-level-2 5 5)
|
(gnus-demon-add-handler 'db/gnus-demon-scan-news-on-level-2 5 5)
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue