X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/a220fb5b7ed9e3cf55f0a85bbb11f0f264a0020b..5efecfcdab8520f5da50ddf14b7e6de2b4155d51:/.emacs.d/lisp/bandali-gnus.el diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el index d26e4f9..6c8998a 100644 --- a/.emacs.d/lisp/bandali-gnus.el +++ b/.emacs.d/lisp/bandali-gnus.el @@ -246,10 +246,10 @@ gnus-thread-sort-by-date)) ;; local key bindings (define-key gnus-summary-mode-map (kbd "M-L") #'org-store-link) - (define-key gnus-summary-mode-map (kbd "r") - #'gnus-summary-reply-with-original) - (define-key gnus-summary-mode-map (kbd "R") - #'gnus-summary-wide-reply-with-original) + ;; (define-key gnus-summary-mode-map (kbd "r") + ;; #'gnus-summary-reply-with-original) + ;; (define-key gnus-summary-mode-map (kbd "R") + ;; #'gnus-summary-wide-reply-with-original) (defvar b/gnus-summary-prefix-map) (define-prefix-command 'b/gnus-summary-prefix-map) (define-key gnus-summary-mode-map (kbd "v") @@ -282,8 +282,8 @@ jami:bandali") '((".*" (address "bandali@gnu.org") ("X-Message-SMTP-Method" "smtp fencepost.gnu.org 587")) - ("nnimap\\+gnu:l\\..*" - (signature nil)) + ;; ("nnimap\\+gnu:l\\..*" + ;; (signature nil)) ((header "subject" "ThankCRM") (to "webmasters-comment@gnu.org") (body "") @@ -345,11 +345,10 @@ jami:bandali") (with-eval-after-load 'gnus-dired (add-hook 'dired-mode-hook 'gnus-dired-mode)) -;; (with-eval-after-load 'gnus-utils -;; (csetq gnus-completing-read-function 'gnus-ido-completing-read)) - (with-eval-after-load 'mm-decode - (csetq mm-discouraged-alternatives '("text/html" "text/richtext") + (csetq ;; mm-attachment-override-types `("text/x-diff" "text/x-patch" + ;; ,@mm-attachment-override-types) + mm-discouraged-alternatives '("text/html" "text/richtext") mm-decrypt-option 'known mm-verify-option 'known)) @@ -363,11 +362,5 @@ jami:bandali") (csetq mml-secure-openpgp-encrypt-to-self t mml-secure-openpgp-sign-with-sender t)) -;; (require 'gnus-article-treat-patch) -;; ;; note: be sure to customize faces with `:foreground "white"' when -;; ;; using a theme with a white/light background :) -;; (setq ft/gnus-article-patch-conditions -;; '("^@@ -[0-9]+,[0-9]+ \\+[0-9]+,[0-9]+ @@")) - (provide 'bandali-gnus) ;;; bandali-gnus.el ends here