From 94ddb1de4fa0fbe6bdbf751cfc1b1ae437f58c30 Mon Sep 17 00:00:00 2001
From: Kentaro Ohkouchi <nanasess@fsm.ne.jp>
Date: Sun, 22 Sep 2024 00:05:30 +0900
Subject: [PATCH] Fix warings on Emacs 30

---
 .emacs.d/.mew.d/.mew.el | 10 +---------
 .emacs.d/init.el        | 16 +---------------
 2 files changed, 2 insertions(+), 24 deletions(-)

diff --git a/.emacs.d/.mew.d/.mew.el b/.emacs.d/.mew.d/.mew.el
index 8c13c45..c9279b0 100644
--- a/.emacs.d/.mew.d/.mew.el
+++ b/.emacs.d/.mew.d/.mew.el
@@ -51,9 +51,8 @@
 ;;       '("Text/Html" "Text/Plain" ".*"))
 
 ;; 起動時に自動取得しない
-;(setq mew-auto-get nil)
+(setq mew-auto-get nil)
 
-(setq mew-thread-indent-strings [" +" " +" " |" "  "])
 (setq mew-mailbox-type 'mbox)
 (setq mew-mbox-command "incm")
 (setq mew-mbox-command-arg "-u -d $HOME/Maildir")
@@ -75,10 +74,3 @@
       (dnd-handle-one-url (get-buffer-window)
 			  'copy
 			  (concat "file://" f)))))
-
-;; See Also.
-;; http://debbugs.gnu.org/cgi/bugreport.cgi?bug=9610#31
-(add-hook 'mew-summary-mode-hook
-	  '(lambda ()
-	     (setq bidi-paragraph-direction 'left-to-right)))
-;; http://www.mew.org/pipermail/mew-dist/2012-June/029210.html
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index a7b5e34..7215ffb 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -60,6 +60,7 @@
 (defvar user-bin-directory (locate-user-emacs-file "bin/"))
 (defvar external-directory (expand-file-name "~/OneDrive - Skirnir Inc/emacs/"))
 (defvar openweathermap-api-key nil)
+(setq debug-on-error t)
 
 (setopt el-get-bundle-sync t
       el-get-is-lazy t
@@ -292,21 +293,6 @@
 (setq whitespace-display-mappings nil)
 (setq whitespace-trailing-regexp  "\\([ \u00A0]+\\)$")
 (setq whitespace-space-regexp "\\(\u3000+\\)")
-
-(set-face-attribute 'whitespace-trailing nil
-                    :foreground nil
-                    :background "#FDF6E3"
-                    :underline t)
-(set-face-attribute 'whitespace-tab nil
-                    ;; base4
-                    :foreground "#E1DBCD"
-                    :background "#E1DBCD"
-                    :underline nil)
-(set-face-attribute 'whitespace-space nil
-                    ;; base5
-                    :foreground "#D6D6D6"
-                    :background "#D6D6D6"
-                    :underline nil)
 (setq whitespace-global-modes
       '(not dired-mode tar-mode magit-log-mode magit-diff-mode mew-draft-mode))
 (global-whitespace-mode t)