From 66fb229bc11dff59c839527e001d8767eb532d81 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 9 Sep 2023 12:19:04 +1000 Subject: [emacs] some convenience editing functions in message mode --- emacs/.emacs.d/init/ycp-gnus.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'emacs/.emacs.d/init/ycp-gnus.el') diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el index fd15e7f..43d56cc 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -32,7 +32,7 @@ ;;; `mm-encode' (my-package mm-encode - (setq mm-encrypt-option nil ; use 'guided if you need more control + (setq mm-encrypt-option nil ; use 'guided if you need more control mm-sign-option nil)) ; same ;;; `mml-sec' @@ -52,10 +52,14 @@ message-ignored-cited-headers "" ; default is "." for all headers message-confirm-send nil message-kill-buffer-on-exit t - message-wide-reply-confirm-recipients t + message-wide-reply-confirm-recipients nil message-citation-line-format "On %a %Y-%m-%d %H:%M:%S %z, %N wrote:\n") (add-hook 'message-setup-hook #'message-sort-headers) + (require 'my-gnus) + (my-keybind message-mode-map + "M-n" #'my-message-after-next-cited + "M-p" #'my-message-before-previous-cited) ) (my-package smtpmail @@ -103,6 +107,8 @@ (setq gnus-message-replysign t) (my-setq-from-local gnus-posting-styles) (my-override mm-display-external) + (add-hook 'gnus-message-setup-hook #'message-remove-blank-cited-lines) + (add-hook 'gnus-message-setup-hook #'my-message-remove-trailing-cited-lines) ) ;; checking sources -- cgit v1.2.3