exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: exot:6279921553f434018045c103a7dc8fe79e500cbe
Branches Tags
exot:master
..
compare: exot:b9fde435a7287c22c785e7bec2f55c29b4408f69
Branches Tags
exot:master

No commits in common. "6279921553f434018045c103a7dc8fe79e500cbe" and "b9fde435a7287c22c785e7bec2f55c29b4408f69" have entirely different histories.
6279921553 ... b9fde435a7

1 changed files with 9 additions and 10 deletions
Show Stats Expand all files Collapse all files

19
init.el
View File

@ -49,6 +49,12 @@
;; * Packages ;; * Packages
(setq package-archives
'(("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")
("melpa-stable" . "https://stable.melpa.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(defvar use-package-enable-imenu-support t) (defvar use-package-enable-imenu-support t)
(require 'use-package) (require 'use-package)
@ -63,15 +69,8 @@
use-package-compute-statistics t use-package-compute-statistics t
debug-on-error t)) debug-on-error t))
(use-package package (add-to-list 'package-pinned-packages '(use-package . "melpa-stable"))
:init (setq package-archives (add-to-list 'package-pinned-packages '(bind-key . "melpa-stable"))
'(("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")
("melpa-stable" . "https://stable.melpa.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
:config (progn
(add-to-list 'package-pinned-packages '(use-package . "melpa-stable"))
(add-to-list 'package-pinned-packages '(bind-key . "melpa-stable"))))
;; * Personal Customization Variables ;; * Personal Customization Variables
@ -1976,7 +1975,7 @@ Note that this workaround is incomplete, as explained in this comment."
;; tested with Outlook proper. ;; tested with Outlook proper.
(define-advice mml-smime-epg-sign (:after (cont) add-crlf-when-pkcs7) (define-advice mml-smime-epg-sign (:after (cont) add-crlf-when-pkcs7)
"If CONT signifies encryption with smime, replace all \\n with \\r\\n." "If CONT signifies encryption with smime, replace all \n with \r\n."
(when (and (eq (car cont) 'part) (when (and (eq (car cont) 'part)
(string= "smime" (or (cdr (assq 'encrypt cont)) ""))) (string= "smime" (or (cdr (assq 'encrypt cont)) "")))
(db/convert-lf-to-crlf-in-buffer))))) (db/convert-lf-to-crlf-in-buffer)))))