DAITEI's blog

最新のMewをGETしてdebパッケージにしてInstall

• https://packages.debian.org/experimental/mew から mew 6.9のdebian用ソースとdscをGET
• https://www.mew.org/ja/git/ を見て最新のソースをGET
  R7年4月30日(水) 現在、 mew-oauth2.el が含まれていた!!! 尚、mew-version は 6.9
• gitからGETしたものを mew_6.9.orig.tar.gz としてアーカイブ。
• mew_6.9-1.debian.tar.xz の変更
  • patches/020_locale-utf8.patch を削除
  • patches/series から 020_locale-utf8.patch の記述を削除
  変更後のソースをmew_6.9-1.debian.tar.xzとしてアーカイブ。
• mew_6.9-1.dscの記述を上記のアーカイブに合せる(sum関係やファイルsizeの変更)。
• debパッケージbuildして、Install

    $ dpkg-source -x mew_6.9-1.dsc
    $ cd mew-6.9
    $ vi debian/changelog  # 変更内容記載し、versionを上げておく
    $ dpkg-buildpackage -us -uc
    $ cd ..
    $ sudo dpkg -i mew_6.9-5_all.deb mew-bin_6.9-5_amd64.deb
  

.mew.el の設定例

;;; for OAuth2.0
(setq mew-oauth2-client-id "*************-********************************.apps.googleusercontent.com")
(setq mew-oauth2-client-secret "******-****************************")

(setq mew-config-alist
      '(("MyGmail"
         ("user"             . "MyName")
         ("mail-domain"      . "gmail.com")
         ("prog-ssl"         . "/usr/bin/stunnel")
         ("use-smtp-auth"    . t)
	 ("smtp-ssl"         . t)
         ("smtp-server"      . "smtp.gmail.com")
	 ("smtp-ssl-port"    . "465")
         ("smtp-auth-list"   . ("XOAUTH2"))
	 ("smtp-user"        . "MyName@gmail.com")
         ("imap-ssl"         . t)
         ("imap-server"      . "imap.gmail.com")
         ("imap-ssl-port"    . "993")
         ("imap-auth-list"   . ("XOAUTH2"))
         ("imap-user"        . "MyName@gmail")
         )))

---

参照URL

• Experimental support for IMAP XOAUTH2 (2020-11-22)
• IMAP XOAUTH2 (2020-11-25〜2024-03-11)
• Mew/elisp/Makefile の SRCS / OBJS に mew-oauth2.el(c) が含まれていない (2024-06-08)

Emacs 29.4 で psvn.el が下記のようなメッセージが出て動かなかった...。

error in process sentinel: Symbol’s function definition is void: toggle-read-only

Bug#1042979: subversion-tools: psvn.el does not work with Emacs 29.1 によると、psvn.el には関数 toggle-read-only が使用されているが、Emacs 29.1 からこの関数はサポートされていないらしい。 代りに 関数 read-only-mode を使用すれば動くようだ。
なので、$HOME/.emacs に下記を記述して無事動作するようになった。

