X-Git-Url: https://plomlompom.com/repos/berlin_corona.txt?a=blobdiff_plain;f=buster%2Fhome_files%2Fuser%2F.emacs.d%2Finit.el;h=fbec98087ddf9dd8813ec5e6f132217a17f53bb8;hb=6f0f5c64384750c3ef3e8da8e457f6efb84e5f94;hp=3452126e77d4a2322bdb0c9ec97661e20369e8c7;hpb=bc6ae96e2d41be156b45ceef93cfb60967d80c5f;p=config

diff --git a/buster/home_files/user/.emacs.d/init.el b/buster/home_files/user/.emacs.d/init.el
index 3452126..fbec980 100644
--- a/buster/home_files/user/.emacs.d/init.el
+++ b/buster/home_files/user/.emacs.d/init.el
@@ -90,7 +90,6 @@
       delete-old-versions 1)  ;; neither t nor nil: never delete
 
 
-
 ;; package management
 ;; ==================
 
@@ -121,13 +120,30 @@
 ;; ==========
 
 (setq send-mail-function 'smtpmail-send-it)
-(setq smtpmail-smtp-server "core.plomlompom.com")
+(setq smtpmail-smtp-server "mail.plomlompom.com")
 (setq smtpmail-smtp-service 465)
 (setq smtpmail-stream-type 'ssl)
 (setq smtpmail-smtp-user "plom")
 (setq mml-secure-openpgp-encrypt-to-self t)
 (add-hook 'message-setup-hook 'mml-secure-sign-pgpmime)
 
+;(setq gnutls-log-level 0)
+
+;; if we don't set this, we get this warning:
+;;   gnutls.c: [1] Note that the security level of the Diffie-Hellman key exchange
+;;   has been lowered to 256 bits and this may allow decryption of the session data
+(setq gnutls-min-prime-bits 1024)
+
+;; there is a WEIRD bug somewhere in /network-stream-open-tls/ that disappears the
+;; stream process, seemingly unless the /message/ function is called at the right
+;; place (earliest in /nsm-verify-connection/ right before the "cond" there, latest
+;; in /network-stream-get-response/ right after "(goto-char start)"; this works
+;; unless /inhibit_message/ is set, indicating that writing to the *Messages*
+;; buffer is not relevant, but maybe writing to the echo area is); activing the
+;; gnutls logging is just a hack to achieve such calls to /message/ in the
+;; /network-stream-open-tls/ flow.
+(setq gnutls-log-level 1) ; miraculously makes smtpmail work
+
 ;; constructs From: domain if mail composer directly called (from without
 ;; notmuch), but we don't actually intend to do that
 ;(setq mail-host-address "plomlompom.com")
@@ -166,6 +182,9 @@
     (define-key org-mode-map (kbd "TAB") 'org-cycle)
     (define-key org-mode-map (kbd "<backtab>") 'org-shifttab))
 
+;; don't truncate lines by default
+(setq org-startup-truncated nil)
+
 ;; basic org-capture config
 (setq org-capture-templates
       '(("x" "test" plain (file "~/org/notes.org") "%T: %?")))