add po-mode.el from the gettext repo

[~bandali/configs] / .emacs.d / lisp / bandali-message.el

diff --git a/.emacs.d/lisp/bandali-message.el b/.emacs.d/lisp/bandali-message.el
index e7a0fa4..e24a629 100644 (file)
--- a/.emacs.d/lisp/bandali-message.el
+++ b/.emacs.d/lisp/bandali-message.el
@@ -54,6 +54,7 @@
    ;; message-cite-style 'message-cite-style-bandali
    message-citation-line-format "%N writes:\n"
    message-citation-line-function 'message-insert-formatted-citation-line
+   message-confirm-send t
    message-kill-buffer-on-exit t
    message-send-mail-function #'smtpmail-send-it
    message-subscribed-address-functions
@@ -69,13 +70,10 @@
   ;;    ((t (:foreground "#333" :weight normal))))
 
   ;; footnote
-  (with-eval-after-load 'footnote
-    ;; (csetq footnote-start-tag ""
-    ;;        footnote-end-tag   ""
-    ;;        footnote-style     'unicode)
-    (when (featurep 'which-key)
-      (which-key-add-major-mode-key-based-replacements 'message-mode
-        "C-c f n" "footnote")))
+  ;; (with-eval-after-load 'footnote
+  ;;   (csetq footnote-start-tag ""
+  ;;          footnote-end-tag   ""
+  ;;          footnote-style     'unicode))
 
   ;; orgalist
   (add-hook 'message-mode-hook
@@ -127,32 +125,9 @@ non-nil."
 ;; hooks
 ;; (add-hook 'message-setup-hook #'mml-secure-message-sign-pgpmime)
 (add-hook 'message-mode-hook #'flyspell-mode)
-(add-hook 'message-mode-hook
-          (lambda ()
-            ;; (setq-local fill-column b/fill-column
-            ;;             message-fill-column b/fill-column)
-            (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
-;;    message-x-completion-alist
-;;    '(("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:"
-;;       . gnus-harvest-find-address)
-;;      ((if
-;;           (boundp
-;;            (quote message-newgroups-header-regexp))
-;;           message-newgroups-header-regexp message-newsgroups-header-regexp)
-;;       . message-expand-group))))
-
-;; (require 'gnus-harvest)
-;; (if (featurep 'message-x)
-;;     (gnus-harvest-install 'message-x)
-;;   (gnus-harvest-install))
-
 (provide 'bandali-message)
 ;;; bandali-message.el ends here