;; toggle-read-only が未定義なら read-only-mode で定義する
(if (not (fboundp 'toggle-read-only))
    (fset 'toggle-read-only 'read-only-mode))

• 環境変数 TERM が screen.xterm-256color となっていると色がおかしい...
  → 環境変数 TERM が xterm-256color となるようにscreenを実行する。
• 環境変数 COLORTERM が truecolor だと色がおかしい... 使っている screen (v4.9.0) が truecolorに対応していないようだ...。
  → 環境変数 COLORTERM を truecolor 以外に設定してscreenを実行する。

 $ COLORTERM=256 screen -T xterm-256color

Native Compilationがサポートされ、その Warning(comp) が表示された。
.emacs 等に下記を記述して Warning 表示を無くしておこう...。

;; Native compilation のWarning無し(nil), Warning表示せずにログを残す('silent)
(setq native-comp-async-report-warnings-errors nil)

* Gmail設定

• 「安全性の低いアプリのアクセス」をオンにする必要があります。
  「アカウント→セキュリティ→安全性の低いアプリのアクセス」 で設定
• 使用するstunnelのバージョンを新しくしましょう。
  R3年9月14日(火)現在、v5.50を使用してアクセスできています。
• メールクライアントのIMAPおよびSMTP設定方法は下記のようにして参照する。
  [設定](歯車マーク) → [すべての設定を表示] → [メール転送とPOP/IMAP] → メールクライアントの設定の[設定手順]

* SMTPのmew設定(PORT=587 の場合)

("prog-ssl"         . "/usr/bin/stunnel")
("ssl-verify-level" . 2)
("smtp-ssl"         . t)
("smtp-server"      . "smtp.gmail.com")
("smtp-port"        . "587") ; ←ここが大事 
("smtp-ssl-port"    . "587")
("smtp-user"        . "xxxxxx@gmail.com")
("use-smtp-auth"    . t)

* SMTPのmew設定(PORT=465 の場合)

("prog-ssl"         . "/usr/bin/stunnel")
("ssl-verify-level" . 2)
("smtp-ssl"         . t)
("smtp-server"      . "smtp.gmail.com")
("smtp-ssl-port"    . "465")
("smtp-user"        . "xxxxxx@gmail.com")
("use-smtp-auth"    . t)

* IMAPのmew設定(PORT=993)

("prog-ssl"         . "/usr/bin/stunnel")
("ssl-verify-level" . 2)
("imap-ssl"         . t)
("imap-server"      . "imap.gmail.com")
("imap-ssl-port"    . 993)
("imap-user"        . "xxxxxx@gmail.com")
("imap-auth"        . t)
("imap-delete"      . nil)
("imap-size"        . 524288) ; 適当...
("imap-header-only" . nil)

* SSL/TLSのmew設定
(下記設定をしておかないと ".. SSL/TLS connection FAILED (cert verify failure)" 的なメッセージが出て接続できない)。

 $ sudo apt install ca-certificates
 $ ln -s /etc/ssl/certs ~/.certs

(setq mew-ssl-cert-directory "/home/<username>/.certs/")

* SMTPは、exim4にまかせるのが楽

("smtp-server"      . "127.0.0.1")
("smtp-port"        . "25")
("smtp-ssl"         . nil)
("use-smtp-auth"    . nil)

exim4 でGmailの外部SMTPサーバ経由でメール送信するを参照して、localにexim4設定する。

• cp5022x.elをGETし、PATHの通った場所に保存する。
• 下記の記述を.emacsに記載する。

  (require 'cp5022x)
  (add-to-list 'mew-cs-database-for-decoding '("iso-2022-jp" cp50220-unix))
  

CP50220とは、JIS(iso-2022-jp)環境にてCP932(Shift-JIS)に依存した文字を扱えるようにした文字コード。

EmailにはEmacs+mewを使っている。 Emailに書かれているURLをブラウザで開きたい事が良くある。
iCalenderの形式で飛んでくるEmail等だと、半角スペースや改行がされている URLもある。
そこで、リージョン内の半角スペースや改行を削除してブラウザを起動させる。
emacs の 初期設定ファイルに下記を記述した。

;;; browse-urlで使用するブラウザの指定
(setq browse-url-browser-function 'browse-url-generic
      browse-url-generic-program "google-chrome")
;;; キーバインド指定
(bind-key "C-c b" 'my-browse-url)
;;; リージョン指定したURLをブラウザで開く
(defun my-browse-url ()
  "Open url with browser."
  (interactive)
  (if (use-region-p)
      (let ((string
             (replace-regexp-in-string
              "\\([^\n]\\)\n\\([^\n]\\)" "\\1\\2"
              (replace-regexp-in-string
               " " ""
               (buffer-substring-no-properties (region-beginning) (region-end))
               ))
             ))
	(deactivate-mark)
	(browse-url string)
        )
    (let ((string (read-string "Browse URL: ")))
      (browse-url string)
      )
    ))

また、google meet等への参加URLの場合もあり、google-chromeで開くように指定する。
もしくは、"browse-url" を "browse-url-chrome"に変更するのでも良い。

;;; browse-urlで使用するブラウザの指定
(setq browse-url-browser-function 'browse-url-generic
      browse-url-generic-program "google-chrome")

Emacsのgoogle-translate.elはとても便利だが、 EmacsからのGoogle翻訳利用が弾かれていて？動かない....。 そこで、 止まらないGoogle Translateを作るのコードを使わせても らう。 さらに、 google-translate を使いやすくするための設定の「翻訳 文章の改行をSPACEに変換する」コードをマージして使う事にした。

(bind-key "C-c t" 'chromium-translate)
(require 'url-util)
(defun chromium-translate ()
  "Open google translate with chromium."
  (interactive)
  (if (use-region-p)
      (let ((string
             ;; 行頭、行末のホワイトスペースを削除し、文章の途中にある改行をスペースに変換してから翻訳する
             (replace-regexp-in-string
              "\\([^\n]\\)\n\\([^\n]\\)" "\\1 \\2"
              (replace-regexp-in-string
               "^\s*\\(.*?\\)\s*$" "\\1"
               (buffer-substring-no-properties (region-beginning) (region-end))
              ))
             ))
	(deactivate-mark)
	(if (string-match (format "\\`[%s]+\\'" "[:ascii:]")
			  string)
	    (browse-url (concat "https://translate.google.com/?source=gtx#en/ja/"
				(url-hexify-string string)))
	  (browse-url (concat "https://translate.google.com/?source=gtx#ja/en/"
			      (url-hexify-string string)))))
    (let ((string (read-string "Google Translate: ")))
      (if (string-match
	   (format "\\`[%s]+\\'" "[:ascii:]")
	   string)
	  (browse-url
	   (concat "https://translate.google.com/?source=gtx#en/ja/" (url-hexify-string string)))
	(browse-url
	 (concat "https://translate.google.com/?source=gtx#ja/en/" (url-hexify-string string)))))))

便利!便利!