From bd7c33b39527f3cea1c7f5270fc60a979357a318 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 30 Jul 2023 16:23:47 +1000 Subject: Some small changes. visual line mode, bbdb mua, org agenda, org capture, xref, bbdb --- emacs/.emacs.d/init/ycp-gnus.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 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 6945de1..8485a86 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -30,19 +30,19 @@ (my-setq-from-local user-mail-address user-full-name) (setq auth-sources '("~/.authinfo.gpg")) -;;;; `mm-encode' +;;; `mm-encode' (my-package mm-encode (setq mm-encrypt-option nil ; use 'guided if you need more control mm-sign-option nil)) ; same -;;;; `mml-sec' +;;; `mml-sec' (my-package mml-sec (setq mml-secure-openpgp-encrypt-to-self t mml-secure-openpgp-sign-with-sender t mml-secure-smime-encrypt-to-self t mml-secure-smime-sign-with-sender t)) -;;;; `message' +;;; `message' (my-package message (setq mail-user-agent 'message-user-agent message-elide-ellipsis "\n> [... %l lines elided]\n" @@ -64,7 +64,7 @@ (setq smtpmail-smtp-service 587 smtpmail-queue-mail nil)) -;;;; `sendmail' (mail transfer agent) +;;; `sendmail' (mail transfer agent) (setq send-mail-function 'smtpmail-send-it) ;;; gnus @@ -167,7 +167,7 @@ (setq gnus-treat-display-smileys nil) (setq gnus-article-x-face-too-ugly ".*")) ; all images in headers are outright ; annoying---disabled! -;; gnus-desktop-notify +;;; gnus-desktop-notify (my-package gnus-desktop-notify (:delay 30) (gnus-desktop-notify-mode) @@ -184,6 +184,7 @@ (bbdb-mua-auto-update-init 'gnus 'message) (setq bbdb-message-all-addresses t) (setq bbdb-mua-pop-up-window-size .15) + (setq bbdb-new-mails-primary nil) (setq bbdb-mail-user-agent 'gnus-user-agent) (setq bbdb-update-records-p 'create) (setq bbdb-message-clean-mail-function 'my-bbdb-clean-mail) -- cgit v1.2.3