wl

~/.folderに自分の読むメール等の設定をする。

http://www.gohome.org/wl/doc/wl-euc_28.html#SEC47

参考になる:

http://plaza28.mbn.or.jp/~kitaj/XEmacs/customize/dot.wl.html

Wanderlust なページ(岡田さん)

http://www.tamaru.kuee.kyoto-u.ac.jp/~kokada/wl/

URL's

`.emacs', `.wl' の設定

http://www.gohome.org/wl/doc/wl-euc_6.html#SEC13

autoload

(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)

C-x m で wl を起動する

(global-set-key "\C-xm" 'wl)

wl 等で 添付書類を分割しない

(setq mime-edit-split-message nil)

添付書類の名前が日本語の時の扱い

http://lists.airs.net/wl/archive/200304/msg00011.htmlより (日本語の名前をローマ字に変換する)

;;; ファイル名が日本語の添付ファイルをデコードする [semi-gnus-ja: 4332]
(eval-after-load "mime"
  '(defadvice mime-entity-filename
     (after eword-decode-for-broken-MUA activate)
     "Decode eworded file name for *BROKEN* MUA."
     (when (stringp ad-return-value)
       (setq ad-return-value (eword-decode-string ad-return-value t)))))

;;; ファイル名が日本語の添付ファイルをエンコードする [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)))))

上の方法だと、
error in process filter: Wrong type argument: arryap, nil
と言われることがある。そこで次のようにするのがいい。 中山さんに教わりました。

(eval-after-load "std11"
  '(defadvice std11-wrap-as-quoted-string (before encode-string activate)
     "Encode a string."
     (require 'eword-encode)
     (ad-set-arg 0 (or (eword-encode-string (ad-get-arg 0)) "" )) ))

添付書類のあるメールには Summary で @ の印を付ける

以下を .wl に書いておくのが簡単。変更後は Summary の update が必要。
http://www.cmt.phys.kyushu-u.ac.jp/~M.Sakurai/diary/200311.html#25_t2
より。

;; メール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)))))

draft に定形文を挿入

(load "wl-draft-setup-mef.el");

その内容

(add-hook 'wl-mail-setup-hook
  (function 
   (lambda ()
       (search-forward "--text follows" nil t)
       (forward-line 1 )
       (insert  
">                                   "  (current-time-string)"\n"
">                                            千葉市中央区長洲\n"
">                                                    藤原  誠\n"
">                                                makoto$ki.nu\n"
"\n"
"\n"
"---\n"
"(藤原)\n"
"http://www.ki.nu/software/NetBSD/iBook2/\n"
"http://www.ki.nu/software/namazu/tutorial/\n"
     )
     (search-backward "makoto$ki.nu" nil t)
     (forward-line 1))))

http://plaza28.mbn.or.jp/~kitaj/XEmacs/customize/dot.wl.html より

 ;; サマリ表示は切り詰めない
 wl-summary-width nil
 wl-subject-length-limit nil

wanderlust 2.10.1

http://www.slack.homeunix.net/appli/wanderlust.html

Wanderlust tips

http://www4.big.or.jp/~kanai/unix/wl.html