Fragments of Reality

に掛かったわけではなくて、予防接種を受けてきました。すでに流行始めてるので、果たしてまにあうか…

Wanderlustでは一般的にwl-user-mail-address-listに自分のメールアドレスを列挙します。しかし、plusなんかを使っているとこれでは対応しきれないので、wl-user-mail-address-regexpを使うことになります。これもリストにして欲しいんだけどな…

さて、これはこれでいいんですけど、replyするときに届いたメールに基づいてFromを変える、なんていう器用なことがとてもしにくい。これをなんとかしましょう、です。

この辺のコードは結構混沌としてるんですが、まあ以下の感じ。

(defun wl-summary-user-mail-address ()
  (save-excursion
    (catch 'user-mail-address
      (when (buffer-live-p reply-buf)        
        (set-buffer reply-buf)
        (mapc
         (lambda (address)
           (when (wl-address-user-mail-address-p address)
             (throw 'user-mail-address address)))
         (append (wl-parse-addresses (std11-field-body "From"))
                 (wl-parse-addresses (std11-field-body "To"))
                 (wl-parse-addresses (std11-field-body "Cc")))))
      wl-from)))

(setq wl-draft-config-alist
      '((t
         ("From" . (wl-summary-user-mail-address)))
	;; あとはふつう通りお好みで
	))

;; draft bufferの生成時にconfig-alistを処理
;; このタイミングじゃないとreply-bufは見えないので実は必須
(add-hook 'wl-mail-setup-hook
          (lambda ()
             (unless wl-draft-reedit
               (wl-draft-config-exec wl-draft-config-alist))))

もうちょっときれいにできそうだけどね。

追記

初出のコードでは、新規メール作成のときにエラーになってましたので、なおしました。

ひょっとして相性悪いのか？

Wed Dec 19 01:03:27 2007
panic(cpu 1 caller 0x0039CD77): "m_free: freeing an already freed mbuf"@/SourceCache/xnu/xnu-1228.0.2/bsd/kern/uipc_mbuf.c:2742
Backtrace, Format - Frame : Return Address (4 potential args on stack) 
0x35b7b708 : 0x12b0e1 (0x455670 0x35b7b73c 0x133238 0x0) 
0x35b7b758 : 0x39cd77 (0x48e03c 0x1 0x35a9e01c 0x35b7b7c4) 
0x35b7b798 : 0x39d073 (0x3006b300 0x0 0x40fcbdc4 0x40fccb18) 
0x35b7b7b8 : 0x34fa5821 (0x3006b300 0x0 0x20 0x35001f1c) 
0x35b7b8e8 : 0x34fae9e5 (0x1 0x0 0x40fa0410 0x40fccb94) 
0x35b7bc08 : 0x34fb393a (0x237b22c8 0x0 0x237b3d98 0x40d9c000) 
0x35b7bde8 : 0x34fb4fb1 (0x237b22c8 0x1ae25 0x35b7be18 0x1a6d13) 
0x35b7bf18 : 0x41d149 (0x237b2000 0x3b27b00 0x1 0x19ccc1) 
0x35b7bf68 : 0x41c2a6 (0x3b27b00 0x4917048 0x35b7bf98 0x1368db) 
0x35b7bf98 : 0x41bf88 (0x4132600 0x4132600 0x35b7bfc8 0x4917048) 
0x35b7bfc8 : 0x19e2ec (0x4132600 0x0 0x1a10b5 0x46be128) 
Backtrace terminated-invalid frame pointer 0
      Kernel loadable modules in backtrace (with dependencies):
         com.apple.driver.AirPort.Atheros(300.22)@0x34f80000->0x3500afff
            dependency: com.apple.iokit.IO80211Family(200.7)@0x346f6000
            dependency: com.apple.iokit.IOPCIFamily(2.4)@0x2e230000
            dependency: com.apple.iokit.IONetworkingFamily(1.6.0)@0x346d9000

BSD process name corresponding to current thread: kernel_task

Mac OS version:
9B18

Kernel version:
Darwin Kernel Version 9.1.0: Wed Oct 31 17:46:22 PDT 2007; root:xnu-1228.0.2~1/RELEASE_I386
System model name: MacBookPro1,1 (Mac-F425BEC8)

mbufか…またメモリ怪しいのかなあ。