ほほほのほ

FreeBSDでNASを建てる - [ZFS poolを作成する]

seirios@undisclosed.example.com (seirios) — Sat, 28 Mar 2026 07:26:28 +0000

FreeBSDでNASを建てる

FreeBSDでNASを作成する。

Open Source なNASの実装には

FreeNAS FreeBSDベース
NAS4Free FreeBSDベース。FreeNAS 0.7系からFork。
OpenMediaVault Debian GNU Linuxベース。FreeNASからFork。
Rockstor CentOSベース。
OpenFiler Community Edition Linuxベース。
Nexenta Community Edition Open Solarisベース。

などがある。

(参考 : https://www.how2shout.com/tools/best-free-open-source-nas-software.html)

NASは、その利用目的によって、考慮するべき点が異なる。筆者の主要な用途としては

仮想基盤向けStorage
- 利用したいのは、iSCSI / NFS の２Protocol。CephもGlusterも興味はあるが、個人的にはまだ実験レベル。
ファイル共有用
- 利用したいのはNFS(MacでFile共有するならNFSで十分)とAFP(TimeMachine)

の２種類である。

しかし、仮想基盤向けストレージとファイル共有を同一のNASとして供給するのは、

管理上面倒
- インフラとユーザーではセキュリティポリシーが異なる
サービス要求レベルが異なる
- インフラはできる限り安定して動かしたい。可能な限り触らない
- ファイル共有は、設定の変更やアカウント追加削除など、触る局面が多い

というように、そもそもの要求要件が異なる。

というわけで、今回は、

仮想基盤用のNASはFreeBSDを生でiSCSIとNFS供給用として使う
ファイル共有用は、仮想基盤のVM上にNAS4Freeを投入して、設定の簡便化を図る
- NAS上のStorageにNASのStorageをおくわけで、屋上屋を架している状態だが、レスポンスがシビアではない条件なのでよしとする。

という実装を行う。

なお、NAS4Free環境の構築に関してはnas4freeを参照のこと

準備

NASを構築するには当然、十分なStorageを持つ機材が必要になる。

まず、必要なスペックを検討する。

要求要件検討

まず、要求要件をまとめる。

XCP-ngに対して、VM用のDisk Imageを保存することができるだけの容量
XCP-ngに対して、XCP-ngのSR(Storage Repository)として認識できるProtocolが利用できること
基盤環境がGbEネットワーク(100Base-T)で構築されているので、GbEで通信できる環境
- なお、802.3adでのTrunkに対応したSwitching HUBを利用しているので、NICに余力があれば802.3adでのTrunkも考慮に入れる
Disk Imageを保持するために、性能が良く、比較的安定なFileSystem(FS)を組めること
サイズは小さくて良いので、Disk Imageを供給するためのNetwork File Systemを利用できること

SR用	NFS , iSCSI , Hardware HBA , Software FCoE
ISO File用	NFS , SMB/CIFS

以上の条件であれば、Hardware要件さえ満たせれば、世に数多あるNAS Applianceを利用することで解決できる。が、今回は、生FreeBSD上でiSCSI/NFSを供給するNASを作成することにする。

実装仕様

手元の機材の関係上、以下の環境に実装する。

CPU	Intel Pentium G630T / 2.30GHz	手元にあったので
Memory	16GB	手元にあったので
NIC	RealTek 8168	MotherBoardにOnboardで載っているので
NIC	Intel PRO/1000	PCI Slotに追加した
HDD	HDS728080PLA380 80G	起動用
	WD Green WD20EARX 2T	ada0 / 手元にあったので
	WD Green WD20EZRX 2T	ada1 / 手元にあったので
	WD Green WD20EARX 2T	ada2 / 手元にあったので
	WD Green WD20EZRX 2T	ada3 / 手元にあったので
	WD Green WD20EZRX 2T	ada4 / 手元にあったので

要件と好みから、以下のように実装する

OS	FreeBSD 11.1-RELEASE
iSCSI target	ctld (System Builtin)
NFS Server	rpcbind/nfsd/mountd (System Builtin)
NFS Server	NFSv3を利用
ZFS	RAID-Z2を利用
ZFS	SR用Storageはvdevにする

その他、細かい諸元を以下に。

Remoteからの制御通信はsshのみを許可する。sshの待ち受けはHigh Portに移動する
管理セグメントとStorageセグメント以外からの通信は全て遮断する
FreeBSD Updateおよびpkg updateは、手元にあるproxyを経由する
監視のためのSoftwareはとりあえずPendする

OSの初期設定

Bare MetalにOSを投入する

Install FreeBSD

FreeBSDのInstaller CDからOSを導入する。

注意点は

BootDiskにはそれほどの容量はいらない
- portsやsrcは展開しない
- 不要な32bit Libは導入しない
Disk割り当ては、80Gだと少し大きすぎるので、以下のようにした。
- Boot BlockにGPTを選択
- OS部分は別にZFSにする必要がないので、UFSを利用する
- Partition構成は以下の通り
  - efi: 512MB (40/1048576)
  - freebsd-ufs : 20G (10186/41943040)
  - freebsd-swap : 2G (42991656/4194304)
  - これらは、Installerから設定可能。重要なのは、efiを設定すること

あとは、普通にInstallすればよい。

Configuration of FreeBSD

最初にBootしたら、以下を行う。

rc.conf関連の設定

/etc/rc.confを作成・編集する

# Host Information
hostname="nas-temp"
keymap="jp"
dumpdev="NO"
 
# System Configuration
clear_tmp_enable="YES"
zfs_enable="YES"
 
# NIC Configuration
ifconfig_re0="inet 192.0.2.254    netmask 255.255.255.0"
ifconfig_em1="inet 198.51.100.254 netmask 255.255.255.0"
 
# Routing Configuration
route_private10=" -net 10.0.0.0/8     127.0.0.1 -blackhole"
route_private172="-net 172.16.0.0/12  127.0.0.1 -blackhole"
route_private192="-net 192.168.0.0/16 127.0.0.1 -blackhole"
 
static_routes="private10 private172 private192"
defaultrouter="192.0.2.1"
 
#Network Parameters Configuration
icmp_bmcastecho="NO"
icmp_drop_redirect="YES"
icmp_log_redirect="YES"
ip6addrctl_enable="NO"
ip6addrctl_policy="ipv4_prefer"
ipv6_activate_all_interfaces="NO"
ipv6_network_interfaces="NO"
 
# NFS Configuration
rpc_lockd_enable="YES"
rpc_statd_enable="YES"
rpcbind_enable="YES"
 
nfs_client_enable="NO" 
autofs_enable="NO" 
 
mountd_enable="YES"
mountd_flags="-lr"
nfs_server_enable="YES"
 
nfsv4_server_enable="NO"
nfsuserd_enable="NO"
nfsuserd_flags="-domain localdomain"
 
# Firewall
pf_enable="NO"
pf_flags=""
pflog_enable="NO"
 
# Userland
syslogd_flags="-ss"
sendmail_enable="NONE"
sshd_enable="YES"
ntpd_enable="YES"
ntp_leapfile_fetch_verbose="YES"
ntp_leapfile_sources="ftp://tycho.usno.navy.mil/pub/ntp/leap-seconds.list"

/etc/sysctl.conf関連

/etc/sysctl.confにいくつかの設定を書き込む

security.bsd.unprivileged_read_msgbuf=0
kern.randompid=5055
security.bsd.stack_guard_page=1

# ZFS use 4k sectors. (default: 9/512 byes)
vfs.zfs.min_auto_ashift=12

### NFS parameters
vfs.nfsd.server_min_nfsvers=3

名前解決

/etc/resolv.confを作成・編集する

domain management.example.org
nameserver 192.0.2.11
nameserver 192.0.2.12

sshd関連の設定
1. まず、自分のHome Directoryに.ssh/authorized_keysを設定する
  - これを忘れると、次の設定後にloginできなくなる
2. /etc/ssh/sshd_config末尾に以下の設定を投入。XXXXには、待ち受けるポート番号を記載すること
  - ```
  ##### Addtional
  Port XXXX
  UseDNS no
  ChallengeResponseAuthentication no
```
- service sshd restartをroot権限で実行し、sshdを再起動する

ntpd関連の設定

/etc/ntp.confを編集する

serverを正しく設定すれば良い
外部のNTPサーバーを参照するよりも、内部ネットワークに建ててあるNTPdを参照する方が望ましい

ntp.conf

tos minclock 3 maxclock 6
server 192.0.2.1 iburst
server 192.0.2.2 iburst
server 192.0.2.3 iburst
 
restrict    default limited kod nomodify notrap noquery nopeer
restrict -6 default limited kod nomodify notrap noquery nopeer
 
restrict 127.0.0.1
restrict -6 ::1
 
leapfile "/var/db/ntpd.leap-seconds.list"

Update関連の設定
1. freebsd-updateでOSを更新する際に参照するサーバーを設定する
  - ServerName update.FreeBSD.org をコメントアウト
  - ServerName local-update-server を設定
    - local-update-serverは内部のDNSで引けるupdateサーバーを記載すること
2. pkgでpackageを更新する際に参照するサーバーを設定する
  1. mkdir -p /usr/local/etc/pkg/repos
  2. vi /usr/local/etc/pkg/repos/FreeBSD.conf
  3. FreeBSD.conf
    
    FreeBSD: { url: "pkg+http://local-update-server/${ABI}/quarterly", mirror_type: "srv", signature_type: "fingerprints", fingerprints: "/usr/share/keys/pkg", enabled: yes }
OSおよびPackageの更新
1. freebsd-update fetch installを実行
2. pkg update && pkg upgradeを実行
3. 再起動する
最小限のPackageを投入
- 本システムに必要となる最小限のPackageをBinaryで投入する
  - sudo
- pkg install sudo smartmontools

(おまけ) CAM

FreeBSDには、CAM(Common Access Method)という仕組みがあり、これでSATAのDiskに対して(Diskだけではないが)色々な処理を行える。この仕組みを使った様々な制御のためにcamcontrolがある。

たとえば、こんな感じ。

# camcontrol devlist
<WDC WD20EARX-00PASB0 51.0AB51>    at scbus0 target 0 lun 0 (ada0,pass0)
<WDC WD20EZRX-00DC0B0 80.00A80>    at scbus0 target 1 lun 0 (ada1,pass1)
<WDC WD20EARX-00PASB0 51.0AB51>    at scbus1 target 0 lun 0 (ada2,pass2)
<WDC WD20EZRX-00DC0B0 80.00A80>    at scbus1 target 1 lun 0 (ada3,pass3)
<WDC WD20EZRX-00DC0B0 80.00A80>    at scbus2 target 0 lun 0 (ada4,pass4)
<HDS728080PLA380 PF2OA60A>         at scbus3 target 0 lun 0 (ada5,pass5)

# camcontrol identify ada5
pass5: <HDS728080PLA380 PF2OA60A> ATA-7 SATA 1.x device
pass5: 150.000MB/s transfers (SATA 1.x, UDMA5, PIO 8192bytes)
 
protocol              ATA/ATAPI-7 SATA 1.x
device model          HDS728080PLA380
firmware revision     PF2OA60A
serial number         PFDB30S2UP51ZM
WWN                   5000cca300f3e550
cylinders             16383
heads                 16
sectors/track         63
sector size           logical 512, physical 512, offset 0
LBA supported         160836480 sectors
LBA48 supported       160836480 sectors
PIO supported         PIO4
DMA supported         WDMA2 UDMA6 
 
Feature                      Support  Enabled   Value           Vendor
read ahead                     yes	yes
write cache                    yes	yes
flush cache                    yes	yes
overlap                        no
Tagged Command Queuing (TCQ)   no	no
Native Command Queuing (NCQ)   yes		32 tags
NCQ Queue Management           no
NCQ Streaming                  no
Receive & Send FPDMA Queued    no
SMART                          yes	yes
microcode download             yes	yes
security                       yes	no
power management               yes	yes
advanced power management      yes	no	0/0x00
automatic acoustic management  yes	no	254/0xFE	128/0x80
media status notification      no	no
power-up in Standby            yes	no
write-read-verify              no	no
unload                         no	no
general purpose logging        yes	yes
free-fall                      no	no
Data Set Management (DSM/TRIM) no
Host Protected Area (HPA)      yes      no      160836480/160836480
HPA - Security                 no

で、本命はHDDの切り離し(未試験)

以下正常動作していないので、試さないように

参考URL

# camcontrol devlist -v
# zpool status zfstank
# camcontrol identify ada0
→ diskのシリアル番号確認
# camcontrol eject ada0
→ 失敗(これは、試験したMBもシャシーもHotswap非対応なので当然)
# zpool offline zfstank gpt/ada0
TEST時# gpart destroy -F ada0
TEST時# zpool labelclear -f ada0
TEST時# dd if=/dev/zero of=/dev/ada0 bs=1m count=10
# zpool status zfstank
# camcontrol stop ada0
→ 物理的に抜く
# camcontrol devlist
→ Diskを挿す
# camcontrol rescan all
# camcontrol devlist
→Deviceが認識されていることを確認
# gpart create -s gpt ada0
# gpart add -a 4k -t freebsd-zfs -l ada0 ada0
# zpool status zfstank
# zpool replace zfstank gpt/ada0
# zpool status zfstank

NAS環境構築

NAS関連の作業を以下の順に実施する。

NAS公開用ZFS Pool/ZFS/Zvolの作成
iSCSI関連の設定とZvolの公開
NFS関連の設定とDirectoryの公開

ZFS関連設定

ZFS関連設定を記載する。

本構成の場合、ZFSに利用するHDDは、ada[0-4]の5台

ZFS poolを作成する

とにかくZFSのPoolを4Kセクタで作成するための準備
- sysctl -w vfs.zfs.min_auto_ashift=12
  - この設定を/etc/sysctl.confに書いておくとなおよし
GPTでDiskを初期化する
- zfs_init.sh
  for i in 0 1 2 3 4; do gpart destroy -F ada$i gpart create -s gpt ada$i gpart add -a 4k -t freebsd-zfs -l slot$i ada$i done
  - なお、GPTが設定されていないHDDの場合、gpart destroy -F ada$iの行は本質的に不要であり、gpart: arg0 'ada0': Invalid argumentというエラーが表示されるが、これは気にしなくて良い。
ZFS Poolを作成する
- atimeをOffに、圧縮アルゴリズムをLZ4に、Unicodeの (比較時) 正規化手法をNormalization Form D(NFD)に設定する
- ```
zpool create -O atime=off -O compression=lz4 -O normalization=formD zfstank raidz2 gpt/slot0 gpt/slot1 gpt/slot2 gpt/slot3 gpt/slot4
```

zpool createコマンドは、ZFS Poolを作成するだけでなく、同時にpoolと同名のZFSファイルシステムを作成する。

本例で表示した atime/compression/normalization パラメータは、このファイルシステムに対するOption Propertyである。

ZFS poolに対するOption Propertyは、-o(小文字)の後に指定することができる。詳細は man 7 zpool-features を参照

通常、ZFS RAIDz2を利用すると、RAID6相当のパリティーを持つ構成になるため、故障に対して比較的強固になる。今回は採用しなかったが、さらに冗長性を高めることを考えるのであれば、-o copies=2もしくは-o copies=3としておくと、Fileの保存時に、完全なコピーが2もしくは3個作成される。

当然、その分だけ性能は劣化するが、必要に応じて複製が確保されるので、堅牢性が上がる。

ZFS poolを作成する場合、それぞれのDiskに個別のLabel(GPT label)を作成しておくことが重要になる。

個別にLabelをつけておくことで、Disk故障などの理由でKernelがDiskを認識する順序が変化してしまった時に、故障したDiskを特定しやすくすることができる。

当然、HDDユニット自体にもラベル名を物理的に記入することが重要になる。

normalizationの設定をどのようにするべきかはさんざん悩んだが、ここでは、formDを選択する。なぜそうしたかは、以下のLinkを参照のこと。

確認作業

4k sectorであることの確認

zdb -C zfstank | grep ashift
                ashift: 12

zpoolの状態確認

# zpool list
NAME      SIZE  ALLOC   FREE  EXPANDSZ   FRAG    CAP  DEDUP  HEALTH  ALTROOT
zfstank  9.06T  1.03M  9.06T         -     0%     0%  1.00x  ONLINE  -

# zpool status
  pool: zfstank
 state: ONLINE
  scan: none requested
config:

	NAME          STATE     READ WRITE CKSUM
	zfstank       ONLINE       0     0     0
	  raidz2-0    ONLINE       0     0     0
	    gpt/ada0  ONLINE       0     0     0
	    gpt/ada1  ONLINE       0     0     0
	    gpt/ada2  ONLINE       0     0     0
	    gpt/ada3  ONLINE       0     0     0
	    gpt/ada4  ONLINE       0     0     0

errors: No known data errors

# zpool get -o all all zfstank
NAME     PROPERTY                       VALUE                          SOURCE
zfstank  size                           9.06T                          -
zfstank  capacity                       0%                             -
zfstank  altroot                        -                              default
zfstank  health                         ONLINE                         -
zfstank  guid                           11297120752257816277           default
zfstank  version                        -                              default
zfstank  bootfs                         -                              default
zfstank  delegation                     on                             default
zfstank  autoreplace                    off                            default
zfstank  cachefile                      -                              default
zfstank  failmode                       wait                           default
zfstank  listsnapshots                  off                            default
zfstank  autoexpand                     off                            default
zfstank  dedupditto                     0                              default
zfstank  dedupratio                     1.00x                          -
zfstank  free                           9.06T                          -
zfstank  allocated                      1.03M                          -
zfstank  readonly                       off                            -
zfstank  comment                        -                              default
zfstank  expandsize                     -                              -
zfstank  freeing                        0                              default
zfstank  fragmentation                  0%                             -
zfstank  leaked                         0                              default
zfstank  feature@async_destroy          enabled                        local
zfstank  feature@empty_bpobj            enabled                        local
zfstank  feature@lz4_compress           active                         local
zfstank  feature@multi_vdev_crash_dump  enabled                        local
zfstank  feature@spacemap_histogram     active                         local
zfstank  feature@enabled_txg            active                         local
zfstank  feature@hole_birth             active                         local
zfstank  feature@extensible_dataset     enabled                        local
zfstank  feature@embedded_data          active                         local
zfstank  feature@bookmarks              enabled                        local
zfstank  feature@filesystem_limits      enabled                        local
zfstank  feature@large_blocks           enabled                        local
zfstank  feature@sha512                 enabled                        local
zfstank  feature@skein                  enabled                        local

# zfs list
NAME      USED  AVAIL  REFER  MOUNTPOINT
zfstank   518K  5.20T   156K  /zfstank

# zfs get all zfstank
NAME     PROPERTY              VALUE                  SOURCE
zfstank  type                  filesystem             -
zfstank  creation              Tue May 15 15:16 2018  -
zfstank  used                  518K                   -
zfstank  available             5.20T                  -
zfstank  referenced            156K                   -
zfstank  compressratio         1.00x                  -
zfstank  mounted               yes                    -
zfstank  quota                 none                   default
zfstank  reservation           none                   default
zfstank  recordsize            128K                   default
zfstank  mountpoint            /zfstank               default
zfstank  sharenfs              off                    default
zfstank  checksum              on                     default
zfstank  compression           lz4                    local
zfstank  atime                 off                    local
zfstank  devices               on                     default
zfstank  exec                  on                     default
zfstank  setuid                on                     default
zfstank  readonly              off                    default
zfstank  jailed                off                    default
zfstank  snapdir               hidden                 default
zfstank  aclmode               discard                default
zfstank  aclinherit            restricted             default
zfstank  canmount              on                     default
zfstank  xattr                 off                    temporary
zfstank  copies                1                      default
zfstank  version               5                      -
zfstank  utf8only              on                     -
zfstank  normalization         formD                  -
zfstank  casesensitivity       sensitive              -
zfstank  vscan                 off                    default
zfstank  nbmand                off                    default
zfstank  sharesmb              off                    default
zfstank  refquota              none                   default
zfstank  refreservation        none                   default
zfstank  primarycache          all                    default
zfstank  secondarycache        all                    default
zfstank  usedbysnapshots       0                      -
zfstank  usedbydataset         156K                   -
zfstank  usedbychildren        362K                   -
zfstank  usedbyrefreservation  0                      -
zfstank  logbias               latency                default
zfstank  dedup                 off                    default
zfstank  mlslabel                                     -
zfstank  sync                  standard               default
zfstank  refcompressratio      1.00x                  -
zfstank  written               156K                   -
zfstank  logicalused           30.5K                  -
zfstank  logicalreferenced     11.5K                  -
zfstank  volmode               default                default
zfstank  filesystem_limit      none                   default
zfstank  snapshot_limit        none                   default
zfstank  filesystem_count      none                   default
zfstank  snapshot_count        none                   default
zfstank  redundant_metadata    all                    default

gpartコマンドで状態を確認する

# gpart list -a
# gpart show -l		# labelが表示される
# gpart show		# partition tagが表示される
# gpart status		# 現在の状態が表示される

datasetとzvolを作成する

iSCSI用のzvolを作成
https://github.com/erigones/esdc-ce/wiki/Simple-iSCSI-target-and-initiator-setup
http://decomo.info/wiki/freebsd/freebsd_11_configure_iscsi_target

zfs create -o volmode=dev -V 3T zfstank/zd0v0

NFS用のdatasetを作成

zfs create zfstank/iso
# Mountpointを特に指定したい場合は、-o mountpoint を指定する
zfs create -o mountpoint=/zfstank/zd0d1 zfstank/iso

確認

# zfs list
NAME            USED  AVAIL  REFER  MOUNTPOINT
zfstank        3.09T  2.10T   156K  /zfstank
zfstank/zd0v0  3.09T  5.20T  99.4K  -

# zfs get all zfstank/zd0v0
NAME           PROPERTY              VALUE                  SOURCE
zfstank/zd0v0  type                  volume                 -
zfstank/zd0v0  creation              Tue May 15 16:10 2018  -
zfstank/zd0v0  used                  3.09T                  -
zfstank/zd0v0  available             5.20T                  -
zfstank/zd0v0  referenced            99.4K                  -
zfstank/zd0v0  compressratio         1.00x                  -
zfstank/zd0v0  reservation           none                   default
zfstank/zd0v0  volsize               3T                     local
zfstank/zd0v0  volblocksize          8K                     -
zfstank/zd0v0  checksum              on                     default
zfstank/zd0v0  compression           lz4                    inherited from zfstank
zfstank/zd0v0  readonly              off                    default
zfstank/zd0v0  copies                1                      default
zfstank/zd0v0  refreservation        3.09T                  local
zfstank/zd0v0  primarycache          all                    default
zfstank/zd0v0  secondarycache        all                    default
zfstank/zd0v0  usedbysnapshots       0                      -
zfstank/zd0v0  usedbydataset         99.4K                  -
zfstank/zd0v0  usedbychildren        0                      -
zfstank/zd0v0  usedbyrefreservation  3.09T                  -
zfstank/zd0v0  logbias               latency                default
zfstank/zd0v0  dedup                 off                    default
zfstank/zd0v0  mlslabel                                     -
zfstank/zd0v0  sync                  standard               default
zfstank/zd0v0  refcompressratio      1.00x                  -
zfstank/zd0v0  written               99.4K                  -
zfstank/zd0v0  logicalused           6K                     -
zfstank/zd0v0  logicalreferenced     6K                     -
zfstank/zd0v0  volmode               dev                    local
zfstank/zd0v0  snapshot_limit        none                   default
zfstank/zd0v0  snapshot_count        none                   default
zfstank/zd0v0  redundant_metadata    all                    default

# zfs list
NAME            USED  AVAIL  REFER  MOUNTPOINT
zfstank        3.09T  2.10T   156K  /zfstank
zfstank/iso     156K  2.10T   156K  /zfstank/iso
zfstank/zd0v0  3.09T  5.20T  99.4K  -

# zfs get all zfstank/iso
NAME         PROPERTY              VALUE                  SOURCE
zfstank/iso  type                  filesystem             -
zfstank/iso  creation              Tue May 15 16:11 2018  -
zfstank/iso  used                  156K                   -
zfstank/iso  available             2.10T                  -
zfstank/iso  referenced            156K                   -
zfstank/iso  compressratio         1.00x                  -
zfstank/iso  mounted               yes                    -
zfstank/iso  quota                 none                   default
zfstank/iso  reservation           none                   default
zfstank/iso  recordsize            128K                   default
zfstank/iso  mountpoint            /zfstank/iso           default
zfstank/iso  sharenfs              off                    default
zfstank/iso  checksum              on                     default
zfstank/iso  compression           lz4                    inherited from zfstank
zfstank/iso  atime                 off                    inherited from zfstank
zfstank/iso  devices               on                     default
zfstank/iso  exec                  on                     default
zfstank/iso  setuid                on                     default
zfstank/iso  readonly              off                    default
zfstank/iso  jailed                off                    default
zfstank/iso  snapdir               hidden                 default
zfstank/iso  aclmode               discard                default
zfstank/iso  aclinherit            restricted             default
zfstank/iso  canmount              on                     default
zfstank/iso  xattr                 off                    temporary
zfstank/iso  copies                1                      default
zfstank/iso  version               5                      -
zfstank/iso  utf8only              on                     -
zfstank/iso  normalization         formD                  -
zfstank/iso  casesensitivity       sensitive              -
zfstank/iso  vscan                 off                    default
zfstank/iso  nbmand                off                    default
zfstank/iso  sharesmb              off                    default
zfstank/iso  refquota              none                   default
zfstank/iso  refreservation        none                   default
zfstank/iso  primarycache          all                    default
zfstank/iso  secondarycache        all                    default
zfstank/iso  usedbysnapshots       0                      -
zfstank/iso  usedbydataset         156K                   -
zfstank/iso  usedbychildren        0                      -
zfstank/iso  usedbyrefreservation  0                      -
zfstank/iso  logbias               latency                default
zfstank/iso  dedup                 off                    default
zfstank/iso  mlslabel                                     -
zfstank/iso  sync                  standard               default
zfstank/iso  refcompressratio      1.00x                  -
zfstank/iso  written               156K                   -
zfstank/iso  logicalused           11.5K                  -
zfstank/iso  logicalreferenced     11.5K                  -
zfstank/iso  volmode               default                default
zfstank/iso  filesystem_limit      none                   default
zfstank/iso  snapshot_limit        none                   default
zfstank/iso  filesystem_count      none                   default
zfstank/iso  snapshot_count        none                   default
zfstank/iso  redundant_metadata    all                    default

zvolの場合に、compressionがzfstankから引き継いでいることを確認
datasetの場合に、compression/atimeがzfstankから引き継がれ、normarizationがzfstankと同じであることを確認

iSCSI関連設定

iSCSI関係の設定を行う。

一昔前は、iSCSI targetになるためには、istgtコマンドを利用していた。 istgtはUserlandのiSCSI taeget実装であり、NetBSDやMacOS-X Leopardでも動作したため散々お世話になったが、（安定していることもあって）現在ではほぼメンテナンスされていないことと、FreeBSDのDistributionにctldが含まれ、iSCSI targetとして動作させることが可能になったため、本稿ではctldを利用するものとする。

参考

設定する

/etc/ctl.confを作成

#
# ctl.conf : FreeBSD iSCSI target configuration
#

# iSCSI portal configuration

portal-group pg0 {
    discovery-auth-group no-authentication
    listen 198.51.100.254:3260
}

# iSCSI target configuration
target iqn.2018-05.org.example:target0 {
    alias "nas-temp zd0v0"
    auth-group no-authentication
    portal-group pg0

    lun 0 {
        path /dev/zvol/zfstank/zd0v0
        blocksize 4096
        option vendor "FreeBSD"
    }
}

chmod 640 /etc/ctl.confを実行
/etc/rc.confでctldをenableにする
- echo 'ctld_enable=“YES”' » /etc/rc.conf
service ctld start : ctldを起動

確認

筆者の環境はmacOSなので、iSCSIの試験を行うには工夫が必要。

Macで無料ツールを使ってiSCSIボリュームをマウントするを参考にmacOSにiSCSIinitiatorを導入する。

なお、Binaryはここにある。

以下、macOSからの確認

# iscsictl add target iqn.2018-05.org.example:target0,198.51.100.254
The specified target has been added
# iscsictl list targets
iqn.2018-05.org.example:target0 <inactive, static>
	198.51.100.254 <inactive, port 3260, interface default>
# iscsictl login iqn.2018-05.org.example:target0,198.51.100.254
Attached iqn.2018-05.org.example:target0 <scsi domain 0, target 0>
	FreeBSD CTLDISK 0001
	Serial Number MYSERIAL   0
	lun 0: type 0x00 (Block device)
# iscsictl list targets
iqn.2018-05.org.example:target0 <active, static, sid 0, tpgt 257, tsid 0xbadd>
	198.51.100.254 <active, cid 0, port 3260, interface default>
# iscsictl list luns
iqn.2018-05.org.example:target0 <scsi domain 0, target 0>
	FreeBSD CTLDISK 0001
	Serial Number MYSERIAL   0
	lun 0: type 0x00 (Block device)
		disk2: 3.3 TB (805306368 4096 byte blocks)
# iscsictl logout iqn.2018-05.org.example:target0,198.51.100.254
Detached iqn.2018-05.org.seirios.dsk:target0
# iscsictl remove target iqn.2018-05.org.example:target0,198.51.100.254
The specified portal has been removed
#

NFS関連設定

rc.conf内で、以下の設定が有効になっていることを確認
- NFSv2およびNFSv4は利用しない
- NFS Clientにはならない
- XCP-ngはLinuxなので、Linuxに合わせた設定を行う必要がある
  - RPC関連の挙動が異なったりするので、RCP関連のDaemonは必須
- ```
# NFS Configuration
rpc_lockd_enable="YES"
rpc_statd_enable="YES"
rpcbind_enable="YES"

nfs_client_enable="NO" 
autofs_enable="NO" 

mountd_enable="YES"
mountd_flags="-lr"
nfs_server_enable="YES"

nfsv4_server_enable="NO"
nfsuserd_enable="NO"
nfsuserd_flags="-domain localdomain"
```
NFSで公開するDirectoryを指定する
- 昔から、maproot関連は色々鬼門なので、気になる人は節末のコラムを参照のこと
- exports
  /zfstank/iso -network 198.51.100.0/24 -maproot=root -alldirs

確認

showmount -e: 現在公開しているDirectoryを表示する
showmount -a: 現在NFS mountされているDirとNFS Clientを表示する

mountdの再起動には、HUP Signalを送れば良い。

/etc/exportsを書き換えた後などでkill -HUP `cat /var/run/mountd.pid` を実行すると良い。

exportsに記載するオプションとして、maprootがある。

NFSで供給されているファイルシステムに対してrootユーザーが書き込みを行う場合、通常であれば、ファイルのオーナーはrootになるはずである。しかし、これは、ファイルシステムを供給しているNFSサーバーおよび同一のファイルシステムを共有している他のNFS Clientが、そのファイルのオーナーをrootとして認識することになる。

書き込まれたファイルが一般ファイルであれば多くの場合は問題にならないが、実行ファイルであった場合には脆弱性を生む元凶となる場合がある。

例1: ShellなどのScriptを実行可能にしておくと、多くのシステムでその実行ファイルを実行することが可能
例2: 実行ファイルにSUID Bitを立てておくと何が起こるか感がて見てください

そのため、特にroot userが書き込む場合にのみ、Fileのオーナーを別のUIDに割り当てる機能がmaprootである。

例えば-maproot=nobody:nogroupとした場合、rootがそのファイルシステムにファイルを作成すると、Owner:Group = nobody:nogroupとなる。

落ち穂拾い

/var/log/messages に GPT table is corrupt が出ている場合。

gpart recover <geom>
参考: http://yomemacs.hatenablog.jp/entry/2014/02/04/205509

TimeMachineバックアップに使う場合

TimeMachine用、DVD鑑賞用、写真バックアップ用のパーティションを afp で見えるようにすればよい。

MacのFinderの接続あたりから afp://xxx.xxx.xxx.xxx:5128 とかやればOKのはず

netatalk3を入れる
- pkg install netatalk3
参考

これでMacOSからも見れるようになる。

参考

https://qiita.com/ryuinada/items/36535a0e7f1846d89fb6 ZFSのRAIDZの修復とついでに拡張する

Emacs - [macOS]

seirios@undisclosed.example.com (seirios) — Tue, 27 Jan 2026 23:31:02 +0000

Emacs

まくら　

Emacsはとても古いEditor実装である。自分がEmacsを利用し始めたのは、高校生の時代にX68000を使っていた頃のはず。PC8801-mk2SRの次に入手したのがX68000だったとおもう。

それまでもPCは使っていた。88の頃は主にゲームばかり。X68000を手に入れてパソコン通信のChatにはまり、PC9801LVを入手してBBSサーバーにしたりはしていたが、普段使いのComputerはX68000だったと思う。

プログラムを書くようになって最初に手に馴染んだEditorはμEmacsだった。X68000でmicro Emacsを使い始めたのが最初だったと思う。そこからNEmacsに移り、Muleに移り、icam版GNU Emacsに移っていった。当時、TeXにがっつりハマり、pTeX(pLaTeXではない)で縦書き３段組の同人誌を作ったりもしていた。EmacsでTeX modeが非常に便利だったことを覚えている。

それ以来EditorといえばEmacs系のものを利用している。浪人時代に、中古で買ったSony NEWS(NEWS 1250, NEWS830, NEWS 3860)でThin EthernetでNetworkを組み、X68000をSerial Terminal にしてみたり、大学でSun MicrosystemsのSPARCstation 5, 10, IPC, IPX あたりを利用していたが、その時もEditorは常にEmacsだった。

大学時代から、Unix System管理者としては、当然にed, ex, viを「最小限」使っていた。「viはEmacsをCompileするためのpatch適用のためのEditorでしょ」なんてイキがっていたこともあった。要するに、EmacsのKey Bindingsに体が馴染んでおり、他のEditorに引っ越すことができなかっただけだろう。当然、秀丸、Vzなど様々なEditorを触ってきたし、なんとなれば EcripsやVisualStudioなどのIDEも利用したことはあるが、やはりEmacsに戻ってきてしまった。

社会人になっても、Reportや提出書類の大半はTeXを利用していた(WYSIWYGなんて面倒で不便と思っていた。今でもそう思うことは多い)ので、2000年代前半まではEmacs/TeXでほとんどの文書を処理していたし、WordやExcelを使わざるを得ない場合は、同僚のPCで処理させてもらうという悪逆非道なことをしていた。しかし、仕事の関係でどうしてもExcelやPowerPoint/KeyNoteを利用することがメインになったため、しばらく(15年くらい)ほとんどEmacsを利用していなかった。

最近またEmacsに戻ってきたので、備忘録も兼ねてEmacsの設定などを記載することにした。

マクラが長い。しかも割と黒歴史だったorz...

2024/11/07
- Updated for emacs-plus@31
- Remove poll(Removed from emacs-plus because poll causes problem
- install after commandline, add sign.

環境とInstall

2024年現在、メイン端末はMacBookProで、管理しているサーバーは大半がFreeBSD(一部NetBSD, OpenBSD, AlmaLinux, Debian GNU Linux, Ubuntu, Windows11がある)である。したがって、最も利用する端末であるMacBookProにEmacsを導入しており、その他の環境では原則としてvi系のSystem標準Editorを利用している。

環境

年代	端末	CPU	Memory	OS
2024年	MacBookPro 16“ 2019	Intel Core-i9	64G	macOS Sonoma/14.6.1
2024年	VM(XCP-ng)	AMD Ryzen7 3700X	4G	FreeBSD 14.1

Install

昔はSource Codeを持ってきてCompileしていたが現在では流石にBinary Packageを利用している。

macOS

MacOSの場合、IMEのInline patchを当てないとMetaコマンド系を入力する際にM-あなどとなって少し（というかだいぶ）不便なので、patchを適用する。そのため、少し面倒な対応が必要になる。

[参考]

macOSに HomeBrew を導入し、以下の一連の流れでInstallした。

$ mkdir ~/.config/emacs-plus
$ vi ~/.config/emacs-plus/build.yml
icon: modern-pen
patches:
  - aggressive-read-buffering
  - frame-transparency
  - mac-font-use-typo-metrics
$ brew tap d12frosted/emacs-plus	# Emacs-plusのtapを追加 brew tapで取り込んでいるTapを確認できる
$ brew edit emacs-plus@31		# Emacs-plus@30 (2024年8月現在のHead) のConfigを修正
.... configuration ....
  #
  # Patches
  #

  opoo "The option --with-imagemagick is deprecated and will be removed in a future version. Modern Emacs has native support for most image formats (SVG via librsvg, WebP, PNG, JPEG, GIF). If you rely on ImageMagick, please open an issue describing your use case." if build.with? "imagemagick"
  local_patch "system-appearance", sha: "53283503db5ed2887e9d733baaaf80f2c810e668e782e988bda5855a0b1ebeb4"
  local_patch "round-undecorated-frame", sha: "26947b6724fc29fadd44889808c5cf0b4ce6278cf04f46086a21df50c8c4151d"
  # Added by seirios
  patch do
    url "https://raw.githubusercontent.com/takaxp/ns-inline-patch/master/emacs-head-inline.patch"
  end

  #
  # Install
  #
.... configuration ....
$ brew install --formula d12frosted/emacs-plus/emacs-plus@31 --with-mailutils
$ osascript -e 'tell application "Finder" to make alias file to posix file "/opt/homebrew/opt/emacs-plus@31/Emacs.app" at POSIX file "/Applications" with properties {name:"Emacs.app"}'
$ sudo codesign --force --deep --sign - /opt/homebrew/opt/emacs-plus@31/Emacs.app
$ brew services start d12frosted/emacs-plus/emacs-plus@31

ここまでを実行すると、

/Applications FolderにEmacs.appが作成される
LaunchPad にEmacsアイコンが追加され、
起動項目にemacsが追加され、
BackgroundでEmacsが起動

される。一応 Inline-patch を確認するために、一度Emacsを起動し、

M-x mac-ime-toggle
M-x mac-ime-activate
M-x mac-ime-deactivate

が動作するかを確認しておく。

なお、自明だが、ImageMagickやDBUSを利用する場合には、brew install imagemagick dbusを実行しておくこと。

このIME用 Inline-Patchを適用した場合、init.elに以下のelisp codeを追加しておくと良い。

(when (and (memq window-system '(ns nil))
           (fboundp 'mac-get-current-input-source))
  (when (version< "27.0" emacs-version)
    ;; Required for some cases when auto detection is failed or the locale is "en".
    (custom-set-variables
     '(mac-default-input-source "com.google.inputmethod.Japanese.base")))
  (mac-input-method-mode 1))

Emacs install時の引数に –with-x11 を追加すると、Compileに失敗した(@2024/08/15)

–with-imagemagickをつけてCompile/Installすると、mu4eを利用している時に画像などが綺麗に出力されるので、余裕があるなら入れておくほうが良い。
~~–with-dbusをつけてCompile/Installすると、Process間通信のMessage BUSとしてDBUSを利用する。~~　Obsolate.

https://github.com/d12frosted/homebrew-emacs-plus/issues/742
ここにあるように、macOS Sequoiaにおいて、Xcode commandline tools を最新にすると、Emacs.appを実行できない。
sudo codesign –force –deep –sign - /usr/local/opt/emacs-plus@31/Emacs.app
によってApp FileをSignすると実行できるようになる。注意すること

Reading directory: Operation not permitted エラーが出て、Emacsからフォルダが開けない場合
macOS SequoiaでEmacsをInstallした後、どうしてもDesktop FolderをEmacsから開けなかった。
こういう時は、一度フルディスクアクセス設定を削除したのち、もう一度フルディスクアクセス設定を行うことで回避できる可能性がある。
Commandlineから sudo tccutil reset All org.gnu.Emacs を実行し、システム環境設定からセキュリティ→フルディスクアクセスに移動し、左下の「＋」からEmacs.appを追加。その後、Emacs.appを再度起動すると、Desktopフォルダにアクセスできるようになった。

FreeBSD

自分はFreeBSDをサーバーとして利用しており、GUIを利用していない。そのため、EmacsをX11経由ではなくConsoleから利用している。ほとんどの接続がssh経由だからこれでよい。

したがって、EmacsのInstallは

$ doas pkg install emacs-nox		# sudoでもよい

で終わりである。

初期設定

Emacsはそれ単体では最小限のことしかできない。しかし、Emacs-Lispを組み込み、設定を行うことで色々なことができるようになる。これを称して、昔は、「EmacsはEditorではない。Environmentである」などとも言われていた。

以下、個人の設定。 (2024/08/26)

ここで、Packageごとの設定など、細かいことを説明すればいいんだろうけど、かなり面倒なので、コメントで勘弁して。

このinit.elは、byte-compileするとgo-translate関連の変数が未定義扱いになる。本来は:customで設定すべきなんだろうと思うがうまく行かなかったので、とりあえずは:configで逃げてある。

early-init.el

;;; -*- lexical-binding: t; -*-
;;; ~/.config/emacs/early-init.el --- Early initialization
;;;
;;; last updated: 2026/01/02
;;; Author: HEO SeonMeyong <seirios@seirios.org>
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; log
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 2026/01/02	Refactoring by Microsoft Copilot.
 
;; 起動直後は GC を後ろ倒し（起動後に元へ戻す）
(setq gc-cons-threshold most-positive-fixnum)
(add-hook 'emacs-startup-hook (lambda () (setq gc-cons-threshold 134217728)))
 
;; package.el は自動では有効化しない（init.el側で initialize）
(setq package-enable-at-startup nil)
 
;; フレームの暗黙のリサイズ抑制（ちらつき防止）
(setq frame-inhibit-implied-resize t)
 
;; 早期に不要なUIをオフ
(push '(tool-bar-lines . 0)   default-frame-alist)
(push '(menu-bar-lines . 1)   default-frame-alist)
(push '(vertical-scroll-bars) default-frame-alist)
 
(provide 'early-init)
;;; early-init.el ends here

init.el

;;; -*- lexical-binding: t; -*-
;;; ~/.config/emacs/init.el --- Refactored init.el (Intel macOS)
;;;
;;; last updated: 2026/01/02
;;; Author: HEO SeonMeyong <seirios@seirios.org>
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Tips
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; emacs -nw -q --batch --eval '(message system-configuration-options)'	; Emacs compile option(Commandline)
;; emacs --batch -f batch-byte-compile init.el				; init.elの文法チェック(init.elcは削除すること)
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Prefix keys memo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; C-? : Control+?
;; M-? : Meta(ESC)+?
;; s-? : Super(command)+?
;; S-? : Shift+?	(本当？)
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; コメント定義
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; セミコロン 3 つは段落コメント
;; セミコロン 2 つはコードブロックコメント
;; セミコロン 1 つは、行コメント
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Reference site
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; https://emacs-jp.github.io						; 日本のEmacsユーザーのためのハブサイト
;;   https://emacs-jp.github.io/tips/emacs-in-2020			; * 2020年代のEmacs入門
;; https://qiita.com/conao3/items/347d7e472afd0c58fbd7			; * Emacs入門から始めるleaf.el入門
;; https://qiita.com/conao3/items/dc88bdadb0523ef95878			; * leaf.elで「init.el」をクリーンにする
;; https://uwabami.github.io/cc-env/Emacs.html				; Emacs の設定
;; https://zenn.dev/zenwerk/scraps/b1280f66c8d11a			; Emacs設定記 2021
;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Find-Init.html	; Emacs Manual
;; https://github.com/purcell/exec-path-from-shell			; Macでshellから環境変数を取り込む
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; log
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 2026/01/02	Refactoring by Microsoft Copilot.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Path & package bootstrap
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 追加の elisp を load-path に加える（存在チェック付き）
(let ((extra-paths '("/usr/local/share/emacs/site-lisp"
                     "~/.config/emacs/elisp/")))
  (dolist (p extra-paths)
    (let ((abs (expand-file-name p)))
      (when (file-directory-p abs)
        (add-to-list 'load-path abs)))))
 
;; Info の追加ディレクトリ（Homebrew等）
(dolist (info-dir '("/usr/local/share/info/"))
  (when (file-directory-p info-dir)
    (add-to-list 'Info-default-directory-list info-dir)))
 
;; package.el の初期化（early-init.el で package-enable-at-startup を nil にしている前提）
(require 'package)
(custom-set-variables
 '(package-archives '(("gnu"   . "https://elpa.gnu.org/packages/")
                      ("melpa" . "https://melpa.org/packages/")
                      ("org"   . "https://orgmode.org/elpa/")))
 '(package-gnupghome-dir (expand-file-name ".gnupg" (getenv "HOME"))))
(package-initialize)
 
;; leaf を未導入なら取得
(unless (package-installed-p 'leaf)
  (package-refresh-contents)
  (package-install 'leaf))
 
(leaf leaf-keywords
  :ensure t
  :config (leaf-keywords-init))
 
;; customize の書き込み先を分離
(setq custom-file (expand-file-name "~/.config/emacs/custom.el"))
(when (file-exists-p custom-file)
  (load custom-file))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; macOS: シェルの環境変数を取り込む（GUI起動でも PATH 等を揃える）
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf exec-path-from-shell
  :ensure t
  :require t
  :when (memq window-system '(mac ns x))
  :config
  (dolist (var '("PATH" "MANPATH" "LD_LIBRARY_PATH" "LIBRARY_PATH"))
    (add-to-list 'exec-path-from-shell-variables var))
  (exec-path-from-shell-initialize))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 基本設定（UI/操作系）
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf cus-start
  :doc "Builtins のカスタマイズをまとめる"
  :bind (("M-%"      . replace-regexp)
         ("C-c M-%"  . query-replace-regexp)
         ("C-%"      . replace-string)
         ("C-c C-%"  . query-replace)
         ("C-z"      . undo)
         ("C-x c"    . browse-url-at-point)
         ("C-h"      . delete-backward-char)
         ("C-c C-l"  . toggle-truncate-lines)
         ("C-c /"    . comment-or-uncomment-region)
         ("C-c l"    . display-line-numbers-mode)
         ("C-s"      . isearch-forward)
         ;; mu4e ランチャー
         ("C-x m"    . mu4e)
         ;; Tab-bar 操作（mac風）
         ("s-}"      . tab-bar-switch-to-next-tab)
         ("s-{"      . tab-bar-switch-to-prev-tab)
         ("s-T"      . tab-new)
         ("s-w"      . tab-close))
  :hook ((minibuffer-setup-hook . shrink-window-if-larger-than-buffer))
  :custom '((create-lockfiles . nil)                 ; lockfile を作らない
            (debug-on-error . t)                     ; エラー時 backtrace
            (frame-resize-pixelwise . t)
            (enable-recursive-minibuffers . t)
            (history-length . 1000)
            (history-delete-duplicates . t)
            (scroll-preserve-screen-position . t)
            (scroll-conservatively . 10000)
            (scroll-step . 1)
            (scroll-margin . 2)
            (visible-bell . t)
            (text-quoting-style . 'straight)
            (truncate-lines . nil)                   ; 折り返し表示
            (tab-width . 8)
            (line-number-display-limit-width . 10000)
            (resize-mini-windows . t)
            (max-mini-window-height . 0.1)
            (indicate-empty-lines . t)
            (indicate-buffer-boundaries . 'left)
            (gc-cons-percentage . 0.2)
            (gc-cons-threshold . 134217728)         ; 128MB
            (menu-bar-mode . t)
            (tool-bar-mode . nil)
            (scroll-bar-mode . nil)
            (indent-tabs-mode . nil)
            (transient-mark-mode . t)
            (tab-bar-mode . t))
  :config
  ;; yes-or-no を y/n に短縮
  (defalias 'yes-or-no-p 'y-or-n-p)
  ;; 改行のバックスラッシュを非表示
  (set-display-table-slot standard-display-table 0 ?\ )
  (set-display-table-slot standard-display-table 'wrap ?\ )
  ;; macOS 固有
  (leaf cus-start-mac
    :when (eq system-type 'darwin)
    :custom ((ns-alternate-modifier . 'meta)
             (ns-use-srgb-colorspace . t)))
             ;; Frame Transparency (for emacs-plus@31)
             ;; (set-frame-parameter nil 'ns-alpha-elements nil)	; Not use Transparency
             (set-frame-parameter nil 'ns-alpha-elements '(ns-alpha-all))
             ;; Choose elements:
             ;; - Full list: ns-alpha-default (default face/background)
             ;;              ns-alpha-fringe (fringes + internal border clears)
             ;;              ns-alpha-box (boxed face outlines)
             ;;              ns-alpha-stipple (stipple mask background clears)
             ;;              ns-alpha-relief (3D relief/shadow lines)
             ;;              ns-alpha-glyphs (glyph background fills like hl-line/region)
             (set-frame-parameter nil 'ns-alpha-elements
                 '(ns-alpha-default ns-alpha-fringe ns-alpha-glyphs))
             (set-frame-parameter nil 'alpha-background 0.8)
             (set-frame-parameter nil 'ns-background-blur 20)
)
 
;; dired のショートカット
(leaf dired :bind ((:dired-mode-map ("u" . dired-up-directory))))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 多言語環境（mule）
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf mule
  :config
  (set-language-environment 'Japanese)
  (set-terminal-coding-system 'utf-8)
  (set-keyboard-coding-system 'utf-8)
  (set-buffer-file-coding-system 'utf-8)
  (set-file-name-coding-system 'utf-8)
  (set-clipboard-coding-system 'utf-8)
  (prefer-coding-system 'utf-8)
  (set-default-coding-systems 'utf-8)
  (when (eq system-type 'darwin)
    (customize-set-variable 'default-input-method "macOS")))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; GUI/フォント
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(when (memq window-system '(x mac ns))
  (defvar my-frame-parameters
    '((height . 45) (width . 188)
      (top . 20) (left . 20)
      (line-spacing . 0)
      (left-fringe . 12) (right-fringe . 12)
      (cursor-type . box)
      (alpha . 95)
      (foreground-color . "#F2F2F2")
      (background-color . "#000040")
      (cursor-color . "#C0C000")
      (mouse-color . "#8D8D8D")))
  (setq default-frame-alist my-frame-parameters)
  (setq frame-title-format '(multiple-frames "%b" ("" invocation-name)))
  (setq blink-cursor-mode t)
  (setq frame-inherited-parameters '(font tool-bar-lines))
  (setq ns-pop-up-frames nil)
  ;; mac/ns フォント
  (when (memq window-system '(mac ns))
    (global-set-key [s-mouse-1] 'browse-url-at-mouse)
    (let* ((size 16)
           (jpfont "PlemolJP")
           (asciifont "PlemolJP")
           (h (* size 10)))
      (set-face-attribute 'default nil :family asciifont :height h)
      (set-fontset-font t 'katakana-jisx0201 jpfont)
      (set-fontset-font t 'japanese-jisx0208 jpfont)
      (set-fontset-font t 'japanese-jisx0212 jpfont)
      (set-fontset-font t 'japanese-jisx0213-1 jpfont)
      (set-fontset-font t 'japanese-jisx0213-2 jpfont)
      (set-fontset-font t '(#x0080 . #x024F) asciifont))
    (setq face-font-rescale-alist
          '(("^-apple-hiragino.*" . 1.2)
            (".*-Hiragino Maru Gothic ProN-.*" . 1.2)
            (".*osaka-bold.*" . 1.2)
            (".*osaka-medium.*" . 1.2)
            (".*courier-bold-.*-mac-roman" . 1.0)
            (".*monaco cy-bold-.*-mac-cyrillic" . 0.9)
            (".*monaco-bold-.*-mac-roman" . 0.9)
            ("-cdac$" . 1.3))))
  ;; マウス設定
  (setq mouse-drag-copy-region t)
  (setq mouse-wheel-scroll-amount '(1 ((shift) . 2) ((control))))
  (setq mouse-wheel-progressive-speed nil))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Builtins: modeline/time 等
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf which-function :custom '((which-function-mode . t)))
 
(leaf time
  :hook (emacs-startup-hook . display-time-mode)
  :custom '((display-time-interval . 1)
            (display-time-string-forms '((format "%s:%s:%s" 24-hours minutes seconds)))
            (display-time-day-and-date . t)))
 
(leaf browse-url
  :custom '((browse-url-browser-function . 'browse-url-generic))
  :config
  (when (eq system-type 'darwin)
    (customize-set-variable 'browse-url-generic-program "open")))
 
(leaf time-stamp
  :hook (before-save-hook . time-stamp)
  :custom '((time-stamp-active . t)
            (time-stamp-start . "last updated: ")
            (time-stamp-format . "%Y/%02m/%02d")
            (time-stamp-end . " \n$")))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 表示/編集補助
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
(setq-default display-line-numbers nil)			;; 行番号は基本オフ（必要なら C-c l で局所的にトグル）
(global-display-line-numbers-mode -1)			;; ← nil ではなく -1 で確実に OFF
(setq column-number-mode t)
(setq size-indication-mode t)
 
(leaf whitespace
  :require t
  :hook (find-file-hook . (lambda () (whitespace-mode 1)))
  :config
  (setq whitespace-style '(face trailing tabs empty spaces)
        ;; 全角スペースのみ可視化
        whitespace-space-regexp "\\(\\u3000+\\)")
  ;; フェイスは一度だけ設定
  (set-face-attribute 'whitespace-trailing nil
    :foreground "DeepPink" :background "Purple4" :underline t)
  (set-face-attribute 'whitespace-tab nil
    :foreground "RoyalBlue4" :background "gray20" :underline t)
  (set-face-attribute 'whitespace-space nil
    :background "blue3" :foreground "GreenYellow" :weight 'bold :underline t)
  (set-face-attribute 'whitespace-empty nil
    :foreground "MediumPurple4" :background "thistle4" :underline t)
  (global-whitespace-mode t))
 
(leaf paren
  :hook (emacs-startup-hook . show-paren-mode)
  :custom '((show-paren-delay . 0)
            (show-paren-style . 'mixed)))
 
(leaf simple
  :custom '((kill-ring-max . 100)
            (kill-read-only-ok . t)
            (kill-whole-line . nil)
            (eval-expression-print-length . nil)
            (eval-expression-print-level . nil)
            (indent-tabs-mode . nil)
            (mail-user-agent . 'mu4e-user-agent)))
 
(leaf files
  :custom '((make-backup-files . t)
            (backup-by-copying . t)
            (version-control . t)
            (kept-new-versions . 2)
            (kept-old-versions . 2)
            (delete-old-versions . t)
            (auto-save-timeout . 15)
            (auto-save-interval . 60)
            (delete-auto-save-files . t)))
 
(leaf startup
  :config
  (setq init-file-debug t
        auto-save-list-file-prefix (locate-user-emacs-file "backup/.saves-")
        inhibit-startup-screen t
        inhibit-startup-message t
        inhibit-startup-echo-area-message t
        initial-scratch-message ""))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 補完: company
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf company
  :ensure t
  :bind (("C-M-i" . company-complete)
         (:company-active-map
          ("C-n" . company-select-next)
          ("C-p" . company-select-previous)
          ("C-s" . company-filter-candidates)
          ("C-h" . nil)
          ("C-S-h" . company-show-doc-buffer)
          ("<tab>" . company-complete-common))
         (:company-search-map
          ("C-n" . company-select-next)
          ("C-p" . company-select-previous)))
  :custom '((company-idle-delay . 0.3)
            (company-minimum-prefix-length . 2)
            (company-transformers . '(company-sort-by-backend-importance))
            (company-auto-expand . t)
            (company-selection-wrap-around . t)
            (completion-ignore-case . t)
            (company-dabbrev-downcase . nil)
            (company-show-numbers . t)))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 言語モード
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf lua-mode
  :ensure t
  :mode ("\\.lua\\'" . lua-mode)
  :interpreter ("lua" . lua-mode)
  :custom '((lua-indent-level . 2)
            (lua-indent-string-contents . nil)
            (lua-indent-nested-block-content-align . t)
            (lua-indent-close-paren-align . t)
            (lua-default-application . "/usr/local/bin/lua")
            (lua-default-command-switches . "-i")
            (lua-always-show . t))
  :config (add-hook 'lua-mode-hook #'company-mode))
 
(leaf caddyfile-mode
  :ensure t
  :mode (("Caddyfile\\'" . caddyfile-mode)
         ("caddy\\.conf\\'" . caddyfile-mode))
  :hook (caddyfile-mode-hook . (lambda () (setq-local tab-width 4
                                                     indent-tabs-mode nil))))
 
(leaf nginx-mode
  :ensure t
  :mode (("nginx\\.conf\\'" . nginx-mode))
  :hook (nginx-mode-hook . company-mode))
 
(leaf w3m
  :ensure t
  :custom ((w3m-command . "/usr/local/bin/w3m")))
 
(leaf vc-fossil
  :ensure t
  :init (add-to-list 'vc-handled-backends 'Fossil t))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 翻訳: go-translate (鍵は環境変数/認証ストアから取得推奨)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf go-translate
  :ensure t
  :bind (("C-c t" . gt-do-translate))
  :custom '((gt-langs . '(en ja)))
  :config
  ;; DeepL API キーは環境変数 DEEPL_API_KEY から取得。未設定なら DeepL を使わず Google/Bing へフォールバック。
  (let ((deepl-key (getenv "DEEPL_API_KEY")))
    (setq gt-default-translator
          (gt-translator
           :taker (gt-taker :text 'buffer :pick 'paragraph)
           :engines (delq nil (list (gt-deepl-engine :key "d7b2482e-9a53-43a5-885d-bc511b7b0aad:fx" :pro nil)
                                    (gt-google-engine)
                                    (gt-bing-engine)))
           :render (gt-buffer-render)))))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; EasyPG (GPG)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(leaf epa-file
  :require t
  :config
  (epa-file-enable)
  ;; pinentry-mode は epg-config の変数
  (with-eval-after-load 'epg-config
    (setq epg-pinentry-mode 'loopback)))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; mu4e 設定を分離ロード
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load (expand-file-name "~/.config/emacs/mu4e-init.el") t)
 
(provide 'init)
;;; init.el ends here

mu4e - [mu4e]

seirios@undisclosed.example.com (seirios) — Mon, 05 Jan 2026 19:05:10 +0000

mu4e

まくら

元々は家でゲームがしたい（小学生のことTAITOのSpace Invaderが大ブームになった）という理由で始めたコンピューターとの付き合いが、いつの間にか人とのCommunicationの手段になったのは、明らかにパソコン通信のせいで、参加していたBBSのChat roomに入り浸るようになってからだったように思う。

Unixを触るようになり、UUCPで自宅に居ながらにして電子メールが使えるようになって以来、数年前までは間違いなくE-Mailこそが他者とのCommunicationの中心にあった。したがって、筆者の場合、E-Mailの読み書きを簡単にできるようなApplicationが最も重要なツールであった時代が長い。

そのため、メールクライアントは色々使ってきた。それなりの期間（最低でも半年以上）利用したツールは

rmail (Emacs)
Gnus (Emacs)
mew (Emacs) おそらく、これが一番長い
Bekky (Windows)
WinBiff (Windows)
Apple Mail (macOS)
Thunderbird (macOS/Windows/FreeBSD)
Shylpheed (macOS)

と、幾つもあった。しかし、個人的な要件を満たすMail Readerはあまりなかった。動作するPlatformが限られていたり、表示が望み通りにならなかったり、EoLになったり…

というわけで、Sylpheedを卒業して次のMail Readerに移行することにした。

準備

今回の選択はmu4eである。 mu4eはmuコマンドを利用したメールの検索機能を利用して、Emacs上でMailの読み書きを行うためのツールである。

mu4eを利用してMailを処理するためにはいくつかの方法があるが、今回は以下の構成で行くことにした。

IMAPを利用して手元にメールを同期するsoftware → mbsync(isync)
smtpを利用してメールを送信するsoftware → msmtp
Emacs → GNU Emacs 30
メール処理 → mu, mu4e

mbsync

mbsyncは、RemoteのMDA(IMAP Server)からメールを手元に持ってくるツールである。 Mailboxの同期をEmacs上で行わないのでメールの取得とメールの処理を独立して行えるのがメリットである。なお、mu4eはメールボックスがありさえすれば良いので、mbsyncである必要はない。imapsyncなどいくつかのツールがあるので、好みのものを選べば良いだろう。

今回は、複数のアカウントをまとめて管理する前提で設定を行う。設定の詳細は、man mbsyncなどしてman pageを見ること。ここでは、うちで動作した設定を改変して記述してある。名前付け替えなどいくつかトリッキーなことをしているので、わからなければManualを読むべきである。

なお、本記事においては、動作確認なども兼ねているためpasswordをrawで記載しているが、これはGPGなどを利用して暗号化するべきである。暗号化の方法などはGoogleで検索すれば大量に出てくるので、そちらを参照のこと。

#
# .mbsyncrc	- configuration for mbsync.
#

##### General Configuration
Create		Both
Expunge		Both
CopyArrivalDate	yes
Sync		All
SyncState	*

##### sample@example.com (Dovecot)
IMAPAccount	sample_example
Host		dovecot.example.com
Port		993
User		sample@example.com
Pass		Ultra-Secret
SSLType		IMAPS

### IMAP Store configuration
IMAPStore	mls_seirios-remote
Account		mls_seirios

### Maildir Store configuration
MaildirStore	sample_example-local
SubFolders	Verbatim
Path		~/Maildir/sample_example/
Inbox		~/Maildir/sample_example/Inbox

### Channel Configuration
Channel		sample_example-local
Far		:sample_example-remote:
Near		:sample_example-local:
Patterns	*

##### sample@icloud.com (Apple Mail)
IMAPAccount	sample_icloud
Host		imap.mail.me.com
Port		993
User		sample@icloud.com
Pass		Apple-Application-password-set-at-Apple
SSLType		IMAPS
AuthMechs	PLAIN

### IMAP Store configuration
IMAPStore	sample_icloud-remote
Account		sample_icloud

### Maildir Store configuration
MaildirStore	sample_icloud-local
SubFolders	Verbatim
Path		~/Maildir/sample_icloud/
Inbox		~/Maildir/sample_icloud/Inbox

### Channel Configuration
Channel		sample_icloud-base
Far		:sample_icloud-remote:
Near		:sample_icloud-local:
Patterns	* !Sent !"Sent Messages" !Spam !"Junk" !Trash !"Deleted Messages"

Channel		sample_icloud-base-sent
Far		:sample_icloud-remote:"Sent Messages"
Near		:sample_icloud-local:Sent

Channel		sample_icloud-base-spam
Far		:sample_icloud-remote:"Junk"
Near		:sample_icloud-local:Spam

Channel		sample_icloud-base-trash
Far		:sample_icloud-remote:"Deleted Messages"
Near		:sample_icloud-local:Trash

Group		sample_icloud
Channel		sample_icloud-base
Channel		sample_icloud-sent
Channel		sample_icloud-spam
Channel		sample_icloud-trash

##### sample@gmail.com (Gmail)
##### もし、GmailのIMAP Folderが日本語だった場合、Gmailから表示を英語モードにしておくこと。日本語だとうまくいかないことがある
IMAPAccount	sample_gmail
Host		imap.gmail.com
Port		993
User		sample@gmail.com
Pass		Gmail-Application-password-set-at-Gmail
SSLType		IMAPS
AuthMechs	PLAIN

### IMAP Store configuration
IMAPStore	sample_gmail-remote
Account		sample_gmail

### Maildir Store configuration
MaildirStore	sample_gmail-local
SubFolders	Verbatim
Path		~/Maildir/sample_gmail/
Inbox		~/Maildir/sample_gmail/Inbox

### Channel Configuration
Channel		sample_gmail-base
Far		:sample_gmail-remote:
Near		:sample_gmail-local:
Patterns	* !"[Gmail]*" !Sent !Spam !Trash

Channel		sample_gmail-sent
Far		:sample_gmail-remote:"[Gmail]/Sent Mail"
Near		:sample_gmail-local:Sent

Channel		sample_gmail-spam
Far		:sample_gmail-remote:"[Gmail]/Spam"
Near		:sample_gmail-local:Spam

Channel		sample_gmail-trash
Far		:sample_gmail-remote:"[Gmail]/Trash"
Near		:sample_gmail-local:Trash

Group		sample_gmail
Channel		sample_gmail-base
Channel		sample_gmail-sent
Channel		sample_gmail-spam
Channel		sample_gmail-trash

##### sheo0147@yahoo.co.jp (Yahoo! Japan)
IMAPAccount	sample_yahoo
Host		imap.mail.yahoo.co.jp
Port		993
User		sample@yahoo.co.jp
Pass		Ultra-Secret
SSLType		IMAPS

### IMAP Store configuration
IMAPStore	sample_yahoo-remote
Account		sample_yahoo

### Maildir Store configuration
MaildirStore	sample_yahoo-local
SubFolders	Verbatim
Path		~/Maildir/sample_yahoo/
Inbox		~/Maildir/sample_yahoo/Inbox

### Channel Configuration
Channel		sample_yahoo-base
Far		:sample_yahoo-remote:
Near		:sample_yahoo-local:

Channel		sample_yahoo-spam
Far		:sample_yahoo-remote:"Bulk Mail"
Near		:sample_yahoo-local:Spam

Group		sheo0147_yahoo
Channel		sample_yahoo-base
Channel		sample_yahoo-spam

ここまで設定したら、Directoryを作成し、mbsync -aを実行する

$ mkdir ~/Maildir
$ mkdir ~/Maildir/sample_example ~/Maildir/sample_icloud ~/Maildir/sample_gmail ~/Maildir/sample_yahoo
$ mbsync -a

これで、手元にMailが来たはず

yahooの設定の際にPatternsを削除しているのは意図的である。
- 原因はよくわかっていないが、Yahooの場合だけ、Patternsを登録しているとInboxの同期に失敗する
- とりあえずPatternsを設定しなければうまく行くという不思議なことが起きているので、現時点では外す

muの初期化

Mailを取得したら、muでメールのIndexを作成する。 muはXapianを利用している。Xapianは原則としてヨーロッパ系言語の検索が主眼なので、日本語検索は厳しいかと思っていたが、FLAG_NGRAMS=“1”を設定することでそれなりに対応できることがわかったので、以下を設定してmuでDBを初期化する

$ export XAPIAN_CJK_NGRAM="t"
$ export FLAG_NGRAMS="t"
$ mbsync -a
$ mu init --maildir=~/Maildir \
  --my-address=sample@example.com \
  --my-address=sample@icloud.com \
  --my-address=sample@gmail.com \
  --my-address=sample@yahoo.co.jp
$ mu index
$ mu info store
....

msmtp

msmtpはSMTP Clientで、メールを送信する際に利用できる。

近年では、UCE/SPAMのような単なる迷惑メールだけでなく、Cyber攻撃の道具としてもメールが利用されているため、メールを送信するための制限が厳しくなっている。電子メールの送信にあたっては、送信用のSMTPサーバー(MTA)がそのメールを送付する資格があるかどうかを確認(SPF, DKIM, DMARCを利用する)され、大量のメールを送信する(MailingListを運営している場合など)場合には、更なる検査(ARCを利用)をされる。例えば sample@example.com がFromとなるメールを送信することができるMXを限定し、そこ以外から送られたものは迷惑メールもしくは攻撃メールの可能性が高いと判断する、などができるようになっている。

したがって、自分のように「複数のメールアカウントを持って」おり、「それぞれを必要に応じて使い分ける」ような使い方をしている場合、メールを送付する際にどのMTAを利用すれば良いかいちいち判断し、適切なMTAからメールを送る必要がある。これを行うためのツールがmsmtpである。

なお、mbsyncと同様、メール送信系をmsmtpにするべき強い理由はない。単にmsmtpの例が非常に多いから利用しているだけである。また、本記事の設定は動作確認なども兼ねているためpasswordをrawで記載している。しかし、生パスワードを設定ファイルに記載することはSecurity上の重大なリスクになる可能性が高い。したがって、これはGPGなどを利用して暗号化するべきである。暗号化の方法などはman msmtpするなり、検索するなりすれば大量に出てくるので、そちらを参照のこと。

以下設定。上記mbsyncと合わせてある。

#
# .msmtprc	- configuration for msmtp.
#

defaults
logfile ~/Maildir/.log/msmtp.log

##### sample@example.com
account sample_example
auth on
host smtp.example.com
port 465
protocol smtp
from sample@example.com
user sample@example.com
password Ultra_secret
tls on
tls_starttls off

##### sample@icloud.com
# *** WARNING *** Must need STARTTLS. This site doesn't use SMTPs.
account sample_icloud
auth on
host smtp.mail.me.com
port 587
protocol smtp
from sample@icloud.com
user sample@icloud.com
password Apple-Application-password-set-at-Apple
tls on
tls_starttls on

##### sample@gmail.com
account sample_gmail
auth on
host smtp.gmail.com
port 465
protocol smtp
from sample@gmail.com
user sample@gmail.com
password Gmail-Application-password-set-at-Gmail
tls on
tls_starttls off

##### sample@yahoo.co.jp
account sample_yahoo
auth on
host smtp.mail.yahoo.co.jp
port 465
protocol smtp
from sample@yahoo.co.jp
user sample@yahoo.co.jp
password Ultra-Secret
tls on
tls_starttls off

account default : sample_example

mu4e

mu4eの設定は、以下の理由で巨大になっています。こんなに難しいことしなくてもいい気はするんだけど…

MultiAccount対応
Mailの取り扱いはAccountに関係なくシームレスに行える
どこのINBOXに来たメールでも、別のサーバーにrefileできるようにしてある
refile ruleを大きく書き換えて、正規表現も込みにしたruleをかけるようにした
送信サーバーは、メールのFromフィールドを見て自動で決定するようにした

まぁ、色々なところから色々設定持ってきたり、PerplexityやMS copilotのお世話になったりしてます。難しいcodeは書いてないから、コメント見ながら読めばわかると思いたい。というかわかるということにします。

mu4e-init.el

;;; -*- lexical-binding: t; -*-
;;; ~/.config/emacs/mu4e-init.el
;;;
;;; last updated: 2026/01/02
;;; Author: HEO SeonMeyong <seirios@seirios.org>
;;;         Microsoft Copilot (Rewrite and support leaf)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Tips
;;; * Create new refile folder
;;;   $ mkdir -p ~/Maildir/[Mailbox]/some/where/{new,cur/tmp}
;;;   $ chmod -R 700 ~/Maildir/[Mailbox]/some/where/{new,cur/tmp}
;;;   $ mbsync -a
;;;   $ mu index
;;;   * 要するに、正しいpermissionで正しくFolder(Directory)を作成してmbsyncで同期してindexを張ればOK
;;;   * 逆に削除はDirectoryごと全部削除すればよさそう

;;; Informations(Links)
;;; * https://www.djcbsoftware.nl/code/mu/mu4e/HV-Custom-headers.html

;;; 定義・機能一覧:
;;;  - my/which: Homebrew と環境 PATH の両方で実行ファイルを探索するヘルパー
;;;  - my-mu4e-update-mail-and-index-async: 非同期 mbsync + mu index
;;;  - my/mu4e-start-background-update: タイマーで定期バックグラウンド更新開始
;;;  - my/mu4e-stop-background-update: タイマー停止
;;;  - キーバインド: U → 非同期更新 (mu4e メインビュー/ヘッダビュー)
;;;  - ポリシー: 起動時自動更新は無効・インデックス更新は常にバックグラウンド
;;;
;;; よく調整するパラメータ (本ファイル内のコメントを検索してください):
;;;  * 定期更新間隔分: (my/mu4e-start-background-update 30)  ; 30分
;;;  * mbsync/mu/msmtp のパス探索候補: my/which の引数リスト
;;;  * mu4e-context-policy / mu4e-compose-context-policy:
;;;     'pick-first / 'ask / 'ask-if-none / nil
;;;  * mu4e-headers-results-limit: ヘッダの最大取得件数 (性能/読みやすさのトレードオフ)
;;;  * display-buffer-alist: 本文ビューを右側へ固定表示するウィンドウ設定
;;; ----------------------------------------------------------------------

;;; 小さなユーティリティ（実行ファイル探索と簡易コンテキスト生成）
(defun my/which (&rest candidates)
  "CANDIDATES のうち、最初に見つかった実行ファイルの絶対パスを返す。ない場合は nil。
候補は、絶対パス文字列とコマンド名の混在でよい。
- 絶対パスが渡された場合: 実行可能ならそのパスを返す
- コマンド名が渡された場合: `executable-find` で PATH 上を探索する

例:
 (my/which \"/usr/local/bin/mbsync\" \"/opt/homebrew/bin/mbsync\" \"mbsync\")"
  (seq-some (lambda (c)
              (cond
               ((file-name-absolute-p c) (and (file-executable-p c) c))
               (t (executable-find c))))
            candidates))

(defun my/mk-context (name maildir-prefix email &optional signature)
  "mu4e 用コンテキストを簡潔に生成する。
NAME は識別名、MAILDIR-PREFIX は \"/XXXX\" 形式、EMAIL は送信元。
SIGNATURE を与えると `message-signature` を設定する。

例:
 (my/mk-context \"1seirios_seirios\" \"/seirios_seirios\" \"seirios@seirios.org\" \"=====\nHEO ...\")"
  (make-mu4e-context
   :name name
   :enter-func (lambda () (mu4e-message (format "Enter %s context" email)))
   :leave-func (lambda () (mu4e-message (format "Leave %s context" email)))
   :match-func (lambda (msg)
                 (when msg
                   (string-prefix-p maildir-prefix
                                    (mu4e-message-field msg :maildir))))
   :vars (append
          `((user-mail-address . ,email)
            (user-full-name   . "HEO SeonMeyong")
            (mu4e-drafts-folder . ,(concat maildir-prefix "/Drafts"))
            (mu4e-sent-folder   . ,(concat maildir-prefix "/Sent"))
            (mu4e-trash-folder  . ,(concat maildir-prefix "/Trash")))
          (when signature
            `((message-signature . ,signature))))))


;;;; mu4e のロードパスを動的に追加（Intel / Apple Silicon 両対応）
(dolist (cand '("/usr/local/share/emacs/site-lisp/mu/mu4e/"
                "/opt/homebrew/share/emacs/site-lisp/mu/mu4e/"))
  (when (file-directory-p cand)
    (add-to-list 'load-path cand)))

;;;; 起動時の自動更新を制御するトグル
;; Toggle for legacy mu4e auto-update (built-in interval & startup hook)
;;  - When t: mu4e の定期更新 (`mu4e-update-interval`) を使う
;;  - When nil: 組み込みの auto update は無効にして、代わりに自作タイマーを使う
(defvar my/mu4e-auto-update t
  "mu4eの組み込み自動更新を使うなら t。nil なら起動時/定期更新とも無効。")

(leaf mu4e
  :load-path "/usr/local/share/emacs/site-lisp/mu/mu4e/" ; Homebrew の mu4e パス
  :require t
  :preface
  ;; MIMEのHTML等を抑止（ロード前定義でOK）
  ;; これにより本文表示は極力 text/plain を優先する。
  (with-eval-after-load "mm-decode"
    (add-to-list 'mm-discouraged-alternatives "text/html")
    (add-to-list 'mm-discouraged-alternatives "text/richtext"))

  :custom
  ;; ---- 全体動作/UI系をまとめて :custom で設定 ----
  ;; インデックス更新は常にバックグラウンドで（UIフリーズを避ける）
  ((mu4e-index-update-in-background . t)  ; Run mu index update asynchronously to avoid UI blocking
   ;; Maildir と添付保存先
   (mu4e-maildir . "~/Maildir")
   (mu4e-attachment-dir . "~/Desktop")
   ;; mbsync でメール移動時、ファイル名を変更（重複衝突などを回避）
   (mu4e-change-filenames-when-moving . t)
   ;; 終了確認やモードライン表示
   (mu4e-confirm-quit . nil)
   (mu4e-modeline-show-global . t)
   (mu4e-modeline-max-width . 100)
   ;; 表示：本文ビューを右側へ固定（display-buffer-alist 併用）
   (mu4e-split-view . "vertical")
   ;; ミニバッファに出る「Retrieving…」などの雑音を極力隠す
   (mu4e-hide-index-messages . t)
   ;; コンテキストの選択ポリシー（起動時は最初を採用）
   (mu4e-context-policy . 'pick-first)
   ;; ヘッダ表示系（関連メッセージ非表示、結果上限、スレッド表示等）
   (mu4e-headers-include-related . nil)
   (mu4e-headers-results-limit . 5000)
   (mu4e-headers-show-threads . t)
   (mu4e-headers-date-format . "%Y-%m-%dT%H:%M:%S")
   (mu4e-headers-fields
    . '((:date . 20) (:flags . 6) (:from . 16) (:to . 16) (:subject . nil)))
   ;; 本文ビューのフィールド
   (mu4e-view-date-format . "%Y-%m-%dT%H:%M:%S")
   (mu4e-view-fields
    . '(:from :to :cc :subject :flags :date :maildir :mailing-list
              :tags :attachments :signature :decryption :message-id
              :path :user-agent))
   ;; Compose 時のコンテキスト選択ポリシー（マッチしなければ確認）
   (mu4e-compose-context-policy . 'ask-if-none)
   ;; 署名の自動挿入は無効（コンテキストで signature を持つもののみ）
   (mu4e-compose-signature-auto-include . nil)
   ;; 送信系（mu4e を使い、sendmail 経由で送る）
   (mail-user-agent . 'mu4e-user-agent)
   (send-mail-function . 'sendmail-send-it)
   (message-send-mail-function . 'message-send-mail-with-sendmail)
   (message-kill-buffer-on-exit . t)
   (message-sendmail-envelope-from . 'header)
   ;; 既定ブックマーク（InboxやSPAMなどショートカット検索）
   (mu4e-bookmarks
    . '((:name "Unread messages"  :query "flag:unread AND NOT flag:trashed" :favorite t :key ?u)
        (:name "seirios.seirios"  :query "maildir:/seirios_seirios/Inbox"   :favorite t :key ?1)
        (:name "sheo.seirios"     :query "maildir:/sheo_seirios/Inbox"      :favorite t :key ?2)
        (:name "mls.seirios"      :query "maildir:/mls_seirios/Inbox"       :favorite t :key ?3)
        (:name "seirios.icloud"   :query "maildir:/seirios_icloud/Inbox"    :favorite t :key ?4)
        (:name "sheo0147.yahoo"   :query "maildir:/sheo0147_yahoo/Inbox"    :favorite t :key ?5)
        (:name "seirios.RRcom"    :query "maildir:/seirios_RRcom/Inbox"     :favorite t :key ?6)
        (:name "seirios.RRnet"    :query "maildir:/seirios_RRnet/Inbox"     :favorite t :key ?7)
        (:name "sheo0147.gmail"   :query "maildir:/sheo0147_gmail/Inbox"    :favorite t :key ?8)
        (:name "seirios.wm.gmail" :query "maildir:/seirios.wm_gmail/Inbox"  :favorite t :key ?9)
        (:name "seirios.silanui"  :query "maildir:/seirios_silanui/Inbox"   :favorite t :key ?0)
        (:name "SPAM/UCE"
         :query "maildir:/seirios_seirios/Spam OR maildir:/sheo_seirios/Spam OR maildir:/mls_seirios/Spam OR maildir:/seirios_icloud/Spam OR maildir:/sheo0147_yahoo/Spam OR maildir:/seirios_RRcom/Spam OR maildir:/seirios_RRnet/Spam OR maildir:/sheo0147_gmail/Spam OR maildir:/seirios.wm_gmail/Spam OR maildir:/seirios_silanui/Spam"
                                                                           :favorite t :key ?s)
        (:name "Trash"
         :query "maildir:/seirios_seirios/Trash OR maildir:/sheo_seirios/Trash OR maildir:/mls_seirios/Trash OR maildir:/seirios_icloud/Trash OR maildir:/sheo0147_yahoo/Trash OR maildir:/sheo0147_gmail/Trash OR maildir:/seirios_RRnet/Trash OR maildir:/seirios_RRcom/Trash OR maildir:/seirios.wm_gmail/Trash OR maildir:/seirios_silanui/Trash"
                                                                           :favorite t :key ?t)))
   ;; Maildir ショートカット（ジャンプキー）
   (mu4e-maildir-shortcuts
    . '(
        (:maildir "/seirios_seirios/UT"                       :name "UT"       :key ?u)
        (:maildir "/seirios_seirios/ISII"                     :name "ISII"     :key ?i)
        (:maildir "/seirios_seirios/silanui"                  :name "しらぬい" :key ?s)
        (:maildir "/seirios_seirios/NCom"                     :name "NCom"     :key ?n)
        (:maildir "/seirios_seirios/NTT-MM"                   :name "N-MM"     :key ?m)
        (:maildir "/seirios_RRnet/Rookie"                     :name "Rookie"   :key ?r)

        (:maildir "/seirios_seirios/Finance"                  :name "Fin"      :key ?F)
        (:maildir "/seirios_seirios/WIDE"                     :name "WIDE"     :key ?W)
        (:maildir "/seirios_seirios/Logs"                     :name "Logs"     :key ?L)
        (:maildir "/seirios_seirios/Logs/ShadowServer"        :name "影鯖"     :key ?S)
        (:maildir "/seirios_seirios/Logs/DMARC"               :name "DMARC"    :key ?D)

        (:maildir "/seirios_seirios/Individual/Personal"      :name "個人"     :key ?P)
        (:maildir "/seirios_seirios/Individual/Family"        :name "家族"     :key ?f)
        (:maildir "/seirios_seirios/Individual/Game"          :name "Game"     :key ?G)
        (:maildir "/seirios_seirios/Individual/Services"      :name "Service"  :key ?P)
        (:maildir "/seirios_seirios/Activity/JNSA"            :name "JNSA"     :key ?J)
        (:maildir "/seirios_seirios/Activity/ISC2"            :name "ISC"      :key ?I)
        (:maildir "/seirios_seirios/Activity/GitHub"          :name "GHUB"     :key ?g)
        (:maildir "/seirios_seirios/Activity/ISOG-J"          :name "ISOG"     :key ?j)
        ;; 以下は「一覧に見せるため」の要素。:key がないものはジャンプキー無し。
        (:maildir "/seirios_seirios/ISII/GA")
        (:maildir "/seirios_seirios/Individual")
        (:maildir "/seirios_seirios/Individual/Tech")
        (:maildir "/seirios_seirios/Individual/UnivD2")
        (:maildir "/seirios_seirios/Activity")
        (:maildir "/seirios_seirios/Activity/ISACA")
        (:maildir "/seirios_seirios/Olds")
        (:maildir "/seirios_RRnet/Olds")
        (:maildir "/seirios_seirios/Trash")
        (:maildir "/seirios_icloud/Trash")
        (:maildir "/sheo0147_yahoo/Trash")
        (:maildir "/sheo0147_gmail/Trash")
        (:maildir "/seirios_RRnet/Trash")
        (:maildir "/sheo_seirios/Trash")
        (:maildir "/seirios_RRcom/Trash")
        (:maildir "/seirios_silanui/Trash")
        (:maildir "/seirios.wm_gmail/Trash")
        (:maildir "/mls_seirios/Trash"))))

  :config
  ;; ---- 実行ファイルの場所を自動検出（Homebrew/Path両対応）----
  ;; mu/msmtp の実行パスは GUI 起動時（PATHが引き継がれないケース）でも見つかるよう、
  ;; 絶対パス候補 → PATH の順に探索します。
  (setq mu4e-mu-binary   (my/which "/usr/local/bin/mu"     "/opt/homebrew/bin/mu"     "mu"))
  (setq sendmail-program (my/which "/usr/local/bin/msmtp"  "/opt/homebrew/bin/msmtp"  "msmtp"))

  ;; メールを取得するための設定
  (with-eval-after-load 'mu4e
    ;; U（取得）で使うコマンドは常に設定しておく（スマートラッパーを使わない場面向け互換）
    (let ((mbsync (my/which "/usr/local/bin/mbsync" "/opt/homebrew/bin/mbsync" "mbsync")))
      (setq mu4e-get-mail-command (and mbsync (concat mbsync " -a"))))  ; Keep string form for compatibility (some commands read this variable)

    ;; 起動時/定期の自動を使うかはトグルで制御
    (if my/mu4e-auto-update
        (progn
          ;; 自動更新ON: mu4e の built-in interval を有効化（起動時フックも既定動作）
          (setq mu4e-update-interval (* 10 60))  ; 10分（任意で変更）
          ;; 既定の起動時更新フックは mu4e が勝手に登録するため、ここでは何もしない
          )
      ;; 自動更新OFF: built-in interval を止め、起動時の更新フックも外す
      (setq mu4e-update-interval nil)
      (remove-hook 'mu4e-main-mode-hook #'mu4e-update-mail-and-index)
      ;; U で取得したいので mu4e-get-mail-command は nil にしない（上で保持）
      )

    ;; ビューの分割（本文は右側へ表示）
    (add-to-list 'display-buffer-alist
                 `(,(regexp-quote mu4e-view-buffer-name)
                   display-buffer-in-side-window
                   (side . right) (window-width . 0.5)))

    ;; モードライン名の微調整（ヘッダ検索中は短く）
    (setq mode-name "mu4e-headers")
    (add-hook 'mu4e-headers-search-hook (lambda (_q) (setq mode-name "mu4e")))

    ;; ---- コンテキスト（簡潔化）----
    ;; 複数アカウント構成（各 :vars で Drafts/Sent/Trash を設定）
    (setq mu4e-contexts
          (list
           (my/mk-context "1seirios_seirios"  "/seirios_seirios"  "seirios@seirios.org"
                          (concat "=====\n" "HEO SeonMeyong"))
           (my/mk-context "2sheo_seirios"     "/sheo_seirios"     "sheo@seirios.org")
           (my/mk-context "3mls_seirios"      "/mls_seirios"      "mls@seirios.org")
           (my/mk-context "4seirios_icloud"   "/seirios_icloud"   "seirios@mac.com")
           (my/mk-context "5sheo0147_yahoo"   "/sheo0147_yahoo"   "sheo0147@yahoo.co.jp")
           (my/mk-context "6seirios_RRcom"    "/seirios_RRcom"    "seirios@rusty-raven.com")
           (my/mk-context "7seirios_RRnet"    "/seirios_RRnet"    "seirios@rusty-raven.net")
           (my/mk-context "8sheo0147_gmail"   "/sheo0147_gmail"   "sheo0147@gmail.com")
           (my/mk-context "9seirios.wm_gmail" "/seirios.wm_gmail" "seirios.wm@gmail.com")
           (my/mk-context "0seirios_silanui"  "/seirios_silanui"  "seirios@silanui.com")))

    ;; ---- Refile ルール（データ駆動）----
    ;; ルールは (FOLDER FIELD REGEX) のリスト。
    ;; FIELD は 'to'/'cc'/'bcc'/'rcpt'/'from'/'subj'/'msgid'/'list'/'any' が指定可能。
    ;; `my-mu4e-refile-message` は、MSG に適用して最初にマッチした folder を返す。
    (defvar my-mu4e-refile-rules
      '(("/seirios_seirios/ISII"                "rcpt" "redmine@interlink\\.or\\.jp$")
        ("/seirios_seirios/Olds/NTT-Myanmar"    "rcpt" "cnip@ml\\.ntt\\.com")
        ("/seirios_seirios/Olds/KDS"            "rcpt" "support@zscaler\\.com$")
        ("/seirios_seirios/Olds/KDS"            "rcpt" "zsc-support@kddi-dsec\\.com$")
        ("/seirios_seirios/Olds/KDS"            "from" "do-not-reply@kds\\.seirios\\.org$")
        ("/seirios_seirios/Olds/KDS"            "rcpt" "zsc-support@k-evolva\\.com$")
        ("/seirios_seirios/Activity/GitHub"     "to"   "seirios\\+gh@seirios\\.org")
        ("/seirios_seirios/Logs/DMARC"          "from" "noreply-dmarc-support@google\\.com$")
        ("/seirios_seirios/Logs/DMARC"          "from" "dmarcreport@microsoft\\.com$")
        ("/seirios_seirios/Logs/DMARC"          "from" "reporting@dmarc25\\.jp$")
        ("/seirios_seirios/Logs/DMARC"          "from" "noreply@dmarc\\.yahoo\\.com$")
        ("/seirios_seirios/Logs/DMARC"          "from" "dmarc_support@corp\\.mail\\.ru$")
        ("/seirios_seirios/Logs/DMARC"          "from" "dmarc-reports@lolipop\\.jp$")
        ("/seirios_seirios/Logs/ShadowServer"   "from" "@shadowserver\\.org$")
        ("/seirios_seirios/Logs"                "to"   "mgmt\\.seirios\\.org$")
        ("/seirios_seirios/Logs"                "to"   "mgmt\\.rookie-inc\\.com$")
        ("/seirios_seirios/Logs"                "from" "^root@")
        ("/seirios_seirios/Logs"                "from" "^www@bbf-wb")
        ("/seirios_seirios/Logs"                "subj" "^Cron")
        ("/seirios_seirios/Logs"                "subj" "run\\.output$")
        ("/seirios_seirios/Individual/Game"     "from" "nintendo\\.(com|net|co\\.jp)$")
        ("/seirios_seirios/Individual/Game"     "from" "fortnite@mail\\.epicgames\\.com$")
        ("/seirios_seirios/Individual/Game"     "from" "familysafety@microsoft\\.com$")
        ("/seirios_seirios/Finance"             "from" "smbc\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "tokyostarbank\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "surugabank\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "mizuhobank\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "japannetbank\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "paypay-bank\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "sevenbank\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "nicos\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "jaccs\\.co\\.jp$")
        ("/seirios_seirios/Finance"             "from" "viewsnet\\.jp$")
        ("/seirios_seirios/Finance"             "from" "jrepoint\\.jp$")
        ("/seirios_seirios/Finance"             "from" "vpass\\.ne\\.jp$")
        ("/seirios_seirios/Finance"             "from" "paypal\\.com$")
        ("/seirios_seirios/Finance"             "from" "credit\\.orix\\.co\\.jp$")
        ("/seirios_seirios/Individual/Services" "from" "amazon\\..co\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "uqmobile\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "auction-master@mail\\..yahoo\\..co\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "payment-master@mail\\..yahoo\\..co\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "ana\\..co\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "member@point\\..recruit\\..co\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "iijmio\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "booking\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "Apple\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "banggood\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "lambdanote\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "community_cycle_info@docomo-cycle\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "connpass\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "dropbox\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "ebay\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "evernote\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "fiberjp\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "gandi\\..net$")
        ("/seirios_seirios/Individual/Services" "from" "icloud\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "sakura\\..ad\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "mydocomo\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "suicainternetservice\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "@interlink\\..or\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "flets\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "itunes\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "makuake\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "macdvdripperpro\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "omnigroup\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "eki-net\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "cloudsign\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "biccamera\\..com$")
        ("/seirios_seirios/Individual/Services" "from" "morisawa\\..co\\..jp$")
        ("/seirios_seirios/Individual/Services" "from" "kuronekoyamato\\..co\\..jp$")
        ("/seirios_seirios/WIDE"                "msgid" "wide\\.ad\\.jp")
        ("/seirios_seirios/WIDE"                "subj" "^\\[(wide|two-core|two|ixp-ops|irc-wg|dns) ")
        ("/seirios_seirios/WIDE"                "rcpt" "as2500@nspixp\\.wide\\.ad\\.jp")
        ("/seirios_seirios/WIDE"                "rcpt" "(ixp|lens-wg)@wide\\.ad\\.jp")
        ("/seirios_seirios/Activity/ISC2"       "from" "/@isc2\\.org$")
        ("/seirios_seirios/Activity/JNSA"       "list" "jnsa\\.org$")
        ("/seirios_seirios/Activity/ISOG-J"     "list" "member\\.isog-j\\.org$")
        ("/seirios_seirios/Activity/ISC2"       "from" "isc2\\.org$")
        ("/seirios_seirios/Activity/ISC2"       "from" "isc2chapter\\.jp$")
        ("/seirios_seirios/Spam"                "from" "nikkeibp\\.(co\\.jp|com)$")
        ("/seirios_seirios/Spam"                "from" "itmedia\\.jp$")
        ("/seirios_seirios/Spam"                "from" "info@twitter\\.com")))
    (defun my-mu4e-refile-message (msg)
      "ルールに基づき MSG のリファイル先を返す。未マッチなら nil。
- 'any は to/cc/bcc/from の全てに対して正規表現判定を行う
- 'rcpt は to/cc/bcc の受信側集合で判定"
      (cl-loop for (folder field regex) in my-mu4e-refile-rules
               for addresses = (pcase field
                                 ("any"  (append (mu4e-message-field msg :to)
                                                 (mu4e-message-field msg :cc)
                                                 (mu4e-message-field msg :bcc)
                                                 (mu4e-message-field msg :from)))
                                 ("rcpt" (append (mu4e-message-field msg :to)
                                                 (mu4e-message-field msg :cc)
                                                 (mu4e-message-field msg :bcc)))
                                 ("subj"  (list  (mu4e-message-field msg :subject)))
                                 ("msgid" (list  (mu4e-message-field msg :msgid)))
                                 ("list"  (list  (mu4e-message-field msg :list)))
                                 (_      (mu4e-message-field msg (intern (concat ":" field)))))
               when (seq-some (lambda (addr)
                                (and addr (string-match-p regex
                                                          (downcase (if (listp addr)
                                                                        (or (plist-get addr :email) "")
                                                                      addr)))))
                              addresses)
               return folder
               finally return nil))

    ;; mu4e が参照するリファイル先決定関数。ルールマッチしなければ現在フォルダ。
    (setq mu4e-refile-folder
          (lambda (msg)
            (or (my-mu4e-refile-message msg)
                (mu4e-message-field msg :maildir))))

    ;; ヘッダビュー内で「自動的にrefileマークを付ける」補助コマンド
    (defun my-mu4e-auto-refile-process (msg)
      (let ((target (funcall mu4e-refile-folder msg)))
        (when (and target
                   (not (string= target (mu4e-message-field msg :maildir))))
          (mu4e-mark-set 'refile target))))
    (defun my-mu4e-auto-refile ()
      "現在フォルダの新着/未読を検索し、ルールに基づき refile マークを付ける。"
      (interactive)
      (let* ((current (mu4e-message-field (mu4e-message-at-point) :maildir))
             (query (concat "maildir:" current " AND (flag:new OR flag:unread) AND NOT flag:trashed")))
        (mu4e-headers-search query)
        (add-hook 'mu4e-headers-found-hook #'my-mu4e-auto-refile-hook)))
    (defun my-mu4e-auto-refile-hook ()
      (remove-hook 'mu4e-headers-found-hook #'my-mu4e-auto-refile-hook)
      (goto-char (point-min))
      (while (not (eobp))
        (let ((msg (mu4e-message-at-point)))
          (my-mu4e-auto-refile-process msg))
        (forward-line))
      ;; マーク後、次の未読へ移動
      (mu4e-headers-next nil))
    (keymap-set mu4e-headers-mode-map "e" #'my-mu4e-auto-refile)

    ;; ---- 送信補助（msmtp選択/Cc/Bcc/件名空確認）----
    ;; Fromヘッダと msmtp アカウントの対応表（追加・変更はここへ）
    (defvar my/msmtp-accounts
      '(("seirios@seirios.org"     . "seirios_seirios")
        ("sheo@seirios.org"        . "sheo_seirios")
        ("mls@seirios.org"         . "mls_seirios")
        ("seirios@mac.com"         . "seirios_icloud")
        ("sheo0147@yahoo.co.jp"    . "sheo0147_yahoo")
        ("seirios@rusty-raven.com" . "seirios_RRcom")
        ("seirios@rusty-raven.net" . "seirios_RRnet")
        ("sheo0147@gmail.com"      . "sheo0147_gmail")
        ("seirios.wm@gmail.com"    . "seirios.wm_gmail")
        ("seirios@silanui.com"     . "seirios_silanui")))
    (defun my-mu4e-set-msmtp-account ()
      "From ヘッダに基づき msmtp アカウントを自動選択する。
- ヘッダから送信者アドレスを取り出し、`my/msmtp-accounts` で最初に一致したものを採用
- 一致がない場合は何もしない（ユーザ手動選択に委ねる）"
      (when (message-mail-p)
        (save-excursion
          (let* ((from (save-restriction
                         (message-narrow-to-headers)
                         (or (message-fetch-field "from") "")))
                 (acct (seq-some (lambda (pair)
                                   (and (string-match (regexp-quote (car pair)) from)
                                        (cdr pair)))
                                 my/msmtp-accounts)))
            (when acct
              (message "Using msmtp account: %s" acct)
              (setq message-sendmail-extra-arguments (list "-a" acct)))))))
    (add-hook 'message-send-hook #'my-mu4e-set-msmtp-account)

    (defun my-add-cc-and-bcc ()
      "Compose 中に Cc に自アドレスがなければ追記し、Bcc を空で付与する。
- Cc 行が存在しない場合は新規に付与
- 既に自アドレスが含まれていれば何もしない"
      (save-excursion
        (goto-char (point-min))
        (if (re-search-forward "^Cc:" nil t)
            (unless (re-search-forward (concat (regexp-quote user-mail-address))
                                       (line-end-position) t)
              (end-of-line)
              (insert (if (looking-back "[, \t]" (max (point-min) (1- (point))))
                          user-mail-address
                        (concat ", " user-mail-address))))
          (message-add-header (format "Cc: %s\n" user-mail-address))))
      (save-excursion (message-add-header "Bcc: \n")))
    (add-hook 'mu4e-compose-mode-hook #'my-add-cc-and-bcc)

    (defun confirm-empty-subject ()
      "件名が空なら送信前に確認ダイアログを出す。
誤送信防止のための軽量ガード。"
      (let ((sub (message-field-value "Subject")))
        (or (and sub (not (string-match "\\`[ \t]*\\'" sub)))
            (yes-or-no-p "Really send without Subject? ")
            (keyboard-quit))))
    (add-hook 'message-send-hook #'confirm-empty-subject)

    ;; === ヘッダ表示のページング（N＝残り全件を一気に追記） ===
    (defun my/mu4e--headers-last-message-id ()
      "ヘッダバッファ末尾のメッセージID（:message-id）を返す。なければ nil。"
      (when (mu4e-current-buffer-type-p 'headers)
        (save-excursion
          (goto-char (point-max))
          (forward-line -1)
          (plist-get (mu4e-message-at-point) :message-id))))

    (defun my-mu4e-append-all-remaining ()
      "現在クエリの『末尾からさらに先（残り全件）』を一気に追記する。
この呼び出し中のみ `mu4e-search-full` を t にして上限を外す。"
      (interactive)
      (when (mu4e-current-buffer-type-p 'headers)
        (let* ((mu4e-search-full t)                ;; ★ この関数の間だけ全件モード
               (mu4e-search-sort-field 'date)
               (mu4e-search-sort-direction 'descending)
               ;; 念のため「ほぼ無限」上限もローカルに設定（古いmu4eへの互換）
               (mu4e-headers-results-limit most-positive-fixnum)
               (last-msg (my/mu4e--headers-last-message-id)))
          (when-let ((query (mu4e-last-query)))
            (message "[mu4e] append all remaining headers ...")
            ;; append=t で結果を追記。last-msg をアンカーに、それより古い側を取得。
            (mu4e-search query nil nil t last-msg)
            ;; 視認性のため末尾へ移動
            (goto-char (point-max))
            (forward-line -1)
            ;; スレッド折りたたみを使っている場合は全畳みで見通しを確保
            (when (bound-and-true-p mu4e-thread-folding-mode)
              (mu4e-headers-fold-all))
            (message "[mu4e] all remaining headers appended.")))))

    ;; キーバインドの差し替え（N）
    (keymap-set mu4e-headers-mode-map "N" #'my-mu4e-append-all-remaining)

    ;; === 非同期取得＋インデックス更新（背景実行）と定期バックグラウンド更新 ===
    ;; Parameters:
    ;;  - mbsync path resolution: my/which tries /usr/local/bin, /opt/homebrew/bin, then PATH
    ;;  - Timer interval: call (my/mu4e-start-background-update MINUTES) to change
    ;;  - Log buffer: " *mu4e-mbsync*" stores stdout/stderr of mbsync for diagnostics
    ;; Behavior:
    ;;  - U: triggers async mbsync followed by mu4e-index-update when exit-code=0
    ;;  - Startup: built-in mu4e auto update disabled; we rely on custom timer
    ;;  - Index updates run with mu4e-index-update-in-background=t to avoid blocking
    (setq mu4e-index-update-in-background t)

    (defun my-mu4e-update-mail-and-index-async ()
      "Run mbsync asynchronously and, upon success, trigger mu4e index update in background.
ENV/PATH NOTES:
  - GUI起動のEmacsでは Homebrew の PATH が見えないことがある。必要なら exec-path-from-shell を併用。
LOGGING:
  - mbsync の標準出力/エラーはバッファ \" *mu4e-mbsync*\" に格納。
ERROR HANDLING:
  - 非ゼロ終了コードの場合はバッファを表示して詳細を確認できる。"
      (interactive)
      (let* ((mbsync (my/which "/usr/local/bin/mbsync" "/opt/homebrew/bin/mbsync" "mbsync"))
             (args   '("-a")))
        (unless mbsync
          (user-error "mbsync が見つかりません。PATHやインストールを確認してください。"))
        (let ((buf (get-buffer-create " *mu4e-mbsync*")))
          (with-current-buffer buf (erase-buffer))
          (message "[mu4e] start mbsync -a (background)")
          (let ((proc (apply #'start-process "mu4e-mbsync" buf mbsync args)))
            (set-process-query-on-exit-flag proc nil)
            (set-process-sentinel
             proc
             (lambda (p event)
               (when (eq (process-status p) 'exit)
                 (let ((code (process-exit-status p)))
                   (if (= code 0)
                       (progn
                         (message "[mu4e] mbsync done. start mu index (background)")
                         (mu4e-update-index)) ; 非同期インデックス更新（UI非ブロッキング）
                     (progn
                       (message "[mu4e] mbsync failed (exit=%d). バッファ %s を確認"
                                code (buffer-name (process-buffer p)))
                       (display-buffer (process-buffer p))))))))))))

    ;; Uキーを非同期版に差し替え（メイン/ヘッダ両方）
    (define-key mu4e-main-mode-map    (kbd "U")  ; U = async mbsync + mu index (non-blocking)
      #'my-mu4e-update-mail-and-index-async)
    (define-key mu4e-headers-mode-map (kbd "U")  ; U = async mbsync + mu index (non-blocking)
      #'my-mu4e-update-mail-and-index-async)

    ;; mu4e 自体の同期更新コマンドを使う場面へ互換のため文字列版も保持
    (let ((mbsync (my/which "/usr/local/bin/mbsync" "/opt/homebrew/bin/mbsync" "mbsync")))
      (setq mu4e-get-mail-command (and mbsync (concat mbsync " -a")))) ; Keep string form for compatibility

    ;; --- 定期バックグラウンド更新（独自タイマー） ---
    (defvar my/mu4e-background-timer nil
      "バックグラウンド更新用のタイマー。nil なら未稼働。")

    (defun my/mu4e-start-background-update (minutes)
      "MINUTES 分間隔で非同期取得＋インデックス更新を開始する。

Parameters:
  MINUTES  整数。間隔（分）を指定（例: 10）
Behavior:
  - 既存タイマーがあればキャンセル。
  - 最初の実行は 10 秒後、その後 MINUTES ごとに繰り返し。
  - 非同期関数 my-mu4e-update-mail-and-index-async を使用。
Tuning:
  - 初回遅延 10 秒は必要に応じて変更可能（run-at-time の第一引数）。"
      (when my/mu4e-background-timer
        (cancel-timer my/mu4e-background-timer))
      (setq my/mu4e-background-timer
            (run-at-time 30 (* minutes 60) #'my-mu4e-update-mail-and-index-async))
      (message "[mu4e] background update every %d minutes" minutes))

    (defun my/mu4e-stop-background-update ()
      "バックグラウンド更新タイマーを停止する。
従量制ネットワークや一時的に負荷を避けたい場合に使用。"
      (interactive)
      (when my/mu4e-background-timer
        (cancel-timer my/mu4e-background-timer)
        (setq my/mu4e-background-timer nil)
        (message "[mu4e] background update stopped")))

    ;; 既定では 10 分間隔で開始（好みに合わせて値を変更）
    (my/mu4e-start-background-update 30)))

;;; 追加: スレッド折りたたみ（見通しを良くするUI拡張）
(leaf mu4e-thread-folding
  :vc (:url "https://github.com/rougier/mu4e-thread-folding")
  :require t
  :config
  (define-key mu4e-headers-mode-map (kbd "<tab>")     #'mu4e-headers-toggle-at-point)
  (define-key mu4e-headers-mode-map (kbd "<S-tab>")   #'mu4e-headers-toggle-fold-all)
  (define-key mu4e-headers-mode-map (kbd "<left>")    #'mu4e-headers-fold-at-point)
  (define-key mu4e-headers-mode-map (kbd "<S-left>")  #'mu4e-headers-fold-all)
  (define-key mu4e-headers-mode-map (kbd "<right>")   #'mu4e-headers-unfold-at-point)
  (define-key mu4e-headers-mode-map (kbd "<S-right>") #'mu4e-headers-unfold-all)
  (add-hook 'mu4e-headers-mode-hook #'mu4e-thread-folding-mode))

;;; 必要なら明示ロード（smtpmail は組み込みだが、leaf で明示しておくと見通しが良い）
(leaf smtpmail :require t)

古いメモ(FreeBSD NFS) - 作成

seirios@undisclosed.example.com (seirios) — Thu, 13 Feb 2025 08:58:32 +0000

古いメモ(FreeBSD NFS)

sysctl.conf

vfs.nfsd.server_min_nfsvers=3

ＮＦＳのチューニング（未検証）

vfs.nfsd.issue_delegations=1 vfs.nfsd.enable_locallocks=1

vfs.nfsd.issue_delegations

ＮＦＳサーバーでデリゲーション機能の提供をする（1）かしない（0）かを決める。この「デリゲーション」（委任）機能は、クライアントの操作を一部サーバー側で代替するというもの。どの程度委任できるかは不明だけど、ＮＦＳクライアントも対応している必要がある。しかし、調べた範囲だと、ＮＦＳクライアントでの使用が「明言されていない」というか確認できなかったので、とりあえずオフっておく。

vfs.nfsd.enable_locallocks

ロックについて、ＮＦＳサーバーとＮＦＳクライアント間でのロック共有ができるようになる。しかし、以下の組み合わせで、できたりできなかったりする。ＮＦＳクライアント（CentOS 6.8）→ＮＦＳサーバー（FreeBSD 10.3-R）の順でロックすると問題無くロックできる。ＮＦＳサーバー（FreeBSD 10.3-R）→ＮＦＳクライアント（CentOS 6.8）の順でロックするとＮＦＳクライアント側でロックされずにエラーになる。この問題について調査が足りてないので、とりあえずオフっておく。もちろんこの設定があろうが、なかろうが、ＮＦＳｖ４の売り文句であるところの、ＮＦＳクライアント（内の複数のプロセス）でのロック取得について問題無し。また、この話とは別に、ＮＦＳクライアント間のロック共有が可能かは未検証。

exports

/etc/exports

V4: /export -network ネットワークアドレス -mask ネットマスクとりあえず、/export がＮＦＳｖ４共有できるようになる。ただし、/export 自体は sharenfs=off なので、どこからからもマウントできない（厳密にはできるけどアクセスできない）。

rc.conf

rpcbind_flags=“-h 公開するＮＦＳサーバーのＩＰアドレス” nfsuserd_flags=“-domain アカウント識別用ドメイン” mountd_flags=“-l -h 公開するＮＦＳサーバーのＩＰアドレス” nfs_server_flags=“-t -h 公開するＮＦＳサーバーのＩＰアドレス”

このうち、nfsuserd_flags で指定する「ドメイン」の指定が重要となる。ＮＦＳｖ４では、ＮＦＳサーバーとＮＦＳクライアント間のユーザー識別子を「ユーザー@ドメイン」で識別するため、合わせておく必要がある。

これはＮＦＳ共有するようなサーバー群では、同じドメインである場合、本設定を省略しても良い。

しかし、ホスティング環境でのバックアップサーバー提供のような、ＮＦＳクライアントのサーバーのドメインが統一できないような場合、サービス提供者側として、別途決め打ちする必要がある。

共有領域設定

一つの領域を複数のＮＦＳクライアント間で共有するなら、/etc/exports に集約するのが良いと思われ（未実験）。

zfs create -o sharenfs=“-maproot=root ClientIPAddress” export/NFSclient でZFS領域を作成した場合、NFS clientからは、“/NFSclient” でmountする。 → これは要するに、exportというZFS rootはClientからは見えないことを意味する

結論: exportsに直接書くのが吉