Remove rmail and corfu

1 files changed, 1 insertions, 143 deletions

diff --git a/home/dots/.emacs b/home/dots/.emacs
index be5dfed..0fadb4e 100644
--- a/home/dots/.emacs
+++ b/home/dots/.emacs
@@ -269,26 +269,6 @@
   (geiser-mode . (lambda ()
 		   (keymap-set geiser-mode-map "C-." nil))))
 
-;; (use-package corfu
-;;   :defer t
-;;   ;; Optional customizations
-;;   :custom
-;;   (corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
-;;   ;; (corfu-auto t)                 ;; Enable auto completion
-;;   ;; (corfu-quit-at-boundary nil)   ;; Never quit at completion boundary
-;;   (corfu-quit-no-match t)      ;; Never quit, even if there is no match
-;;   (corfu-preview-current t)    ;; Disable current candidate preview
-;;   (corfu-preselect 'prompt)      ;; Preselect the prompt
-;;   (corfu-quit-no-match t)
-;;   (corfu-on-exact-match 'show)     ;; Configure handling of exact matches
-;;
-;;   ;; Recommended: Enable Corfu globally.  This is recommended since Dabbrev can
-;;   ;; be used globally (M-/).  See also the customization variable
-;;   ;; `global-corfu-modes' to exclude certain modes.
-;;   :init
-;;   (global-corfu-mode)
-;;   (corfu-popupinfo-mode))
-
 (use-package dabbrev
   ;; Swap M-/ and C-M-/
   :bind (("M-/" . dabbrev-completion)
@@ -389,7 +369,7 @@
 
 (use-package notmuch
   :bind
-  (("C-c m " . notmuch-jump-search))
+  (("C-c m" . notmuch-jump-search))
   :custom
   ((notmuch-show-logo nil)))
 
@@ -1436,128 +1416,6 @@ Index includes links and headings."
   :custom
   (sendmail-program (executable-find "msmtp")))
 
-;; (use-package rmail
-;;   :init
-;;   (defvar selected-rmail-account "home")
-;;   (defun rmail-reply-t ()
-;;     "Reply only to the sender of the current message. (See rmail-reply.)"
-;;     (interactive)
-;;     (rmail-reply t))
-;;
-;;   (defmacro without-yes-or-no (&rest body)
-;;     "Override `yes-or-no-p' & `y-or-n-p', not to prompt for input and return t."
-;;     (declare (indent 1))
-;;     `(cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest _) t))
-;;                ((symbol-function 'y-or-n-p) (lambda (&rest _) t)))
-;;        ,@body))
-;;
-;;   ;; Copied from the pipe of mu4e
-;;   (defun rmail-process-file-through-pipe (path pipecmd)
-;;     "Process file at PATH through a pipe with PIPECMD."
-;;     (let ((buf (get-buffer-create "*rmail-output")))
-;;       (with-current-buffer buf
-;; 	(let ((inhibit-read-only t))
-;;           (erase-buffer)
-;;           (call-process-shell-command pipecmd path t t)
-;;           (view-mode)))
-;;       (display-buffer buf)))
-;;
-;;   (defun rmail-pipe-email (cmd)
-;;     (interactive "sShell command: ")
-;;     (let ((path
-;; 	   (concat "/tmp/rmail-pipe-msg-"
-;; 		   (number-to-string (time-convert (current-time) 'integer))
-;; 		   ".mbox")))
-;;       (without-yes-or-no
-;; 	(rmail-output-as-seen path nil t)
-;; 	(rmail-process-file-through-pipe path cmd))))
-;;   :hook
-;;   ((rmail-mode . variable-pitch-mode)
-;;    (rmail-quit . rmail-expunge-and-save))
-;;   :bind
-;;   (("C-c m" . rmail-open)
-;;    ("C-c M" . rmail-open-no-check)
-;;    :map rmail-mode-map
-;;    ("r" . rmail-reply-t)
-;;    ("R" . rmail-reply)
-;;    ("|" . rmail-pipe-email))
-;;   :config
-;;   (defun rmail-no-check ()
-;;     (interactive)
-;;     (rmail-input rmail-file-name))
-;;
-;;   (defun mail-work ()
-;;     (interactive)
-;;     (setq
-;;      rmail-primary-inbox-list (list (concat "imaps://" "marc.coquand%40piva.earth" ":" piva-password "@imap.gmail.com:993"))
-;;      rmail-default-file "~/personal-db/mail/work/RMAIL"
-;;      rmail-file-name "~/personal-db/mail/work/RMAIL"
-;;      user-mail-address "marc.coquand@piva.earth"
-;;      unrmail-mbox-format 'mboxo
-;;      user-full-name "Marc Coquand"
-;;      message-default-headers "FCC: ~/personal-db/mail/work/out/sent.mbox"
-;;      message-signature "Marc Coquand\nFounder at Pivå"))
-;;
-;;   (defun mail-home ()
-;;     (interactive)
-;;     (setq
-;;      rmail-default-file "~/personal-db/mail/home/RMAIL"
-;;      rmail-primary-inbox-list (list (concat "imaps://" "marcc%40fastmail.fr" ":" fastmail-password "@imap.fastmail.com:993"))
-;;      rmail-secondary-file-regexp "~/personal-db/mail/home/archives/*.mbox"
-;;      rmail-output-file-alist '(("\\[PATCH.*\\]" . "patch.mbox")
-;; 			       ("[rR]eceipt"        . "receipt.mbox")
-;; 			       ("[pP]ayment"        . "receipt.mbox")
-;; 			       ("[oO]rder"        . "receipt.mbox")
-;;                                (".*"        . "archive.mbox"))
-;;      rmail-file-name "~/personal-db/mail/home/RMAIL"
-;;      ;; In case there are errors, you can set '("--set=onerror=delete")
-;;      rmail-movemail-flags nil
-;;      user-mail-address "marc@coquand.email"
-;;      unrmail-mbox-format 'mboxo
-;;      user-full-name "Marc Coquand"
-;;      message-default-headers "FCC: ~/personal-db/mail/home/out/sent.mbox"
-;;      message-signature "Marc"))
-;;
-;;   (defun rmail-open-no-check ()
-;;     "Set account and open rmail. Will not check for new messages."
-;;     (interactive)
-;;     (let ((prev selected-rmail-account))
-;;       (setq selected-rmail-account
-;; 	    (completing-read
-;; 	     "Account: "
-;; 	     '(("home" 1) ("work" 2)) nil t))
-;;       (unless (eq selected-rmail-account prev)
-;; 	;; First kill all RMAIL buffers to not leave any dangling
-;; 	(kill-matching-buffers "\\.mbox\\|^RMAIL" nil t))
-;;       (if (string= selected-rmail-account "home")
-;; 	  (mail-home))
-;;       (if (string= selected-rmail-account "work")
-;; 	  (mail-work)))
-;;     (rmail-no-check))
-;;
-;;   (defun rmail-open ()
-;;     "Set account and open rmail. Will check for new messages"
-;;     (interactive)
-;;     (let ((prev selected-rmail-account))
-;;       (setq selected-rmail-account
-;; 	    (completing-read
-;; 	     "Account: "
-;; 	     '(("home" 1) ("work" 2)) nil t))
-;;       (unless (eq selected-rmail-account prev)
-;; 	;; First kill all RMAIL buffers to not leave any dangling
-;; 	(kill-matching-buffers "\\.mbox\\|^RMAIL" nil t))
-;;       (if (string= selected-rmail-account "home")
-;; 	  (mail-home))
-;;       (if (string= selected-rmail-account "work")
-;; 	  (mail-work)))
-;;     (rmail))
-;;   :custom
-;;   (rmail-remote-password-required nil)
-;;   (rmail-preserve-inbox nil)
-;;   (rmail-mime-prefer-html nil)
-;;   ;; Makes forwarding works as expected
-;;   (rmail-enable-mime-composing nil)
-;;   (rmail-displayed-headers "^\\(?:Cc\\|Date\\|From\\|Subject\\|To\\|List-Id\\):"))
 
 
 (use-package mastodon