Compare commits
2 Commits
b9fde435a7
...
6279921553
| Author | SHA1 | Date | |
|---|---|---|---|
| 6279921553 | |||
| bd451a954a |
19
init.el
19
init.el
@ -49,12 +49,6 @@
|
|||||||
|
|
||||||
;; * 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)
|
||||||
@ -69,8 +63,15 @@
|
|||||||
use-package-compute-statistics t
|
use-package-compute-statistics t
|
||||||
debug-on-error t))
|
debug-on-error t))
|
||||||
|
|
||||||
(add-to-list 'package-pinned-packages '(use-package . "melpa-stable"))
|
(use-package package
|
||||||
(add-to-list 'package-pinned-packages '(bind-key . "melpa-stable"))
|
:init (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/")))
|
||||||
|
: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
|
||||||
@ -1975,7 +1976,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)))))
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user