From 1622ac38772868d101e48107591db8f4700627c4 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Tue, 5 Sep 2023 00:14:03 +1000 Subject: A few changes - add dedicate-windows-by-modes as window-configuration-change-hook, but it did not work well when used on gnus-summary-mode - copying gnus article regions also copies links, which are appended at the end of the copy as footnote - overload org-id-store-link so that capturing today's work could include the item priority - org should open a gnus link in other-window - fixing my-org-clean-up-entry so that it deletes trailing empty lines - added a silly utility function to clean a red energy bill pay link --- emacs/.emacs.d/init/ycp-gnus.el | 6 ++++-- 1 file changed, 4 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 e104d25..fd15e7f 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -80,6 +80,7 @@ gnus-browse-mode-hook)) (add-hook mode #'hl-line-mode)) (require 'my-gnus) + (require 'my-buffer) (my-setq-from-local my-gnus-inbox-group my-gnus-group-alist) (my-keybind global-map @@ -165,8 +166,9 @@ (my-package gnus-art (setq gnus-inhibit-images t) (setq gnus-treat-display-smileys nil) - (setq gnus-article-x-face-too-ugly ".*")) ; all images in headers are outright - ; annoying---disabled! + (setq gnus-article-x-face-too-ugly ".*") + (my-keybind gnus-article-mode-map + "M-w" #'my-gnus-article-copy-region)) ;;; gnus-desktop-notify (my-package gnus-desktop-notify (:delay 30) -- cgit v1.2.3