emacs: some mm-related gnus tweaks and custom-file updates

diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el
index bc35784..a79127b 100644 (file)
--- a/.emacs.d/etc/custom.el
+++ b/.emacs.d/etc/custom.el
@@ -9,8 +9,29 @@
  '(company-dabbrev-ignore-case nil)
  '(company-minimum-prefix-length 1)
  '(company-selection-wrap-around t)
  '(company-dabbrev-ignore-case nil)
  '(company-minimum-prefix-length 1)
  '(company-selection-wrap-around t)

+ '(ebdb-gnus-window-configuration
+   '(article
+     (vertical 1.0
+               (summary 0.25 point)
+               (horizontal 1.0
+                           (article 1.0)
+                           (ebdb-gnus 0.3)))))

  '(ediff-split-window-function 'split-window-horizontally t)
  '(ediff-window-setup-function 'ediff-setup-windows-plain t)
  '(ediff-split-window-function 'split-window-horizontally t)
  '(ediff-window-setup-function 'ediff-setup-windows-plain t)

+ '(erc-fill-function 'erc-fill-static)
+ '(erc-fill-static-center 18)
+ '(erc-join-buffer 'bury)
+ '(erc-lurker-hide-list '("JOIN" "PART" "QUIT"))
+ '(erc-nick "bandali")
+ '(erc-pcomplete-nick-postfix ",")
+ '(erc-rename-buffers t)
+ '(erc-server-reconnect-attempts 5)
+ '(erc-server-reconnect-timeout 3)
+ '(erc-track-enable-keybindings nil)
+ '(erc-track-exclude-types
+   '("JOIN" "MODE" "NICK" "PART" "QUIT" "324" "329" "332" "333" "353" "477"))
+ '(erc-track-priority-faces-only 'all)
+ '(erc-track-shorten-function nil)

  '(eshell-hist-ignoredups t)
  '(eshell-input-filter 'eshell-input-filter-initial-space)
  '(flycheck-mode-line-prefix "flyc")
  '(eshell-hist-ignoredups t)
  '(eshell-input-filter 'eshell-input-filter-initial-space)
  '(flycheck-mode-line-prefix "flyc")


@@ -72,10 +93,23 @@
        (mode . erc-mode)))))
  '(ls-lisp-dirs-first t)
  '(magit-display-buffer-function 'magit-display-buffer-fullframe-status-v1)
        (mode . erc-mode)))))
  '(ls-lisp-dirs-first t)
  '(magit-display-buffer-function 'magit-display-buffer-fullframe-status-v1)

+ '(mml-secure-key-preferences
+   '((OpenPGP
+      (sign)
+      (encrypt
+       ("ineiev@gnu.org" "BD9D4DEE7B2FF1CBEF2EE0C4E0ACD3E0CBE7874A")))
+     (CMS
+      (sign)
+      (encrypt))))
+ '(mml-secure-openpgp-encrypt-to-self t)
+ '(mml-secure-openpgp-sign-with-sender t)

  '(org-agenda-files
    '("~/usr/org/todos/personal.org" "~/usr/org/todos/masters.org"))
  '(org-agenda-files
    '("~/usr/org/todos/personal.org" "~/usr/org/todos/masters.org"))

- '(org-agenda-start-on-weekday 0 t)
+ '(org-agenda-start-on-weekday 0)

  '(org-latex-packages-alist '(("" "listings") ("" "color")))
  '(org-latex-packages-alist '(("" "listings") ("" "color")))

+ '(page-break-lines-max-width 70)
+ '(projectile-completion-system 'ivy)
+ '(projectile-mode-line-prefix " proj")

  '(safe-local-variable-values
    '((eval modify-syntax-entry 43 "'")
      (eval modify-syntax-entry 36 "'")
  '(safe-local-variable-values
    '((eval modify-syntax-entry 43 "'")
      (eval modify-syntax-entry 36 "'")


@@ -88,6 +122,7 @@
      (eval add-hook 'after-save-hook 'org-beamer-export-to-latex t t)
      (eval setq org-latex-prefer-user-labels t)
      (eval add-hook 'after-save-hook 'org-latex-export-to-latex t t)))
      (eval add-hook 'after-save-hook 'org-beamer-export-to-latex t t)
      (eval setq org-latex-prefer-user-labels t)
      (eval add-hook 'after-save-hook 'org-latex-export-to-latex t t)))

+ '(unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$"))

  '(which-key-add-column-padding 5)
  '(which-key-max-description-length 32))
 (custom-set-faces
  '(which-key-add-column-padding 5)
  '(which-key-max-description-length 32))
 (custom-set-faces

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index f5e87ec..30f9ecc 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1875,6 +1875,7 @@ For disabling the behaviour for certain buffers and/or modes."
 (use-feature gnus-art
   :config
   (setq
 (use-feature gnus-art
   :config
   (setq

+   gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)")

    gnus-visible-headers
    (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
    gnus-sorted-header-list
    gnus-visible-headers
    (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
    gnus-sorted-header-list


@@ -1978,7 +1979,9 @@ https://shemshak.org/~amin/")
 
 (use-feature mm-decode
   :config
 
 (use-feature mm-decode
   :config

-  (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
+  (setq mm-discouraged-alternatives '("text/html" "text/richtext")
+        mm-decrypt-option 'known
+        mm-verify-option 'known))

 
 (use-feature sendmail
   :config
 
 (use-feature sendmail
   :config