gnus: conditional mail setup based on hostname
[~bandali/configs] / .emacs.d / init.el
index 8510489..781b7f0 100644 (file)
@@ -451,12 +451,13 @@ This sets each user option VAR's value to the corresponding VALUE.
   (with-eval-after-load 'faces
     (let* ((grey "#e7e7e7")
            (darker-grey "#d9d9d9")
   (with-eval-after-load 'faces
     (let* ((grey "#e7e7e7")
            (darker-grey "#d9d9d9")
-           (box ;; `(:line-width -1 :style released-button)
-            'unspecified))
+           (box ;; 'unspecified
+                `(:line-width -1 :style released-button)))
       (set-face-attribute 'mode-line nil
                           :background grey :box box)
       (set-face-attribute 'mode-line nil
                           :background grey :box box)
-      (set-face-attribute 'mode-line-inactive nil
-                          :background darker-grey :box box))))
+      ;; (set-face-attribute 'mode-line-inactive nil
+      ;;                     :background darker-grey :box box)
+      )))
 
 \f
 ;;; Useful utilities
 
 \f
 ;;; Useful utilities
@@ -559,6 +560,7 @@ Make N (default: 1) copies of the current line or region."
 (global-set-key (kbd "C-c f .") #'find-file)
 (global-set-key (kbd "C-c f d") #'find-name-dired)
 (global-set-key (kbd "C-c f l") #'find-library)
 (global-set-key (kbd "C-c f .") #'find-file)
 (global-set-key (kbd "C-c f d") #'find-name-dired)
 (global-set-key (kbd "C-c f l") #'find-library)
+(global-set-key (kbd "C-c f p") #'find-file-at-point)
 
 ;; frames
 (global-set-key (kbd "C-c F m") #'make-frame-command)
 
 ;; frames
 (global-set-key (kbd "C-c F m") #'make-frame-command)
@@ -643,9 +645,12 @@ Make N (default: 1) copies of the current line or region."
 
 (csetq shr-max-width 80)
 
 
 (csetq shr-max-width 80)
 
-;; Email (with Gnus and message)
+;; Email (with Gnus, message, and smtpmail)
 (require 'bandali-gnus)
 (require 'bandali-message)
 (require 'bandali-gnus)
 (require 'bandali-message)
+;; (with-eval-after-load 'smtpmail
+;;   (csetq smtpmail-queue-mail t
+;;          smtpmail-queue-dir (concat b/maildir "queue/")))
 
 ;; IRC (with ERC)
 (require 'bandali-erc)
 
 ;; IRC (with ERC)
 (require 'bandali-erc)
@@ -966,6 +971,9 @@ Make N (default: 1) copies of the current line or region."
   (delight 'mml-mode " mml" "mml")
   (delight 'yas-minor-mode "" "yasnippet"))
 
   (delight 'mml-mode " mml" "mml")
   (delight 'yas-minor-mode "" "yasnippet"))
 
+;; po-mode
+(require 'bandali-po)
+
 \f
 ;;; Post initialization
 
 \f
 ;;; Post initialization