X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/d7dee82420a04e5c92e5b5ad316e14a49bd4d689..8d039a87cead82fc24394089a038e31f421977f6:/.emacs.d/lisp/bandali-message.el diff --git a/.emacs.d/lisp/bandali-message.el b/.emacs.d/lisp/bandali-message.el index c13bffc..e7a0fa4 100644 --- a/.emacs.d/lisp/bandali-message.el +++ b/.emacs.d/lisp/bandali-message.el @@ -55,13 +55,11 @@ message-citation-line-format "%N writes:\n" message-citation-line-function 'message-insert-formatted-citation-line message-kill-buffer-on-exit t - message-send-mail-function 'message-send-mail-with-sendmail - message-sendmail-envelope-from 'header + message-send-mail-function #'smtpmail-send-it message-subscribed-address-functions '(gnus-find-subscribed-addresses) message-dont-reply-to-names "\\(\\(amin@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|bandali@fsf\\.org\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\|amin\\.bandali@savoirfairelinux\\.com\\)") - ;; (require 'company-ebdb) ;; (custom-set-faces ;; '(message-header-subject ;; ((t (:foreground "#111" :weight semi-bold)))) @@ -88,7 +86,26 @@ (orgalist-mode 1) (yas-minor-mode 1))) + ;; custom newline & reformat function + (defun b/message-newline-or-asterism (arg) + "Create newlines per my liking or insert asterism if ARG is +non-nil." + (interactive "P") + (if arg + (b/insert-asterism) + (progn + (beginning-of-line) + (delete-region (point) (line-end-position)) + (newline) + (open-line 1)))) + (define-key message-mode-map + (kbd "M-RET") #'b/message-newline-or-asterism) + ;; local key bindings + (define-key message-mode-map + [remap next-line] #'mail-abbrev-next-line) + (define-key message-mode-map + [remap end-of-buffer] #'mail-abbrev-end-of-buffer) (defvar b/footnote-prefix-map) (define-prefix-command 'b/footnote-prefix-map) (define-key message-mode-map (kbd "C-c f n") @@ -117,6 +134,9 @@ (eval-when-compile (defvar company-idle-delay)) (make-local-variable 'company-idle-delay) (setq company-idle-delay 0.2))) +(add-hook 'message-mode-hook + (lambda () + (local-unset-key (kbd "C-c C-s")))) ;; (with-eval-after-load 'message-x ;; (csetq