戯術者の日記

[imapserv] {                       # 仮想フォルダ名
      .            "受信箱"        # 実フォルダ    "表示名(フォルダの別名)"
      ..Sent       "送信済"
      ..Trash      "ゴミ"
      ..Drafts     "下書き"
      ..tome       "自分宛"
      ..tech       "技術情報"
}

 [-]Desktop:0/0/748
 [-][imapserv] :0/0/442
   受信箱:0/0/164
   送信済:0/0/44
   ゴミ:0/0/0
   下書き:0/0/1
   自分宛:0/0/25
   技術情報:0/0/62

o

x

m a

m d

m k

;; メールDBにcontent-typeを加える
(setq elmo-msgdb-extra-fields
    (cons "content-type" elmo-msgdb-extra-fields))
;; 添付ファイルがある場合は「@」を表示
(setq wl-summary-line-format "%n%T%P%1@%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %#%~%s")
(setq wl-summary-line-format-spec-alist
      (append wl-summary-line-format-spec-alist
              '((?@ (wl-summary-line-attached)))))

;;日本語の添付ファイル名を正しく表示
;;これがないと化けます．
(defvar my-mime-filename-coding-system-for-decode
  '(iso-2022-jp japanese-shift-jis japanese-iso-8bit))
(defun my-mime-decode-filename (filename)
  (let ((rest (eword-decode-string filename)))
    (or (when (and my-mime-filename-coding-system-for-decode
                   (string= rest filename))
          (let ((dcs (mapcar (function coding-system-base)
                             (detect-coding-string filename))))
            (unless (memq 'emacs-mule dcs)
              (let ((pcs my-mime-filename-coding-system-for-decode))
                (while pcs
                  (if (memq (coding-system-base (car pcs)) dcs)
                      (setq rest (decode-coding-string filename (car pcs))
                            pcs nil)
                    (setq pcs (cdr pcs))))))))
        rest)))

(eval-after-load "mime"
  '(defadvice mime-entity-filename (after eword-decode-for-broken-MUA activate)
     "Decode encoded file name for BROKEN MUA."
     (when (stringp ad-return-value)
       (setq ad-return-value (my-mime-decode-filename ad-return-value)))))
(require 'std11)

;; ファイル名が日本語の添付ファイルをエンコードする [semi-gnus-ja: 6046]
(eval-after-load "std11"
  '(defadvice std11-wrap-as-quoted-string 
     (before encode-string activate)
     "Encode a string."
　　 (require 'eword-encode)
　　 (ad-set-arg 0 (eword-encode-string (ad-get-arg 0)))))

./

C-t (screen ^t^t 中なら C-t C-t)

(setq elmo-imap4-use-modified-utf7 t)

/ フォーカスしているスレッドの開閉トグル
[ 全てのスレッドを開く
] 全てのスレッドを閉じる
$ 重要フラグのトグル
v メッセージバッファの表示トグル
g 別フォルダへフォーカス移動
j メッセージバッファへ移動(メッセージから戻るときはp/u/n)
. 通常の表示形式で再表示
H ヘッダの全表示
S サマリのソート(date, from, number, subject, size, list-info)
T スレッド表示のトグル(wl終了後も継続)
l フォルダリストバッファの表示トグル
M-t online-offline のトグル

S sync (サマリの更新)
s sync (未読メッセージの更新)
m a フォルダの作成
m d フォルダの削除
フォルダ順の並び替え: C-k C-y なんかで意外とフツーに

(set-face-foreground 'wl-highlight-summary-unread-face "blue")
(set-face-foreground 'wl-highlight-summary-thread-top-face "black")
(set-face-foreground 'wl-highlight-summary-normal-face "black")

(setq elmo-imap4-default-port 993)
(setq elmo-imap4-default-stream-type 'ssl)   ; use SSL